Newer
Older
/* Synchronet JavaScript "system" Object */
/****************************************************************************
* @format.tab-size 4 (Plain Text/Source Code File Header) *
* @format.use-tabs true (see http://www.synchro.net/ptsc_hdr.html) *
* *
* Copyright 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 *
* *
* For Synchronet coding style and modification guidelines, see *
* http://www.synchro.net/source.html *
* *
* Note: If this box doesn't appear square, then you need to fix your tabs. *
****************************************************************************/
#include "sbbs.h"
#include "js_request.h"
#include "ver.h"
typedef struct {
scfg_t* cfg;
int nodefile;
int nodegets;
} js_system_private_t;
extern JSClass js_system_class;
/* System Object Properties */
enum {
SYS_PROP_NAME
,SYS_PROP_OP
,SYS_PROP_OP_AVAIL
,SYS_PROP_LOGIN
,SYS_PROP_INETADDR
,SYS_PROP_LOCATION
,SYS_PROP_TIMEZONE
,SYS_PROP_PWDAYS
,SYS_PROP_AUTODEL
,SYS_PROP_LASTUSER
,SYS_PROP_LASTUSERON
,SYS_PROP_FREEDISKSPACE
,SYS_PROP_FREEDISKSPACEK
,SYS_PROP_NODES
,SYS_PROP_LASTNODE
,SYS_PROP_NEW_PASS
,SYS_PROP_NEW_MAGIC
,SYS_PROP_NEW_LEVEL
,SYS_PROP_NEW_FLAGS1
,SYS_PROP_NEW_FLAGS2
,SYS_PROP_NEW_FLAGS3
,SYS_PROP_NEW_FLAGS4
,SYS_PROP_NEW_REST
,SYS_PROP_NEW_EXEMPT
,SYS_PROP_NEW_CDT
,SYS_PROP_NEW_MIN
,SYS_PROP_NEW_SHELL
,SYS_PROP_NEW_XEDIT
,SYS_PROP_NEW_MISC
,SYS_PROP_NEW_PROT
,SYS_PROP_NEW_EXPIRE
,SYS_PROP_NEW_UQ
,SYS_PROP_EXPIRED_LEVEL
,SYS_PROP_EXPIRED_FLAGS1
,SYS_PROP_EXPIRED_FLAGS2
,SYS_PROP_EXPIRED_FLAGS3
,SYS_PROP_EXPIRED_FLAGS4
,SYS_PROP_EXPIRED_REST
,SYS_PROP_EXPIRED_EXEMPT
/* directories */
,SYS_PROP_NODE_DIR
,SYS_PROP_CTRL_DIR
,SYS_PROP_DATA_DIR
,SYS_PROP_TEXT_DIR
,SYS_PROP_TEMP_DIR
,SYS_PROP_EXEC_DIR
,SYS_PROP_MODS_DIR
,SYS_PROP_LOGS_DIR
/* clock/timer access */
,SYS_PROP_CLOCK
,SYS_PROP_CLOCK_PER_SEC
/* filenames */
,SYS_PROP_DEVNULL
,SYS_PROP_TEMP_PATH
,SYS_PROP_LOCAL_HOSTNAME
static JSBool js_system_get(JSContext *cx, JSObject *obj, jsid id, jsval *vp)
jsval idval;
uint64_t space;
JSObject *robj;
jsval jval;
str_list_t list;
int i;
js_system_private_t* sys;
if((sys = (js_system_private_t*)js_GetClassPrivate(cx,obj,&js_system_class))==NULL)
return JS_FALSE;
scfg_t* cfg = sys->cfg;
JS_IdToValue(cx, id, &idval);
tiny = JSVAL_TO_INT(idval);
#ifndef JSDOOR
case SYS_PROP_OP_AVAIL:
*vp=BOOLEAN_TO_JSVAL(sysop_available(cfg));
break;
case SYS_PROP_GURU:
p = cfg->sys_guru;
break;
*vp=UINT_TO_JSVAL(cfg->sys_misc);
case SYS_PROP_LOGIN:
*vp=UINT_TO_JSVAL(cfg->sys_login);
break;
break;
case SYS_PROP_LOCATION:
break;
case SYS_PROP_TIMEZONE:
sys_timezone(cfg);
*vp = INT_TO_JSVAL(cfg->sys_timezone);
break;
case SYS_PROP_NODES:
*vp = INT_TO_JSVAL(cfg->sys_nodes);
break;
case SYS_PROP_LASTNODE:
*vp = INT_TO_JSVAL(cfg->sys_lastnode);
break;
case SYS_PROP_MQTT_ENABLED:
*vp = BOOLEAN_TO_JSVAL(cfg->mqtt.enabled);
break;
case SYS_PROP_PWDAYS:
*vp = INT_TO_JSVAL(cfg->sys_pwdays);
break;
*vp = INT_TO_JSVAL(cfg->min_pwlen);
break;
case SYS_PROP_MAXPWLEN:
*vp = INT_TO_JSVAL(LEN_PASS);
break;
case SYS_PROP_DELDAYS:
*vp = INT_TO_JSVAL(cfg->sys_deldays);
break;
case SYS_PROP_AUTODEL:
*vp = INT_TO_JSVAL(cfg->sys_autodel);
break;
case SYS_PROP_LASTUSER:
*vp = INT_TO_JSVAL(lastuser(cfg));
break;
#endif
case SYS_PROP_FREEDISKSPACEK:
rc=JS_SUSPENDREQUEST(cx);
if(tiny==SYS_PROP_FREEDISKSPACE)
space = getfreediskspace(cfg->temp_dir,0);
else
space = getfreediskspace(cfg->temp_dir,1024);
JS_RESUMEREQUEST(cx, rc);
*vp=DOUBLE_TO_JSVAL((double)space);
#ifndef JSDOOR
p=cfg->new_pass;
break;
case SYS_PROP_NEW_MAGIC:
p=cfg->new_magic;
break;
case SYS_PROP_NEW_LEVEL:
*vp = INT_TO_JSVAL(cfg->new_level);
break;
case SYS_PROP_NEW_FLAGS1:
*vp = INT_TO_JSVAL(cfg->new_flags1);
break;
case SYS_PROP_NEW_FLAGS2:
*vp = INT_TO_JSVAL(cfg->new_flags2);
break;
case SYS_PROP_NEW_FLAGS3:
*vp = INT_TO_JSVAL(cfg->new_flags3);
break;
case SYS_PROP_NEW_FLAGS4:
*vp = INT_TO_JSVAL(cfg->new_flags4);
break;
case SYS_PROP_NEW_REST:
*vp = INT_TO_JSVAL(cfg->new_rest);
break;
case SYS_PROP_NEW_EXEMPT:
*vp = INT_TO_JSVAL(cfg->new_exempt);
break;
case SYS_PROP_NEW_CDT:
*vp=UINT_TO_JSVAL(cfg->new_cdt);
break;
case SYS_PROP_NEW_MIN:
*vp=UINT_TO_JSVAL(cfg->new_min);
break;
case SYS_PROP_NEW_SHELL:
if(cfg->new_shell<cfg->total_shells)
p=cfg->shell[cfg->new_shell]->code;
break;
case SYS_PROP_NEW_XEDIT:
break;
case SYS_PROP_NEW_MISC:
*vp=UINT_TO_JSVAL(cfg->new_misc);
break;
case SYS_PROP_NEW_PROT:
sprintf(str,"%c",cfg->new_prot);
break;
case SYS_PROP_NEW_EXPIRE:
*vp=UINT_TO_JSVAL(cfg->new_expire);
*vp=UINT_TO_JSVAL(cfg->uq);
break;
case SYS_PROP_EXPIRED_LEVEL:
*vp = INT_TO_JSVAL(cfg->expired_level);
break;
case SYS_PROP_EXPIRED_FLAGS1:
*vp = INT_TO_JSVAL(cfg->expired_flags1);
break;
case SYS_PROP_EXPIRED_FLAGS2:
*vp = INT_TO_JSVAL(cfg->expired_flags2);
break;
case SYS_PROP_EXPIRED_FLAGS3:
*vp = INT_TO_JSVAL(cfg->expired_flags3);
break;
case SYS_PROP_EXPIRED_FLAGS4:
*vp = INT_TO_JSVAL(cfg->expired_flags4);
break;
case SYS_PROP_EXPIRED_REST:
*vp = INT_TO_JSVAL(cfg->expired_rest);
break;
case SYS_PROP_EXPIRED_EXEMPT:
*vp = INT_TO_JSVAL(cfg->expired_exempt);
break;
case SYS_PROP_NODE_DIR:
#endif
case SYS_PROP_CTRL_DIR:
break;
case SYS_PROP_DATA_DIR:
break;
case SYS_PROP_TEXT_DIR:
break;
case SYS_PROP_TEMP_DIR:
break;
case SYS_PROP_EXEC_DIR:
case SYS_PROP_MODS_DIR:
p=cfg->mods_dir;
break;
case SYS_PROP_LOGS_DIR:
p=cfg->logs_dir;
break;
case SYS_PROP_DEVNULL:
p=_PATH_DEVNULL;
break;
case SYS_PROP_TEMP_PATH:
p=_PATH_TMP;
break;
rc=JS_SUSPENDREQUEST(cx);
JS_RESUMEREQUEST(cx, rc);
case SYS_PROP_CLOCK:
*vp=DOUBLE_TO_JSVAL((double)xp_timer64());
break;
case SYS_PROP_CLOCK_PER_SEC:
*vp=UINT_TO_JSVAL(1000);
break;
*vp=DOUBLE_TO_JSVAL(xp_timer());
case SYS_PROP_LOCAL_HOSTNAME:
rc=JS_SUSPENDREQUEST(cx);
gethostname(str,sizeof(str));
JS_RESUMEREQUEST(cx, rc);
p=str;
break;
case SYS_PROP_NAME_SERVERS:
rc=JS_SUSPENDREQUEST(cx);
robj = JS_NewArrayObject(cx, 0, NULL);
if (robj == NULL)
return JS_FALSE;
*vp = OBJECT_TO_JSVAL(robj);
list = getNameServerList();
if (list != NULL) {
for (i = 0; list[i]; i++) {
jval = STRING_TO_JSVAL(JS_NewStringCopyZ(cx, list[i]));
if (!JS_SetElement(cx, robj, i, &jval))
break;
}
}
freeNameServerList(list);
JS_RESUMEREQUEST(cx, rc);
break;
if(p!=NULL) { /* string property */
if((js_str=JS_NewStringCopyZ(cx, p))==NULL)
return(JS_FALSE);
*vp = STRING_TO_JSVAL(js_str);
}
return(JS_TRUE);
static JSBool js_system_set(JSContext *cx, JSObject *obj, jsid id, JSBool strict, jsval *vp)
jsval idval;
js_system_private_t* sys;
if((sys = (js_system_private_t*)js_GetClassPrivate(cx,obj,&js_system_class))==NULL)
return JS_FALSE;
JS_IdToValue(cx, id, &idval);
tiny = JSVAL_TO_INT(idval);
#ifndef JSDOOR
switch(tiny) {
case SYS_PROP_MISC:
JS_ValueToECMAUint32(cx, *vp, (uint32_t*)&sys->cfg->sys_misc);
case SYS_PROP_LOGIN:
JS_ValueToECMAUint32(cx, *vp, (uint32_t*)&sys->cfg->sys_login);
break;
case SYS_PROP_OP_AVAIL:
if(!set_sysop_availability(sys->cfg, JSVAL_TO_BOOLEAN(*vp))) {
JS_ReportError(cx, "%s: Failed to set sysop availability", __FUNCTION__);
return JS_FALSE;
}
break;
#endif
return JS_TRUE;
}
#define SYSOBJ_FLAGS JSPROP_ENUMERATE|JSPROP_READONLY
static jsSyncPropertySpec js_system_properties[] = {
/* name, tinyid, flags, ver */
#ifndef JSDOOR
{ "name", SYS_PROP_NAME, SYSOBJ_FLAGS, 310
,JSDOCSTR("BBS name")
},
{ "operator", SYS_PROP_OP, SYSOBJ_FLAGS, 310
,JSDOCSTR("Operator name")
},
{ "operator_available", SYS_PROP_OP_AVAIL, JSPROP_ENUMERATE, 31801
,JSDOCSTR("Operator is available for chat")
},
{ "guru", SYS_PROP_GURU, SYSOBJ_FLAGS, 32000
,JSDOCSTR("Default Guru (AI) name")
},
{ "qwk_id", SYS_PROP_ID, SYSOBJ_FLAGS, 310
,JSDOCSTR("System QWK-ID (for QWK packets)")
},
{ "settings", SYS_PROP_MISC, JSPROP_ENUMERATE, 310
,JSDOCSTR("Settings bit-flags (see <tt>SYS_*</tt> in <tt>sbbsdefs.js</tt> for bit definitions)")
},
{ "login_settings", SYS_PROP_LOGIN, JSPROP_ENUMERATE, 32000
,JSDOCSTR("Login control settings bit-flags (see <tt>LOGIN_*</tt> in <tt>sbbsdefs.js</tt> for bit definitions)")
},
{ "inetaddr", SYS_PROP_INETADDR, JSPROP_READONLY, 310 }, /* alias */
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
{ "inet_addr", SYS_PROP_INETADDR, SYSOBJ_FLAGS, 311
,JSDOCSTR("Internet address (host or domain name)")
},
{ "location", SYS_PROP_LOCATION, SYSOBJ_FLAGS, 310
,JSDOCSTR("Location (city, state)")
},
{ "timezone", SYS_PROP_TIMEZONE, SYSOBJ_FLAGS, 310
,JSDOCSTR("Timezone (use <i>system.zonestr()</i> to get string representation)")
},
{ "pwdays", SYS_PROP_PWDAYS, SYSOBJ_FLAGS, 310
,JSDOCSTR("Days between forced user password changes (<tt>0</tt>=<i>never</i>)")
},
{ "min_password_length", SYS_PROP_MINPWLEN, SYSOBJ_FLAGS, 31702
,JSDOCSTR("Minimum number of characters in user passwords")
},
{ "max_password_length", SYS_PROP_MAXPWLEN, SYSOBJ_FLAGS, 31702
,JSDOCSTR("Maximum number of characters in user passwords")
},
{ "deldays", SYS_PROP_DELDAYS, SYSOBJ_FLAGS, 310
,JSDOCSTR("Days to preserve deleted user records, record will not be reused/overwritten during this period")
},
{ "autodel", SYS_PROP_AUTODEL, SYSOBJ_FLAGS, 31702
,JSDOCSTR("Days of user inactivity before auto-deletion (<tt>0</tt>=<i>disabled</i>), N/A to P-exempt users")
},
{ "last_user", SYS_PROP_LASTUSER ,SYSOBJ_FLAGS, 311
,JSDOCSTR("Last user record number in user database (includes deleted and inactive user records)")
},
{ "lastuser", SYS_PROP_LASTUSER ,JSPROP_READONLY, 311 }, /* alias */
{ "last_useron", SYS_PROP_LASTUSERON ,SYSOBJ_FLAGS, 310
,JSDOCSTR("Name of last user to logoff")
},
{ "lastuseron", SYS_PROP_LASTUSERON ,JSPROP_READONLY, 310 }, /* alias */
#endif
{ "freediskspace", SYS_PROP_FREEDISKSPACE ,SYSOBJ_FLAGS, 310
,JSDOCSTR("Amount of free disk space (in bytes)")
},
{ "freediskspacek", SYS_PROP_FREEDISKSPACEK ,SYSOBJ_FLAGS, 310
,JSDOCSTR("Amount of free disk space (in kibibytes)")
},
#ifndef JSDOOR
{ "nodes", SYS_PROP_NODES, SYSOBJ_FLAGS, 310
,JSDOCSTR("Total number of Terminal Server nodes")
},
{ "last_node", SYS_PROP_LASTNODE, SYSOBJ_FLAGS, 310
,JSDOCSTR("Last displayable node number")
},
{ "lastnode", SYS_PROP_LASTNODE, JSPROP_READONLY, 310 }, /* alias */
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
{ "mqtt_enabled", SYS_PROP_MQTT_ENABLED, SYSOBJ_FLAGS, 320
,JSDOCSTR("MQTT support (connection to MQTT broker) is enabled")
},
{ "newuser_password", SYS_PROP_NEW_PASS ,SYSOBJ_FLAGS, 310
,JSDOCSTR("New user password (NUP, optional)")
},
{ "newuser_magic_word", SYS_PROP_NEW_MAGIC ,SYSOBJ_FLAGS, 310
,JSDOCSTR("New user magic word (optional)")
},
{ "newuser_level", SYS_PROP_NEW_LEVEL ,SYSOBJ_FLAGS, 310
,JSDOCSTR("New user security level")
},
{ "newuser_flags1", SYS_PROP_NEW_FLAGS1 ,SYSOBJ_FLAGS, 310
,JSDOCSTR("New user flag set #1")
},
{ "newuser_flags2", SYS_PROP_NEW_FLAGS2 ,SYSOBJ_FLAGS, 310
,JSDOCSTR("New user flag set #2")
},
{ "newuser_flags3", SYS_PROP_NEW_FLAGS3 ,SYSOBJ_FLAGS, 310
,JSDOCSTR("New user flag set #3")
},
{ "newuser_flags4", SYS_PROP_NEW_FLAGS4 ,SYSOBJ_FLAGS, 310
,JSDOCSTR("New user flag set #4")
},
{ "newuser_restrictions", SYS_PROP_NEW_REST ,SYSOBJ_FLAGS, 310
,JSDOCSTR("New user restriction flags")
},
{ "newuser_exemptions", SYS_PROP_NEW_EXEMPT ,SYSOBJ_FLAGS, 310
,JSDOCSTR("New user exemption flags")
},
{ "newuser_credits", SYS_PROP_NEW_CDT ,SYSOBJ_FLAGS, 310
,JSDOCSTR("New user credits")
},
{ "newuser_minutes", SYS_PROP_NEW_MIN ,SYSOBJ_FLAGS, 310
,JSDOCSTR("New user extra minutes")
},
{ "newuser_command_shell", SYS_PROP_NEW_SHELL ,SYSOBJ_FLAGS, 310
,JSDOCSTR("New user default command shell")
},
{ "newuser_editor", SYS_PROP_NEW_XEDIT ,SYSOBJ_FLAGS, 310
,JSDOCSTR("New user default external editor")
},
{ "newuser_settings", SYS_PROP_NEW_MISC ,SYSOBJ_FLAGS, 310
,JSDOCSTR("New user default settings")
},
{ "newuser_download_protocol",SYS_PROP_NEW_PROT ,SYSOBJ_FLAGS, 310
,JSDOCSTR("New user default file transfer protocol (command key)")
},
{ "newuser_expiration_days", SYS_PROP_NEW_EXPIRE ,SYSOBJ_FLAGS, 310
,JSDOCSTR("New user expiration days")
},
{ "newuser_questions", SYS_PROP_NEW_UQ ,SYSOBJ_FLAGS, 310
,JSDOCSTR("New user questions/prompts (see <tt>UQ_*</tt> in <tt>sbbsdefs.js</tt> for bit definitions)")
},
{ "expired_level", SYS_PROP_EXPIRED_LEVEL ,SYSOBJ_FLAGS, 310
,JSDOCSTR("Expired user security level")
},
{ "expired_flags1", SYS_PROP_EXPIRED_FLAGS1 ,SYSOBJ_FLAGS, 310
,JSDOCSTR("Expired user flag set #1")
},
{ "expired_flags2", SYS_PROP_EXPIRED_FLAGS2 ,SYSOBJ_FLAGS, 310
,JSDOCSTR("Expired user flag set #2")
},
{ "expired_flags3", SYS_PROP_EXPIRED_FLAGS3 ,SYSOBJ_FLAGS, 310
,JSDOCSTR("Expired user flag set #3")
},
{ "expired_flags4", SYS_PROP_EXPIRED_FLAGS4 ,SYSOBJ_FLAGS, 310
,JSDOCSTR("Expired user flag set #4")
},
{ "expired_restrictions", SYS_PROP_EXPIRED_REST ,SYSOBJ_FLAGS, 310
,JSDOCSTR("Expired user restriction flags")
},
{ "expired_exemptions", SYS_PROP_EXPIRED_EXEMPT ,SYSOBJ_FLAGS, 310
,JSDOCSTR("Expired user exemption flags")
},
/* directories */
{ "node_dir", SYS_PROP_NODE_DIR ,SYSOBJ_FLAGS, 310
,JSDOCSTR("Current node directory")
},
#endif
{ "ctrl_dir", SYS_PROP_CTRL_DIR ,SYSOBJ_FLAGS, 310
,JSDOCSTR("Control file directory")
},
{ "data_dir", SYS_PROP_DATA_DIR ,SYSOBJ_FLAGS, 310
,JSDOCSTR("Data file directory")
},
{ "text_dir", SYS_PROP_TEXT_DIR ,SYSOBJ_FLAGS, 310
,JSDOCSTR("Text file directory")
},
{ "temp_dir", SYS_PROP_TEMP_DIR ,SYSOBJ_FLAGS, 310
,JSDOCSTR("Temporary file directory")
},
{ "exec_dir", SYS_PROP_EXEC_DIR ,SYSOBJ_FLAGS, 310
,JSDOCSTR("Executable file directory")
},
{ "mods_dir", SYS_PROP_MODS_DIR ,SYSOBJ_FLAGS, 310
,JSDOCSTR("Modified modules directory (optional)")
},
{ "logs_dir", SYS_PROP_LOGS_DIR ,SYSOBJ_FLAGS, 310
,JSDOCSTR("Log file directory")
},
/* filenames */
{ "devnull", SYS_PROP_DEVNULL ,SYSOBJ_FLAGS, 311
,JSDOCSTR("Platform-specific \"null\" device filename")
},
{ "temp_path", SYS_PROP_TEMP_PATH ,SYSOBJ_FLAGS, 312
,JSDOCSTR("Platform-specific temporary file directory")
},
{ "cmd_shell", SYS_PROP_CMD_SHELL ,SYSOBJ_FLAGS, 314
,JSDOCSTR("Platform-specific command processor/shell")
},
/* clock access */
{ "clock_ticks", SYS_PROP_CLOCK ,SYSOBJ_FLAGS, 311
,JSDOCSTR("Amount of elapsed time in clock 'ticks'")
},
{ "clock_ticks_per_second", SYS_PROP_CLOCK_PER_SEC ,SYSOBJ_FLAGS, 311
,JSDOCSTR("Number of clock ticks per second")
},
{ "timer", SYS_PROP_TIMER ,SYSOBJ_FLAGS, 314
,JSDOCSTR("High-resolution timer, in seconds (fractional seconds supported)")
},
{ "local_host_name", SYS_PROP_LOCAL_HOSTNAME ,SYSOBJ_FLAGS, 311
,JSDOCSTR("Private host name that uniquely identifies this system on the local network")
},
{ "name_servers", SYS_PROP_NAME_SERVERS ,SYSOBJ_FLAGS, 31802
,JSDOCSTR("Array of nameservers in use by the system")
},
#ifdef BUILD_JSDOCS
/* Manually created (non-tabled) properties */
"Public host name that uniquely identifies this system on the Internet (usually the same as <i>system.inet_addr</i>)"
,"Socket library version information"
,"Time/date system was brought online (in time_t format)"
,"Synchronet full version information (e.g. '3.10k Beta Debug')"
,"Synchronet version number (e.g. '3.10')"
,"Synchronet revision letter (e.g. 'k')"
,"Synchronet alpha/beta designation (e.g. ' beta')"
,"Synchronet version notice (includes version and platform)"
,"Synchronet version number in decimal (e.g. 31301 for v3.13b)"
,"Synchronet version number in hexadecimal (e.g. 0x31301 for v3.13b)"
,"Synchronet Git repository branch name"
,"Synchronet Git repository commit hash"
,"Platform description (e.g. 'Win32', 'Linux', 'FreeBSD')"
,"Architecture description (e.g. 'i386', 'i686', 'x86_64')"
,"Message base library version information"
,"Compiler used to build Synchronet"
,"Synchronet copyright display"
,"JavaScript engine version information"
,"Operating system version information"
,"Array of FidoNet Technology Network (FTN) addresses associated with this system"
/* System Stats Propertiess */
enum {
SYSSTAT_PROP_LOGONS
,SYSSTAT_PROP_LTODAY
,SYSSTAT_PROP_TIMEON
,SYSSTAT_PROP_TTODAY
,SYSSTAT_PROP_ULS
,SYSSTAT_PROP_ULB
,SYSSTAT_PROP_DLS
,SYSSTAT_PROP_DLB
,SYSSTAT_PROP_PTODAY
,SYSSTAT_PROP_ETODAY
,SYSSTAT_PROP_FTODAY
,SYSSTAT_PROP_NUSERS
,SYSSTAT_PROP_TOTALUSERS
,SYSSTAT_PROP_TOTALFILES
,SYSSTAT_PROP_TOTALMSGS
,SYSSTAT_PROP_TOTALMAIL
,SYSSTAT_PROP_FEEDBACK
,SYSSTAT_PROP_NODE_GETS
#ifndef JSDOOR
static JSBool js_sysstats_get(JSContext *cx, JSObject *obj, jsid id, jsval *vp)
jsval idval;

Rob Swindell
committed
int i;
js_system_private_t* sys;
if((sys = (js_system_private_t*)JS_GetPrivate(cx,obj))==NULL) {
JS_ReportError(cx, "JS_GetPrivate failure in %s", __FUNCTION__);
return JS_FALSE;
scfg_t* cfg = sys->cfg;
JS_IdToValue(cx, id, &idval);
tiny = JSVAL_TO_INT(idval);
if(tiny < SYSSTAT_PROP_TOTALUSERS) {
rc=JS_SUSPENDREQUEST(cx);
if(!getstats(cfg, 0, &stats)) {
JS_RESUMEREQUEST(cx, rc);
JS_ReportError(cx, "getstats failure in %s", __FUNCTION__);
return JS_FALSE;
}
JS_RESUMEREQUEST(cx, rc);
switch(tiny) {
case SYSSTAT_PROP_LOGONS:
*vp=UINT_TO_JSVAL(stats.logons);
break;
case SYSSTAT_PROP_LTODAY:
*vp=UINT_TO_JSVAL(stats.ltoday);
break;
case SYSSTAT_PROP_TIMEON:
*vp=UINT_TO_JSVAL(stats.timeon);
break;
case SYSSTAT_PROP_TTODAY:
*vp=UINT_TO_JSVAL(stats.ttoday);
*vp=UINT_TO_JSVAL(stats.uls);
*vp=DOUBLE_TO_JSVAL((double)stats.ulb);
*vp=UINT_TO_JSVAL(stats.dls);
break;
case SYSSTAT_PROP_PTODAY:
*vp=UINT_TO_JSVAL(stats.ptoday);
break;
case SYSSTAT_PROP_ETODAY:
*vp=UINT_TO_JSVAL(stats.etoday);
break;
case SYSSTAT_PROP_FTODAY:
*vp=UINT_TO_JSVAL(stats.ftoday);
break;
case SYSSTAT_PROP_NUSERS:
*vp=UINT_TO_JSVAL(stats.nusers);
break;
case SYSSTAT_PROP_TOTALUSERS:
rc=JS_SUSPENDREQUEST(cx);
*vp = INT_TO_JSVAL(total_users(cfg));
JS_RESUMEREQUEST(cx, rc);
break;
case SYSSTAT_PROP_TOTALMSGS:
l=0;
rc=JS_SUSPENDREQUEST(cx);
l+=getposts(cfg,i);
JS_RESUMEREQUEST(cx, rc);
*vp=DOUBLE_TO_JSVAL((double)l);
break;
case SYSSTAT_PROP_TOTALFILES:
l=0;
rc=JS_SUSPENDREQUEST(cx);
for(i=0;i<cfg->total_dirs;i++)
l+=getfiles(cfg,i);
JS_RESUMEREQUEST(cx, rc);
*vp=DOUBLE_TO_JSVAL((double)l);
break;
case SYSSTAT_PROP_TOTALMAIL:
rc=JS_SUSPENDREQUEST(cx);
*vp = INT_TO_JSVAL(getmail(cfg, /* user: */0, /* Sent: */FALSE, /* SPAM: */FALSE));
JS_RESUMEREQUEST(cx, rc);
break;
case SYSSTAT_PROP_FEEDBACK:
rc=JS_SUSPENDREQUEST(cx);
*vp = INT_TO_JSVAL(getmail(cfg, /* user: */1, /* Sent: */FALSE, /* SPAM: */FALSE));
JS_RESUMEREQUEST(cx, rc);
case SYSSTAT_PROP_NODE_GETS:
*vp = INT_TO_JSVAL(sys->nodegets);
break;
}
return(TRUE);
}
#define SYSSTAT_FLAGS JSPROP_ENUMERATE|JSPROP_READONLY
static jsSyncPropertySpec js_sysstats_properties[] = {
/* name, tinyid, flags, ver */
{ "total_logons", SYSSTAT_PROP_LOGONS, SYSSTAT_FLAGS, 310 },
{ "logons_today", SYSSTAT_PROP_LTODAY, SYSSTAT_FLAGS, 310 },
{ "total_timeon", SYSSTAT_PROP_TIMEON, SYSSTAT_FLAGS, 310 },
{ "timeon_today", SYSSTAT_PROP_TTODAY, SYSSTAT_FLAGS, 310 },
{ "total_files", SYSSTAT_PROP_TOTALFILES, SYSSTAT_FLAGS, 310 },
{ "files_uploaded_today", SYSSTAT_PROP_ULS, SYSSTAT_FLAGS, 310 },
{ "bytes_uploaded_today", SYSSTAT_PROP_ULB, SYSSTAT_FLAGS, 310 },
{ "files_downloaded_today", SYSSTAT_PROP_DLS, SYSSTAT_FLAGS, 310 },
{ "bytes_downloaded_today", SYSSTAT_PROP_DLB, SYSSTAT_FLAGS, 310 },
{ "total_messages", SYSSTAT_PROP_TOTALMSGS, SYSSTAT_FLAGS, 310 },
{ "messages_posted_today", SYSSTAT_PROP_PTODAY, SYSSTAT_FLAGS, 310 },
{ "total_email", SYSSTAT_PROP_TOTALMAIL, SYSSTAT_FLAGS, 310 },
{ "email_sent_today", SYSSTAT_PROP_ETODAY, SYSSTAT_FLAGS, 310 },
{ "total_feedback", SYSSTAT_PROP_FEEDBACK, SYSSTAT_FLAGS, 310 },
{ "feedback_sent_today", SYSSTAT_PROP_FTODAY, SYSSTAT_FLAGS, 310 },
{ "total_users", SYSSTAT_PROP_TOTALUSERS, SYSSTAT_FLAGS, 310 },
{ "new_users_today", SYSSTAT_PROP_NUSERS, SYSSTAT_FLAGS, 310 },
{ "node_gets", SYSSTAT_PROP_NODE_GETS, JSPROP_READONLY, 31702 },
#if !defined(JSDOOR) && defined(BUILD_JSDOCS)
static char* sysstat_prop_desc[] = {
"Total logons"
,"Logons today"
,"Total time used"
,"Time used today"
,"Total files in file bases"
,"Files uploaded today"
,"Bytes uploaded today"
,"Files downloaded today"
,"Bytes downloaded today"
,"Total messages in message bases"
,"Messages posted today"
,"Total messages in mail base"
,"Email sent today"
,"Total feedback messages waiting"
,"Feedback sent today"
,"Total user records (does not include deleted or inactive user records)"
,"New users today"
static JSBool js_sysstats_resolve(JSContext *cx, JSObject *obj, jsid id)
if(id != JSID_VOID && id != JSID_EMPTY) {
jsval idval;
if(JSVAL_IS_STRING(idval)) {
JSSTRING_TO_MSTRING(cx, JSVAL_TO_STRING(idval), name, NULL);
HANDLE_PENDING(cx, name);
ret=js_SyncResolve(cx, obj, name, js_sysstats_properties, NULL, NULL, 0);
if(name)
free(name);
return ret;
}
static JSBool js_sysstats_enumerate(JSContext *cx, JSObject *obj)
{
static JSClass js_sysstats_class = {
"Stats" /* name */
,JSCLASS_HAS_PRIVATE /* flags */
,JS_PropertyStub /* addProperty */
,JS_PropertyStub /* delProperty */
,js_sysstats_get /* getProperty */
,JS_StrictPropertyStub /* setProperty */
,js_sysstats_enumerate /* enumerate */
,js_sysstats_resolve /* resolve */
,JS_ConvertStub /* convert */
,JS_FinalizeStub /* finalize */
};
static JSBool
js_alias(JSContext *cx, uintN argc, jsval *arglist)
{
JSObject *obj=JS_THIS_OBJECT(cx, arglist);
jsval *argv=JS_ARGV(cx, arglist);
char* p;
char buf[128];
JSString* js_str;
JS_SET_RVAL(cx, arglist, JSVAL_VOID);
js_system_private_t* sys;
if((sys = (js_system_private_t*)js_GetClassPrivate(cx,obj,&js_system_class))==NULL)
return JS_FALSE;
if((js_str=JS_ValueToString(cx, argv[0]))==NULL) {
JS_SET_RVAL(cx, arglist, INT_TO_JSVAL(0));
return(JS_TRUE);
}
JS_SET_RVAL(cx, arglist, INT_TO_JSVAL(0));
return(JS_TRUE);
}
rc=JS_SUSPENDREQUEST(cx);
p=alias(sys->cfg,p,buf);
JS_RESUMEREQUEST(cx, rc);
if((js_str = JS_NewStringCopyZ(cx, p))==NULL)
return(JS_FALSE);
JS_SET_RVAL(cx, arglist, STRING_TO_JSVAL(js_str));
return(JS_TRUE);
}
static JSBool
js_username(JSContext *cx, uintN argc, jsval *arglist)
{
JSObject *obj=JS_THIS_OBJECT(cx, arglist);
jsval *argv=JS_ARGV(cx, arglist);
int32 val;
char buf[128];
JSString* js_str;
JS_SET_RVAL(cx, arglist, JSVAL_VOID);
js_system_private_t* sys;
if((sys = (js_system_private_t*)js_GetClassPrivate(cx,obj,&js_system_class))==NULL)
return JS_FALSE;
val=0;
JS_ValueToInt32(cx,argv[0],&val);
rc=JS_SUSPENDREQUEST(cx);
cstr=username(sys->cfg,val,buf);
JS_RESUMEREQUEST(cx, rc);
if((js_str = JS_NewStringCopyZ(cx, cstr))==NULL)
return(JS_FALSE);
JS_SET_RVAL(cx, arglist, STRING_TO_JSVAL(js_str));
return(JS_TRUE);
}
js_matchuser(JSContext *cx, uintN argc, jsval *arglist)
JSObject *obj=JS_THIS_OBJECT(cx, arglist);
jsval *argv=JS_ARGV(cx, arglist);
BOOL sysop_alias=TRUE;
JS_SET_RVAL(cx, arglist, JSVAL_VOID);
js_system_private_t* sys;
if((sys = (js_system_private_t*)js_GetClassPrivate(cx,obj,&js_system_class))==NULL)
return JS_FALSE;
if((js_str=JS_ValueToString(cx, argv[0]))==NULL) {
JS_SET_RVAL(cx, arglist, INT_TO_JSVAL(0));
JS_ValueToBoolean(cx,argv[1],&sysop_alias);
JSSTRING_TO_ASTRING(cx, js_str, p, (LEN_ALIAS > LEN_NAME) ? LEN_ALIAS+2:LEN_NAME+2, NULL);
JS_SET_RVAL(cx, arglist, INT_TO_JSVAL(0));
rc=JS_SUSPENDREQUEST(cx);
JS_SET_RVAL(cx, arglist, INT_TO_JSVAL(matchuser(sys->cfg,p,sysop_alias)));
JS_RESUMEREQUEST(cx, rc);
static JSBool
js_matchuserdata(JSContext *cx, uintN argc, jsval *arglist)
{
JSObject *obj=JS_THIS_OBJECT(cx, arglist);
jsval *argv=JS_ARGV(cx, arglist);
char* p;
JSString* js_str;
int32 usernumber=0;
int len;
BOOL match_del=FALSE;
BOOL match_next=FALSE;
int argnum=2;
JS_SET_RVAL(cx, arglist, JSVAL_VOID);
js_system_private_t* sys;
if((sys = (js_system_private_t*)js_GetClassPrivate(cx,obj,&js_system_class))==NULL)
return JS_FALSE;
JS_ValueToInt32(cx,argv[0],&field);
rc=JS_SUSPENDREQUEST(cx);
len=user_field_len(field);
JS_RESUMEREQUEST(cx, rc);
if(len < 1) {
JS_ReportError(cx,"Invalid user field: %d", field);
return(JS_FALSE);
if((js_str=JS_ValueToString(cx, argv[1]))==NULL) {
JS_SET_RVAL(cx, arglist, INT_TO_JSVAL(0));
return(JS_TRUE);
}
if(JSVAL_IS_BOOLEAN(argv[argnum]))
JS_ValueToBoolean(cx, argv[argnum], &match_del);
if(JSVAL_IS_NUMBER(argv[argnum]))
JS_ValueToInt32(cx, argv[argnum++], &usernumber);
if(JSVAL_IS_BOOLEAN(argv[argnum]))
JS_ValueToBoolean(cx, argv[argnum], &match_next);
JSSTRING_TO_ASTRING(cx, js_str, p, 128, NULL);
JS_SET_RVAL(cx, arglist, INT_TO_JSVAL(0));
return(JS_TRUE);
}
rc=JS_SUSPENDREQUEST(cx);
JS_SET_RVAL(cx, arglist, INT_TO_JSVAL(finduserstr(sys->cfg, usernumber, field, p, match_del, match_next, NULL, NULL)));
JS_RESUMEREQUEST(cx, rc);
return(JS_TRUE);
}
1025
1026
1027
1028
1029
1030
1031
1032
1033
1034
1035
1036
1037
1038
1039
1040
1041
1042
1043
1044
1045
1046
1047
1048
1049
1050
1051
1052
1053
1054
1055
1056
1057
static JSBool
js_find_login_id(JSContext *cx, uintN argc, jsval *arglist)
{
JSObject *obj=JS_THIS_OBJECT(cx, arglist);
jsval *argv=JS_ARGV(cx, arglist);
char* p;
JSString* js_str;
jsrefcount rc;
JS_SET_RVAL(cx, arglist, JSVAL_VOID);
js_system_private_t* sys;
if((sys = (js_system_private_t*)js_GetClassPrivate(cx,obj,&js_system_class))==NULL)
return JS_FALSE;
if((js_str=JS_ValueToString(cx, argv[0]))==NULL) {
JS_SET_RVAL(cx, arglist, INT_TO_JSVAL(0));
return(JS_TRUE);
}
JSSTRING_TO_ASTRING(cx, js_str, p, (LEN_ALIAS > LEN_NAME) ? LEN_ALIAS+2:LEN_NAME+2, NULL);
if(p==NULL) {
JS_SET_RVAL(cx, arglist, INT_TO_JSVAL(0));
return(JS_TRUE);
}
rc=JS_SUSPENDREQUEST(cx);
JS_SET_RVAL(cx, arglist, INT_TO_JSVAL(find_login_id(sys->cfg, p)));
JS_RESUMEREQUEST(cx, rc);
return(JS_TRUE);
}
#endif
js_trashcan(JSContext *cx, uintN argc, jsval *arglist)
JSObject *obj=JS_THIS_OBJECT(cx, arglist);
jsval *argv=JS_ARGV(cx, arglist);
char* can = NULL;
JSString* js_str;
JSString* js_can;
JS_SET_RVAL(cx, arglist, JSVAL_VOID);
js_system_private_t* sys;
if((sys = (js_system_private_t*)js_GetClassPrivate(cx,obj,&js_system_class))==NULL)
return JS_FALSE;
if((js_can=JS_ValueToString(cx, argv[0]))==NULL) {
JS_SET_RVAL(cx, arglist, BOOLEAN_TO_JSVAL(JS_FALSE));
return(JS_TRUE);
}
if((js_str=JS_ValueToString(cx, argv[1]))==NULL) {
JS_SET_RVAL(cx, arglist, BOOLEAN_TO_JSVAL(JS_FALSE));
HANDLE_PENDING(cx, can);
JS_SET_RVAL(cx, arglist, BOOLEAN_TO_JSVAL(JS_FALSE));
JSSTRING_TO_MSTRING(cx, js_str, str, NULL);
if(JS_IsExceptionPending(cx)) {
FREE_AND_NULL(str);
JS_SET_RVAL(cx, arglist, BOOLEAN_TO_JSVAL(JS_FALSE));
rc=JS_SUSPENDREQUEST(cx);
ret=trashcan(sys->cfg,str,can);
JS_RESUMEREQUEST(cx, rc);
JS_SET_RVAL(cx, arglist, BOOLEAN_TO_JSVAL(ret));
static JSBool
js_findstr(JSContext *cx, uintN argc, jsval *arglist)
jsval *argv=JS_ARGV(cx, arglist);
char* str;
char* fname = NULL;
JSString* js_str;
JSString* js_fname;
if(JSVAL_IS_OBJECT(argv[0]) && !JSVAL_IS_NULL(argv[0])) {
JSObject* array = JSVAL_TO_OBJECT(argv[0]);
if(!JS_IsArrayObject(cx, array))
return(JS_TRUE);
jsuint count;
if(!JS_GetArrayLength(cx, array, &count))
return(JS_TRUE);
char* tmp = NULL;
size_t tmplen = 0;
for(jsuint i = 0; i < count; i++) {
jsval val;
if(!JS_GetElement(cx, array, i, &val))
break;
if(!JSVAL_IS_STRING(val)) /* must be an array of strings */
break;
JSVALUE_TO_RASTRING(cx, val, tmp, &tmplen, NULL);
HANDLE_PENDING(cx, tmp);
strListPush(&list, tmp);
}
free(tmp);
else {
if((js_fname=JS_ValueToString(cx, argv[0]))==NULL) {
JS_SET_RVAL(cx, arglist, BOOLEAN_TO_JSVAL(JS_FALSE));
return(JS_TRUE);
}
JSSTRING_TO_MSTRING(cx, js_fname, fname, NULL);
HANDLE_PENDING(cx, fname);
if(fname==NULL) {
JS_SET_RVAL(cx, arglist, BOOLEAN_TO_JSVAL(JS_FALSE));
return(JS_TRUE);
}
if((js_str=JS_ValueToString(cx, argv[1]))==NULL) {
JS_SET_RVAL(cx, arglist, BOOLEAN_TO_JSVAL(JS_FALSE));
return(JS_TRUE);
}
JSSTRING_TO_MSTRING(cx, js_str, str, NULL);
if(JS_IsExceptionPending(cx)) {
FREE_AND_NULL(str);
JS_SET_RVAL(cx, arglist, BOOLEAN_TO_JSVAL(JS_FALSE));
return(JS_TRUE);
}
rc=JS_SUSPENDREQUEST(cx);
if(list != NULL)
ret = findstr_in_list(str, list);
else
ret = findstr(str, fname);
JS_RESUMEREQUEST(cx, rc);
JS_SET_RVAL(cx, arglist, BOOLEAN_TO_JSVAL(ret));
return(JS_TRUE);
}
js_zonestr(JSContext *cx, uintN argc, jsval *arglist)
JSObject *obj=JS_THIS_OBJECT(cx, arglist);
jsval *argv=JS_ARGV(cx, arglist);
int32 val=0;
JS_SET_RVAL(cx, arglist, JSVAL_VOID);
js_system_private_t* sys;
if((sys = (js_system_private_t*)js_GetClassPrivate(cx,obj,&js_system_class))==NULL)
return JS_FALSE;
if(argc<1)
zone=sys_timezone(sys->cfg);
else {
JS_ValueToInt32(cx,argv[0],&val);
zone=(short)val;
}
rc=JS_SUSPENDREQUEST(cx);
JS_RESUMEREQUEST(cx, rc);
if((js_str = JS_NewStringCopyZ(cx, cstr))==NULL)
JS_SET_RVAL(cx, arglist, STRING_TO_JSVAL(js_str));
/* Returns a ctime()-like string in the system-preferred time format */

rswindell
committed
static JSBool
js_timestr(JSContext *cx, uintN argc, jsval *arglist)

rswindell
committed
{
JSObject *obj=JS_THIS_OBJECT(cx, arglist);
jsval *argv=JS_ARGV(cx, arglist);

rswindell
committed
char str[128];
jsdouble ti;

rswindell
committed
JSString* js_str;

rswindell
committed
JS_SET_RVAL(cx, arglist, JSVAL_VOID);
js_system_private_t* sys;
if((sys = (js_system_private_t*)js_GetClassPrivate(cx,obj,&js_system_class))==NULL)
return JS_FALSE;

rswindell
committed
if(argc<1)
ti=(jsdouble)time(NULL); /* use current time */

rswindell
committed
else
if(!JS_ValueToNumber(cx,argv[0],&ti))
return JS_TRUE;
rc=JS_SUSPENDREQUEST(cx);
timestr(sys->cfg,(time32_t)ti,str);
JS_RESUMEREQUEST(cx, rc);
if((js_str = JS_NewStringCopyZ(cx, str))==NULL)
return(JS_FALSE);

rswindell
committed
JS_SET_RVAL(cx, arglist, STRING_TO_JSVAL(js_str));

rswindell
committed
return(JS_TRUE);
}
/* Returns a mm/dd/yy or dd/mm/yy formated string */
static JSBool
js_datestr(JSContext *cx, uintN argc, jsval *arglist)
JSObject *obj=JS_THIS_OBJECT(cx, arglist);
jsval *argv=JS_ARGV(cx, arglist);
char str[128];
time32_t t;
JSString* js_str;
JS_SET_RVAL(cx, arglist, JSVAL_VOID);
js_system_private_t* sys;
if((sys = (js_system_private_t*)js_GetClassPrivate(cx,obj,&js_system_class))==NULL)
return JS_FALSE;
if(argc<1)
t=time32(NULL); /* use current time */
else {
if(JSVAL_IS_STRING(argv[0])) { /* convert from string to time_t? */
JS_SET_RVAL(cx, arglist, DOUBLE_TO_JSVAL((double)dstrtounix(sys->cfg, p)));
return(JS_TRUE);
}
JS_ValueToECMAUint32(cx,argv[0],(uint32_t*)&t);
unixtodstr(sys->cfg,t,str);
if((js_str = JS_NewStringCopyZ(cx, str))==NULL)
return(JS_FALSE);
JS_SET_RVAL(cx, arglist, STRING_TO_JSVAL(js_str));
return(JS_TRUE);
}
static JSBool
js_secondstr(JSContext *cx, uintN argc, jsval *arglist)
jsval *argv=JS_ARGV(cx, arglist);
char str[128];
JSString* js_str;
JS_SET_RVAL(cx, arglist, JSVAL_NULL);
if(!js_argc(cx, argc, 1))
return JS_FALSE;
if(JSVAL_NULL_OR_VOID(argv[0])) {
JS_ReportError(cx, "Invalid argument");
return JS_FALSE;
}
JS_ValueToECMAUint32(cx,argv[0],&t);
sectostr(t,str);
if((js_str = JS_NewStringCopyZ(cx, str))==NULL)
return(JS_FALSE);
JS_SET_RVAL(cx, arglist, STRING_TO_JSVAL(js_str));
return(JS_TRUE);
}
#ifndef JSDOOR
js_spamlog(JSContext *cx, uintN argc, jsval *arglist)
JSObject *obj=JS_THIS_OBJECT(cx, arglist);
jsval *argv=JS_ARGV(cx, arglist);
char* action=NULL;
char* reason=NULL;
char* host=NULL;
char* ip_addr=NULL;
char* to=NULL;
char* from=NULL;
JS_SET_RVAL(cx, arglist, JSVAL_VOID);
js_system_private_t* sys;
if((sys = (js_system_private_t*)js_GetClassPrivate(cx,obj,&js_system_class))==NULL)
return JS_FALSE;
for(i=0;i<argc && from == NULL;i++) {
if(!JSVAL_IS_STRING(argv[i]))
continue;
JSVALUE_TO_MSTRING(cx, argv[i], p, NULL);
if(p == NULL || JS_IsExceptionPending(cx)) {
free(prot);
free(action);
free(reason);
free(host);
free(ip_addr);
free(to);
free(p);
return JS_FALSE;
if(prot==NULL)
prot=p;
else if(action==NULL)
action=p;
else if(reason==NULL)
reason=p;
else if(host==NULL)
host=p;
else if(ip_addr==NULL)
ip_addr=p;
else if(to==NULL)
to=p;
else
from=p;
rc=JS_SUSPENDREQUEST(cx);
ret=spamlog(sys->cfg,/* mqtt: */NULL,prot,action,reason,host,ip_addr,to,from);
free(prot);
free(action);
free(reason);
free(host);
free(ip_addr);
free(to);
free(from);
JS_RESUMEREQUEST(cx, rc);
JS_SET_RVAL(cx, arglist, BOOLEAN_TO_JSVAL(ret));
return(JS_TRUE);
}
static JSBool
js_hacklog(JSContext *cx, uintN argc, jsval *arglist)
JSObject *obj=JS_THIS_OBJECT(cx, arglist);
jsval *argv=JS_ARGV(cx, arglist);
int32 i32=0;
char* prot=NULL;
char* user=NULL;
char* text=NULL;
char* host=NULL;
JS_SET_RVAL(cx, arglist, JSVAL_VOID);
js_system_private_t* sys;
if((sys = (js_system_private_t*)js_GetClassPrivate(cx,obj,&js_system_class))==NULL)
return JS_FALSE;
memset(&addr,0,sizeof(addr));
for(i=0;i<argc;i++) {
if(JSVAL_IS_NUMBER(argv[i])) {
JS_ValueToInt32(cx,argv[i],&i32);
if(addr.in.sin_addr.s_addr==0)
addr.in.sin_addr.s_addr=i32;
continue;
}
if(!JSVAL_IS_STRING(argv[i]))
continue;
if(host==NULL) {
JSVALUE_TO_MSTRING(cx, argv[i], p, NULL);
if(JS_IsExceptionPending(cx) || p == NULL) {
free(prot);
free(user);
free(text);
free(p);
if(prot==NULL)
prot=p;
else if(user==NULL)
user=p;
else if(text==NULL)
text=p;
else
host=p;
rc=JS_SUSPENDREQUEST(cx);
ret=hacklog(sys->cfg,/* MQTT: */NULL,prot,user,text,host,&addr);
free(prot);
free(user);
free(text);
free(host);
JS_RESUMEREQUEST(cx, rc);
JS_SET_RVAL(cx, arglist, BOOLEAN_TO_JSVAL(ret));
return(JS_TRUE);
}
js_filter_ip(JSContext *cx, uintN argc, jsval *arglist)
JSObject *obj=JS_THIS_OBJECT(cx, arglist);
jsval *argv=JS_ARGV(cx, arglist);
char* prot=NULL;
char* reason=NULL;
char* ip_addr=NULL;
char* from=NULL;
char* fname=NULL;
JS_SET_RVAL(cx, arglist, JSVAL_VOID);
js_system_private_t* sys;
if((sys = (js_system_private_t*)js_GetClassPrivate(cx,obj,&js_system_class))==NULL)
return JS_FALSE;
for(i=0; i<argc && fname == NULL; i++) {
if(!JSVAL_IS_STRING(argv[i]))
continue;
JSVALUE_TO_MSTRING(cx, argv[i], p, NULL);
if(JS_IsExceptionPending(cx) || p == NULL) {
free(prot);
free(reason);
free(host);
free(ip_addr);
free(from);
free(p);
return JS_FALSE;
if(prot==NULL)
prot=p;
else if(reason==NULL)
reason=p;
else if(ip_addr==NULL)
ip_addr=p;
else if(from==NULL)
from=p;
fname=p;
rc=JS_SUSPENDREQUEST(cx);
ret=filter_ip(sys->cfg,prot,reason,host,ip_addr,from,fname);
free(prot);
free(reason);
free(host);
free(ip_addr);
free(from);
free(fname);
JS_RESUMEREQUEST(cx, rc);
JS_SET_RVAL(cx, arglist, BOOLEAN_TO_JSVAL(ret));
static JSBool
js_get_node(JSContext *cx, uintN argc, jsval *arglist)
{
JSObject* obj=JS_THIS_OBJECT(cx, arglist);
JSObject* nodeobj;
jsval* argv=JS_ARGV(cx, arglist);
node_t node = {0};
int32 node_num;
jsrefcount rc;
JS_SET_RVAL(cx, arglist, JSVAL_NULL);
js_system_private_t* sys;
if((sys = (js_system_private_t*)js_GetClassPrivate(cx,obj,&js_system_class))==NULL)
return JS_FALSE;
scfg_t* cfg = sys->cfg;
node_num=cfg->node_num;
if(argc) {
if(!JS_ValueToInt32(cx,argv[0],&node_num))
return JS_TRUE;
}
1532
1533
1534
1535
1536
1537
1538
1539
1540
1541
1542
1543
1544
1545
1546
1547
1548
1549
1550
1551
1552
1553
1554
1555
1556
1557
1558
1559
if(node_num<1)
node_num=1;
rc=JS_SUSPENDREQUEST(cx);
int retval = getnodedat(sys->cfg, node_num, &node, /* lockit: */FALSE, &sys->nodefile);
sys->nodegets++;
JS_RESUMEREQUEST(cx, rc);
if(retval != 0) {
JS_ReportError(cx, "getnodat(%d) returned %d", node_num, retval);
return JS_TRUE;
}
if((nodeobj = JS_NewObject(cx, NULL, NULL, obj)) == NULL) {
JS_ReportError(cx, "JS_NewObject failure");
return JS_TRUE;
}
JS_DefineProperty(cx, nodeobj, "status", INT_TO_JSVAL((int)node.status), NULL, NULL, JSPROP_ENUMERATE);
JS_DefineProperty(cx, nodeobj, "errors", INT_TO_JSVAL((int)node.errors), NULL, NULL, JSPROP_ENUMERATE);
JS_DefineProperty(cx, nodeobj, "action", INT_TO_JSVAL((int)node.action), NULL, NULL, JSPROP_ENUMERATE);
JS_DefineProperty(cx, nodeobj, "useron", INT_TO_JSVAL((int)node.useron), NULL, NULL, JSPROP_ENUMERATE);
JS_DefineProperty(cx, nodeobj, "connection", INT_TO_JSVAL((int)node.connection), NULL, NULL, JSPROP_ENUMERATE);
JS_DefineProperty(cx, nodeobj, "misc", INT_TO_JSVAL((int)node.misc), NULL, NULL, JSPROP_ENUMERATE);
JS_DefineProperty(cx, nodeobj, "aux", INT_TO_JSVAL((int)node.aux), NULL, NULL, JSPROP_ENUMERATE);
JS_DefineProperty(cx, nodeobj, "extaux", INT_TO_JSVAL((int)node.extaux), NULL, NULL, JSPROP_ENUMERATE);
JS_SET_RVAL(cx, arglist, OBJECT_TO_JSVAL(nodeobj));
return JS_TRUE;
}
js_get_node_message(JSContext *cx, uintN argc, jsval *arglist)
JSObject *obj=JS_THIS_OBJECT(cx, arglist);
jsval *argv=JS_ARGV(cx, arglist);
char* buf;
int32 node_num;
JSString* js_str;
JS_SET_RVAL(cx, arglist, JSVAL_NULL);
js_system_private_t* sys;
if((sys = (js_system_private_t*)js_GetClassPrivate(cx,obj,&js_system_class))==NULL)
return JS_FALSE;
scfg_t* cfg = sys->cfg;
node_num=cfg->node_num;
JS_ValueToInt32(cx,argv[0],&node_num);
if(node_num<1)
node_num=1;
rc=JS_SUSPENDREQUEST(cx);
buf=getnmsg(sys->cfg,node_num);
JS_RESUMEREQUEST(cx, rc);
if(buf==NULL)
return(JS_TRUE);
js_str=JS_NewStringCopyZ(cx, buf);
free(buf);
if(js_str==NULL)
return(JS_FALSE);
JS_SET_RVAL(cx, arglist, STRING_TO_JSVAL(js_str));
return(JS_TRUE);
}
js_put_node_message(JSContext *cx, uintN argc, jsval *arglist)
JSObject *obj=JS_THIS_OBJECT(cx, arglist);
jsval *argv=JS_ARGV(cx, arglist);
int32 node=1;
JSString* js_msg;
char* msg = NULL;
JS_SET_RVAL(cx, arglist, JSVAL_VOID);
js_system_private_t* sys;
if((sys = (js_system_private_t*)js_GetClassPrivate(cx,obj,&js_system_class))==NULL)
return JS_FALSE;
JS_ValueToInt32(cx,argv[0],&node);
if(node<1)
if((js_msg=JS_ValueToString(cx, argv[1]))==NULL)
return(JS_FALSE);
HANDLE_PENDING(cx, msg);
if(msg==NULL)
rc=JS_SUSPENDREQUEST(cx);
ret=putnmsg(sys->cfg,node,msg)==0;
JS_RESUMEREQUEST(cx, rc);
JS_SET_RVAL(cx, arglist, BOOLEAN_TO_JSVAL(ret));
return(JS_TRUE);
}
js_get_telegram(JSContext *cx, uintN argc, jsval *arglist)
JSObject *obj=JS_THIS_OBJECT(cx, arglist);
jsval *argv=JS_ARGV(cx, arglist);
char* buf;
int32 usernumber=1;
JSString* js_str;
JS_SET_RVAL(cx, arglist, JSVAL_NULL);
js_system_private_t* sys;
if((sys = (js_system_private_t*)js_GetClassPrivate(cx,obj,&js_system_class))==NULL)
return JS_FALSE;
JS_ValueToInt32(cx,argv[0],&usernumber);
if(usernumber<1)
usernumber=1;
rc=JS_SUSPENDREQUEST(cx);
buf=getsmsg(sys->cfg,usernumber);
JS_RESUMEREQUEST(cx, rc);
if(buf==NULL)
return(JS_TRUE);
js_str=JS_NewStringCopyZ(cx, buf);
free(buf);
if(js_str==NULL)
return(JS_FALSE);
JS_SET_RVAL(cx, arglist, STRING_TO_JSVAL(js_str));
return(JS_TRUE);
}
js_put_telegram(JSContext *cx, uintN argc, jsval *arglist)
JSObject *obj=JS_THIS_OBJECT(cx, arglist);
jsval *argv=JS_ARGV(cx, arglist);
int32 usernumber=1;
JSString* js_msg;
char* msg = NULL;
JS_SET_RVAL(cx, arglist, JSVAL_VOID);
js_system_private_t* sys;
if((sys = (js_system_private_t*)js_GetClassPrivate(cx,obj,&js_system_class))==NULL)
return JS_FALSE;
JS_ValueToInt32(cx,argv[0],&usernumber);
if(usernumber<1)
usernumber=1;
if((js_msg=JS_ValueToString(cx, argv[1]))==NULL)
return(JS_FALSE);
HANDLE_PENDING(cx, msg);
rc=JS_SUSPENDREQUEST(cx);
ret=putsmsg(sys->cfg,usernumber,msg)==0;
JS_RESUMEREQUEST(cx, rc);
JS_SET_RVAL(cx, arglist, BOOLEAN_TO_JSVAL(ret));
return(JS_TRUE);
}

Rob Swindell
committed
1709
1710
1711
1712
1713
1714
1715
1716
1717
1718
1719
1720
1721
1722
1723
1724
1725
1726
1727
1728
1729
1730
1731
static JSBool
js_notify(JSContext *cx, uintN argc, jsval *arglist)
{
JSObject *obj=JS_THIS_OBJECT(cx, arglist);
jsval *argv=JS_ARGV(cx, arglist);
int32 usernumber=1;
JSString* js_subj;
JSString* js_msg;
char* subj;
char* msg = NULL;
jsrefcount rc;
BOOL ret;
JS_SET_RVAL(cx, arglist, JSVAL_VOID);
js_system_private_t* sys;
if((sys = (js_system_private_t*)js_GetClassPrivate(cx,obj,&js_system_class))==NULL)
return JS_FALSE;
JS_ValueToInt32(cx,argv[0],&usernumber);
if(usernumber<1)
usernumber=1;
if((js_subj=JS_ValueToString(cx, argv[1]))==NULL)

Rob Swindell
committed
return JS_FALSE;
if(argc > 2) {
if((js_msg=JS_ValueToString(cx, argv[2]))==NULL)

Rob Swindell
committed
1737
1738
1739
1740
1741
1742
1743
1744
1745
1746
1747
1748
1749
1750
1751
1752
1753
1754
1755
1756
1757
1758
1759
1760
1761
return JS_FALSE;
JSSTRING_TO_MSTRING(cx, js_msg, msg, NULL);
HANDLE_PENDING(cx, msg);
if(msg==NULL)
return JS_TRUE;
}
JSSTRING_TO_MSTRING(cx, js_subj, subj, NULL);
HANDLE_PENDING(cx,subj);
if(subj==NULL) {
free(msg);
return JS_TRUE;
}
rc=JS_SUSPENDREQUEST(cx);
ret=notify(sys->cfg, usernumber, subj, msg)==0;
free(subj);
free(msg);
JS_RESUMEREQUEST(cx, rc);
JS_SET_RVAL(cx, arglist, BOOLEAN_TO_JSVAL(ret));
return JS_TRUE;
}
static JSBool
js_new_user(JSContext *cx, uintN argc, jsval *arglist)
{
JSObject *obj=JS_THIS_OBJECT(cx, arglist);
jsval *argv=JS_ARGV(cx, arglist);
char* alias;
int i;
uintN n;
user_t user;
JSObject* userobj;
JSObject* objarg;
JSClass* cl;
client_t* client=NULL;
jsval val;
JS_SET_RVAL(cx, arglist, JSVAL_VOID);
js_system_private_t* sys;
if((sys = (js_system_private_t*)js_GetClassPrivate(cx,obj,&js_system_class))==NULL)
return JS_FALSE;
scfg_t* cfg = sys->cfg;
if(!js_argc(cx, argc, 1))
return JS_FALSE;
if(JSVAL_NULL_OR_VOID(argv[0])) {
JS_ReportError(cx, "Invalid argument");
return JS_FALSE;
}
JSVALUE_TO_ASTRING(cx, argv[0], alias, LEN_ALIAS+2, NULL);
rc=JS_SUSPENDREQUEST(cx);
if(!check_name(cfg,alias)) {
JS_RESUMEREQUEST(cx, rc);
JS_ReportError(cx,"Invalid or duplicate user alias: %s", alias);
return JS_FALSE;
}
memset(&user,0,sizeof(user));
for(n=0;n<argc;n++) {
if(JSVAL_IS_OBJECT(argv[n])) {
objarg = JSVAL_TO_OBJECT(argv[n]);
if((cl=JS_GetClass(cx,objarg))!=NULL && strcmp(cl->name,"Client")==0) {
client=JS_GetPrivate(cx,objarg);
continue;
}
}
}
// Find and use the global client object if possible...
if(client==NULL) {
if(JS_GetProperty(cx, JS_GetGlobalObject(cx), "client", &val) && !JSVAL_NULL_OR_VOID(val)) {
objarg = JSVAL_TO_OBJECT(val);
if((cl=JS_GetClass(cx,objarg))!=NULL && strcmp(cl->name,"Client")==0)
client=JS_GetPrivate(cx,objarg);
}
}
if(client!=NULL) {
if(client->protocol != NULL)
SAFECOPY(user.modem,client->protocol);
SAFECOPY(user.ipaddr,client->addr);
}
SAFECOPY(user.alias,alias);
i=newuserdat(cfg,&user);
JS_RESUMEREQUEST(cx, rc);
if(i==0) {
userobj=js_CreateUserObject(cx, obj, NULL, &user, /* client: */NULL, /* global_user: */FALSE);
JS_SET_RVAL(cx, arglist, OBJECT_TO_JSVAL(userobj));
} else
JS_SET_RVAL(cx, arglist, INT_TO_JSVAL(i));
return(JS_TRUE);
}
static JSBool
js_del_user(JSContext *cx, uintN argc, jsval *arglist)
{
JSObject *obj=JS_THIS_OBJECT(cx, arglist);
jsval *argv=JS_ARGV(cx, arglist);
jsrefcount rc;
int32 n;
user_t user;
js_system_private_t* sys;
if((sys = (js_system_private_t*)js_GetClassPrivate(cx,obj,&js_system_class))==NULL)
return JS_FALSE;
if(!JS_ValueToInt32(cx,argv[0],&n))
return(JS_FALSE);
user.number=n;
rc=JS_SUSPENDREQUEST(cx);
JS_SET_RVAL(cx, arglist, JSVAL_FALSE); /* fail, by default */
if(getuserdat(sys->cfg, &user)==0
&& putusermisc(sys->cfg, n, user.misc | DELETED)==0
&& putusername(sys->cfg,n,nulstr)==0)
JS_SET_RVAL(cx, arglist, JSVAL_TRUE); /* success */
JS_RESUMEREQUEST(cx, rc);
return(JS_TRUE);
}
#endif
static JSBool
js_sys_exec(JSContext *cx, uintN argc, jsval *arglist)
{
jsval *argv=JS_ARGV(cx, arglist);
char *cmd = NULL;
HANDLE_PENDING(cx, cmd);
if(cmd==NULL) {
JS_ReportError(cx, "Illegal NULL command");
return JS_FALSE;
}
if(*cmd == 0) {
free(cmd);
JS_ReportError(cx, "Missing or invalid argument");
return JS_FALSE;
}
rc=JS_SUSPENDREQUEST(cx);
JS_RESUMEREQUEST(cx, rc);
return(JS_TRUE);
}
static JSBool
js_popen(JSContext *cx, uintN argc, jsval *arglist)
jsval *argv=JS_ARGV(cx, arglist);
char str[1024];
char* cmd = NULL;
FILE* fp;
jsint line=0;
jsval val;
JSObject* array;
JSString* js_str;
JS_SET_RVAL(cx, arglist, JSVAL_VOID);
if(!js_argc(cx, argc, 1))
return JS_FALSE;
if(JSVAL_NULL_OR_VOID(argv[0])) {
JS_ReportError(cx, "Invalid argument");
return JS_FALSE;
}
if((array=JS_NewArrayObject(cx,0,NULL))==NULL)
return(JS_FALSE);
HANDLE_PENDING(cx, cmd);
if(cmd==NULL) {
JS_ReportError(cx, "Illegal NULL command");
return JS_FALSE;
}
rc=JS_SUSPENDREQUEST(cx);
JS_RESUMEREQUEST(cx, rc);
return(JS_TRUE);
while(!feof(fp)) {
if(fgets(str,sizeof(str),fp)==NULL)
break;
JS_RESUMEREQUEST(cx, rc);
if((js_str=JS_NewStringCopyZ(cx,str))==NULL) {
rc=JS_SUSPENDREQUEST(cx);
val=STRING_TO_JSVAL(js_str);
if(!JS_SetElement(cx, array, line++, &val)) {
rc=JS_SUSPENDREQUEST(cx);
rc=JS_SUSPENDREQUEST(cx);
}
pclose(fp);
JS_RESUMEREQUEST(cx, rc);
JS_SET_RVAL(cx, arglist, OBJECT_TO_JSVAL(array));
return(JS_TRUE);
}
#ifndef JSDOOR
static JSBool
js_chksyspass(JSContext *cx, uintN argc, jsval *arglist)
JSObject *obj=JS_THIS_OBJECT(cx, arglist);
jsval *argv=JS_ARGV(cx, arglist);
JS_SET_RVAL(cx, arglist, JSVAL_VOID);
js_system_private_t* sys;
if((sys = (js_system_private_t*)js_GetClassPrivate(cx,obj,&js_system_class))==NULL)
return JS_FALSE;
JSVALUE_TO_ASTRING(cx, argv[0], pass, LEN_PASS+2, NULL); // +2 is so overly long passwords fail.
JS_SET_RVAL(cx, arglist, BOOLEAN_TO_JSVAL(stricmp(pass,sys->cfg->sys_pass)==0));
return(JS_TRUE);
}
js_chkname(JSContext *cx, uintN argc, jsval *arglist)
JSObject *obj=JS_THIS_OBJECT(cx, arglist);
jsval *argv=JS_ARGV(cx, arglist);
JS_SET_RVAL(cx, arglist, JSVAL_VOID);
JSVALUE_TO_ASTRING(cx, argv[0], str, (LEN_ALIAS > LEN_NAME)?LEN_ALIAS+2:LEN_NAME+2, NULL);
js_system_private_t* sys;
if((sys = (js_system_private_t*)js_GetClassPrivate(cx,obj,&js_system_class))==NULL)
return JS_FALSE;
rc=JS_SUSPENDREQUEST(cx);
JS_SET_RVAL(cx, arglist, BOOLEAN_TO_JSVAL(check_name(sys->cfg,str)));
JS_RESUMEREQUEST(cx, rc);
return(JS_TRUE);
}
1999
2000
2001
2002
2003
2004
2005
2006
2007
2008
2009
2010
2011
2012
2013
2014
2015
2016
2017
2018
2019
2020
2021
2022
2023
2024
2025
2026
2027
2028
2029
2030
2031
2032
2033
2034
2035
2036
2037
2038
2039
2040
2041
2042
2043
2044
2045
2046
2047
2048
2049
2050
2051
2052
2053
2054
2055
2056
2057
2058
2059
2060
2061
2062
2063
2064
2065
2066
2067
2068
2069
2070
2071
2072
2073
2074
2075
2076
2077
2078
2079
2080
2081
2082
2083
2084
2085
2086
2087
2088
2089
2090
2091
2092
2093
2094
2095
2096
2097
2098
2099
2100
2101
2102
2103
2104
2105
2106
2107
static JSBool
js_chkfname(JSContext *cx, uintN argc, jsval *arglist)
{
JSObject *obj = JS_THIS_OBJECT(cx, arglist);
jsval *argv = JS_ARGV(cx, arglist);
char* fname = NULL;
jsrefcount rc;
JS_SET_RVAL(cx, arglist, JSVAL_FALSE);
if(argc < 1 || !JSVAL_IS_STRING(argv[0]))
return JS_TRUE;
js_system_private_t* sys;
if((sys = (js_system_private_t*)js_GetClassPrivate(cx,obj,&js_system_class))==NULL)
return JS_FALSE;
JSVALUE_TO_MSTRING(cx, argv[0], fname, NULL);
if(fname == NULL)
return JS_FALSE;
rc=JS_SUSPENDREQUEST(cx);
JS_SET_RVAL(cx, arglist, BOOLEAN_TO_JSVAL(!illegal_filename(fname)
&& allowed_filename(sys->cfg, fname)
&& !trashcan(sys->cfg, fname, "file")));
JS_RESUMEREQUEST(cx, rc);
free(fname);
return JS_TRUE;
}
static JSBool
js_safest_fname(JSContext *cx, uintN argc, jsval *arglist)
{
jsval *argv = JS_ARGV(cx, arglist);
char* fname = NULL;
jsrefcount rc;
JS_SET_RVAL(cx, arglist, JSVAL_FALSE);
if(argc < 1 || !JSVAL_IS_STRING(argv[0]))
return JS_TRUE;
JSVALUE_TO_MSTRING(cx, argv[0], fname, NULL);
if(fname == NULL)
return JS_FALSE;
rc=JS_SUSPENDREQUEST(cx);
JS_SET_RVAL(cx, arglist, BOOLEAN_TO_JSVAL(safest_filename(fname)));
JS_RESUMEREQUEST(cx, rc);
free(fname);
return JS_TRUE;
}
static JSBool
js_illegal_fname(JSContext *cx, uintN argc, jsval *arglist)
{
jsval *argv = JS_ARGV(cx, arglist);
char* fname = NULL;
jsrefcount rc;
JS_SET_RVAL(cx, arglist, JSVAL_FALSE);
if(argc < 1 || !JSVAL_IS_STRING(argv[0]))
return JS_TRUE;
JSVALUE_TO_MSTRING(cx, argv[0], fname, NULL);
if(fname == NULL)
return JS_FALSE;
rc=JS_SUSPENDREQUEST(cx);
JS_SET_RVAL(cx, arglist, BOOLEAN_TO_JSVAL(illegal_filename(fname)));
JS_RESUMEREQUEST(cx, rc);
free(fname);
return JS_TRUE;
}
static JSBool
js_allowed_fname(JSContext *cx, uintN argc, jsval *arglist)
{
JSObject *obj = JS_THIS_OBJECT(cx, arglist);
jsval *argv = JS_ARGV(cx, arglist);
char* fname = NULL;
jsrefcount rc;
JS_SET_RVAL(cx, arglist, JSVAL_FALSE);
if(argc < 1 || !JSVAL_IS_STRING(argv[0]))
return JS_TRUE;
js_system_private_t* sys;
if((sys = (js_system_private_t*)js_GetClassPrivate(cx,obj,&js_system_class))==NULL)
return JS_FALSE;
JSVALUE_TO_MSTRING(cx, argv[0], fname, NULL);
if(fname == NULL)
return JS_FALSE;
rc=JS_SUSPENDREQUEST(cx);
JS_SET_RVAL(cx, arglist, BOOLEAN_TO_JSVAL(allowed_filename(sys->cfg, fname)));
JS_RESUMEREQUEST(cx, rc);
free(fname);
return JS_TRUE;
}
#endif
static JSBool
js_chkpid(JSContext *cx, uintN argc, jsval *arglist)
{
jsval *argv=JS_ARGV(cx, arglist);
int32 pid=0;
jsrefcount rc;
JS_SET_RVAL(cx, arglist, JSVAL_FALSE);
if(!js_argc(cx, argc, 1))
return JS_FALSE;
if(JSVAL_NULL_OR_VOID(argv[0])) {
JS_ReportError(cx, "Invalid argument");
return JS_FALSE;
}
JS_ValueToInt32(cx,argv[0],&pid);
rc=JS_SUSPENDREQUEST(cx);
JS_SET_RVAL(cx, arglist, BOOLEAN_TO_JSVAL(check_pid(pid)));
JS_RESUMEREQUEST(cx, rc);
return(JS_TRUE);
}
static JSBool
js_killpid(JSContext *cx, uintN argc, jsval *arglist)
{
jsval *argv=JS_ARGV(cx, arglist);
int32 pid=0;
jsrefcount rc;
JS_SET_RVAL(cx, arglist, JSVAL_FALSE);
if(!js_argc(cx, argc, 1))
return JS_FALSE;
if(JSVAL_NULL_OR_VOID(argv[0])) {
JS_ReportError(cx, "Invalid argument");
return JS_FALSE;
}
JS_ValueToInt32(cx,argv[0],&pid);
rc=JS_SUSPENDREQUEST(cx);
JS_SET_RVAL(cx, arglist, BOOLEAN_TO_JSVAL(terminate_pid(pid)));
JS_RESUMEREQUEST(cx, rc);
return(JS_TRUE);
}
static JSBool
js_text(JSContext *cx, uintN argc, jsval *arglist)
{
JSObject* obj=JS_THIS_OBJECT(cx, arglist);
jsval* argv=JS_ARGV(cx, arglist);
2166
2167
2168
2169
2170
2171
2172
2173
2174
2175
2176
2177
2178
2179
2180
2181
2182
2183
2184
2185
2186
2187
2188
2189
2190
2191
2192
JS_SET_RVAL(cx, arglist, JSVAL_NULL);
if(!js_argc(cx, argc, 1))
return JS_FALSE;
if(JSVAL_NULL_OR_VOID(argv[0])) {
JS_ReportError(cx, "Invalid argument");
return JS_FALSE;
}
js_system_private_t* sys;
if((sys = (js_system_private_t*)js_GetClassPrivate(cx,obj,&js_system_class)) == NULL)
return JS_FALSE;
if(sys->cfg == NULL || sys->cfg->text == NULL)
return JS_TRUE;
if(!JS_ValueToECMAUint32(cx, argv[0], &i))
return JS_FALSE;
if(i > 0 && i <= TOTAL_TEXT) {
JSString* js_str = JS_NewStringCopyZ(cx, sys->cfg->text[i - 1]);
if(js_str==NULL)
return JS_FALSE;
JS_SET_RVAL(cx, arglist, STRING_TO_JSVAL(js_str));
}
return JS_TRUE;
}
static jsSyncMethodSpec js_system_functions[] = {
#ifndef JSDOOR

Rob Swindell
committed
{"username", js_username, 1, JSTYPE_STRING, JSDOCSTR("user_number")
,JSDOCSTR("Return name of user in specified user record <i>number</i>, or empty string if not found")
,311
},
{"alias", js_alias, 1, JSTYPE_STRING, JSDOCSTR("alias")
,JSDOCSTR("Return name of user that matches alias (if found in <tt>ctrl/alias.cfg</tt>)")
,310
{"find_login_id", js_find_login_id, 1, JSTYPE_NUMBER, JSDOCSTR("user-id")
,JSDOCSTR("Find a user's login ID (alias, real name, or number), returns matching user record number or 0 if not found")
{"matchuser", js_matchuser, 1, JSTYPE_NUMBER, JSDOCSTR("username [,sysop_alias=true]")
,JSDOCSTR("Exact user name matching, returns number of user whose name/alias matches <i>username</i> "
" or 0 if not found, matches well-known sysop aliases by default")
,310
{"matchuserdata", js_matchuserdata, 2, JSTYPE_NUMBER, JSDOCSTR("field, data [,<i>bool</i> match_del=false] [,<i>number</i> usernumber, <i>bool</i> match_next=false]")
,JSDOCSTR("Search user database for data in a specific field (see <tt>U_*</tt> in <tt>sbbsdefs.js</tt>).<br>"
"If <i>match_del</i> is <tt>true</tt>, deleted user records are searched, "
"returns first matching user record number, optional <i>usernumber</i> specifies user record to skip, "
"or record at which to begin searching if optional <i>match_next</i> is <tt>true</tt>.")
,310
},
#endif
{"trashcan", js_trashcan, 2, JSTYPE_BOOLEAN, JSDOCSTR("basename, find_string")
,JSDOCSTR("Search <tt>text/<i>basename</i>.can</tt> for pseudo-regexp")
,310
{"findstr", js_findstr, 2, JSTYPE_BOOLEAN, JSDOCSTR("path/filename or <i>array</i> of strings, find_string")
,JSDOCSTR("Search any trashcan/filter file or array of pattern strings (in <tt>*.can</tt> format) for <i>find_string</i>")
,310
{"zonestr", js_zonestr, 0, JSTYPE_STRING, JSDOCSTR("[timezone=<i>local</i>]")
,JSDOCSTR("Convert time zone integer to string, defaults to system timezone if <i>timezone</i> not specified")
,310
{"timestr", js_timestr, 0, JSTYPE_STRING, JSDOCSTR("[time=<i>current</i>]")
"defaults to current time if <i>time</i> not specified")
,310
{"datestr", js_datestr, 0, JSTYPE_STRING, JSDOCSTR("[time=<i>current</i>]")
,JSDOCSTR("Convert time_t integer into a date string (in either <tt>MM/DD/YY</tt> or <tt>DD/MM/YY</tt> format), "
"defaults to current date if <i>time</i> not specified. "
"If <i>time</i> is a string in the appropriate format, returns the time_t.")
,310
{"secondstr", js_secondstr, 0, JSTYPE_STRING, JSDOCSTR("seconds")
,JSDOCSTR("Convert elapsed time in seconds into a string in <tt>hh:mm:ss</tt> format")
,310
#ifndef JSDOOR
{"spamlog", js_spamlog, 6, JSTYPE_BOOLEAN, JSDOCSTR("[protocol, action, reason, host, ip, to, from]")
,310
{"hacklog", js_hacklog, 5, JSTYPE_BOOLEAN, JSDOCSTR("[protocol, user, text, host, ip, port]")
,310
{"filter_ip", js_filter_ip, 4, JSTYPE_BOOLEAN, JSDOCSTR("[protocol, reason, host, ip, username, filename]")
,JSDOCSTR("Add an IP address (with comment) to an IP filter file. If filename is not specified, the ip.can file is used")
,311
},
{"get_node", js_get_node, 1, JSTYPE_OBJECT, JSDOCSTR("node_number")
,JSDOCSTR("Read a node data record all at once (and leaving the record unlocked) "
"returning an object matching the elements of <tt>system.node_list</tt>")
,31702
},
{"get_node_message",js_get_node_message,0, JSTYPE_STRING, JSDOCSTR("node_number")
,JSDOCSTR("Read any messages waiting for the specified node and return in a single string")
,311
{"put_node_message",js_put_node_message,2, JSTYPE_BOOLEAN, JSDOCSTR("node_number, message_text")
,JSDOCSTR("Send a node a short text message, delivered immediately")
,310
{"get_telegram", js_get_telegram, 1, JSTYPE_STRING, JSDOCSTR("user_number")
,JSDOCSTR("Return any short text messages waiting for the specified user")
,311
{"put_telegram", js_put_telegram, 2, JSTYPE_BOOLEAN, JSDOCSTR("user_number, message_text")
,JSDOCSTR("Send a user a short text message, delivered immediately or during next logon")
,310

Rob Swindell
committed
{"notify", js_notify, 2, JSTYPE_BOOLEAN, JSDOCSTR("user_number, subject [,message_text]")
,JSDOCSTR("Notify a user or operator via both email and a short text message about an important event")

Rob Swindell
committed
,31801
},
{"newuser", js_new_user, 1, JSTYPE_ALIAS },
{"new_user", js_new_user, 1, JSTYPE_OBJECT, JSDOCSTR("name/alias [,client object]")
,JSDOCSTR("Create a new user record, returns a new <a href=#User>User</a> object representing the new user account, on success.<br>"
"returns an numeric error code on failure")
,310
},

Rob Swindell
committed
{"del_user", js_del_user, 1, JSTYPE_BOOLEAN, JSDOCSTR("user_number")
,316
},
#endif
{"exec", js_sys_exec, 0, JSTYPE_NUMBER, JSDOCSTR("command-line")
,JSDOCSTR("Execute a native system/shell command-line, returns <i>0</i> on success")
,311
},
{"popen", js_popen, 0, JSTYPE_ARRAY, JSDOCSTR("command-line")
,JSDOCSTR("Execute a native system/shell command-line, returns array of captured output lines on success "
"(<b>only functional on UNIX systems</b>)")
,311
#ifndef JSDOOR
{"check_syspass", js_chksyspass, 1, JSTYPE_BOOLEAN, JSDOCSTR("password")
,JSDOCSTR("Compare the supplied <i>password</i> against the system password and returns <tt>true</tt> if it matches")
,311
{"check_name", js_chkname, 1, JSTYPE_BOOLEAN, JSDOCSTR("name/alias")
,JSDOCSTR("Check that the provided name/alias string is suitable for a new user account, "
"returns <tt>true</tt> if it is valid")
{"check_filename", js_chkfname, 1, JSTYPE_BOOLEAN, JSDOCSTR("filename")
,JSDOCSTR("Verify that the specified <i>filename</i> string is legal and allowed for upload by users "
"(based on system configuration and filter files), returns <tt>true</tt> if the filename is allowed")
,31902
},
{"allowed_filename", js_allowed_fname, 1, JSTYPE_BOOLEAN, JSDOCSTR("filename")
,JSDOCSTR("Verify that the specified <i>filename</i> string is allowed for upload by users "
"(based on system configuration), returns <tt>true</tt> if the filename is allowed")
,31902
},
{"safest_filename", js_safest_fname, 1, JSTYPE_BOOLEAN, JSDOCSTR("filename")
,JSDOCSTR("Verify that the specified <i>filename</i> string contains only the safest subset of characters")
,31902
},
{"illegal_filename", js_illegal_fname, 1, JSTYPE_BOOLEAN, JSDOCSTR("filename")
,JSDOCSTR("Check if the specified <i>filename</i> string contains illegal characters or sequences, "
"returns <tt>true</tt> if it is an illegal filename")
,31902
},
#endif
{"check_pid", js_chkpid, 1, JSTYPE_BOOLEAN, JSDOCSTR("process-ID")
,JSDOCSTR("Check that the provided process ID is a valid executing process on the system, "
"returns <tt>true</tt> if it is valid")
,315
},
{"terminate_pid", js_killpid, 1, JSTYPE_BOOLEAN, JSDOCSTR("process-ID")
,JSDOCSTR("Terminate executing process on the system with the specified process ID, "
"returns <tt>true</tt> on success")
,315
},

Rob Swindell
committed
{"text", js_text, 1, JSTYPE_STRING, JSDOCSTR("index_number")
,JSDOCSTR("Return specified text string (see <tt>bbs.text()</tt> for details)")
/* node properties */
enum {
/* raw node_t fields */
NODE_PROP_STATUS
,NODE_PROP_ERRORS
,NODE_PROP_ACTION
,NODE_PROP_USERON
,NODE_PROP_CONNECTION
,NODE_PROP_MISC
,NODE_PROP_AUX
,NODE_PROP_EXTAUX
#ifdef BUILD_JSDOCS
"Status (see <tt>nodedefs.js</tt> for valid values)"
,"Error counter"
,"Current user action (see <tt>nodedefs.js</tt>)"
,"Current user number"
,"Connection speed (<tt>0xffff</tt> = Telnet or RLogin)"
,"Miscellaneous bit-flags (see <tt>nodedefs.js</tt>)"
,"Auxiliary value"
,"Extended auxiliary value"
static JSBool js_node_get(JSContext *cx, JSObject *obj, jsid id, jsval *vp)
jsval idval;
uint node_num;
jsint tiny;
node_t node;
JSObject* sysobj;
JSObject* node_list;
JS_IdToValue(cx, id, &idval);
tiny = JSVAL_TO_INT(idval);
if((node_list=JS_GetParent(cx, obj))==NULL)
return(JS_FALSE);
if((sysobj=JS_GetParent(cx, node_list))==NULL)
return(JS_FALSE);
js_system_private_t* sys;
if((sys = (js_system_private_t*)js_GetClassPrivate(cx,sysobj,&js_system_class))==NULL)
return JS_FALSE;
node_num=(uintptr_t)JS_GetPrivate(cx,obj)>>1;
rc=JS_SUSPENDREQUEST(cx);
if(getnodedat(sys->cfg, node_num, &node, /* lockit: */FALSE, &sys->nodefile)) {
JS_RESUMEREQUEST(cx, rc);
JS_RESUMEREQUEST(cx, rc);
sys->nodegets++;
switch(tiny) {
case NODE_PROP_STATUS:
*vp = INT_TO_JSVAL((int)node.status);
break;
case NODE_PROP_ERRORS:
*vp = INT_TO_JSVAL((int)node.errors);
break;
case NODE_PROP_ACTION:
*vp = INT_TO_JSVAL((int)node.action);
break;
case NODE_PROP_USERON:
*vp = INT_TO_JSVAL((int)node.useron);
break;
case NODE_PROP_CONNECTION:
*vp = INT_TO_JSVAL((int)node.connection);
break;
case NODE_PROP_MISC:
*vp = INT_TO_JSVAL((int)node.misc);
break;
case NODE_PROP_AUX:
*vp = INT_TO_JSVAL((int)node.aux);
break;
case NODE_PROP_EXTAUX:
*vp=UINT_TO_JSVAL(node.extaux);
case NODE_PROP_DIR:
if((js_str=JS_NewStringCopyZ(cx, sys->cfg->node_path[node_num-1]))==NULL)
return(JS_FALSE);
*vp = STRING_TO_JSVAL(js_str);
break;
}
return(JS_TRUE);
}
static JSBool js_node_set(JSContext *cx, JSObject *obj, jsid id, JSBool strict, jsval *vp)
jsval idval;
jsint tiny;
node_t node;
JSObject* sysobj;
JSObject* node_list;
if((node_list=JS_GetParent(cx, obj))==NULL)
return(JS_FALSE);
if((sysobj=JS_GetParent(cx, node_list))==NULL)
return(JS_FALSE);
js_system_private_t* sys;
if((sys = (js_system_private_t*)js_GetClassPrivate(cx,sysobj,&js_system_class))==NULL)
return JS_FALSE;
node_num=(uintptr_t)JS_GetPrivate(cx,obj)>>1;
rc=JS_SUSPENDREQUEST(cx);
if(getnodedat(sys->cfg, node_num, &node, /* lockit: */TRUE, &sys->nodefile)) {
JS_RESUMEREQUEST(cx, rc);
JS_RESUMEREQUEST(cx, rc);
if(JSVAL_IS_NUMBER(*vp))
JS_IdToValue(cx, id, &idval);
tiny = JSVAL_TO_INT(idval);
rc=JS_SUSPENDREQUEST(cx);
switch(tiny) {
case NODE_PROP_STATUS:
node.status=(BYTE)val;
case NODE_PROP_ERRORS:
node.errors=(BYTE)val;
case NODE_PROP_ACTION:
node.action=(BYTE)val;
case NODE_PROP_USERON:
node.useron=(WORD)val;
break;
case NODE_PROP_CONNECTION:
node.connection=(WORD)val;
case NODE_PROP_MISC:
node.misc=(WORD)val;
case NODE_PROP_AUX:
node.aux=(WORD)val;
case NODE_PROP_EXTAUX:
node.extaux=val;
break;
}
putnodedat(sys->cfg,node_num,&node, /* closeit: */FALSE, sys->nodefile); // TODO: publish via MQTT
JS_RESUMEREQUEST(cx, rc);
return(JS_TRUE);
}
static jsSyncPropertySpec js_node_properties[] = {
/* name, tinyid, flags, ver */
{ "status", NODE_PROP_STATUS, JSPROP_ENUMERATE, 310 },
{ "errors", NODE_PROP_ERRORS, JSPROP_ENUMERATE, 310 },
{ "action", NODE_PROP_ACTION, JSPROP_ENUMERATE, 310 },
{ "useron", NODE_PROP_USERON, JSPROP_ENUMERATE, 310 },
{ "connection", NODE_PROP_CONNECTION, JSPROP_ENUMERATE, 310 },
{ "misc", NODE_PROP_MISC, JSPROP_ENUMERATE, 310 },
{ "aux", NODE_PROP_AUX, JSPROP_ENUMERATE, 310 },
{ "extaux", NODE_PROP_EXTAUX, JSPROP_ENUMERATE, 310 },
{ "dir", NODE_PROP_DIR, JSPROP_ENUMERATE|JSPROP_READONLY, 315 },
static JSBool js_node_resolve(JSContext *cx, JSObject *obj, jsid id)
if(id != JSID_VOID && id != JSID_EMPTY) {
jsval idval;
if(JSVAL_IS_STRING(idval)) {
JSSTRING_TO_MSTRING(cx, JSVAL_TO_STRING(idval), name, NULL);
HANDLE_PENDING(cx, name);
ret=js_SyncResolve(cx, obj, name, js_node_properties, NULL, NULL, 0);
if(name)
free(name);
return(ret);
}
static JSBool js_node_enumerate(JSContext *cx, JSObject *obj)
{
static JSClass js_node_class = {
"Node" /* name */
,JSCLASS_HAS_PRIVATE /* flags */
,JS_PropertyStub /* addProperty */
,JS_PropertyStub /* delProperty */
,js_node_get /* getProperty */
,js_node_set /* setProperty */
,js_node_enumerate /* enumerate */
,js_node_resolve /* resolve */
,JS_ConvertStub /* convert */
,JS_FinalizeStub /* finalize */
};
#define LAZY_INTEGER(PropName, PropValue) \
if(name==NULL || strcmp(name, (PropName))==0) { \
val=UINT_TO_JSVAL((PropValue)); \
JS_DefineProperty(cx, obj, (PropName), val, NULL,NULL,JSPROP_ENUMERATE); \
if(name) { \
free(name); \
return(JS_TRUE); \
} \
#define LAZY_STRING(PropName, PropValue) \
if(name==NULL || strcmp(name, (PropName))==0) { \
if((js_str=JS_NewStringCopyZ(cx, (PropValue)))!=NULL) { \
JS_DefineProperty(cx, obj, PropName, STRING_TO_JSVAL(js_str), NULL, NULL, JSPROP_ENUMERATE); \
if(name) { \
free(name); \
return(JS_TRUE); \
} \
} \
else if(name) { \
free(name); \
return(JS_TRUE); \
#define LAZY_STRFUNC(PropName, Function, PropValue) \
if(name==NULL || strcmp(name, (PropName))==0) { \
Function; \
if((js_str=JS_NewStringCopyZ(cx, (PropValue)))!=NULL) { \
JS_DefineProperty(cx, obj, PropName, STRING_TO_JSVAL(js_str), NULL, NULL, JSPROP_ENUMERATE); \
if(name) { \
free(name); \
return(JS_TRUE); \
} \
} \
else if(name) { \
free(name); \
return(JS_TRUE); \
#define LAZY_STRFUNC_TRUNCSP(PropName, Function, PropValue) \
if(name==NULL || strcmp(name, (PropName))==0) { \
Function; \
if((js_str=JS_NewStringCopyZ(cx, truncsp(PropValue)))!=NULL) { \
JS_DefineProperty(cx, obj, PropName, STRING_TO_JSVAL(js_str), NULL, NULL, JSPROP_ENUMERATE); \
if(name) { \
free(name); \
return(JS_TRUE); \
} \
} \
else if(name) { \
free(name); \
return(JS_TRUE); \
static JSBool js_system_resolve(JSContext *cx, JSObject *obj, jsid id)
{
char* name=NULL;
jsval val;
char str[256];
JSString* js_str;
JSBool ret;
#ifndef JSDOOR

Rob Swindell
committed
int i;
#endif
if(id != JSID_VOID && id != JSID_EMPTY) {
jsval idval;
if(JSVAL_IS_STRING(idval)) {
JSSTRING_TO_MSTRING(cx, JSVAL_TO_STRING(idval), name, NULL);
HANDLE_PENDING(cx, name);
/****************************/
/* static string properties */
LAZY_STRING("version", VERSION);
LAZY_STRFUNC("revision", sprintf(str,"%c",REVISION), str);
LAZY_STRFUNC_TRUNCSP("beta_version", SAFECOPY(str, beta_version), str);
if(name==NULL || strcmp(name, "full_version")==0) {
sprintf(str,"%s%c%s",VERSION,REVISION,beta_version);
truncsp(str);
if((js_str=JS_NewStringCopyZ(cx, str))!=NULL) {
val = STRING_TO_JSVAL(js_str);
JS_SetProperty(cx, obj, "full_version", &val);
if(name) return(JS_TRUE);
}
else if(name) return(JS_TRUE);
}
/* Numeric version properties */
LAZY_INTEGER("version_num", VERSION_NUM);
LAZY_INTEGER("version_hex", VERSION_HEX);
/* Git repo details */
LAZY_STRING("git_branch", git_branch);
LAZY_STRING("git_hash", git_hash);
LAZY_STRING("architecture", ARCHITECTURE_DESC);
LAZY_STRFUNC("msgbase_lib", sprintf(str,"SMBLIB %s",smb_lib_ver()), str);
LAZY_STRFUNC("compiled_with", DESCRIBE_COMPILER(str), str);
LAZY_STRFUNC("compiled_when", sprintf(str,"%s %.5s",__DATE__,__TIME__), str);
LAZY_STRING("copyright", COPYRIGHT_NOTICE);
LAZY_STRING("js_version", (char *)JS_GetImplementationVersion());
LAZY_STRING("os_version", os_version(str, sizeof(str)));
#ifndef JSDOOR
/* fido_addr_list property */
if(name==NULL || strcmp(name, "fido_addr_list")==0) {
js_system_private_t* sys;
if((sys = (js_system_private_t*)js_GetClassPrivate(cx,obj,&js_system_class))==NULL)
return JS_FALSE;
if((newobj=JS_NewArrayObject(cx, 0, NULL))==NULL)
return(JS_FALSE);
if(!JS_SetParent(cx, newobj, obj))
return(JS_FALSE);
if(!JS_DefineProperty(cx, obj, "fido_addr_list", OBJECT_TO_JSVAL(newobj)
, NULL, NULL, JSPROP_ENUMERATE))
return(JS_FALSE);
for(i=0;i<sys->cfg->total_faddrs;i++) {
val=STRING_TO_JSVAL(JS_NewStringCopyZ(cx,smb_faddrtoa(&sys->cfg->faddr[i],str)));
JS_SetElement(cx, newobj, i, &val);
}
if(name) return(JS_TRUE);
}
js_system_private_t* sys;
if((sys = (js_system_private_t*)js_GetClassPrivate(cx,obj,&js_system_class))==NULL)
return JS_FALSE;
newobj = JS_DefineObject(cx, obj, "stats", &js_sysstats_class, NULL
,JSPROP_ENUMERATE|JSPROP_READONLY);
JS_SetPrivate(cx, newobj, sys);
#ifdef BUILD_JSDOCS
js_DescribeSyncObject(cx,newobj,"System statistics",310);
js_CreateArrayOfStrings(cx, newobj, "_property_desc_list", sysstat_prop_desc, JSPROP_READONLY);
#endif
/* node_list property */
if(name==NULL || strcmp(name, "node_list")==0) {
js_system_private_t* sys;
if((sys = (js_system_private_t*)js_GetClassPrivate(cx,obj,&js_system_class))==NULL)
return JS_FALSE;
if((newobj=JS_NewArrayObject(cx, 0, NULL))==NULL)
if(!JS_SetParent(cx, newobj, obj))
return(JS_FALSE);
if(!JS_DefineProperty(cx, obj, "node_list", OBJECT_TO_JSVAL(newobj)
, NULL, NULL, JSPROP_ENUMERATE))
return(JS_FALSE);
for(i=0;i<sys->cfg->sys_nodes && i<sys->cfg->sys_lastnode;i++) {
nodeobj = JS_NewObject(cx, &js_node_class, NULL, newobj);
if(nodeobj==NULL)
return(JS_FALSE);
/* Store node number */
/* We have to shift it to make it look like a pointer to JS. :-( */
if(!JS_SetPrivate(cx, nodeobj, (char*)(((uintptr_t)i+1)<<1)))
js_DescribeSyncObject(cx,nodeobj,"Terminal Server node listing",310);
js_CreateArrayOfStrings(cx, nodeobj, "_property_desc_list", node_prop_desc, JSPROP_READONLY);
}
#endif
val=OBJECT_TO_JSVAL(nodeobj);
if(!JS_SetElement(cx, newobj, i, &val))
return(JS_FALSE);
}
if(name) return(JS_TRUE);
#endif
ret = js_SyncResolve(cx, obj, name, js_system_properties, js_system_functions, NULL, 0);
if(name) free(name);
return ret;
static JSBool js_system_enumerate(JSContext *cx, JSObject *obj)
{
return(js_system_resolve(cx, obj, JSID_VOID));
static void js_system_finalize(JSContext *cx, JSObject *obj)
{
js_system_private_t* sys;
if((sys = (js_system_private_t*)JS_GetPrivate(cx, obj)) == NULL)
return;
CLOSE_OPEN_FILE(sys->nodefile);
free(sys);
JS_SetPrivate(cx, obj, NULL);
}

Rob Swindell
committed
JSBool js_CreateTextProperties(JSContext* cx, JSObject* parent)
{
jsval val;
if (!JS_GetProperty(cx, parent, "text", &val))
return JS_FALSE;
JSObject* text = JSVAL_TO_OBJECT(val);
for (int i = 0; i < TOTAL_TEXT; ++i) {
val = INT_TO_JSVAL(i + 1);
if(!JS_SetProperty(cx, text, text_id[i], &val))
return JS_FALSE;
}
return JS_TRUE;
}
JSClass js_system_class = {
"System" /* name */
,JSCLASS_HAS_PRIVATE /* flags */
,JS_PropertyStub /* addProperty */
,JS_PropertyStub /* delProperty */
,js_system_get /* getProperty */
,js_system_set /* setProperty */
,js_system_enumerate /* enumerate */
,js_system_resolve /* resolve */
,JS_ConvertStub /* convert */
,js_system_finalize /* finalize */
JSObject* js_CreateSystemObject(JSContext* cx, JSObject* parent
,scfg_t* cfg, time_t uptime, char* host_name, char* socklib_desc)
{
jsval val;
JSObject* sysobj;
JSString* js_str;
char str[256];
sysobj = JS_DefineObject(cx, parent, "system", &js_system_class, NULL
,JSPROP_ENUMERATE|JSPROP_READONLY);
if(sysobj==NULL)
js_system_private_t* sys;
if((sys = calloc(sizeof(*sys), 1)) == NULL)
return NULL;
sys->cfg = cfg;
sys->nodefile = -1;
if(!JS_SetPrivate(cx, sysobj, sys))
return(NULL);
/****************************/
/* static string properties */
#ifndef JSDOOR
if((js_str=JS_NewStringCopyZ(cx, host_name))==NULL)
return(NULL);
val = STRING_TO_JSVAL(js_str);
if(!JS_SetProperty(cx, sysobj, "host_name", &val))
return(NULL);
#endif
if((js_str=JS_NewStringCopyZ(cx, socklib_version(str, socklib_desc)))==NULL)
return(NULL);
val = STRING_TO_JSVAL(js_str);
if(!JS_SetProperty(cx, sysobj, "socket_lib", &val))
return(NULL);
val=DOUBLE_TO_JSVAL((double)uptime);
if(!JS_SetProperty(cx, sysobj, "uptime", &val))
return(NULL);

Rob Swindell
committed
js_CreateTextProperties(cx, sysobj);
#ifdef BUILD_JSDOCS
js_DescribeSyncObject(cx,sysobj,"Global system-related properties and methods",310);
js_CreateArrayOfStrings(cx, sysobj, "_property_desc_list", sys_prop_desc, JSPROP_READONLY);