diff --git a/src/sbbs3/js_user.c b/src/sbbs3/js_user.c
index decc466e96e75f00c08f7fd12c0ab6241617a77d..888103e21c4a672172a8883d74370a88eec26db1 100644
--- a/src/sbbs3/js_user.c
+++ b/src/sbbs3/js_user.c
@@ -935,6 +935,8 @@ js_CreateUserObjects(JSContext* cx, JSObject* parent, scfg_t* cfg, user_t* user
return(JS_FALSE);
if(js_CreateMsgAreaObject(cx,parent,cfg,user,subscan)==NULL)
return(JS_FALSE);
+ if(js_CreateXtrnAreaObject(cx,parent,cfg,user)==NULL)
+ return(JS_FALSE);
return(JS_TRUE);
}
diff --git a/src/sbbs3/js_xtrn_area.c b/src/sbbs3/js_xtrn_area.c
new file mode 100644
index 0000000000000000000000000000000000000000..392b7828323eac2a02719cba7ee409c390a53ffd
--- /dev/null
+++ b/src/sbbs3/js_xtrn_area.c
@@ -0,0 +1,229 @@
+/* js_xtrn_area.c */
+
+/* Synchronet JavaScript "External Program Area" Object */
+
+/* $Id$ */
+
+/****************************************************************************
+ * @format.tab-size 4 (Plain Text/Source Code File Header) *
+ * @format.use-tabs true (see http://www.synchro.net/ptsc_hdr.html) *
+ * *
+ * Copyright 2001 Rob Swindell - http://www.synchro.net/copyright.html *
+ * *
+ * This program is free software; you can redistribute it and/or *
+ * modify it under the terms of the GNU General Public License *
+ * as published by the Free Software Foundation; either version 2 *
+ * of the License, or (at your option) any later version. *
+ * See the GNU General Public License for more details: gpl.txt or *
+ * http://www.fsf.org/copyleft/gpl.html *
+ * *
+ * Anonymous FTP access to the most recent released source is available at *
+ * ftp://vert.synchro.net, ftp://cvs.synchro.net and ftp://ftp.synchro.net *
+ * *
+ * Anonymous CVS access to the development source and modification history *
+ * is available at cvs.synchro.net:/cvsroot/sbbs, example: *
+ * cvs -d :pserver:anonymous@cvs.synchro.net:/cvsroot/sbbs login *
+ * (just hit return, no password is necessary) *
+ * cvs -d :pserver:anonymous@cvs.synchro.net:/cvsroot/sbbs checkout src *
+ * *
+ * For Synchronet coding style and modification guidelines, see *
+ * http://www.synchro.net/source.html *
+ * *
+ * You are encouraged to submit any modifications (preferably in Unix diff *
+ * format) via e-mail to mods@synchro.net *
+ * *
+ * Note: If this box doesn't appear square, then you need to fix your tabs. *
+ ****************************************************************************/
+
+#include "sbbs.h"
+
+#ifdef JAVASCRIPT
+
+static JSClass js_xtrn_area_class = {
+ "XtrnArea" /* name */
+ ,JSCLASS_HAS_PRIVATE /* flags */
+ ,JS_PropertyStub /* addProperty */
+ ,JS_PropertyStub /* delProperty */
+ ,JS_PropertyStub /* getProperty */
+ ,JS_PropertyStub /* setProperty */
+ ,JS_EnumerateStub /* enumerate */
+ ,JS_ResolveStub /* resolve */
+ ,JS_ConvertStub /* convert */
+ ,JS_FinalizeStub /* finalize */
+};
+
+#ifdef _DEBUG
+static char* xtrn_prog_prop_desc[] = {
+
+ "internal code"
+ ,"name"
+ ,"command-line"
+ ,"clean-up command-line"
+ ,"startup directory"
+ ,"toggle options (bitfield)"
+ ,"drop file type"
+ ,"event type (0=none)"
+ ,"extra time given to users running this program"
+ ,"maximum time allowed in program"
+ ,"cost (in credits) to run this program"
+ ,NULL
+};
+#endif
+
+BOOL DLLCALL js_CreateXtrnProgProperties(JSContext* cx, JSObject* obj, xtrn_t* xtrn)
+{
+
+ JS_DefineProperty(cx, obj, "code", STRING_TO_JSVAL(JS_NewStringCopyZ(cx, xtrn->code))
+ ,NULL,NULL,JSPROP_ENUMERATE|JSPROP_READONLY);
+
+ JS_DefineProperty(cx, obj, "name", STRING_TO_JSVAL(JS_NewStringCopyZ(cx, xtrn->name))
+ ,NULL,NULL,JSPROP_ENUMERATE|JSPROP_READONLY);
+
+ JS_DefineProperty(cx, obj, "cmd", STRING_TO_JSVAL(JS_NewStringCopyZ(cx, xtrn->cmd))
+ ,NULL,NULL,JSPROP_ENUMERATE|JSPROP_READONLY);
+
+ JS_DefineProperty(cx, obj, "clean_cmd", STRING_TO_JSVAL(JS_NewStringCopyZ(cx, xtrn->clean))
+ ,NULL,NULL,JSPROP_ENUMERATE|JSPROP_READONLY);
+
+ JS_DefineProperty(cx, obj, "startup_dir", STRING_TO_JSVAL(JS_NewStringCopyZ(cx, xtrn->path))
+ ,NULL,NULL,JSPROP_ENUMERATE|JSPROP_READONLY);
+
+ JS_DefineProperty(cx, obj, "settings", INT_TO_JSVAL(xtrn->misc)
+ ,NULL,NULL,JSPROP_ENUMERATE|JSPROP_READONLY);
+
+ JS_DefineProperty(cx, obj, "type", INT_TO_JSVAL(xtrn->type)
+ ,NULL,NULL,JSPROP_ENUMERATE|JSPROP_READONLY);
+
+ JS_DefineProperty(cx, obj, "event", INT_TO_JSVAL(xtrn->event)
+ ,NULL,NULL,JSPROP_ENUMERATE|JSPROP_READONLY);
+
+ JS_DefineProperty(cx, obj, "textra", INT_TO_JSVAL(xtrn->textra)
+ ,NULL,NULL,JSPROP_ENUMERATE|JSPROP_READONLY);
+
+ JS_DefineProperty(cx, obj, "max_time", INT_TO_JSVAL(xtrn->maxtime)
+ ,NULL,NULL,JSPROP_ENUMERATE|JSPROP_READONLY);
+
+ JS_DefineProperty(cx, obj, "cost", INT_TO_JSVAL(xtrn->cost)
+ ,NULL,NULL,JSPROP_ENUMERATE|JSPROP_READONLY);
+
+#ifdef _DEBUG
+ js_CreateArrayOfStrings(cx, obj, "_property_desc_list", xtrn_prog_prop_desc, JSPROP_READONLY);
+#endif
+
+ return(TRUE);
+}
+
+
+JSObject* DLLCALL js_CreateXtrnAreaObject(JSContext* cx, JSObject* parent, scfg_t* cfg
+ ,user_t* user)
+{
+ JSObject* areaobj;
+ JSObject* secobj;
+ JSObject* progobj;
+ JSObject* sec_list;
+ JSObject* prog_list;
+ jsval val;
+ jsuint index;
+ uint l,d;
+
+ /* Return existing object if it's already been created */
+ if(JS_GetProperty(cx,parent,"xtrn_area",&val) && val!=JSVAL_VOID)
+ areaobj = JSVAL_TO_OBJECT(val);
+ else
+ areaobj = JS_DefineObject(cx, parent, "xtrn_area", &js_xtrn_area_class
+ , NULL, JSPROP_ENUMERATE);
+
+ if(areaobj==NULL)
+ return(NULL);
+
+#ifdef _DEBUG
+ js_DescribeObject(cx,areaobj,"External Program Areas");
+#endif
+
+ /* sec_list[] */
+ if((sec_list=JS_NewArrayObject(cx, 0, NULL))==NULL)
+ return(NULL);
+
+ val=OBJECT_TO_JSVAL(sec_list);
+ if(!JS_SetProperty(cx, areaobj, "sec_list", &val))
+ return(NULL);
+
+ for(l=0;l<cfg->total_xtrnsecs;l++) {
+
+ if(user!=NULL && !chk_ar(cfg,cfg->xtrnsec[l]->ar,user))
+ continue;
+
+ if((secobj=JS_NewObject(cx, &js_xtrn_area_class, NULL, NULL))==NULL)
+ return(NULL);
+
+ val=INT_TO_JSVAL(l);
+ if(!JS_SetProperty(cx, secobj, "number", &val))
+ return(NULL);
+
+ val=STRING_TO_JSVAL(JS_NewStringCopyZ(cx, cfg->xtrnsec[l]->code));
+ if(!JS_SetProperty(cx, secobj, "code", &val))
+ return(NULL);
+
+ val=STRING_TO_JSVAL(JS_NewStringCopyZ(cx, cfg->xtrnsec[l]->name));
+ if(!JS_SetProperty(cx, secobj, "name", &val))
+ return(NULL);
+
+ /* prog_list[] */
+ if((prog_list=JS_NewArrayObject(cx, 0, NULL))==NULL)
+ return(NULL);
+
+#ifdef _DEBUG
+ js_DescribeObject(cx,secobj,"Online Program (door) Sections");
+#endif
+
+ val=OBJECT_TO_JSVAL(prog_list);
+ if(!JS_SetProperty(cx, secobj, "prog_list", &val))
+ return(NULL);
+
+ for(d=0;d<cfg->total_xtrns;d++) {
+ if(cfg->xtrn[d]->sec!=l)
+ continue;
+ if(user!=NULL && !chk_ar(cfg,cfg->xtrn[d]->ar,user))
+ continue;
+
+ if((progobj=JS_NewObject(cx, &js_xtrn_area_class, NULL, NULL))==NULL)
+ return(NULL);
+
+ if(!js_CreateXtrnProgProperties(cx, progobj, cfg->xtrn[d]))
+ return(NULL);
+
+ val=INT_TO_JSVAL(d);
+ if(!JS_SetProperty(cx, progobj, "number", &val))
+ return(NULL);
+
+ if(user==NULL || chk_ar(cfg,cfg->xtrn[d]->run_ar,user))
+ val=BOOLEAN_TO_JSVAL(JS_TRUE);
+ else
+ val=BOOLEAN_TO_JSVAL(JS_FALSE);
+ if(!JS_SetProperty(cx, progobj, "can_run", &val))
+ return(NULL);
+
+ if(!JS_GetArrayLength(cx, prog_list, &index))
+ return(NULL);
+
+ val=OBJECT_TO_JSVAL(progobj);
+ if(!JS_SetElement(cx, prog_list, index, &val))
+ return(NULL);
+
+#ifdef _DEBUG
+ js_DescribeObject(cx,progobj,"Online External Programs (doors)");
+#endif
+ }
+
+ if(!JS_GetArrayLength(cx, sec_list, &index))
+ return(NULL);
+
+ val=OBJECT_TO_JSVAL(secobj);
+ if(!JS_SetElement(cx, sec_list, index, &val))
+ return(NULL);
+ }
+
+ return(areaobj);
+}
+
+#endif /* JAVSCRIPT */
diff --git a/src/sbbs3/sbbs.h b/src/sbbs3/sbbs.h
index 4eb323d2c50e7a61a68bf501297e97faf670916e..de75a0f4af48afe63262d9ffdadfe39aeb1bbfb9 100644
--- a/src/sbbs3/sbbs.h
+++ b/src/sbbs3/sbbs.h
@@ -882,6 +882,10 @@ extern "C" {
DLLEXPORT BOOL DLLCALL js_CreateMsgAreaProperties(JSContext* cx, JSObject* subobj
,sub_t* sub);
+ /* js_xtrn_area.c */
+ DLLEXPORT JSObject* DLLCALL js_CreateXtrnAreaObject(JSContext* cx, JSObject* parent, scfg_t* cfg
+ ,user_t* user);
+
/* js_msgbase.c */
DLLEXPORT JSObject* DLLCALL js_CreateMsgBaseClass(JSContext* cx, JSObject* parent, scfg_t* cfg);