diff --git a/src/sbbs3/js_bbs.cpp b/src/sbbs3/js_bbs.cpp index 898413afa584d16fa7336bdfdc33882744ca2b35..3f94b952e3d9696d6e50328b63df6ca9dcaad2b1 100644 --- a/src/sbbs3/js_bbs.cpp +++ b/src/sbbs3/js_bbs.cpp @@ -3458,6 +3458,38 @@ js_getfilespec(JSContext *cx, uintN argc, jsval *arglist) return(JS_TRUE); } +static JSBool +js_export_filelist(JSContext *cx, uintN argc, jsval *arglist) +{ + jsval *argv=JS_ARGV(cx, arglist); + uint32 mode=0; + char* fname=NULL; + JSString* js_str; + sbbs_t* sbbs; + jsrefcount rc; + + if((sbbs=js_GetPrivate(cx, JS_THIS_OBJECT(cx, arglist)))==NULL) + return JS_FALSE; + + uintN argn = 0; + js_str = JS_ValueToString(cx, argv[argn]); + JSSTRING_TO_MSTRING(cx, js_str, fname, NULL); + HANDLE_PENDING(cx, fname); + argn++; + if(JSVAL_IS_NUMBER(argv[argn])) { + if(!JS_ValueToECMAUint32(cx, argv[argn], &mode)) { + free(fname); + return JS_FALSE; + } + argn++; + } + rc=JS_SUSPENDREQUEST(cx); + JS_SET_RVAL(cx, arglist, INT_TO_JSVAL(sbbs->create_filelist(fname, mode))); + free(fname); + JS_RESUMEREQUEST(cx, rc); + return JS_TRUE; +} + static JSBool js_listfiles(JSContext *cx, uintN argc, jsval *arglist) { @@ -4449,6 +4481,10 @@ static jsSyncMethodSpec js_bbs_functions[] = { "specified by number or internal code") ,310 }, + {"export_filelist", js_export_filelist, 2, JSTYPE_NUMBER, JSDOCSTR("filename [,mode=<tt>FL_NONE</tt>]") + ,JSDOCSTR("export list of files to a text file, optionally specifying a file list mode (e.g. <tt>FL_ULTIME</tt>), returning the number of files listed") + ,319 + }, {"list_files", js_listfiles, 1, JSTYPE_NUMBER, JSDOCSTR("[directory=<i>current</i>] [,filespec=<tt>\"*.*\"</tt> or search_string] [,mode=<tt>FL_NONE</tt>]") ,JSDOCSTR("list files in the specified file directory, " "optionally specifying a file specification (wildcards) or a description search string, "