void DLLCALL js_EvalOnExit(JSContext *cx, JSObject *obj, js_callback_t* cb)
{
char* p;
jsval rval;
JSObject* script;
BOOL auto_terminate=cb->auto_terminate;
JSObject *glob=JS_GetGlobalObject(cx);
global_private_t *pt;
str_list_t list;
if(glob==obj) {
pt=(global_private_t *)JS_GetPrivate(cx,JS_GetGlobalObject(cx));
list=pt->exit_func;
}
else
list=JS_GetPrivate(cx,obj);
cb->auto_terminate=FALSE;
while((p=strListPop(&list))!=NULL) {
if((script=JS_CompileScript(cx, obj, p, strlen(p), NULL, 0))!=NULL) {
JS_ExecuteScript(cx, obj, script, &rval);
}
free(p);
}
strListFree(&list);
if(glob != obj)
JS_SetPrivate(cx,obj,NULL);
else
pt->exit_func=NULL;
if(auto_terminate)
cb->auto_terminate = TRUE;
}
str_list_t csvLineParser(const char* line)
{
char* p;
char* buf;
char* tmp;
size_t count=0;
str_list_t list;
if((list=strListInit())==NULL)
return(NULL);
if((buf=strdup(line))==NULL) {
strListFree(&list);
return(NULL);
}
truncsp(buf);
for(p=strtok_r(buf,",",&tmp);p;p=strtok_r(NULL,",",&tmp))
strListAppend(&list,p,count++);
free(buf);
return(list);
}
size_t strListInsertFile(FILE* fp, str_list_t* lp, size_t index, size_t max_line_len)
{
str_list_t list;
size_t count;
if((list=str_list_read_file(fp, NULL, max_line_len)) == NULL)
return(0);
count = strListInsertList(lp, list, index);
strListFree(&list);
return(count);
}
void DLLCALL js_EvalOnExit(JSContext *cx, JSObject *obj, js_branch_t* branch)
{
char* p;
jsval rval;
JSScript* script;
while((p=strListPop(&branch->exit_func))!=NULL) {
if((script=JS_CompileScript(cx, obj, p, strlen(p), NULL, 0))!=NULL) {
JS_ExecuteScript(cx, obj, script, &rval);
JS_DestroyScript(cx, script);
}
}
strListFree(&branch->exit_func);
}
JSObject* DLLCALL js_CreateInternalJsObject(JSContext* cx, JSObject* parent, js_callback_t* cb, js_startup_t* startup)
{
JSObject* obj;
if((obj = JS_DefineObject(cx, parent, "js", &js_internal_class, NULL
,JSPROP_ENUMERATE|JSPROP_READONLY))==NULL)
return(NULL);
if(!JS_SetPrivate(cx, obj, cb)) /* Store a pointer to js_callback_t */
return(NULL);
if(startup!=NULL) {
JSObject* load_path_list;
jsval val;
str_list_t load_path;
if((load_path_list=JS_NewArrayObject(cx, 0, NULL))==NULL)
return(NULL);
val=OBJECT_TO_JSVAL(load_path_list);
if(!JS_SetProperty(cx, obj, JAVASCRIPT_LOAD_PATH_LIST, &val))
return(NULL);
if((load_path=strListSplitCopy(NULL, startup->load_path, ",")) != NULL) {
JSString* js_str;
unsigned i;
for(i=0; load_path[i]!=NULL; i++) {
if((js_str=JS_NewStringCopyZ(cx, load_path[i]))==NULL)
break;
val=STRING_TO_JSVAL(js_str);
if(!JS_SetElement(cx, load_path_list, i, &val))
break;
}
strListFree(&load_path);
}
}
#ifdef BUILD_JSDOCS
js_DescribeSyncObject(cx,obj,"JavaScript engine internal control object",311);
js_CreateArrayOfStrings(cx, obj, "_property_desc_list", prop_desc, JSPROP_READONLY);
#endif
return(obj);
}
BOOL dataWriteFile(FILE* fp, const str_list_t records[], const str_list_t columns, const char* separator
,dataLineCreator_t lineCreator)
{
size_t count,total;
str_list_t list;
rewind(fp);
if(chsize(fileno(fp),0)!=0) /* truncate */
return(FALSE);
if((list=dataCreateList(records,columns,lineCreator))==NULL)
return(FALSE);
total = strListCount(list);
count = strListWriteFile(fp,list,separator);
strListFree(&list);
return(count == total);
}
str_list_t* dataReadFile(FILE* fp, str_list_t* columns, dataLineParser_t lineParser)
{
str_list_t* records;
str_list_t lines;
size_t i;
rewind(fp);
if((lines=strListReadFile(fp, NULL, 0))==NULL)
return(NULL);
/* truncate line-feed chars off end of strings */
for(i=0; lines[i]!=NULL; i++)
truncnl(lines[i]);
records=dataParseList(lines,columns,lineParser);
strListFree(&lines);
return(records);
}
/* In case we want to DLL-export getNameServerList in the future */
void DLLCALL freeNameServerList(str_list_t list)
{
strListFree(&list);
}
void DLLCALL semfile_list_free(str_list_t* filelist)
{
strListFree(filelist);
}
//---------------------------------------------------------------------------
void __fastcall TWebCfgDlg::OKBtnClick(TObject *Sender)
{
char str[128],*p;
DWORD addr;
SAFECOPY(str,NetworkInterfaceEdit->Text.c_str());
p=str;
while(*p && *p<=' ') p++;
if(*p && isdigit(*p)) {
addr=atoi(p)<<24;
while(*p && *p!='.') p++;
if(*p=='.') p++;
addr|=atoi(p)<<16;
while(*p && *p!='.') p++;
if(*p=='.') p++;
addr|=atoi(p)<<8;
while(*p && *p!='.') p++;
if(*p=='.') p++;
addr|=atoi(p);
MainForm->web_startup.interface_addr=addr;
} else
MainForm->web_startup.interface_addr=0;
MainForm->web_startup.max_clients=MaxClientsEdit->Text.ToIntDef(10);
MainForm->web_startup.max_inactivity=MaxInactivityEdit->Text.ToIntDef(300);
MainForm->web_startup.port=PortEdit->Text.ToIntDef(23);
MainForm->WebAutoStart=AutoStartCheckBox->Checked;
SAFECOPY(MainForm->web_startup.root_dir
,HtmlRootEdit->Text.c_str());
SAFECOPY(MainForm->web_startup.error_dir
,ErrorSubDirEdit->Text.c_str());
SAFECOPY(MainForm->web_startup.cgi_dir
,CGIDirEdit->Text.c_str());
SAFECOPY(MainForm->web_startup.js_ext
,EmbeddedJsExtEdit->Text.c_str());
SAFECOPY(MainForm->web_startup.ssjs_ext
,ServerSideJsExtEdit->Text.c_str());
SAFECOPY(MainForm->web_startup.default_cgi_content
,CGIContentEdit->Text.c_str());
MainForm->web_startup.max_cgi_inactivity
=CGIMaxInactivityEdit->Text.ToIntDef(120);
strListFree(&MainForm->web_startup.index_file_name);
strListSplitCopy(&MainForm->web_startup.index_file_name,
IndexFileEdit->Text.c_str(),",");
strListFree(&MainForm->web_startup.cgi_ext);
strListSplitCopy(&MainForm->web_startup.cgi_ext,
CGIExtEdit->Text.c_str(),",");
if(CGICheckBox->Checked==false)
MainForm->web_startup.options|=WEB_OPT_NO_CGI;
else
MainForm->web_startup.options&=~WEB_OPT_NO_CGI;
SAFECOPY(MainForm->web_startup.answer_sound
,AnswerSoundEdit->Text.c_str());
SAFECOPY(MainForm->web_startup.hangup_sound
,HangupSoundEdit->Text.c_str());
SAFECOPY(MainForm->web_startup.hack_sound
,HackAttemptSoundEdit->Text.c_str());
if(DebugTxCheckBox->Checked==true)
MainForm->web_startup.options|=WEB_OPT_DEBUG_TX;
else
MainForm->web_startup.options&=~WEB_OPT_DEBUG_TX;
if(DebugRxCheckBox->Checked==true)
MainForm->web_startup.options|=WEB_OPT_DEBUG_RX;
else
MainForm->web_startup.options&=~WEB_OPT_DEBUG_RX;
if(AccessLogCheckBox->Checked==true)
MainForm->web_startup.options|=WEB_OPT_HTTP_LOGGING;
else
MainForm->web_startup.options&=~WEB_OPT_HTTP_LOGGING;
if(HostnameCheckBox->Checked==false)
MainForm->web_startup.options|=BBS_OPT_NO_HOST_LOOKUP;
else
MainForm->web_startup.options&=~BBS_OPT_NO_HOST_LOOKUP;
if(VirtualHostsCheckBox->Checked==true)
MainForm->web_startup.options|=WEB_OPT_VIRTUAL_HOSTS;
else
MainForm->web_startup.options&=~WEB_OPT_VIRTUAL_HOSTS;
MainForm->SaveIniSettings(Sender);
}
bool sbbs_t::qwk_import_msg(FILE *qwk_fp, char *hdrblk, ulong blocks
,char fromhub, uint subnum
,uint touser, smbmsg_t* msg)
{
char* body;
char* tail;
char* qwkbuf;
char str[256],col=0,lastch=0,*p;
char from[128];
uint i,k;
long bodylen,taillen;
bool success=false;
uint16_t net_type;
ushort xlat=XLAT_NONE;
int storage=SMB_SELFPACK;
long dupechk_hashes=SMB_HASH_SOURCE_DUPE;
str_list_t kludges;
if(subnum!=INVALID_SUB
&& (hdrblk[0]=='*' || hdrblk[0]=='+' || cfg.sub[subnum]->misc&SUB_PONLY))
msg->hdr.attr|=MSG_PRIVATE;
if(subnum!=INVALID_SUB && cfg.sub[subnum]->misc&SUB_AONLY)
msg->hdr.attr|=MSG_ANONYMOUS;
if(subnum==INVALID_SUB && cfg.sys_misc&SM_DELREADM)
msg->hdr.attr|=MSG_KILLREAD;
if((fromhub || useron.rest&FLAG('Q')) &&
(hdrblk[0]=='*' || hdrblk[0]=='-' || hdrblk[0]=='`'))
msg->hdr.attr|=MSG_READ;
if(subnum!=INVALID_SUB && !fromhub && cfg.sub[subnum]->mod_ar[0]
&& chk_ar(cfg.sub[subnum]->mod_ar,&useron,&client))
msg->hdr.attr|=MSG_MODERATED;
if(subnum!=INVALID_SUB && !fromhub && cfg.sub[subnum]->misc&SUB_SYSPERM
&& sub_op(subnum))
msg->hdr.attr|=MSG_PERMANENT;
if(!(useron.rest&FLAG('Q')) && !fromhub && msg->hdr.when_written.zone==0)
msg->hdr.when_written.zone=sys_timezone(&cfg);
msg->hdr.when_imported.time=time32(NULL);
msg->hdr.when_imported.zone=sys_timezone(&cfg);
hdrblk[116]=0; // don't include number of blocks in "re: msg number"
if(!(useron.rest&FLAG('Q')) && !fromhub)
msg->hdr.thread_back=atol((char *)hdrblk+108);
if(subnum==INVALID_SUB) { /* E-mail */
if(cfg.sys_misc&SM_FASTMAIL)
storage=SMB_FASTALLOC;
/* duplicate message-IDs must be allowed in mail database */
dupechk_hashes&=~(1<<SMB_HASH_SOURCE_MSG_ID);
sprintf(str,"%u",touser);
smb_hfield_str(msg,RECIPIENTEXT,str);
} else {
if(cfg.sub[subnum]->misc&SUB_HYPER)
storage = SMB_HYPERALLOC;
else if(cfg.sub[subnum]->misc&SUB_FAST)
storage = SMB_FASTALLOC;
if(cfg.sub[subnum]->misc&SUB_LZH)
xlat=XLAT_LZH;
}
/********************************/
/* Convert the QWK message text */
/********************************/
if((qwkbuf=(char *)malloc((blocks-1)*QWK_BLOCK_LEN))==NULL) {
errormsg(WHERE,ERR_ALLOC,"QWK msg buf",(blocks-1)*QWK_BLOCK_LEN);
return(false);
}
if(fread(qwkbuf,QWK_BLOCK_LEN,blocks-1,qwk_fp) != blocks-1) {
free(qwkbuf);
errormsg(WHERE,ERR_READ,"QWK msg blocks",(blocks-1)*QWK_BLOCK_LEN);
}
bodylen=0;
if((body=(char *)malloc((blocks-1L)*QWK_BLOCK_LEN*2L))==NULL) {
free(qwkbuf);
errormsg(WHERE,ERR_ALLOC,"QWK msg body",(blocks-1L)*QWK_BLOCK_LEN*2L);
return(false);
}
taillen=0;
if((tail=(char *)malloc((blocks-1L)*QWK_BLOCK_LEN*2L))==NULL) {
free(qwkbuf);
free(body);
errormsg(WHERE,ERR_ALLOC,"QWK msg tail",(blocks-1L)*QWK_BLOCK_LEN*2L);
return(false);
}
kludges=strListInit();
for(k=0;k<(blocks-1)*QWK_BLOCK_LEN;k++) {
if(qwkbuf[k]==0)
continue;
if(bodylen==0
&& (qwkbuf[k]=='@'
|| (((useron.qwk&QWK_EXT) || subnum==INVALID_SUB)
&& (strnicmp(qwkbuf+k,"To:",3)==0
|| strnicmp(qwkbuf+k,"From:",5)==0
|| strnicmp(qwkbuf+k,"Subject:",8)==0)))) {
if((p=strchr(qwkbuf+k, QWK_NEWLINE))==NULL) {
body[bodylen++]=qwkbuf[k];
continue;
}
*p=0; /* Converts QWK_NEWLINE to NUL */
strListPush(&kludges, qwkbuf+k);
k+=strlen(qwkbuf+k);
continue;
}
if(!taillen && qwkbuf[k]==' ' && col==3 && bodylen>=3
&& body[bodylen-3]=='-' && body[bodylen-2]=='-'
&& body[bodylen-1]=='-') {
bodylen-=3;
strcpy(tail,"--- "); /* DO NOT USE SAFECOPY */
taillen=4;
col++;
continue;
}
if(qwkbuf[k]==QWK_NEWLINE) { /* expand QWK_NEWLINE to crlf */
if(!bodylen && !taillen) /* Ignore blank lines at top of message */
continue;
if(!taillen && col==3 && bodylen>=3 && body[bodylen-3]=='-'
&& body[bodylen-2]=='-' && body[bodylen-1]=='-') {
bodylen-=3;
strcpy(tail,"---"); /* DO NOT USE SAFECOPY */
taillen=3;
}
col=0;
if(taillen) {
tail[taillen++]=CR;
tail[taillen++]=LF;
}
else {
body[bodylen++]=CR;
body[bodylen++]=LF;
}
continue;
}
/* beep restrict */
if(!fromhub && qwkbuf[k]==BEL && useron.rest&FLAG('B'))
continue;
/* ANSI restriction */
if(!fromhub && (qwkbuf[k]==CTRL_A || qwkbuf[k]==ESC)
&& useron.rest&FLAG('A'))
continue;
if(qwkbuf[k]!=CTRL_A && lastch!=CTRL_A)
col++;
if(lastch==CTRL_A && !valid_ctrl_a_code(qwkbuf[k])) {
if(taillen) taillen--;
else bodylen--;
lastch=0;
continue;
}
lastch=qwkbuf[k];
if(taillen)
tail[taillen++]=qwkbuf[k];
else
body[bodylen++]=qwkbuf[k];
}
free(qwkbuf);
while(bodylen && body[bodylen-1]==' ') bodylen--; /* remove trailing spaces */
if(bodylen>=2 && body[bodylen-2]==CR && body[bodylen-1]==LF)
bodylen-=2;
while(taillen && tail[taillen-1]<=' ') taillen--; /* remove trailing garbage */
/* Parse QWK Kludges (QWKE standard and SyncQNET legacy) here: */
if(useron.rest&FLAG('Q') || fromhub) { /* QWK Net */
if((p=iniGetString(kludges,ROOT_SECTION,"@VIA",NULL,NULL)) != NULL) {
if(!fromhub)
set_qwk_flag(QWK_VIA);
if(route_circ(p,cfg.sys_id)) {
bprintf("\r\nCircular message path: %s\r\n",p);
lprintf(LOG_ERR,"Circular message path: %s from %s"
,p,fromhub ? cfg.qhub[fromhub-1]->id:useron.alias);
strListFree(&kludges);
free(body);
free(tail);
return(false);
}
SAFEPRINTF2(str,"%s/%s"
,fromhub ? cfg.qhub[fromhub-1]->id : useron.alias,p);
strupr(str);
update_qwkroute(str);
}
else {
if(fromhub)
SAFECOPY(str,cfg.qhub[fromhub-1]->id);
else
SAFECOPY(str,useron.alias);
}
/* From network type & address: */
strupr(str);
net_type=NET_QWK;
smb_hfield_netaddr(msg, SENDERNETADDR, str, &net_type);
smb_hfield_bin(msg,SENDERNETTYPE,net_type);
} else {
sprintf(str,"%u",useron.number);
smb_hfield_str(msg,SENDEREXT,str);
if((uint)subnum!=INVALID_SUB && cfg.sub[subnum]->misc&SUB_NAME)
SAFECOPY(from,useron.name);
else
SAFECOPY(from,useron.alias);
smb_hfield_str(msg,SENDER,from);
}
if((p=iniGetString(kludges,ROOT_SECTION,"@MSGID",NULL,NULL)) != NULL) {
if(!fromhub)
set_qwk_flag(QWK_MSGID);
truncstr(p," "); /* Truncate at first space char */
if(msg->id==NULL)
smb_hfield_str(msg,RFC822MSGID,p);
}
if((p=iniGetString(kludges,ROOT_SECTION,"@REPLY",NULL,NULL)) != NULL) {
if(!fromhub)
set_qwk_flag(QWK_MSGID);
truncstr(p," "); /* Truncate at first space char */
if(msg->reply_id==NULL)
smb_hfield_str(msg,RFC822REPLYID,p);
}
if((p=iniGetString(kludges,ROOT_SECTION,"@TZ",NULL,NULL)) != NULL) {
if(!fromhub)
set_qwk_flag(QWK_TZ);
msg->hdr.when_written.zone=(short)ahtoul(p);
}
if((p=iniGetString(kludges,ROOT_SECTION,"@REPLYTO",NULL,NULL)) != NULL) {
if(msg->replyto==NULL)
smb_hfield_str(msg,REPLYTO,p);
}
/* QWKE standard: */
if((p=iniGetString(kludges,ROOT_SECTION,"Subject",NULL,NULL)) != NULL)
smb_hfield_replace_str(msg,SUBJECT,p);
if((p=iniGetString(kludges,ROOT_SECTION,"To",NULL,NULL)) != NULL)
smb_hfield_replace_str(msg,RECIPIENT,p);
if((useron.rest&FLAG('Q'))
&& (p=iniGetString(kludges,ROOT_SECTION,"From",NULL,NULL)) != NULL)
smb_hfield_replace_str(msg,SENDER,p);
strListFree(&kludges);
/* smb_addmsg requires ASCIIZ strings */
body[bodylen]=0;
tail[taillen]=0;
if(online==ON_REMOTE)
bputs(text[WritingIndx]);
if(smb.status.max_crcs==0) /* no CRC checking means no body text dupe checking */
dupechk_hashes&=~(1<<SMB_HASH_SOURCE_BODY);
if((i=smb_addmsg(&smb,msg,storage,dupechk_hashes,xlat,(uchar*)body,(uchar*)tail))==SMB_SUCCESS)
success=true;
else if(i==SMB_DUPE_MSG) {
bprintf("\r\n!%s\r\n",smb.last_error);
if(!fromhub) {
if(subnum==INVALID_SUB) {
SAFEPRINTF2(str,"%s duplicate e-mail attempt (%s)",useron.alias,smb.last_error);
logline(LOG_NOTICE,"E!",str);
} else {
SAFEPRINTF4(str,"%s duplicate message attempt in %s %s (%s)"
,useron.alias
,cfg.grp[cfg.sub[subnum]->grp]->sname
,cfg.sub[subnum]->lname
,smb.last_error);
logline(LOG_NOTICE,"P!",str);
}
}
}
else
errormsg(WHERE,ERR_WRITE,smb.file,i,smb.last_error);
free(body);
free(tail);
return(success);
}
void* DLLCALL listFreeStringList(str_list_t list)
{
strListFree(&list);
return(list);
}
