/* js_system.c */
/* Synchronet JavaScript "system" 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
/* System Object Properites */
enum {
SYS_PROP_NAME
,SYS_PROP_OP
,SYS_PROP_ID
,SYS_PROP_MISC
,SYS_PROP_PSNAME
,SYS_PROP_PSNUM
,SYS_PROP_INETADDR
,SYS_PROP_LOCATION
,SYS_PROP_TIMEZONE
,SYS_PROP_PWDAYS
,SYS_PROP_DELDAYS
,SYS_PROP_LASTUSERON
,SYS_PROP_FREEDISKSPACE
,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
};
static JSBool js_system_get(JSContext *cx, JSObject *obj, jsval id, jsval *vp)
{
char str[128];
jsint tiny;
scfg_t* cfg;
if((cfg=(scfg_t*)JS_GetPrivate(cx,obj))==NULL)
return(JS_FALSE);
tiny = JSVAL_TO_INT(id);
switch(tiny) {
case SYS_PROP_NAME:
*vp = STRING_TO_JSVAL(JS_NewStringCopyZ(cx, cfg->sys_name));
break;
case SYS_PROP_OP:
*vp = STRING_TO_JSVAL(JS_NewStringCopyZ(cx, cfg->sys_op));
break;
case SYS_PROP_ID:
*vp = STRING_TO_JSVAL(JS_NewStringCopyZ(cx, cfg->sys_id));
break;
case SYS_PROP_MISC:
*vp = INT_TO_JSVAL(cfg->sys_misc);
break;
case SYS_PROP_PSNAME:
*vp = STRING_TO_JSVAL(JS_NewStringCopyZ(cx, cfg->sys_psname));
break;
case SYS_PROP_PSNUM:
*vp = INT_TO_JSVAL(cfg->sys_psnum);
break;
case SYS_PROP_INETADDR:
*vp = STRING_TO_JSVAL(JS_NewStringCopyZ(cx, cfg->sys_inetaddr));
break;
case SYS_PROP_LOCATION:
*vp = STRING_TO_JSVAL(JS_NewStringCopyZ(cx, cfg->sys_location));
break;
case SYS_PROP_TIMEZONE:
*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_PWDAYS:
*vp = INT_TO_JSVAL(cfg->sys_pwdays);
break;
case SYS_PROP_DELDAYS:
*vp = INT_TO_JSVAL(cfg->sys_deldays);
break;
case SYS_PROP_LASTUSERON:
*vp = STRING_TO_JSVAL(JS_NewStringCopyZ(cx, lastuseron));
break;
case SYS_PROP_FREEDISKSPACE:
*vp = INT_TO_JSVAL(getfreediskspace(cfg->temp_dir));
break;
case SYS_PROP_NEW_PASS:
*vp = STRING_TO_JSVAL(JS_NewStringCopyZ(cx, cfg->new_magic));
break;
case SYS_PROP_NEW_MAGIC:
*vp = STRING_TO_JSVAL(JS_NewStringCopyZ(cx, cfg->new_pass));
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 = INT_TO_JSVAL(cfg->new_cdt);
break;
case SYS_PROP_NEW_MIN:
*vp = INT_TO_JSVAL(cfg->new_min);
break;
case SYS_PROP_NEW_SHELL:
*vp = INT_TO_JSVAL(cfg->new_shell);
break;
case SYS_PROP_NEW_XEDIT:
*vp = STRING_TO_JSVAL(JS_NewStringCopyZ(cx, cfg->new_xedit));
break;
case SYS_PROP_NEW_MISC:
*vp = INT_TO_JSVAL(cfg->new_misc);
break;
case SYS_PROP_NEW_PROT:
sprintf(str,"%c",cfg->new_prot);
*vp = STRING_TO_JSVAL(JS_NewStringCopyZ(cx, str));
break;
case SYS_PROP_NEW_EXPIRE:
*vp = INT_TO_JSVAL(cfg->new_expire);
break;
case SYS_PROP_NEW_UQ:
*vp = INT_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:
*vp = STRING_TO_JSVAL(JS_NewStringCopyZ(cx, cfg->node_dir));
break;
case SYS_PROP_CTRL_DIR:
*vp = STRING_TO_JSVAL(JS_NewStringCopyZ(cx, cfg->ctrl_dir));
break;
case SYS_PROP_DATA_DIR:
*vp = STRING_TO_JSVAL(JS_NewStringCopyZ(cx, cfg->data_dir));
break;
case SYS_PROP_TEXT_DIR:
*vp = STRING_TO_JSVAL(JS_NewStringCopyZ(cx, cfg->text_dir));
break;
case SYS_PROP_TEMP_DIR:
*vp = STRING_TO_JSVAL(JS_NewStringCopyZ(cx, cfg->temp_dir));
break;
case SYS_PROP_EXEC_DIR:
*vp = STRING_TO_JSVAL(JS_NewStringCopyZ(cx, cfg->exec_dir));
break;
}
return(TRUE);
}
static JSBool js_system_set(JSContext *cx, JSObject *obj, jsval id, jsval *vp)
{
jsint tiny;
scfg_t* cfg;
if((cfg=(scfg_t*)JS_GetPrivate(cx,obj))==NULL)
return(JS_FALSE);
tiny = JSVAL_TO_INT(id);
switch(tiny) {
case SYS_PROP_MISC:
JS_ValueToInt32(cx, *vp, &cfg->sys_misc);
break;
}
return(TRUE);
}
#define SYSOBJ_FLAGS JSPROP_ENUMERATE|JSPROP_READONLY
static struct JSPropertySpec js_system_properties[] = {
/* name, tinyid, flags, getter, setter */
{ "name", SYS_PROP_NAME, SYSOBJ_FLAGS, NULL, NULL },
{ "operator", SYS_PROP_OP, SYSOBJ_FLAGS, NULL, NULL },
{ "qwk_id", SYS_PROP_ID, SYSOBJ_FLAGS, NULL, NULL },
{ "settings", SYS_PROP_MISC, JSPROP_ENUMERATE, NULL, NULL },
{ "psname", SYS_PROP_PSNAME, SYSOBJ_FLAGS, NULL, NULL },
{ "psnum", SYS_PROP_PSNUM, SYSOBJ_FLAGS, NULL, NULL },
{ "inetaddr", SYS_PROP_INETADDR, SYSOBJ_FLAGS, NULL, NULL },
{ "location", SYS_PROP_LOCATION, SYSOBJ_FLAGS, NULL, NULL },
{ "timezone", SYS_PROP_TIMEZONE, SYSOBJ_FLAGS, NULL, NULL },
{ "pwdays", SYS_PROP_PWDAYS, SYSOBJ_FLAGS, NULL, NULL },
{ "deldays", SYS_PROP_DELDAYS, SYSOBJ_FLAGS, NULL, NULL },
{ "nodes", SYS_PROP_NODES, SYSOBJ_FLAGS, NULL, NULL },
{ "lastnode", SYS_PROP_LASTNODE, SYSOBJ_FLAGS, NULL, NULL },
{ "freediskspace", SYS_PROP_FREEDISKSPACE ,SYSOBJ_FLAGS, NULL, NULL },
{ "newuser_password", SYS_PROP_NEW_PASS ,SYSOBJ_FLAGS, NULL, NULL },
{ "newuser_magic_word", SYS_PROP_NEW_MAGIC ,SYSOBJ_FLAGS, NULL, NULL },
{ "newuser_level", SYS_PROP_NEW_LEVEL ,SYSOBJ_FLAGS, NULL, NULL },
{ "newuser_flags1", SYS_PROP_NEW_FLAGS1 ,SYSOBJ_FLAGS, NULL, NULL },
{ "newuser_flags2", SYS_PROP_NEW_FLAGS2 ,SYSOBJ_FLAGS, NULL, NULL },
{ "newuser_flags3", SYS_PROP_NEW_FLAGS3 ,SYSOBJ_FLAGS, NULL, NULL },
{ "newuser_flags4", SYS_PROP_NEW_FLAGS4 ,SYSOBJ_FLAGS, NULL, NULL },
{ "newuser_restrictions", SYS_PROP_NEW_REST ,SYSOBJ_FLAGS, NULL, NULL },
{ "newuser_exemptions", SYS_PROP_NEW_EXEMPT ,SYSOBJ_FLAGS, NULL, NULL },
{ "newuser_credits", SYS_PROP_NEW_CDT ,SYSOBJ_FLAGS, NULL, NULL },
{ "newuser_minutes", SYS_PROP_NEW_MIN ,SYSOBJ_FLAGS, NULL, NULL },
{ "newuser_command_shell", SYS_PROP_NEW_SHELL ,SYSOBJ_FLAGS, NULL, NULL },
{ "newuser_editor", SYS_PROP_NEW_XEDIT ,SYSOBJ_FLAGS, NULL, NULL },
{ "newuser_settings", SYS_PROP_NEW_MISC ,SYSOBJ_FLAGS, NULL, NULL },
{ "newuser_download_protocol",SYS_PROP_NEW_PROT ,SYSOBJ_FLAGS, NULL, NULL },
{ "newuser_expiration_days", SYS_PROP_NEW_EXPIRE ,SYSOBJ_FLAGS, NULL, NULL },
{ "newuser_questions", SYS_PROP_NEW_UQ ,SYSOBJ_FLAGS, NULL, NULL },
{ "expired_level", SYS_PROP_EXPIRED_LEVEL ,SYSOBJ_FLAGS, NULL, NULL },
{ "expired_flags1", SYS_PROP_EXPIRED_FLAGS1 ,SYSOBJ_FLAGS, NULL, NULL },
{ "expired_flags2", SYS_PROP_EXPIRED_FLAGS2 ,SYSOBJ_FLAGS, NULL, NULL },
{ "expired_flags3", SYS_PROP_EXPIRED_FLAGS3 ,SYSOBJ_FLAGS, NULL, NULL },
{ "expired_flags4", SYS_PROP_EXPIRED_FLAGS4 ,SYSOBJ_FLAGS, NULL, NULL },
{ "expired_restrictions", SYS_PROP_EXPIRED_REST ,SYSOBJ_FLAGS, NULL, NULL },
{ "expired_exemptions", SYS_PROP_EXPIRED_EXEMPT ,SYSOBJ_FLAGS, NULL, NULL },
/* directories */
{ "node_dir", SYS_PROP_NODE_DIR ,SYSOBJ_FLAGS, NULL, NULL },
{ "ctrl_dir", SYS_PROP_CTRL_DIR ,SYSOBJ_FLAGS, NULL, NULL },
{ "data_dir", SYS_PROP_DATA_DIR ,SYSOBJ_FLAGS, NULL, NULL },
{ "text_dir", SYS_PROP_TEXT_DIR ,SYSOBJ_FLAGS, NULL, NULL },
{ "temp_dir", SYS_PROP_TEMP_DIR ,SYSOBJ_FLAGS, NULL, NULL },
{ "exec_dir", SYS_PROP_EXEC_DIR ,SYSOBJ_FLAGS, NULL, NULL },
{0}
};
static 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_EnumerateStub /* enumerate */
,JS_ResolveStub /* resolve */
,JS_ConvertStub /* convert */
,JS_FinalizeStub /* finalize */
};
/* 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
};
static JSBool js_sysstats_get(JSContext *cx, JSObject *obj, jsval id, jsval *vp)
{
jsint tiny;
scfg_t* cfg;
stats_t stats;
uint i;
ulong l;
if((cfg=(scfg_t*)JS_GetPrivate(cx,obj))==NULL)
return(JS_FALSE);
tiny = JSVAL_TO_INT(id);
if(!getstats(cfg, 0, &stats))
return(FALSE);
switch(tiny) {
case SYSSTAT_PROP_LOGONS:
*vp = INT_TO_JSVAL(stats.logons);
break;
case SYSSTAT_PROP_LTODAY:
*vp = INT_TO_JSVAL(stats.ltoday);
break;
case SYSSTAT_PROP_TIMEON:
*vp = INT_TO_JSVAL(stats.timeon);
break;
case SYSSTAT_PROP_TTODAY:
*vp = INT_TO_JSVAL(stats.ttoday);
break;
case SYSSTAT_PROP_ULS:
*vp = INT_TO_JSVAL(stats.uls);
break;
case SYSSTAT_PROP_ULB:
*vp = INT_TO_JSVAL(stats.ulb);
break;
case SYSSTAT_PROP_DLS:
*vp = INT_TO_JSVAL(stats.dls);
break;
case SYSSTAT_PROP_DLB:
*vp = INT_TO_JSVAL(stats.dlb);
break;
case SYSSTAT_PROP_PTODAY:
*vp = INT_TO_JSVAL(stats.ptoday);
break;
case SYSSTAT_PROP_ETODAY:
*vp = INT_TO_JSVAL(stats.etoday);
break;
case SYSSTAT_PROP_FTODAY:
*vp = INT_TO_JSVAL(stats.ftoday);
break;
case SYSSTAT_PROP_NUSERS:
*vp = INT_TO_JSVAL(stats.nusers);
break;
case SYSSTAT_PROP_TOTALUSERS:
*vp = INT_TO_JSVAL(lastuser(cfg));
break;
case SYSSTAT_PROP_TOTALMSGS:
l=0;
for(i=0;i<cfg->total_subs;i++)
l+=getposts(cfg,i);
*vp = INT_TO_JSVAL(l);
break;
case SYSSTAT_PROP_TOTALFILES:
l=0;
for(i=0;i<cfg->total_dirs;i++)
l+=getfiles(cfg,i);
*vp = INT_TO_JSVAL(l);
break;
case SYSSTAT_PROP_TOTALMAIL:
*vp = INT_TO_JSVAL(getmail(cfg, 0,0));
break;
case SYSSTAT_PROP_FEEDBACK:
*vp = INT_TO_JSVAL(getmail(cfg, 1,0));
break;
}
return(TRUE);
}
#define SYSSTAT_FLAGS JSPROP_ENUMERATE|JSPROP_READONLY
static struct JSPropertySpec js_sysstats_properties[] = {
/* name, tinyid, flags, getter, setter */
{ "total_logons", SYSSTAT_PROP_LOGONS, SYSSTAT_FLAGS, NULL, NULL },
{ "logons_today", SYSSTAT_PROP_LTODAY, SYSSTAT_FLAGS, NULL, NULL },
{ "total_timeon", SYSSTAT_PROP_TIMEON, SYSSTAT_FLAGS, NULL, NULL },
{ "timeon_today", SYSSTAT_PROP_TTODAY, SYSSTAT_FLAGS, NULL, NULL },
{ "total_files", SYSSTAT_PROP_TOTALFILES, SYSSTAT_FLAGS, NULL, NULL },
{ "files_uploaded_today", SYSSTAT_PROP_ULS, SYSSTAT_FLAGS, NULL, NULL },
{ "bytes_uploaded_today", SYSSTAT_PROP_ULB, SYSSTAT_FLAGS, NULL, NULL },
{ "files_downloaded_today", SYSSTAT_PROP_DLS, SYSSTAT_FLAGS, NULL, NULL },
{ "bytes_downloaded_today", SYSSTAT_PROP_DLB, SYSSTAT_FLAGS, NULL, NULL },
{ "total_messages", SYSSTAT_PROP_TOTALMSGS, SYSSTAT_FLAGS, NULL, NULL },
{ "messages_posted_today", SYSSTAT_PROP_PTODAY, SYSSTAT_FLAGS, NULL, NULL },
{ "total_email", SYSSTAT_PROP_TOTALMAIL, SYSSTAT_FLAGS, NULL, NULL },
{ "email_sent_today", SYSSTAT_PROP_ETODAY, SYSSTAT_FLAGS, NULL, NULL },
{ "total_feedback", SYSSTAT_PROP_FEEDBACK, SYSSTAT_FLAGS, NULL, NULL },
{ "feedback_sent_today", SYSSTAT_PROP_FTODAY, SYSSTAT_FLAGS, NULL, NULL },
{ "total_users", SYSSTAT_PROP_TOTALUSERS, SYSSTAT_FLAGS, NULL, NULL },
{ "new_users_today", SYSSTAT_PROP_NUSERS, SYSSTAT_FLAGS, NULL, NULL },
{0}
};
static JSClass js_sysstats_class = {
"Stats" /* name */
,JSCLASS_HAS_PRIVATE /* flags */
,JS_PropertyStub /* addProperty */
,JS_PropertyStub /* delProperty */
,js_sysstats_get /* getProperty */
,JS_PropertyStub /* setProperty */
,JS_EnumerateStub /* enumerate */
,JS_ResolveStub /* resolve */
,JS_ConvertStub /* convert */
,JS_FinalizeStub /* finalize */
};
static JSBool
js_matchuser(JSContext *cx, JSObject *obj, uintN argc, jsval *argv, jsval *rval)
{
char* p;
JSString* js_str;
scfg_t* cfg;
if((cfg=(scfg_t*)JS_GetContextPrivate(cx))==NULL)
return(JS_FALSE);
if((js_str=JS_ValueToString(cx, argv[0]))==NULL) {
*rval = INT_TO_JSVAL(0);
return(JS_TRUE);
}
if((p=JS_GetStringBytes(js_str))==NULL) {
*rval = INT_TO_JSVAL(0);
return(JS_TRUE);
}
*rval = INT_TO_JSVAL(matchuser(cfg,p));
return(JS_TRUE);
}
static JSBool
js_trashcan(JSContext *cx, JSObject *obj, uintN argc, jsval *argv, jsval *rval)
{
char* str;
char* can;
JSString* js_str;
JSString* js_can;
scfg_t* cfg;
if((cfg=(scfg_t*)JS_GetContextPrivate(cx))==NULL)
return(JS_FALSE);
if((js_can=JS_ValueToString(cx, argv[0]))==NULL) {
*rval = BOOLEAN_TO_JSVAL(JS_FALSE);
return(JS_TRUE);
}
if((js_str=JS_ValueToString(cx, argv[1]))==NULL) {
*rval = BOOLEAN_TO_JSVAL(JS_FALSE);
return(JS_TRUE);
}
if((can=JS_GetStringBytes(js_can))==NULL) {
*rval = BOOLEAN_TO_JSVAL(JS_FALSE);
return(JS_TRUE);
}
if((str=JS_GetStringBytes(js_str))==NULL) {
*rval = BOOLEAN_TO_JSVAL(JS_FALSE);
return(JS_TRUE);
}
*rval = BOOLEAN_TO_JSVAL(trashcan(cfg,str,can)); // user args are reversed
return(JS_TRUE);
}
static JSBool
js_zonestr(JSContext *cx, JSObject *obj, uintN argc, jsval *argv, jsval *rval)
{
JSString* js_str;
js_str = JS_NewStringCopyZ(cx, zonestr((short)(JSVAL_TO_INT(argv[0]))));
*rval = STRING_TO_JSVAL(js_str);
return(JS_TRUE);
}
static JSFunctionSpec js_system_functions[] = {
{"matchuser", js_matchuser, 1}, // exact user name matching
{"trashcan", js_trashcan, 2}, // search file for pseudo-regexp
{"zonestr", js_zonestr, 1}, // convert zone int to string
{0}
};
/* 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
};
static JSBool js_node_get(JSContext *cx, JSObject *obj, jsval id, jsval *vp)
{
uint node_num;
jsint tiny;
node_t node;
scfg_t* cfg;
JSObject* sysobj;
JSObject* node_list;
tiny = JSVAL_TO_INT(id);
if((node_list=JS_GetParent(cx, obj))==NULL)
return(JS_FALSE);
if((sysobj=JS_GetParent(cx, node_list))==NULL)
return(JS_FALSE);
if((cfg=(scfg_t*)JS_GetPrivate(cx,sysobj))==NULL)
return(JS_FALSE);
node_num=(uint)JS_GetPrivate(cx,obj)>>1;
memset(&node,0,sizeof(node));
if(getnodedat(cfg, node_num, &node, 0)) {
*vp = INT_TO_JSVAL(0);
return(JS_TRUE);
}
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 = INT_TO_JSVAL((int)node.extaux);
break;
}
return(JS_TRUE);
}
static JSBool js_node_set(JSContext *cx, JSObject *obj, jsval id, jsval *vp)
{
uint node_num;
jsint val=0;
jsint tiny;
node_t node;
scfg_t* cfg;
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);
if((cfg=(scfg_t*)JS_GetPrivate(cx,sysobj))==NULL)
return(JS_FALSE);
node_num=(uint)JS_GetPrivate(cx,obj)>>1;
memset(&node,0,sizeof(node));
if(getnodedat(cfg, node_num, &node, 1))
return(JS_TRUE);
if(JSVAL_IS_INT(*vp))
JS_ValueToInt32(cx, *vp, &val);
tiny = JSVAL_TO_INT(id);
switch(tiny) {
case NODE_PROP_STATUS:
node.status=(BYTE)val;
break;
case NODE_PROP_ERRORS:
node.errors=(BYTE)val;
break;
case NODE_PROP_ACTION:
node.action=(BYTE)val;
break;
case NODE_PROP_USERON:
node.useron=(WORD)val;
break;
case NODE_PROP_CONNECTION:
node.connection=(WORD)val;
break;
case NODE_PROP_MISC:
node.misc=(WORD)val;
break;
case NODE_PROP_AUX:
node.aux=(WORD)val;
break;
case NODE_PROP_EXTAUX:
node.extaux=val;
break;
}
putnodedat(cfg,node_num,&node);
return(JS_TRUE);
}
static struct JSPropertySpec js_node_properties[] = {
/* name, tinyid, flags, getter, setter */
/* raw node_t fields */
{ "status", NODE_PROP_STATUS, JSPROP_ENUMERATE, NULL, NULL },
{ "errors", NODE_PROP_ERRORS, JSPROP_ENUMERATE, NULL, NULL },
{ "action", NODE_PROP_ACTION, JSPROP_ENUMERATE, NULL, NULL },
{ "useron", NODE_PROP_USERON, JSPROP_ENUMERATE, NULL, NULL },
{ "connection", NODE_PROP_CONNECTION, JSPROP_ENUMERATE, NULL, NULL },
{ "misc", NODE_PROP_MISC, JSPROP_ENUMERATE, NULL, NULL },
{ "aux", NODE_PROP_AUX, JSPROP_ENUMERATE, NULL, NULL },
{ "extaux", NODE_PROP_EXTAUX, JSPROP_ENUMERATE, NULL, NULL },
{0}
};
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_EnumerateStub /* enumerate */
,JS_ResolveStub /* resolve */
,JS_ConvertStub /* convert */
,JS_FinalizeStub /* finalize */
};
extern const char* beta_version;
JSObject* DLLCALL js_CreateSystemObject(JSContext* cx, JSObject* parent
,scfg_t* cfg, time_t uptime)
{
char str[256];
uint i;
jsval val;
JSObject* sysobj;
JSObject* statsobj;
JSObject* nodeobj;
JSObject* node_list;
sysobj = JS_DefineObject(cx, parent, "system", &js_system_class, NULL, 0);
if(sysobj==NULL)
return(NULL);
if(!JS_SetPrivate(cx, sysobj, cfg)) /* Store a pointer to scfg_t */
return(NULL);
/****************************/
/* static string properties */
val = STRING_TO_JSVAL(JS_NewStringCopyZ(cx, VERSION));
if(!JS_SetProperty(cx, sysobj, "version", &val))
return(NULL);
sprintf(str,"%c",REVISION);
val = STRING_TO_JSVAL(JS_NewStringCopyZ(cx, str));
if(!JS_SetProperty(cx, sysobj, "revision", &val))
return(NULL);
sprintf(str,"%s%c%s",VERSION,REVISION,beta_version);
truncsp(str);
#if defined(_DEBUG)
strcat(str," Debug");
#endif
val = STRING_TO_JSVAL(JS_NewStringCopyZ(cx, str));
if(!JS_SetProperty(cx, sysobj, "full_version", &val))
return(NULL);
val = STRING_TO_JSVAL(JS_NewStringCopyZ(cx, VERSION_NOTICE));
if(!JS_SetProperty(cx, sysobj, "version_notice", &val))
return(NULL);
val = STRING_TO_JSVAL(JS_NewStringCopyZ(cx, PLATFORM_DESC));
if(!JS_SetProperty(cx, sysobj, "platform", &val))
return(NULL);
val = STRING_TO_JSVAL(JS_NewStringCopyZ(cx, socklib_version(str)));
if(!JS_SetProperty(cx, sysobj, "socket_lib", &val))
return(NULL);
sprintf(str,"SMBLIB %s",smb_lib_ver());
val = STRING_TO_JSVAL(JS_NewStringCopyZ(cx, str));
if(!JS_SetProperty(cx, sysobj, "msgbase_lib", &val))
return(NULL);
COMPILER_DESC(str);
val = STRING_TO_JSVAL(JS_NewStringCopyZ(cx, str));
if(!JS_SetProperty(cx, sysobj, "compiled_with", &val))
return(NULL);
sprintf(str,"%s %.5s",__DATE__,__TIME__);
val = STRING_TO_JSVAL(JS_NewStringCopyZ(cx, str));
if(!JS_SetProperty(cx, sysobj, "compiled_when", &val))
return(NULL);
val = STRING_TO_JSVAL(JS_NewStringCopyZ(cx, COPYRIGHT_NOTICE));
if(!JS_SetProperty(cx, sysobj, "copyright", &val))
return(NULL);
val = STRING_TO_JSVAL(JS_NewStringCopyZ(cx
,(char *)JS_GetImplementationVersion()));
if(!JS_SetProperty(cx, sysobj, "js_version", &val))
return(NULL);
val = STRING_TO_JSVAL(JS_NewStringCopyZ(cx,os_version(str)));
if(!JS_SetProperty(cx, sysobj, "os_version", &val))
return(NULL);
/***********************/
val = INT_TO_JSVAL(uptime);
if(!JS_SetProperty(cx, sysobj, "uptime", &val))
return(NULL);
if(!JS_DefineProperties(cx, sysobj, js_system_properties))
return(NULL);
if (!JS_DefineFunctions(cx, sysobj, js_system_functions))
return(NULL);
statsobj = JS_DefineObject(cx, sysobj, "stats", &js_sysstats_class, NULL, 0);
if(statsobj==NULL)
return(NULL);
JS_SetPrivate(cx, statsobj, cfg); /* Store a pointer to scfg_t */
if(!JS_DefineProperties(cx, statsobj, js_sysstats_properties))
return(NULL);
/* node_list property */
if((node_list=JS_NewArrayObject(cx, 0, NULL))==NULL)
return(NULL);
for(i=0;i<cfg->sys_nodes && i<cfg->sys_lastnode;i++) {
nodeobj = JS_NewObject(cx, &js_node_class, NULL, node_list);
if(nodeobj==NULL)
return(NULL);
/* Store node number */
/* We have to shift it to make it look like a pointer to JS. :-( */
if(!JS_SetPrivate(cx, nodeobj, (char*)((i+1)<<1)))
return(NULL);
if(!JS_DefineProperties(cx, nodeobj, js_node_properties))
return(NULL);
val=OBJECT_TO_JSVAL(nodeobj);
if(!JS_SetElement(cx, node_list, i, &val))
return(NULL);
}
if(!JS_DefineProperty(cx, sysobj, "node_list", OBJECT_TO_JSVAL(node_list)
, NULL, NULL, 0))
return(NULL);
return(sysobj);
}
#endif /* JAVSCRIPT */