bool sbbs_t::checkfname(char *fname)
{
char str[256];
int c=0,d;
if(fname[0]=='-'
|| strcspn(fname,ILLEGAL_FILENAME_CHARS)!=strlen(fname)) {
SAFEPRINTF(str,"Suspicious filename attempt: '%s'",fname);
errorlog(str);
return(false);
}
if(strstr(fname,".."))
return(false);
#if 0 /* long file name support */
if(strcspn(fname,".")>8)
return(false);
#endif
d=strlen(fname);
while(c<d) {
if(fname[c]<=' ' || fname[c]&0x80)
return(false);
c++;
}
return(true);
}
int DLLCALL retry_bind(SOCKET s, const struct sockaddr *addr, socklen_t addrlen
,uint retries, uint wait_secs
,const char* prot
,int (*lprintf)(int level, const char *fmt, ...))
{
char port_str[128];
int result=-1;
uint i;
if(addr->sa_family==AF_INET)
SAFEPRINTF(port_str," to port %u",ntohs(((SOCKADDR_IN *)(addr))->sin_port));
else
port_str[0]=0;
for(i=0;i<=retries;i++) {
if((result=bind(s,addr,addrlen))==0)
break;
if(lprintf!=NULL)
lprintf(i<retries ? LOG_WARNING:LOG_CRIT
,"%04d !ERROR %d binding %s socket%s", s, ERROR_VALUE, prot, port_str);
if(i<retries) {
if(lprintf!=NULL)
lprintf(LOG_WARNING,"%04d Will retry in %u seconds (%u of %u)"
,s, wait_secs, i+1, retries);
SLEEP(wait_secs*1000);
}
}
return(result);
}
static void dputs(const char* str)
{
char msg[1024];
SAFEPRINTF(msg,"%s\r\n",str);
OutputDebugString(msg);
}
int sbbs_t::getuserxfers(int fromuser, int destuser, char *fname)
{
char str[256];
int file,found=0;
FILE *stream;
SAFEPRINTF(str,"%sxfer.ixt",cfg.data_dir);
if(!fexist(str))
return(0);
if(!flength(str)) {
remove(str);
return(0);
}
if((stream=fnopen(&file,str,O_RDONLY))==NULL) {
errormsg(WHERE,ERR_OPEN,str,O_RDONLY);
return(0);
}
while(!ferror(stream)) {
if(!fgets(str,81,stream))
break;
str[22]=0;
if(fname!=NULL && fname[0] && !strncmp(str+5,fname,12))
found++;
else if(fromuser && atoi(str+18)==fromuser)
found++;
else if(destuser && atoi(str)==destuser)
found++;
}
fclose(stream);
return(found);
}
void lputs(int level, char* msg)
{
char buf[1024];
if(level > log_level)
return;
SAFEPRINTF(buf,"SBBS: %s\r\n", msg);
OutputDebugString(buf);
}
void parse_ini(char* program)
{
char section[MAX_PATH+1];
if(ini==NULL) /* no initialization file */
return;
/* Read the root section of the sbbsexec.ini file */
log_level=iniGetLogLevel(ini,program,"LogLevel",log_level);
if(iniGetBool(ini,program,"Debug",FALSE))
log_level=LOG_DEBUG;
yield_interval=iniGetFloat(ini,program,"YieldInterval",yield_interval);
hangup_supported=iniGetBool(ini,program,"CanDisconnect",hangup_supported);
lprintf(LOG_INFO,"Parsed %s section of %s"
,program==ROOT_SECTION ? "root" : program
,ini_fname);
/* [UART] section */
if(program==ROOT_SECTION)
SAFECOPY(section,"UART");
else
SAFEPRINTF(section,"%s.UART",program);
virtualize_uart=iniGetBool(ini,section,"Virtualize",virtualize_uart);
switch(iniGetInteger(ini,section,"ComPort",0)) {
case 1: /* COM1 */
uart_irq =UART_COM1_IRQ;
uart_io_base =UART_COM1_IO_BASE;
break;
case 2: /* COM2 */
uart_irq =UART_COM2_IRQ;
uart_io_base =UART_COM2_IO_BASE;
break;
case 3: /* COM3 */
uart_irq =UART_COM3_IRQ;
uart_io_base =UART_COM3_IO_BASE;
break;
case 4: /* COM4 */
uart_irq =UART_COM4_IRQ;
uart_io_base =UART_COM4_IO_BASE;
break;
}
uart_irq=(BYTE)iniGetShortInt(ini,section,"IRQ",uart_irq);
uart_io_base=iniGetShortInt(ini,section,"Address",uart_io_base);
lprintf(LOG_INFO,"Parsed %s section of %s"
,section
,ini_fname);
}
BOOL DLLCALL putfileixb(scfg_t* cfg, file_t* f)
{
char str[MAX_PATH+1],fname[13];
uchar* ixbbuf;
int file;
long l,length;
SAFEPRINTF2(str,"%s%s.ixb",cfg->dir[f->dir]->data_dir,cfg->dir[f->dir]->code);
if((file=sopen(str,O_RDWR|O_BINARY,SH_DENYRW))==-1) {
return(FALSE);
}
length=(long)filelength(file);
if(length%F_IXBSIZE) {
close(file);
return(FALSE);
}
if((ixbbuf=(uchar *)malloc(length))==NULL) {
close(file);
return(FALSE);
}
if(lread(file,ixbbuf,length)!=length) {
close(file);
free(ixbbuf);
return(FALSE);
}
SAFECOPY(fname,f->name);
for(l=8;l<12;l++) /* Turn FILENAME.EXT into FILENAMEEXT */
fname[l]=fname[l+1];
for(l=0;l<length;l+=F_IXBSIZE) {
SAFEPRINTF(str,"%11.11s",ixbbuf+l);
if(!stricmp(str,fname))
break;
}
free(ixbbuf);
if(l>=length) {
close(file);
return(FALSE);
}
lseek(file,l+11+3,SEEK_SET);
write(file,&f->dateuled,4);
write(file,&f->datedled,4);
close(file);
return(TRUE);
}
void sbbs_t::badlogin(char* user, char* passwd)
{
char reason[128];
ulong count;
SAFEPRINTF(reason,"%s LOGIN", connection);
count=loginFailure(startup->login_attempt_list, &client_addr, connection, user, passwd);
if(startup->login_attempt_hack_threshold && count>=startup->login_attempt_hack_threshold)
::hacklog(&cfg, reason, user, passwd, client_name, &client_addr);
if(startup->login_attempt_filter_threshold && count>=startup->login_attempt_filter_threshold)
filter_ip(&cfg, connection, "- TOO MANY CONSECUTIVE FAILED LOGIN ATTEMPTS"
,client_name, client_ipaddr, user, /* fname: */NULL);
mswait(startup->login_attempt_delay);
}
BOOL DLLCALL getfileixb(scfg_t* cfg, file_t* f)
{
char str[MAX_PATH+1],fname[13];
uchar * ixbbuf;
int file;
long l,length;
SAFEPRINTF2(str,"%s%s.ixb",cfg->dir[f->dir]->data_dir,cfg->dir[f->dir]->code);
if((file=sopen(str,O_RDONLY|O_BINARY,SH_DENYWR))==-1) {
return(FALSE);
}
length=(long)filelength(file);
if(length%F_IXBSIZE) {
close(file);
return(FALSE);
}
if((ixbbuf=(uchar *)malloc(length))==NULL) {
close(file);
return(FALSE);
}
if(lread(file,ixbbuf,length)!=length) {
close(file);
free((char *)ixbbuf);
return(FALSE);
}
close(file);
SAFECOPY(fname,f->name);
for(l=8;l<12;l++) /* Turn FILENAME.EXT into FILENAMEEXT */
fname[l]=fname[l+1];
for(l=0;l<length;l+=F_IXBSIZE) {
SAFEPRINTF(str,"%11.11s",ixbbuf+l);
if(!stricmp(str,fname))
break;
}
if(l>=length) {
free((char *)ixbbuf);
return(FALSE);
}
l+=11;
f->datoffset=ixbbuf[l]|((long)ixbbuf[l+1]<<8)|((long)ixbbuf[l+2]<<16);
f->dateuled=ixbbuf[l+3]|((long)ixbbuf[l+4]<<8)
|((long)ixbbuf[l+5]<<16)|((long)ixbbuf[l+6]<<24);
f->datedled=ixbbuf[l+7]|((long)ixbbuf[l+8]<<8)
|((long)ixbbuf[l+9]<<16)|((long)ixbbuf[l+10]<<24);
free((char *)ixbbuf);
return(TRUE);
}
char* dszlog_filename(char* str)
{
char* p=str;
static char path[MAX_PATH+1];
#ifdef _WIN32
char sfpath[MAX_PATH+1];
if(dszlog_short) {
SAFECOPY(sfpath,str);
GetShortPathName(str,sfpath,sizeof(sfpath));
p=sfpath;
}
#endif
if(!dszlog_path)
p=getfname(p);
if(!dszlog_quotes)
return(p);
SAFEPRINTF(path,"\"%s\"",p);
return(path);
}
extern "C" int DLLCALL msg_client_hfields(smbmsg_t* msg, client_t* client)
{
int i;
char port[16];
char date[64];
if(client==NULL)
return(-1);
if(client->user!=NULL && (i=smb_hfield_str(msg,SENDERUSERID,client->user))!=SMB_SUCCESS)
return(i);
if((i=smb_hfield_str(msg,SENDERTIME,xpDateTime_to_isoDateTimeStr(gmtime_to_xpDateTime(client->time)
,/* separators: */"","","", /* precision: */0
,date,sizeof(date))))!=SMB_SUCCESS)
return(i);
if((i=smb_hfield_str(msg,SENDERIPADDR,client->addr))!=SMB_SUCCESS)
return(i);
if((i=smb_hfield_str(msg,SENDERHOSTNAME,client->host))!=SMB_SUCCESS)
return(i);
if(client->protocol!=NULL && (i=smb_hfield_str(msg,SENDERPROTOCOL,client->protocol))!=SMB_SUCCESS)
return(i);
SAFEPRINTF(port,"%u",client->port);
return smb_hfield_str(msg,SENDERPORT,port);
}
BOOL DLLCALL rmuserxfers(scfg_t* cfg, int fromuser, int destuser, char *fname)
{
char str[MAX_PATH+1],*ixtbuf;
int file;
long l,length;
SAFEPRINTF(str,"%sxfer.ixt", cfg->data_dir);
if(!fexist(str))
return(FALSE);
if(!flength(str)) {
remove(str);
return(FALSE);
}
if((file=sopen(str,O_RDONLY|O_BINARY,SH_DENYWR))==-1) {
return(FALSE);
}
length=(long)filelength(file);
if((ixtbuf=(char *)malloc(length))==NULL) {
close(file);
return(FALSE);
}
if(read(file,ixtbuf,length)!=length) {
close(file);
free(ixtbuf);
return(FALSE);
}
close(file);
if((file=sopen(str,O_WRONLY|O_TRUNC|O_BINARY,SH_DENYRW))==-1) {
free(ixtbuf);
return(FALSE);
}
for(l=0;l<length;l+=24) {
if(fname!=NULL && fname[0]) { /* fname specified */
if(!strncmp(ixtbuf+l+5,fname,12)) { /* this is the file */
if(destuser && fromuser) { /* both dest and from user */
if(atoi(ixtbuf+l)==destuser && atoi(ixtbuf+l+18)==fromuser)
continue; /* both match */
}
else if(fromuser) { /* from user */
if(atoi(ixtbuf+l+18)==fromuser) /* matches */
continue;
}
else if(destuser) { /* dest user */
if(atoi(ixtbuf+l)==destuser) /* matches */
continue;
}
else continue; /* no users, so match */
}
}
else if(destuser && fromuser) {
if(atoi(ixtbuf+l+18)==fromuser && atoi(ixtbuf+l)==destuser)
continue;
}
else if(destuser && atoi(ixtbuf+l)==destuser)
continue;
else if(fromuser && atoi(ixtbuf+l+18)==fromuser)
continue;
write(file,ixtbuf+l,24);
}
close(file);
free(ixtbuf);
return(TRUE);
}
void sbbs_t::qwktonetmail(FILE *rep, char *block, char *into, uchar fromhub)
{
char *qwkbuf,to[129],name[129],sender[129],senderaddr[129]
,str[256],*p,*cp,*addr,fulladdr[129],ch;
char tmp[512];
int i,fido,inet=0,qnet=0;
ushort net;
uint16_t xlat;
long l,offset,length,m,n;
faddr_t fidoaddr;
fmsghdr_t hdr;
smbmsg_t msg;
struct tm tm;
if(useron.rest&FLAG('M')) {
bputs(text[NoNetMailAllowed]);
return;
}
to[0]=0;
name[0]=0;
sender[0]=0;
senderaddr[0]=0;
fulladdr[0]=0;
sprintf(str,"%.6s",block+116);
n=atol(str); /* i = number of 128 byte records */
if(n<2L || n>999999L) {
errormsg(WHERE,ERR_CHK,"QWK blocks",n);
return;
}
if((qwkbuf=(char *)malloc(n*QWK_BLOCK_LEN))==NULL) {
errormsg(WHERE,ERR_ALLOC,nulstr,n*QWK_BLOCK_LEN);
return;
}
memcpy((char *)qwkbuf,block,QWK_BLOCK_LEN);
fread(qwkbuf+QWK_BLOCK_LEN,n-1,QWK_BLOCK_LEN,rep);
if(into==NULL)
sprintf(to,"%-128.128s",(char *)qwkbuf+QWK_BLOCK_LEN); /* To user on first line */
else
SAFECOPY(to,into);
p=strchr(to,QWK_NEWLINE); /* chop off at first CR */
if(p) *p=0;
SAFECOPY(name,to);
p=strchr(name,'@');
if(p) *p=0;
truncsp(name);
p=strrchr(to,'@'); /* Find '@' in name@addr */
if(p && !isdigit(*(p+1)) && !strchr(p,'.') && !strchr(p,':')) { /* QWKnet */
qnet=1;
*p=0;
}
else if(p==NULL || !isdigit(*(p+1)) || !cfg.total_faddrs) {
if(p==NULL && cfg.dflt_faddr.zone)
fidoaddr=cfg.dflt_faddr;
else if(cfg.inetmail_misc&NMAIL_ALLOW) { /* Internet */
inet=1;
}
else if(cfg.dflt_faddr.zone)
fidoaddr=cfg.dflt_faddr;
else {
bputs(text[InvalidNetMailAddr]);
free(qwkbuf);
return;
}
}
else {
fidoaddr=atofaddr(&cfg,p+1); /* Get fido address */
*p=0; /* Chop off address */
}
if(!inet && !qnet && /* FidoNet */
((!SYSOP && !(cfg.netmail_misc&NMAIL_ALLOW)) || !cfg.total_faddrs)) {
bputs(text[NoNetMailAllowed]);
free(qwkbuf);
return;
}
truncsp(to); /* Truncate off space */
if(!stricmp(to,"SBBS") && !SYSOP && qnet) {
free(qwkbuf);
return;
}
l=QWK_BLOCK_LEN; /* Start of message text */
if(qnet || inet) {
if(into==NULL) { /* If name@addr on first line, skip first line */
while(l<(n*QWK_BLOCK_LEN) && qwkbuf[l]!=QWK_NEWLINE) l++;
l++;
}
memset(&msg,0,sizeof(smbmsg_t));
msg.hdr.version=smb_ver();
msg.hdr.when_imported.time=time32(NULL);
msg.hdr.when_imported.zone=sys_timezone(&cfg);
if(fromhub || useron.rest&FLAG('Q')) {
net=NET_QWK;
smb_hfield(&msg,SENDERNETTYPE,sizeof(net),&net);
if(!strncmp(qwkbuf+l,"@VIA:",5)) {
sprintf(str,"%.128s",qwkbuf+l+5);
cp=strchr(str,QWK_NEWLINE);
if(cp) *cp=0;
l+=strlen(str)+1;
cp=str;
while(*cp && *cp<=' ') cp++;
sprintf(senderaddr,"%s/%s"
,fromhub ? cfg.qhub[fromhub-1]->id : useron.alias,cp);
strupr(senderaddr);
smb_hfield(&msg,SENDERNETADDR,strlen(senderaddr),senderaddr);
}
else {
if(fromhub)
SAFECOPY(senderaddr, cfg.qhub[fromhub-1]->id);
else
SAFECOPY(senderaddr, useron.alias);
strupr(senderaddr);
smb_hfield(&msg,SENDERNETADDR,strlen(senderaddr),senderaddr);
}
sprintf(sender,"%.25s",block+46); /* From name */
}
else { /* Not Networked */
msg.hdr.when_written.zone=sys_timezone(&cfg);
sprintf(str,"%u",useron.number);
smb_hfield(&msg,SENDEREXT,strlen(str),str);
SAFECOPY(sender,(qnet || cfg.inetmail_misc&NMAIL_ALIAS)
? useron.alias : useron.name);
}
truncsp(sender);
smb_hfield(&msg,SENDER,strlen(sender),sender);
if(fromhub)
msg.idx.from=0;
else
msg.idx.from=useron.number;
if(!strncmp(qwkbuf+l,"@TZ:",4)) {
sprintf(str,"%.128s",qwkbuf+l);
cp=strchr(str,QWK_NEWLINE);
if(cp) *cp=0;
l+=strlen(str)+1;
cp=str+4;
while(*cp && *cp<=' ') cp++;
msg.hdr.when_written.zone=(short)ahtoul(cp);
}
else
msg.hdr.when_written.zone=sys_timezone(&cfg);
memset(&tm,0,sizeof(tm));
tm.tm_mon=((qwkbuf[8]&0xf)*10)+(qwkbuf[9]&0xf);
if(tm.tm_mon) tm.tm_mon--; /* 0 based */
tm.tm_mday=((qwkbuf[11]&0xf)*10)+(qwkbuf[12]&0xf);
tm.tm_year=((qwkbuf[14]&0xf)*10)+(qwkbuf[15]&0xf);
if(tm.tm_year<Y2K_2DIGIT_WINDOW)
tm.tm_year+=100;
tm.tm_hour=((qwkbuf[16]&0xf)*10)+(qwkbuf[17]&0xf);
tm.tm_min=((qwkbuf[19]&0xf)*10)+(qwkbuf[20]&0xf); /* From QWK time */
tm.tm_sec=0;
tm.tm_isdst=-1; /* Do not adjust for DST */
msg.hdr.when_written.time=mktime32(&tm);
sprintf(str,"%.25s",block+71); /* Title */
smb_hfield(&msg,SUBJECT,strlen(str),str);
}
if(qnet) {
p++;
addr=p;
msg.idx.to=qwk_route(addr,fulladdr);
if(!fulladdr[0]) { /* Invalid address, so BOUNCE it */
/**
errormsg(WHERE,ERR_CHK,addr,0);
free(qwkbuf);
smb_freemsgmem(msg);
return;
**/
smb_hfield(&msg,SENDER,strlen(cfg.sys_id),cfg.sys_id);
msg.idx.from=0;
msg.idx.to=useron.number;
SAFECOPY(to,sender);
SAFECOPY(fulladdr,senderaddr);
SAFEPRINTF(str,"BADADDR: %s",addr);
smb_hfield(&msg,SUBJECT,strlen(str),str);
net=NET_NONE;
smb_hfield(&msg,SENDERNETTYPE,sizeof(net),&net);
}
/* This is required for fixsmb to be able to rebuild the index */
SAFEPRINTF(str,"%u",msg.idx.to);
smb_hfield_str(&msg,RECIPIENTEXT,str);
smb_hfield(&msg,RECIPIENT,strlen(name),name);
net=NET_QWK;
smb_hfield(&msg,RECIPIENTNETTYPE,sizeof(net),&net);
truncsp(fulladdr);
if(fulladdr[0])
smb_hfield(&msg,RECIPIENTNETADDR,strlen(fulladdr),fulladdr);
bprintf(text[NetMailing],to,fulladdr,sender,cfg.sys_id);
}
if(inet) { /* Internet E-mail */
if(cfg.inetmail_cost && !(useron.exempt&FLAG('S'))) {
if(useron.cdt+useron.freecdt<cfg.inetmail_cost) {
bputs(text[NotEnoughCredits]);
free(qwkbuf);
smb_freemsgmem(&msg);
return;
}
sprintf(str,text[NetMailCostContinueQ],cfg.inetmail_cost);
if(noyes(str)) {
free(qwkbuf);
smb_freemsgmem(&msg);
return;
}
}
net=NET_INTERNET;
smb_hfield(&msg,RECIPIENT,strlen(name),name);
msg.idx.to=0; /* Out-bound NetMail set to 0 */
smb_hfield(&msg,RECIPIENTNETTYPE,sizeof(net),&net);
smb_hfield(&msg,RECIPIENTNETADDR,strlen(to),to);
bprintf(text[NetMailing],name,to
,cfg.inetmail_misc&NMAIL_ALIAS ? useron.alias : useron.name
,cfg.sys_inetaddr);
}
if(qnet || inet) {
bputs(text[WritingIndx]);
if((i=smb_stack(&smb,SMB_STACK_PUSH))!=0) {
errormsg(WHERE,ERR_OPEN,"MAIL",i);
free(qwkbuf);
smb_freemsgmem(&msg);
return;
}
sprintf(smb.file,"%smail", cfg.data_dir);
smb.retry_time=cfg.smb_retry_time;
smb.subnum=INVALID_SUB;
if((i=smb_open(&smb))!=0) {
smb_stack(&smb,SMB_STACK_POP);
errormsg(WHERE,ERR_OPEN,smb.file,i,smb.last_error);
free(qwkbuf);
smb_freemsgmem(&msg);
return;
}
if(smb_fgetlength(smb.shd_fp)<1L) { /* Create it if it doesn't exist */
smb.status.max_crcs=cfg.mail_maxcrcs;
smb.status.max_msgs=0;
smb.status.max_age=cfg.mail_maxage;
smb.status.attr=SMB_EMAIL;
if((i=smb_create(&smb))!=0) {
smb_close(&smb);
smb_stack(&smb,SMB_STACK_POP);
errormsg(WHERE,ERR_CREATE,smb.file,i,smb.last_error);
free(qwkbuf);
smb_freemsgmem(&msg);
return;
}
}
length=n*256L; // Extra big for CRLF xlat, was (n-1L)*256L (03/16/96)
if(length&0xfff00000UL || !length) {
smb_close(&smb);
smb_stack(&smb,SMB_STACK_POP);
sprintf(str,"REP msg (%ld)",n);
errormsg(WHERE,ERR_LEN,str,length);
free(qwkbuf);
smb_freemsgmem(&msg);
return;
}
if((i=smb_open_da(&smb))!=0) {
smb_close(&smb);
smb_stack(&smb,SMB_STACK_POP);
errormsg(WHERE,ERR_OPEN,smb.file,i,smb.last_error);
free(qwkbuf);
smb_freemsgmem(&msg);
return;
}
if(cfg.sys_misc&SM_FASTMAIL)
offset=smb_fallocdat(&smb,length,1);
else
offset=smb_allocdat(&smb,length,1);
smb_close_da(&smb);
smb_fseek(smb.sdt_fp,offset,SEEK_SET);
xlat=XLAT_NONE;
smb_fwrite(&smb,&xlat,2,smb.sdt_fp);
m=2;
for(;l<n*QWK_BLOCK_LEN && m<length;l++) {
if(qwkbuf[l]==0 || qwkbuf[l]==LF)
continue;
if(qwkbuf[l]==QWK_NEWLINE) {
smb_fwrite(&smb,crlf,2,smb.sdt_fp);
m+=2;
continue;
}
smb_fputc(qwkbuf[l],smb.sdt_fp);
m++;
}
for(ch=0;m<length;m++) /* Pad out with NULLs */
smb_fputc(ch,smb.sdt_fp);
smb_fflush(smb.sdt_fp);
msg.hdr.offset=offset;
smb_dfield(&msg,TEXT_BODY,length);
i=smb_addmsghdr(&smb,&msg,SMB_SELFPACK);
smb_close(&smb);
smb_stack(&smb,SMB_STACK_POP);
smb_freemsgmem(&msg);
if(i!=SMB_SUCCESS) {
errormsg(WHERE,ERR_WRITE,smb.file,i,smb.last_error);
smb_freemsgdat(&smb,offset,length,1);
}
else { /* Successful */
if(inet) {
if(cfg.inetmail_sem[0]) /* update semaphore file */
ftouch(cmdstr(cfg.inetmail_sem,nulstr,nulstr,NULL));
if(!(useron.exempt&FLAG('S')))
subtract_cdt(&cfg,&useron,cfg.inetmail_cost);
}
useron.emails++;
logon_emails++;
putuserrec(&cfg,useron.number,U_EMAILS,5,ultoa(useron.emails,tmp,10));
useron.etoday++;
putuserrec(&cfg,useron.number,U_ETODAY,5,ultoa(useron.etoday,tmp,10));
sprintf(str,"%s sent %s NetMail to %s (%s) via QWK"
,useron.alias
,qnet ? "QWK":"Internet",name,qnet ? fulladdr : to);
logline("EN",str);
}
free((char *)qwkbuf);
return;
}
/****************************** FidoNet **********************************/
if(!fidoaddr.zone || !cfg.netmail_dir[0]) { // No fido netmail allowed
bputs(text[InvalidNetMailAddr]);
free(qwkbuf);
return;
}
memset(&hdr,0,sizeof(hdr)); /* Initialize header to null */
if(fromhub || useron.rest&FLAG('Q')) {
sprintf(str,"%.25s",block+46); /* From */
truncsp(str);
sprintf(tmp,"@%s",fromhub ? cfg.qhub[fromhub-1]->id : useron.alias);
strupr(tmp);
strcat(str,tmp);
}
else
SAFECOPY(str,cfg.netmail_misc&NMAIL_ALIAS ? useron.alias : useron.name);
SAFECOPY(hdr.from,str);
SAFECOPY(hdr.to,to);
/* Look-up in nodelist? */
if(cfg.netmail_cost && !(useron.exempt&FLAG('S'))) {
if(useron.cdt+useron.freecdt<cfg.netmail_cost) {
bputs(text[NotEnoughCredits]);
free(qwkbuf);
return;
}
sprintf(str,text[NetMailCostContinueQ],cfg.netmail_cost);
if(noyes(str)) {
free(qwkbuf);
return;
}
}
hdr.destzone =fidoaddr.zone;
hdr.destnet =fidoaddr.net;
hdr.destnode =fidoaddr.node;
hdr.destpoint =fidoaddr.point;
for(i=0;i<cfg.total_faddrs;i++)
if(fidoaddr.zone==cfg.faddr[i].zone && fidoaddr.net==cfg.faddr[i].net)
break;
if(i==cfg.total_faddrs) {
for(i=0;i<cfg.total_faddrs;i++)
if(fidoaddr.zone==cfg.faddr[i].zone)
break;
}
if(i==cfg.total_faddrs)
i=0;
hdr.origzone =cfg.faddr[i].zone;
hdr.orignet =cfg.faddr[i].net;
hdr.orignode =cfg.faddr[i].node;
hdr.origpoint =cfg.faddr[i].point;
smb_faddrtoa(&cfg.faddr[i],str);
bprintf(text[NetMailing],hdr.to,smb_faddrtoa(&fidoaddr,tmp),hdr.from,str);
tm.tm_mon=((qwkbuf[8]&0xf)*10)+(qwkbuf[9]&0xf);
if (tm.tm_mon) tm.tm_mon--;
tm.tm_mday=((qwkbuf[11]&0xf)*10)+(qwkbuf[12]&0xf);
tm.tm_year=((qwkbuf[14]&0xf)*10)+(qwkbuf[15]&0xf)+1900;
tm.tm_hour=((qwkbuf[16]&0xf)*10)+(qwkbuf[17]&0xf);
tm.tm_min=((qwkbuf[19]&0xf)*10)+(qwkbuf[20]&0xf); /* From QWK time */
tm.tm_sec=0;
sprintf(hdr.time,"%02u %3.3s %02u %02u:%02u:%02u" /* To FidoNet */
,tm.tm_mday,mon[tm.tm_mon],TM_YEAR(tm.tm_year)
,tm.tm_hour,tm.tm_min,tm.tm_sec);
hdr.attr=(FIDO_LOCAL|FIDO_PRIVATE);
if(cfg.netmail_misc&NMAIL_CRASH) hdr.attr|=FIDO_CRASH;
if(cfg.netmail_misc&NMAIL_HOLD) hdr.attr|=FIDO_HOLD;
if(cfg.netmail_misc&NMAIL_KILL) hdr.attr|=FIDO_KILLSENT;
sprintf(str,"%.25s",block+71); /* Title */
truncsp(str);
p=str;
if((SYSOP || useron.exempt&FLAG('F'))
&& !strnicmp(p,"CR:",3)) { /* Crash over-ride by sysop */
p+=3; /* skip CR: */
if(*p==' ') p++; /* skip extra space if it exists */
hdr.attr|=FIDO_CRASH;
}
if((SYSOP || useron.exempt&FLAG('F'))
&& !strnicmp(p,"FR:",3)) { /* File request */
p+=3; /* skip FR: */
if(*p==' ') p++;
hdr.attr|=FIDO_FREQ;
}
if((SYSOP || useron.exempt&FLAG('F'))
&& !strnicmp(p,"RR:",3)) { /* Return receipt request */
p+=3; /* skip RR: */
if(*p==' ') p++;
hdr.attr|=FIDO_RRREQ;
}
if((SYSOP || useron.exempt&FLAG('F'))
&& !strnicmp(p,"FA:",3)) { /* File attachment */
p+=3; /* skip FA: */
if(*p==' ') p++;
hdr.attr|=FIDO_FILE;
}
SAFECOPY(hdr.subj,p);
md(cfg.netmail_dir);
for(i=1;i;i++) {
sprintf(str,"%s%u.msg", cfg.netmail_dir,i);
if(!fexistcase(str))
break;
}
if(!i) {
bputs(text[TooManyEmailsToday]);
return;
}
if((fido=nopen(str,O_WRONLY|O_CREAT|O_EXCL))==-1) {
free(qwkbuf);
errormsg(WHERE,ERR_OPEN,str,O_WRONLY|O_CREAT|O_EXCL);
return;
}
write(fido,&hdr,sizeof(hdr));
pt_zone_kludge(hdr,fido);
if(cfg.netmail_misc&NMAIL_DIRECT) {
sprintf(str,"\1FLAGS DIR\r\n");
write(fido,str,strlen(str));
}
l=QWK_BLOCK_LEN;
if(into==NULL) { /* If name@addr on first line, skip first line */
while(l<n*QWK_BLOCK_LEN && qwkbuf[l]!=QWK_NEWLINE) l++;
l++;
}
length=n*QWK_BLOCK_LEN;
while(l<length) {
if(qwkbuf[l]==CTRL_A) { /* Ctrl-A, so skip it and the next char */
l++;
if(l>=length || toupper(qwkbuf[l])=='Z') /* EOF */
break;
if((ch=ctrl_a_to_ascii_char(qwkbuf[l])) != 0)
write(fido,&ch,1);
}
else if(qwkbuf[l]!=LF) {
if(qwkbuf[l]==QWK_NEWLINE) /* QWK cr/lf char converted to hard CR */
qwkbuf[l]=CR;
write(fido,(char *)qwkbuf+l,1);
}
l++;
}
l=0;
write(fido,&l,1); /* Null terminator */
close(fido);
free((char *)qwkbuf);
if(cfg.netmail_sem[0]) /* update semaphore file */
ftouch(cmdstr(cfg.netmail_sem,nulstr,nulstr,NULL));
if(!(useron.exempt&FLAG('S')))
subtract_cdt(&cfg,&useron,cfg.netmail_cost);
useron.emails++;
logon_emails++;
putuserrec(&cfg,useron.number,U_EMAILS,5,ultoa(useron.emails,tmp,10));
useron.etoday++;
putuserrec(&cfg,useron.number,U_ETODAY,5,ultoa(useron.etoday,tmp,10));
sprintf(str,"%s sent NetMail to %s @%s via QWK"
,useron.alias
,hdr.to,smb_faddrtoa(&fidoaddr,tmp));
logline("EN",str);
}
bool sbbs_t::netmail(const char *into, const char *title, long mode)
{
char str[256],subj[128],to[256],fname[128],*buf,*p,ch;
char tmp[512];
int file,fido,x,cc_found,cc_sent;
uint i;
long length,l;
faddr_t addr;
fmsghdr_t hdr;
struct tm tm;
if(useron.etoday>=cfg.level_emailperday[useron.level] && !SYSOP && !(useron.exempt&FLAG('M'))) {
bputs(text[TooManyEmailsToday]);
return(false);
}
SAFECOPY(subj,title);
strcpy(to,into);
lookup_netuser(to);
p=strrchr(to,'@'); /* Find '@' in name@addr */
if(p && !isdigit(*(p+1)) && !strchr(p,'.') && !strchr(p,':')) {
mode&=~WM_FILE;
qnetmail(to,title,mode|WM_NETMAIL);
return(false);
}
if(!cfg.total_faddrs || p==NULL || !strchr(p+1,'/')) {
if(!p && cfg.dflt_faddr.zone)
addr=cfg.dflt_faddr;
else if(cfg.inetmail_misc&NMAIL_ALLOW) {
if(mode&WM_FILE && !SYSOP && !(cfg.inetmail_misc&NMAIL_FILE))
mode&=~WM_FILE;
return(inetmail(into,title,mode|WM_NETMAIL));
}
else if(cfg.dflt_faddr.zone)
addr=cfg.dflt_faddr;
else {
bputs(text[InvalidNetMailAddr]);
return(false);
}
} else {
addr=atofaddr(&cfg,p+1); /* Get fido address */
*p=0; /* Chop off address */
}
if(mode&WM_FILE && !SYSOP && !(cfg.netmail_misc&NMAIL_FILE))
mode&=~WM_FILE;
if((!SYSOP && !(cfg.netmail_misc&NMAIL_ALLOW)) || useron.rest&FLAG('M')
|| !cfg.total_faddrs) {
bputs(text[NoNetMailAllowed]);
return(false);
}
truncsp(to); /* Truncate off space */
memset(&hdr,0,sizeof(hdr)); /* Initialize header to null */
strcpy(hdr.from,cfg.netmail_misc&NMAIL_ALIAS ? useron.alias : useron.name);
SAFECOPY(hdr.to,to);
/* Look-up in nodelist? */
if(cfg.netmail_cost && !(useron.exempt&FLAG('S'))) {
if(useron.cdt+useron.freecdt<cfg.netmail_cost) {
bputs(text[NotEnoughCredits]);
return(false);
}
sprintf(str,text[NetMailCostContinueQ],cfg.netmail_cost);
if(noyes(str))
return(false);
}
now=time(NULL);
if(localtime_r(&now,&tm)!=NULL)
sprintf(hdr.time,"%02u %3.3s %02u %02u:%02u:%02u"
,tm.tm_mday,mon[tm.tm_mon],TM_YEAR(tm.tm_year)
,tm.tm_hour,tm.tm_min,tm.tm_sec);
hdr.destzone =addr.zone;
hdr.destnet =addr.net;
hdr.destnode =addr.node;
hdr.destpoint =addr.point;
for(i=0;i<cfg.total_faddrs;i++)
if(addr.zone==cfg.faddr[i].zone && addr.net==cfg.faddr[i].net)
break;
if(i==cfg.total_faddrs) {
for(i=0;i<cfg.total_faddrs;i++)
if(addr.zone==cfg.faddr[i].zone)
break;
}
if(i==cfg.total_faddrs)
i=0;
hdr.origzone =cfg.faddr[i].zone;
hdr.orignet =cfg.faddr[i].net;
hdr.orignode =cfg.faddr[i].node;
hdr.origpoint =cfg.faddr[i].point;
smb_faddrtoa(&cfg.faddr[i],str);
bprintf(text[NetMailing],hdr.to,smb_faddrtoa(&addr,tmp),hdr.from,str);
hdr.attr=(FIDO_LOCAL|FIDO_PRIVATE);
if(cfg.netmail_misc&NMAIL_CRASH) hdr.attr|=FIDO_CRASH;
if(cfg.netmail_misc&NMAIL_HOLD) hdr.attr|=FIDO_HOLD;
if(cfg.netmail_misc&NMAIL_KILL) hdr.attr|=FIDO_KILLSENT;
if(mode&WM_FILE) hdr.attr|=FIDO_FILE;
sprintf(str,"%sNETMAIL.MSG", cfg.node_dir);
remove(str); /* Just incase it's already there */
// mode&=~WM_FILE;
if(!writemsg(str,nulstr,subj,WM_NETMAIL|mode,INVALID_SUB,into)) {
bputs(text[Aborted]);
return(false);
}
if(mode&WM_FILE) {
strcpy(fname,subj);
sprintf(str,"%sfile/%04u.out", cfg.data_dir, useron.number);
MKDIR(str);
strcpy(tmp, cfg.data_dir);
if(tmp[0]=='.') /* Relative path */
sprintf(tmp,"%s%s", cfg.node_dir, cfg.data_dir);
sprintf(str,"%sfile/%04u.out/%s",tmp,useron.number,fname);
strcpy(subj,str);
if(fexistcase(str)) {
bputs(text[FileAlreadyThere]);
return(false);
}
{ /* Remote */
xfer_prot_menu(XFER_UPLOAD);
mnemonics(text[ProtocolOrQuit]);
strcpy(str,"Q");
for(x=0;x<cfg.total_prots;x++)
if(cfg.prot[x]->ulcmd[0] && chk_ar(cfg.prot[x]->ar,&useron,&client)) {
sprintf(tmp,"%c",cfg.prot[x]->mnemonic);
strcat(str,tmp);
}
ch=(char)getkeys(str,0);
if(ch=='Q' || sys_status&SS_ABORT) {
bputs(text[Aborted]);
return(false);
}
for(x=0;x<cfg.total_prots;x++)
if(cfg.prot[x]->ulcmd[0] && cfg.prot[x]->mnemonic==ch
&& chk_ar(cfg.prot[x]->ar,&useron,&client))
break;
if(x<cfg.total_prots) /* This should be always */
protocol(cfg.prot[x],XFER_UPLOAD,subj,nulstr,true);
}
sprintf(tmp,"%s%s",cfg.temp_dir,title);
if(!fexistcase(subj) && fexistcase(tmp))
mv(tmp,subj,0);
l=(long)flength(subj);
if(l>0)
bprintf(text[FileNBytesReceived],fname,ultoac(l,tmp));
else {
bprintf(text[FileNotReceived],fname);
return(false);
}
}
p=subj;
if((SYSOP || useron.exempt&FLAG('F'))
&& !strnicmp(p,"CR:",3)) { /* Crash over-ride by sysop */
p+=3; /* skip CR: */
if(*p==' ') p++; /* skip extra space if it exists */
hdr.attr|=FIDO_CRASH;
}
if((SYSOP || useron.exempt&FLAG('F'))
&& !strnicmp(p,"FR:",3)) { /* File request */
p+=3; /* skip FR: */
if(*p==' ') p++;
hdr.attr|=FIDO_FREQ;
}
if((SYSOP || useron.exempt&FLAG('F'))
&& !strnicmp(p,"RR:",3)) { /* Return receipt request */
p+=3; /* skip RR: */
if(*p==' ') p++;
hdr.attr|=FIDO_RRREQ;
}
if((SYSOP || useron.exempt&FLAG('F'))
&& !strnicmp(p,"FA:",3)) { /* File Attachment */
p+=3; /* skip FA: */
if(*p==' ') p++;
hdr.attr|=FIDO_FILE;
}
SAFECOPY(hdr.subj,p);
sprintf(str,"%sNETMAIL.MSG", cfg.node_dir);
if((file=nopen(str,O_RDONLY))==-1) {
errormsg(WHERE,ERR_OPEN,str,O_RDONLY);
return(false);
}
length=(long)filelength(file);
if((buf=(char *)malloc(length))==NULL) {
close(file);
errormsg(WHERE,ERR_ALLOC,str,length);
return(false);
}
read(file,buf,length);
close(file);
md(cfg.netmail_dir);
cc_sent=0;
while(1) {
for(i=1;i;i++) {
sprintf(str,"%s%u.msg", cfg.netmail_dir,i);
if(!fexistcase(str))
break;
}
if(!i) {
bputs(text[TooManyEmailsToday]);
return(false);
}
if((fido=nopen(str,O_WRONLY|O_CREAT|O_EXCL))==-1) {
errormsg(WHERE,ERR_OPEN,str,O_WRONLY|O_CREAT|O_EXCL);
return(false);
}
write(fido,&hdr,sizeof(hdr));
pt_zone_kludge(hdr,fido);
if(cfg.netmail_misc&NMAIL_DIRECT) {
SAFECOPY(str,"\1FLAGS DIR\r\n");
write(fido,str,strlen(str));
}
if(mode&WM_FILE) {
SAFECOPY(str,"\1FLAGS KFS\r\n");
write(fido,str,strlen(str));
}
if(cc_sent) {
SAFEPRINTF(str,"* Originally to: %s\r\n\r\n",into);
write(fido,str,strlen(str));
}
l=0L;
while(l<length) {
if(buf[l]==CTRL_A) { /* Ctrl-A, so skip it and the next char */
l++;
if(l>=length || toupper(buf[l])=='Z') /* EOF */
break;
if((ch=ctrl_a_to_ascii_char(buf[l])) != 0)
write(fido,&ch,1);
}
else if(buf[l]!=LF) {
if((uchar)buf[l]==0x8d) /* r0dent i converted to normal i */
buf[l]='i';
write(fido,buf+l,1);
}
l++;
}
l=0;
write(fido,&l,1); /* Null terminator */
close(fido);
useron.emails++;
logon_emails++;
putuserrec(&cfg,useron.number,U_EMAILS,5,ultoa(useron.emails,tmp,10));
useron.etoday++;
putuserrec(&cfg,useron.number,U_ETODAY,5,ultoa(useron.etoday,tmp,10));
if(!(useron.exempt&FLAG('S')))
subtract_cdt(&cfg,&useron,cfg.netmail_cost);
if(mode&WM_FILE)
sprintf(str,"%s sent NetMail file attachment to %s (%s)"
,useron.alias
,hdr.to,smb_faddrtoa(&addr,tmp));
else
sprintf(str,"%s sent NetMail to %s (%s)"
,useron.alias
,hdr.to,smb_faddrtoa(&addr,tmp));
logline("EN",str);
cc_found=0;
for(l=0;l<length && cc_found<=cc_sent;l++)
if(l+3<length && !strnicmp(buf+l,"CC:",3)) {
cc_found++;
l+=2;
}
else {
while(l<length && *(buf+l)!=LF)
l++;
}
if(!cc_found)
break;
while(l<length && *(buf+l)==' ') l++;
for(i=0;l<length && *(buf+l)!=LF && i<128;i++,l++)
str[i]=buf[l];
if(!i)
break;
str[i]=0;
p=strrchr(str,'@');
if(p) {
addr=atofaddr(&cfg,p+1);
*p=0;
SAFECOPY(hdr.to,str);
}
else {
atofaddr(&cfg,str);
strcpy(hdr.to,"Sysop");
}
hdr.destzone =addr.zone;
hdr.destnet =addr.net;
hdr.destnode =addr.node;
hdr.destpoint =addr.point;
cc_sent++;
}
if(cfg.netmail_sem[0]) /* update semaphore file */
ftouch(cmdstr(cfg.netmail_sem,nulstr,nulstr,NULL));
free(buf);
return(true);
}
char* replace_keyed_values(const char* src
,char* buf
,size_t buflen /* includes '\0' terminator */
,char esc_char
,keyed_string_t* string_list
,keyed_int_t* int_list
,BOOL case_sensitive)
{
char val[32];
size_t i;
size_t value_len;
char* p = buf;
while(*src && (size_t)(p-buf) < buflen-1) {
if(esc_char) {
if(*src != esc_char) {
*p++ = *src++;
continue;
}
src ++; /* skip the escape char */
}
if(string_list) {
for(i=0; string_list[i].key!=0 /* terminator */; i++) {
if((case_sensitive && *src == string_list[i].key)
|| ((!case_sensitive) && toupper(*src) == toupper(string_list[i].key))) {
value_len = strlen(string_list[i].value);
if((p-buf)+value_len > buflen-1) /* buffer overflow? */
value_len = (buflen-1)-(p-buf); /* truncate value */
memcpy(p, string_list[i].value, value_len);
p += value_len;
src++;
break;
}
}
if(string_list[i].key!=0) /* variable match */
continue;
}
if(int_list) {
for(i=0; int_list[i].key!=0 /* terminator */; i++) {
if((case_sensitive && *src == int_list[i].key)
|| ((!case_sensitive) && toupper(*src) == toupper(int_list[i].key))) {
SAFEPRINTF(val,"%d",int_list[i].value);
value_len = strlen(val);
if((p-buf)+value_len > buflen-1) /* buffer overflow? */
value_len = (buflen-1)-(p-buf); /* truncate value */
memcpy(p, val, value_len);
p += value_len;
src++;
break;
}
}
if(int_list[i].key!=0) /* variable match */
continue;
}
*p++ = *src++;
}
*p=0; /* terminate string in destination buffer */
return(buf);
}
BOOL sbbs_t::newuser()
{
char c,str[512];
char tmp[512];
uint i;
long kmode;
bool usa;
bputs(text[StartingNewUserRegistration]);
getnodedat(cfg.node_num,&thisnode,0);
if(thisnode.misc&NODE_LOCK) {
bputs(text[NodeLocked]);
logline(LOG_WARNING,"N!","New user locked node logon attempt");
hangup();
return(FALSE);
}
if(cfg.sys_misc&SM_CLOSED) {
bputs(text[NoNewUsers]);
hangup();
return(FALSE);
}
getnodedat(cfg.node_num,&thisnode,1);
thisnode.status=NODE_NEWUSER;
thisnode.connection=node_connection;
putnodedat(cfg.node_num,&thisnode);
memset(&useron,0,sizeof(user_t)); /* Initialize user info to null */
if(cfg.new_pass[0] && online==ON_REMOTE) {
c=0;
while(++c<4) {
bputs(text[NewUserPasswordPrompt]);
getstr(str,40,K_UPPER);
if(!strcmp(str,cfg.new_pass))
break;
SAFEPRINTF(tmp,"NUP Attempted: '%s'",str);
logline(LOG_NOTICE,"N!",tmp);
}
if(c==4) {
SAFEPRINTF(str,"%snupguess.msg",cfg.text_dir);
if(fexist(str))
printfile(str,P_NOABORT);
hangup();
return(FALSE);
}
}
/* Sets defaults per sysop config */
useron.misc|=(cfg.new_misc&~(DELETED|INACTIVE|QUIET|NETMAIL));
useron.qwk=QWK_DEFAULT;
useron.firston=useron.laston=useron.pwmod=time32(NULL);
if(cfg.new_expire) {
now=time(NULL);
useron.expire=(time32_t)(now+((long)cfg.new_expire*24L*60L*60L));
} else
useron.expire=0;
useron.sex=' ';
useron.prot=cfg.new_prot;
SAFECOPY(useron.comp,client_name); /* hostname or CID name */
SAFECOPY(useron.note,cid); /* IP address or CID number */
if((i=userdatdupe(0,U_NOTE,LEN_NOTE,cid, /* del */true))!=0) { /* Duplicate IP address */
SAFEPRINTF2(useron.comment,"Warning: same IP address as user #%d %s"
,i,username(&cfg,i,str));
logline(LOG_NOTICE,"N!",useron.comment);
}
SAFECOPY(useron.alias,"New"); /* just for status line */
SAFECOPY(useron.modem,connection);
if(!lastuser(&cfg)) { /* Automatic sysop access for first user */
bprintf("Creating sysop account... System password required.\r\n");
if(!chksyspass())
return(FALSE);
useron.level=99;
useron.exempt=useron.flags1=useron.flags2=0xffffffffUL;
useron.flags3=useron.flags4=0xffffffffUL;
useron.rest=0L;
} else {
useron.level=cfg.new_level;
useron.flags1=cfg.new_flags1;
useron.flags2=cfg.new_flags2;
useron.flags3=cfg.new_flags3;
useron.flags4=cfg.new_flags4;
useron.rest=cfg.new_rest;
useron.exempt=cfg.new_exempt;
}
useron.cdt=cfg.new_cdt;
useron.min=cfg.new_min;
useron.freecdt=cfg.level_freecdtperday[useron.level];
if(cfg.total_fcomps)
SAFECOPY(useron.tmpext,cfg.fcomp[0]->ext);
else
SAFECOPY(useron.tmpext,"ZIP");
useron.shell=cfg.new_shell;
useron.alias[0]=0;
kmode=(cfg.uq&UQ_NOEXASC)|K_EDIT|K_AUTODEL;
if(!(cfg.uq&UQ_NOUPRLWR))
kmode|=K_UPRLWR;
while(online) {
if(autoterm || (text[AutoTerminalQ][0] && yesno(text[AutoTerminalQ]))) {
useron.misc|=AUTOTERM;
useron.misc|=autoterm;
} else
useron.misc&=~AUTOTERM;
if(!(useron.misc&AUTOTERM)) {
if(text[AnsiTerminalQ][0] && yesno(text[AnsiTerminalQ]))
useron.misc|=ANSI;
else
useron.misc&=~ANSI;
}
if(useron.misc&ANSI) {
useron.rows=0; /* Auto-rows */
if(!(cfg.uq&UQ_COLORTERM) || useron.misc&(RIP|WIP|HTML) || text[ColorTerminalQ][0]==0 || yesno(text[ColorTerminalQ]))
useron.misc|=COLOR;
else
useron.misc&=~COLOR;
}
else
useron.rows=24;
if(text[ExAsciiTerminalQ][0] && !yesno(text[ExAsciiTerminalQ]))
useron.misc|=NO_EXASCII;
else
useron.misc&=~NO_EXASCII;
if(rlogin_name[0])
SAFECOPY(useron.alias,rlogin_name);
while(online) {
if(cfg.uq&UQ_ALIASES)
bputs(text[EnterYourAlias]);
else
bputs(text[EnterYourRealName]);
getstr(useron.alias,LEN_ALIAS,kmode);
truncsp(useron.alias);
if (!check_name(&cfg,useron.alias)
|| (!(cfg.uq&UQ_ALIASES) && !strchr(useron.alias,' '))) {
bputs(text[YouCantUseThatName]);
if(text[ContinueQ][0] && !yesno(text[ContinueQ]))
return(FALSE);
continue;
}
break;
}
if(!online) return(FALSE);
if((cfg.uq&UQ_ALIASES) && (cfg.uq&UQ_REALNAME)) {
while(online) {
bputs(text[EnterYourRealName]);
getstr(useron.name,LEN_NAME,kmode);
if (!check_name(&cfg,useron.name)
|| !strchr(useron.name,' ')
|| ((cfg.uq&UQ_DUPREAL)
&& userdatdupe(useron.number,U_NAME,LEN_NAME,useron.name)))
bputs(text[YouCantUseThatName]);
else
break;
if(text[ContinueQ][0] && !yesno(text[ContinueQ]))
return(FALSE);
}
}
else if(cfg.uq&UQ_COMPANY) {
bputs(text[EnterYourCompany]);
getstr(useron.name,LEN_NAME,(cfg.uq&UQ_NOEXASC)|K_EDIT|K_AUTODEL);
}
if(!useron.name[0])
SAFECOPY(useron.name,useron.alias);
if(!online) return(FALSE);
if(!useron.handle[0])
SAFECOPY(useron.handle,useron.alias);
while((cfg.uq&UQ_HANDLE) && online) {
bputs(text[EnterYourHandle]);
if(!getstr(useron.handle,LEN_HANDLE
,K_LINE|K_EDIT|K_AUTODEL|(cfg.uq&UQ_NOEXASC))
|| strchr(useron.handle,0xff)
|| ((cfg.uq&UQ_DUPHAND)
&& userdatdupe(0,U_HANDLE,LEN_HANDLE,useron.handle))
|| trashcan(useron.handle,"name"))
bputs(text[YouCantUseThatName]);
else
break;
if(text[ContinueQ][0] && !yesno(text[ContinueQ]))
return(FALSE);
}
if(!online) return(FALSE);
if(cfg.uq&UQ_ADDRESS)
while(online) { /* Get address and zip code */
bputs(text[EnterYourAddress]);
if(getstr(useron.address,LEN_ADDRESS,kmode))
break;
}
if(!online) return(FALSE);
while((cfg.uq&UQ_LOCATION) && online) {
bputs(text[EnterYourCityState]);
if(getstr(useron.location,LEN_LOCATION,kmode)
&& ((cfg.uq&UQ_NOCOMMAS) || strchr(useron.location,',')))
break;
bputs(text[CommaInLocationRequired]);
useron.location[0]=0;
}
if(cfg.uq&UQ_ADDRESS)
while(online) {
bputs(text[EnterYourZipCode]);
if(getstr(useron.zipcode,LEN_ZIPCODE
,K_UPPER|(cfg.uq&UQ_NOEXASC)|K_EDIT|K_AUTODEL))
break;
}
if(!online) return(FALSE);
if(cfg.uq&UQ_PHONE) {
if(text[CallingFromNorthAmericaQ][0])
usa=yesno(text[CallingFromNorthAmericaQ]);
else
usa=false;
while(online && text[EnterYourPhoneNumber][0]) {
bputs(text[EnterYourPhoneNumber]);
if(!usa) {
if(getstr(useron.phone,LEN_PHONE
,K_UPPER|K_LINE|(cfg.uq&UQ_NOEXASC)|K_EDIT|K_AUTODEL)<5)
continue;
}
else {
if(gettmplt(useron.phone,cfg.sys_phonefmt
,K_LINE|(cfg.uq&UQ_NOEXASC)|K_EDIT)<strlen(cfg.sys_phonefmt))
continue;
}
if(!trashcan(useron.phone,"phone"))
break;
}
}
if(!online) return(FALSE);
if(cfg.uq&UQ_SEX) {
bputs(text[EnterYourSex]);
useron.sex=(char)getkeys("MF",0);
}
while((cfg.uq&UQ_BIRTH) && online) {
bprintf(text[EnterYourBirthday]
,cfg.sys_misc&SM_EURODATE ? "DD/MM/YY" : "MM/DD/YY");
if(gettmplt(useron.birth,"nn/nn/nn",K_EDIT)==8 && getage(&cfg,useron.birth))
break;
}
if(!online) return(FALSE);
while(!(cfg.uq&UQ_NONETMAIL) && online) {
bputs(text[EnterNetMailAddress]);
if(getstr(useron.netmail,LEN_NETMAIL,K_EDIT|K_AUTODEL|K_LINE)
&& !trashcan(useron.netmail,"email"))
break;
}
if(useron.netmail[0] && cfg.sys_misc&SM_FWDTONET && text[ForwardMailQ][0] && yesno(text[ForwardMailQ]))
useron.misc|=NETMAIL;
else
useron.misc&=~NETMAIL;
if(text[UserInfoCorrectQ][0]==0 || yesno(text[UserInfoCorrectQ]))
break;
}
if(!online) return(FALSE);
SAFEPRINTF(str,"New user: %s",useron.alias);
logline("N",str);
if(!online) return(FALSE);
CLS;
SAFEPRINTF(str,"%ssbbs.msg",cfg.text_dir);
printfile(str,P_NOABORT);
if(lncntr)
pause();
CLS;
SAFEPRINTF(str,"%ssystem.msg",cfg.text_dir);
printfile(str,P_NOABORT);
if(lncntr)
pause();
CLS;
SAFEPRINTF(str,"%snewuser.msg",cfg.text_dir);
printfile(str,P_NOABORT);
if(lncntr)
pause();
CLS;
answertime=time(NULL); /* could take 10 minutes to get this far */
/* Default editor (moved here, after terminal type setup Jan-2003) */
for(i=0;i<cfg.total_xedits;i++)
if(!stricmp(cfg.xedit[i]->code,cfg.new_xedit) && chk_ar(cfg.xedit[i]->ar,&useron,&client))
break;
if(i<cfg.total_xedits)
useron.xedit=i+1;
if(cfg.total_xedits && (cfg.uq&UQ_XEDIT) && text[UseExternalEditorQ][0]) {
if(yesno(text[UseExternalEditorQ])) {
for(i=0;i<cfg.total_xedits;i++)
uselect(1,i,text[ExternalEditorHeading],cfg.xedit[i]->name,cfg.xedit[i]->ar);
if((int)(i=uselect(0,useron.xedit ? useron.xedit-1 : 0,0,0,0))>=0)
useron.xedit=i+1;
} else
useron.xedit=0;
}
if(cfg.total_shells>1 && (cfg.uq&UQ_CMDSHELL)) {
for(i=0;i<cfg.total_shells;i++)
uselect(1,i,text[CommandShellHeading],cfg.shell[i]->name,cfg.shell[i]->ar);
if((int)(i=uselect(0,useron.shell,0,0,0))>=0)
useron.shell=i;
}
if(rlogin_pass[0] && chkpass(rlogin_pass,&useron,true)) {
CRLF;
SAFECOPY(useron.pass, rlogin_pass);
strupr(useron.pass); /* passwords are case insensitive, but assumed (in some places) to be uppercase in the user database */
}
else {
c=0;
while(c<LEN_PASS) { /* Create random password */
useron.pass[c]=sbbs_random(43)+'0';
if(isalnum(useron.pass[c]))
c++;
}
useron.pass[c]=0;
bprintf(text[YourPasswordIs],useron.pass);
if(cfg.sys_misc&SM_PWEDIT && text[NewPasswordQ][0] && yesno(text[NewPasswordQ]))
while(online) {
bputs(text[NewPassword]);
getstr(str,LEN_PASS,K_UPPER|K_LINE);
truncsp(str);
if(chkpass(str,&useron,true)) {
SAFECOPY(useron.pass,str);
CRLF;
bprintf(text[YourPasswordIs],useron.pass);
break;
}
CRLF;
}
c=0;
while(online) {
bprintf(text[NewUserPasswordVerify]);
console|=CON_R_ECHOX;
str[0]=0;
getstr(str,LEN_PASS*2,K_UPPER);
console&=~(CON_R_ECHOX|CON_L_ECHOX);
if(!strcmp(str,useron.pass)) break;
if(cfg.sys_misc&SM_ECHO_PW)
SAFEPRINTF3(tmp,"%s FAILED Password verification: '%s' instead of '%s'"
,useron.alias
,str
,useron.pass);
else
SAFEPRINTF(tmp,"%s FAILED Password verification"
,useron.alias);
logline(LOG_NOTICE,nulstr,tmp);
if(++c==4) {
logline(LOG_NOTICE,"N!","Couldn't figure out password.");
hangup();
}
bputs(text[IncorrectPassword]);
bprintf(text[YourPasswordIs],useron.pass);
}
}
if(!online) return(FALSE);
if(cfg.new_magic[0]) {
bputs(text[MagicWordPrompt]);
str[0]=0;
getstr(str,50,K_UPPER);
if(strcmp(str,cfg.new_magic)) {
bputs(text[FailedMagicWord]);
SAFEPRINTF2(tmp,"%s failed magic word: '%s'",useron.alias,str);
logline("N!",tmp);
hangup();
}
if(!online) return(FALSE);
}
bputs(text[CheckingSlots]);
if((i=newuserdat(&cfg,&useron))!=0) {
SAFEPRINTF(str,"user record #%u",useron.number);
errormsg(WHERE,ERR_CREATE,str,i);
hangup();
return(FALSE);
}
SAFEPRINTF2(str,"Created user record #%u: %s",useron.number,useron.alias);
logline(nulstr,str);
if(cfg.new_sif[0]) {
SAFEPRINTF2(str,"%suser/%4.4u.dat",cfg.data_dir,useron.number);
create_sif_dat(cfg.new_sif,str);
}
if(!(cfg.uq&UQ_NODEF))
maindflts(&useron);
delallmail(useron.number, MAIL_ANY);
if(useron.number!=1 && cfg.node_valuser) {
SAFEPRINTF(str,"%sfeedback.msg",cfg.text_dir);
CLS;
printfile(str,P_NOABORT);
safe_snprintf(str,sizeof(str),text[NewUserFeedbackHdr]
,nulstr,getage(&cfg,useron.birth),useron.sex,useron.birth
,useron.name,useron.phone,useron.comp,useron.modem);
email(cfg.node_valuser,str,"New User Validation",WM_EMAIL|WM_SUBJ_RO|WM_FORCEFWD);
if(!useron.fbacks && !useron.emails) {
if(online) { /* didn't hang up */
bprintf(text[NoFeedbackWarning],username(&cfg,cfg.node_valuser,tmp));
email(cfg.node_valuser,str,"New User Validation",WM_EMAIL|WM_SUBJ_RO|WM_FORCEFWD);
} /* give 'em a 2nd try */
if(!useron.fbacks && !useron.emails) {
bprintf(text[NoFeedbackWarning],username(&cfg,cfg.node_valuser,tmp));
logline(LOG_NOTICE,"N!","Aborted feedback");
hangup();
putuserrec(&cfg,useron.number,U_COMMENT,60,"Didn't leave feedback");
putuserrec(&cfg,useron.number,U_MISC,8
,ultoa(useron.misc|DELETED,tmp,16));
putusername(&cfg,useron.number,nulstr);
return(FALSE);
}
}
}
answertime=starttime=time(NULL); /* set answertime to now */
#ifdef JAVASCRIPT
js_create_user_objects();
#endif
if(cfg.newuser_mod[0])
exec_bin(cfg.newuser_mod,&main_csi);
user_event(EVENT_NEWUSER);
getuserdat(&cfg,&useron); // In case event(s) modified user data
logline("N+","Successful new user logon");
sys_status|=SS_NEWUSER;
return(TRUE);
}
char* replace_named_values(const char* src
,char* buf
,size_t buflen /* includes '\0' terminator */
,char* escape_seq
,named_string_t* string_list
,named_int_t* int_list
,BOOL case_sensitive)
{
char val[32];
size_t i;
size_t esc_len=0;
size_t name_len;
size_t value_len;
char* p = buf;
int (*cmp)(const char*, const char*, size_t);
if(case_sensitive)
cmp=strncmp;
else
cmp=strnicmp;
if(escape_seq!=NULL)
esc_len = strlen(escape_seq);
while(*src && (size_t)(p-buf) < buflen-1) {
if(esc_len) {
if(cmp(src, escape_seq, esc_len)!=0) {
*p++ = *src++;
continue;
}
src += esc_len; /* skip the escape seq */
}
if(string_list) {
for(i=0; string_list[i].name!=NULL /* terminator */; i++) {
name_len = strlen(string_list[i].name);
if(cmp(src, string_list[i].name, name_len)==0) {
value_len = strlen(string_list[i].value);
if((p-buf)+value_len > buflen-1) /* buffer overflow? */
value_len = (buflen-1)-(p-buf); /* truncate value */
memcpy(p, string_list[i].value, value_len);
p += value_len;
src += name_len;
break;
}
}
if(string_list[i].name!=NULL) /* variable match */
continue;
}
if(int_list) {
for(i=0; int_list[i].name!=NULL /* terminator */; i++) {
name_len = strlen(int_list[i].name);
if(cmp(src, int_list[i].name, name_len)==0) {
SAFEPRINTF(val,"%d",int_list[i].value);
value_len = strlen(val);
if((p-buf)+value_len > buflen-1) /* buffer overflow? */
value_len = (buflen-1)-(p-buf); /* truncate value */
memcpy(p, val, value_len);
p += value_len;
src += name_len;
break;
}
}
if(int_list[i].name!=NULL) /* variable match */
continue;
}
*p++ = *src++;
}
*p=0; /* terminate string in destination buffer */
return(buf);
}
void node_menu()
{
char str[81],savnode=0;
int i,j;
static int node_menu_dflt, node_bar;
while(1) {
for(i=0;i<cfg.sys_nodes;i++)
sprintf(opt[i],"Node %d",i+1);
opt[i][0]=0;
j=WIN_ORG|WIN_ACT|WIN_INSACT|WIN_DELACT;
if(cfg.sys_nodes>1)
j|=WIN_DEL|WIN_GET;
if(cfg.sys_nodes<MAX_NODES && cfg.sys_nodes<MAX_OPTS)
j|=WIN_INS;
if(savnode)
j|=WIN_PUT;
uifc.helpbuf=
"Node List:\n"
"\n"
"This is the list of configured nodes in your system.\n"
"\n"
"To add a node, hit INS .\n"
"\n"
"To delete a node, hit DEL .\n"
"\n"
"To configure a node, select it using the arrow keys and hit ENTER .\n"
"\n"
"To copy a node's configuration to another node, first select the source\n"
"node with the arrow keys and hit F5 . Then select the destination\n"
"node and hit F6 .\n"
;
i=uifc.list(j,0,0,13,&node_menu_dflt,&node_bar,"Nodes",opt);
if(i==-1) {
if(savnode) {
free_node_cfg(&cfg);
savnode=0; }
return; }
if((i&MSK_ON)==MSK_DEL) {
strcpy(opt[0],"Yes");
strcpy(opt[1],"No");
opt[2][0]=0;
sprintf(str,"Delete Node %d",cfg.sys_nodes);
i=1;
uifc.helpbuf=
"Delete Node:\n"
"\n"
"If you are positive you want to delete this node, select Yes. Otherwise,\n"
"select No or hit ESC .\n"
;
i=uifc.list(WIN_MID,0,0,0,&i,0,str,opt);
if(!i) {
--cfg.sys_nodes;
/* free(cfg.node_path[cfg.sys_nodes]); */
cfg.new_install=new_install;
write_main_cfg(&cfg,backup_level);
refresh_cfg(&cfg);
}
continue; }
if((i&MSK_ON)==MSK_INS) {
strcpy(cfg.node_dir,cfg.node_path[cfg.sys_nodes-1]);
i=cfg.sys_nodes+1;
uifc.pop("Reading NODE.CNF...");
read_node_cfg(&cfg,error);
uifc.pop(0);
sprintf(str,"../node%d/",i);
sprintf(tmp,"Node %d Path",i);
uifc.helpbuf=
"Node Path:\n"
"\n"
"This is the path to this node's private directory where its separate\n"
"configuration and data files are stored.\n"
"\n"
"The drive and directory of this path can be set to any valid DOS\n"
"directory that can be accessed by ALL nodes and MUST NOT be on a RAM disk\n"
"or other volatile media.\n"
"\n"
"If you want to abort the creation of this new node, hit ESC .\n"
;
j=uifc.input(WIN_MID,0,0,tmp,str,50,K_EDIT);
uifc.changes=0;
if(j<2)
continue;
truncsp(str);
strcpy(cfg.node_path[i-1],str);
if(str[strlen(str)-1]=='\\' || str[strlen(str)-1]=='/')
str[strlen(str)-1]=0;
MKDIR(str);
cfg.node_num=++cfg.sys_nodes;
SAFEPRINTF(cfg.node_name,"Node %u",cfg.node_num);
SAFECOPY(cfg.node_phone,"N/A");
cfg.new_install=new_install;
write_node_cfg(&cfg,backup_level);
write_main_cfg(&cfg,backup_level);
free_node_cfg(&cfg);
refresh_cfg(&cfg);
continue;
}
if((i&MSK_ON)==MSK_GET) {
if(savnode)
free_node_cfg(&cfg);
i&=MSK_OFF;
strcpy(cfg.node_dir,cfg.node_path[i]);
uifc.pop("Reading NODE.CNF...");
read_node_cfg(&cfg,error);
uifc.pop(0);
savnode=1;
continue; }
if((i&MSK_ON)==MSK_PUT) {
i&=MSK_OFF;
strcpy(cfg.node_dir,cfg.node_path[i]);
cfg.node_num=i+1;
write_node_cfg(&cfg,backup_level);
refresh_cfg(&cfg);
uifc.changes=1;
continue;
}
if(savnode) {
free_node_cfg(&cfg);
savnode=0; }
strcpy(cfg.node_dir,cfg.node_path[i]);
prep_dir(cfg.ctrl_dir, cfg.node_dir, sizeof(cfg.node_dir));
uifc.pop("Reading NODE.CNF...");
read_node_cfg(&cfg,error);
uifc.pop(0);
if(cfg.node_num!=i+1) { /* Node number isn't right? */
cfg.node_num=i+1; /* so fix it */
write_node_cfg(&cfg,backup_level); } /* and write it back */
node_cfg();
free_node_cfg(&cfg); }
}
void sub_cfg(uint grpnum)
{
static int dflt,tog_dflt,opt_dflt,net_dflt,adv_dflt,bar;
char str[128],str2[128],done=0,code[128];
char path[MAX_PATH+1];
char data_dir[MAX_PATH+1];
int j,m,n,ptridx,q,s;
uint i,subnum[MAX_OPTS+1];
static sub_t savsub;
while(1) {
for(i=0,j=0;i<cfg.total_subs && j<MAX_OPTS;i++)
if(cfg.sub[i]->grp==grpnum) {
subnum[j]=i;
if(cfg.sub[subnum[0]]->qwkconf)
sprintf(opt[j],"%-5u %s"
,cfg.sub[i]->qwkconf,cfg.sub[i]->lname);
else
sprintf(opt[j],"%s"
,cfg.sub[i]->lname);
j++; }
subnum[j]=cfg.total_subs;
opt[j][0]=0;
sprintf(str,"%s Sub-boards",cfg.grp[grpnum]->sname);
i=WIN_SAV|WIN_ACT;
if(j)
i|=WIN_DEL|WIN_GET|WIN_DELACT;
if(j<MAX_OPTS)
i|=WIN_INS|WIN_XTR|WIN_INSACT;
if(savsub.sname[0])
i|=WIN_PUT;
uifc.helpbuf=
"`Message Sub-boards:`\n"
"\n"
"This is a list of message sub-boards that have been configured for the\n"
"selected message group.\n"
"\n"
"To add a sub-board, select the desired position with the arrow keys and\n"
"hit ~ INS ~.\n"
"\n"
"To delete a sub-board, select it with the arrow keys and hit ~ DEL ~.\n"
"\n"
"To configure a sub-board, select it with the arrow keys and hit ~ ENTER ~.\n"
;
i=uifc.list(i,24,1,LEN_SLNAME+5,&dflt,&bar,str,opt);
if((signed)i==-1)
return;
if((i&MSK_ON)==MSK_INS) {
i&=MSK_OFF;
strcpy(str,"General");
uifc.helpbuf=
"`Sub-board Long Name:`\n"
"\n"
"This is a description of the message sub-board which is displayed in all\n"
"sub-board listings.\n"
;
if(uifc.input(WIN_MID|WIN_SAV,0,0,"Sub-board Long Name",str,LEN_SLNAME
,K_EDIT)<1)
continue;
sprintf(str2,"%.*s",LEN_SSNAME,str);
uifc.helpbuf=
"`Sub-board Short Name:`\n"
"\n"
"This is a short description of the message sub-board which is displayed\n"
"at the main and reading messages prompts.\n"
;
if(uifc.input(WIN_MID|WIN_SAV,0,0,"Sub-board Short Name",str2,LEN_SSNAME
,K_EDIT)<1)
continue;
#if 0
sprintf(str3,"%.10s",str2);
uifc.helpbuf=
"`Sub-board QWK Name:`\n"
"\n"
"This is the name of the sub-board used for QWK off-line readers.\n"
;
if(uifc.input(WIN_MID|WIN_SAV,0,0,"Sub-board QWK Name",str3,10
,K_EDIT)<1)
continue;
#endif
SAFECOPY(code,str2);
prep_code(code,/* prefix: */NULL);
uifc.helpbuf=
"`Sub-board Internal Code Suffix:`\n"
"\n"
"Every sub-board must have its own unique code for Synchronet to refer to\n"
"it internally. This code should be descriptive of the sub-board's topic,\n"
"usually an abreviation of the sub-board's name.\n"
"\n"
"`Note:` The internal code is constructed from the message group's code\n"
"prefix (if present) and the sub-board's code suffix.\n"
;
if(uifc.input(WIN_MID|WIN_SAV,0,0,"Sub-board Internal Code Suffix",code,LEN_CODE
,K_EDIT|K_UPPER)<1)
continue;
if(!code_ok(code)) {
uifc.helpbuf=invalid_code;
uifc.msg("Invalid Code");
uifc.helpbuf=0;
continue;
}
if((cfg.sub=(sub_t **)realloc(cfg.sub,sizeof(sub_t *)*(cfg.total_subs+1)))==NULL) {
errormsg(WHERE,ERR_ALLOC,nulstr,cfg.total_subs+1);
cfg.total_subs=0;
bail(1);
continue; }
for(ptridx=0;ptridx<USHRT_MAX;ptridx++) { /* Search for unused pointer indx */
for(n=0;n<cfg.total_subs;n++)
if(cfg.sub[n]->ptridx==ptridx)
break;
if(n==cfg.total_subs)
break; }
if(j) {
for(n=cfg.total_subs;n>subnum[i];n--)
cfg.sub[n]=cfg.sub[n-1];
for(q=0;q<cfg.total_qhubs;q++)
for(s=0;s<cfg.qhub[q]->subs;s++)
if(cfg.qhub[q]->sub[s]>=subnum[i])
cfg.qhub[q]->sub[s]++; }
if((cfg.sub[subnum[i]]=(sub_t *)malloc(sizeof(sub_t)))==NULL) {
errormsg(WHERE,ERR_ALLOC,nulstr,sizeof(sub_t));
continue; }
memset((sub_t *)cfg.sub[subnum[i]],0,sizeof(sub_t));
cfg.sub[subnum[i]]->grp=grpnum;
if(cfg.total_faddrs)
cfg.sub[subnum[i]]->faddr=cfg.faddr[0];
else
memset(&cfg.sub[subnum[i]]->faddr,0,sizeof(faddr_t));
cfg.sub[subnum[i]]->maxmsgs=500;
strcpy(cfg.sub[subnum[i]]->code_suffix,code);
strcpy(cfg.sub[subnum[i]]->lname,str);
strcpy(cfg.sub[subnum[i]]->sname,str2);
strcpy(cfg.sub[subnum[i]]->qwkname,code);
if(strchr(str,'.') && strchr(str,' ')==NULL)
strcpy(cfg.sub[subnum[i]]->newsgroup,str);
cfg.sub[subnum[i]]->misc=(SUB_NSDEF|SUB_SSDEF|SUB_QUOTE|SUB_TOUSER
|SUB_HDRMOD|SUB_FAST);
cfg.sub[subnum[i]]->ptridx=ptridx;
cfg.total_subs++;
uifc.changes=1;
continue; }
if((i&MSK_ON)==MSK_DEL) {
i&=MSK_OFF;
uifc.helpbuf=
"`Delete Data in Sub-board:`\n"
"\n"
"If you want to delete all the messages for this sub-board, select `Yes`.\n"
;
j=1;
strcpy(opt[0],"Yes");
strcpy(opt[1],"No");
opt[2][0]=0;
SAFEPRINTF2(str,"%s%s.*"
,cfg.grp[cfg.sub[subnum[i]]->grp]->code_prefix
,cfg.sub[subnum[i]]->code_suffix);
strlwr(str);
if(!cfg.sub[subnum[i]]->data_dir[0])
SAFEPRINTF(data_dir,"%ssubs/",cfg.data_dir);
else
SAFECOPY(data_dir,cfg.sub[subnum[i]]->data_dir);
SAFEPRINTF2(path,"%s%s",data_dir,str);
if(fexist(path)) {
SAFEPRINTF(str2,"Delete %s",path);
j=uifc.list(WIN_MID|WIN_SAV,0,0,0,&j,0
,str2,opt);
if(j==-1)
continue;
if(j==0) {
delfiles(data_dir,str);
clearptrs(subnum[i]);
}
}
free(cfg.sub[subnum[i]]);
cfg.total_subs--;
for(j=subnum[i];j<cfg.total_subs;j++)
cfg.sub[j]=cfg.sub[j+1];
for(q=0;q<cfg.total_qhubs;q++)
for(s=0;s<cfg.qhub[q]->subs;s++) {
if(cfg.qhub[q]->sub[s]==subnum[i])
cfg.qhub[q]->sub[s]=INVALID_SUB;
else if(cfg.qhub[q]->sub[s]>subnum[i])
cfg.qhub[q]->sub[s]--; }
uifc.changes=1;
continue; }
if((i&MSK_ON)==MSK_GET) {
i&=MSK_OFF;
savsub=*cfg.sub[subnum[i]];
continue; }
if((i&MSK_ON)==MSK_PUT) {
i&=MSK_OFF;
ptridx=cfg.sub[subnum[i]]->ptridx;
*cfg.sub[subnum[i]]=savsub;
cfg.sub[subnum[i]]->ptridx=ptridx;
cfg.sub[subnum[i]]->grp=grpnum;
uifc.changes=1;
continue; }
i=subnum[i];
j=0;
done=0;
while(!done) {
n=0;
sprintf(opt[n++],"%-27.27s%s","Long Name",cfg.sub[i]->lname);
sprintf(opt[n++],"%-27.27s%s","Short Name",cfg.sub[i]->sname);
sprintf(opt[n++],"%-27.27s%s","QWK Name",cfg.sub[i]->qwkname);
sprintf(opt[n++],"%-27.27s%s%s","Internal Code"
,cfg.grp[cfg.sub[i]->grp]->code_prefix, cfg.sub[i]->code_suffix);
sprintf(opt[n++],"%-27.27s%s","Newsgroup Name",cfg.sub[i]->newsgroup);
sprintf(opt[n++],"%-27.27s%.40s","Access Requirements"
,cfg.sub[i]->arstr);
sprintf(opt[n++],"%-27.27s%.40s","Reading Requirements"
,cfg.sub[i]->read_arstr);
sprintf(opt[n++],"%-27.27s%.40s","Posting Requirements"
,cfg.sub[i]->post_arstr);
sprintf(opt[n++],"%-27.27s%.40s","Operator Requirements"
,cfg.sub[i]->op_arstr);
sprintf(opt[n++],"%-27.27s%.40s","Moderated Posting User"
,cfg.sub[i]->mod_arstr);
sprintf(opt[n++],"%-27.27s%"PRIu32,"Maximum Messages"
,cfg.sub[i]->maxmsgs);
if(cfg.sub[i]->maxage)
sprintf(str,"Enabled (%u days old)",cfg.sub[i]->maxage);
else
strcpy(str,"Disabled");
sprintf(opt[n++],"%-27.27s%s","Purge by Age",str);
if(cfg.sub[i]->maxcrcs)
sprintf(str,"Enabled (%"PRIu32" message CRCs)",cfg.sub[i]->maxcrcs);
else
strcpy(str,"Disabled");
sprintf(opt[n++],"%-27.27s%s","Duplicate Checking",str);
strcpy(opt[n++],"Toggle Options...");
strcpy(opt[n++],"Network Options...");
strcpy(opt[n++],"Advanced Options...");
opt[n][0]=0;
sprintf(str,"%s Sub-board",cfg.sub[i]->sname);
uifc.helpbuf=
"`Sub-board Configuration:`\n"
"\n"
"This menu allows you to configure the individual selected sub-board.\n"
"Options with a trailing `...` provide a sub-menu of more options.\n"
;
switch(uifc.list(WIN_ACT|WIN_SAV|WIN_RHT|WIN_BOT
,0,0,60,&opt_dflt,0,str,opt)) {
case -1:
done=1;
break;
case 0:
uifc.helpbuf=
"`Sub-board Long Name:`\n"
"\n"
"This is a description of the message sub-board which is displayed in all\n"
"sub-board listings.\n"
;
strcpy(str,cfg.sub[i]->lname); /* save */
if(!uifc.input(WIN_MID|WIN_SAV,0,17,"Name to use for Listings"
,cfg.sub[i]->lname,LEN_SLNAME,K_EDIT))
strcpy(cfg.sub[i]->lname,str); /* restore */
break;
case 1:
uifc.helpbuf=
"`Sub-board Short Name:`\n"
"\n"
"This is a short description of the message sub-board which is displayed\n"
"at the main and reading messages prompts.\n"
;
uifc.input(WIN_MID|WIN_SAV,0,17,"Name to use for Prompts"
,cfg.sub[i]->sname,LEN_SSNAME,K_EDIT);
break;
case 2:
uifc.helpbuf=
"`Sub-board QWK Name:`\n"
"\n"
"This is the name of the sub-board used for QWK off-line readers.\n"
;
uifc.input(WIN_MID|WIN_SAV,0,17,"Name to use for QWK Packets"
,cfg.sub[i]->qwkname,10,K_EDIT);
break;
case 3:
uifc.helpbuf=
"`Sub-board Internal Code Suffix:`\n"
"\n"
"Every sub-board must have its own unique code for Synchronet to refer\n"
"to it internally. This code should be descriptive of the sub-board's\n"
"topic, usually an abreviation of the sub-board's name.\n"
"\n"
"`Note:` The internal code displayed is the complete internal code\n"
"constructed from the message group's code prefix and the sub-board's\n"
"code suffix.\n"
;
strcpy(str,cfg.sub[i]->code_suffix);
uifc.input(WIN_MID|WIN_SAV,0,17,"Internal Code Suffix (unique)"
,str,LEN_CODE,K_EDIT|K_UPPER);
if(code_ok(str))
strcpy(cfg.sub[i]->code_suffix,str);
else {
uifc.helpbuf=invalid_code;
uifc.msg("Invalid Code");
uifc.helpbuf=0;
}
break;
case 4:
uifc.helpbuf=
"Newsgroup Name:\n"
"\n"
"This is the name of the sub-board used for newsgroup readers. If no name\n"
"is configured here, a name will be automatically generated from the\n"
"sub-board's name and group name.\n"
;
uifc.input(WIN_MID|WIN_SAV,0,17,""
,cfg.sub[i]->newsgroup,sizeof(cfg.sub[i]->newsgroup)-1,K_EDIT);
break;
case 5:
sprintf(str,"%s Access",cfg.sub[i]->sname);
getar(str,cfg.sub[i]->arstr);
break;
case 6:
sprintf(str,"%s Reading",cfg.sub[i]->sname);
getar(str,cfg.sub[i]->read_arstr);
break;
case 7:
sprintf(str,"%s Posting",cfg.sub[i]->sname);
getar(str,cfg.sub[i]->post_arstr);
break;
case 8:
sprintf(str,"%s Operator",cfg.sub[i]->sname);
getar(str,cfg.sub[i]->op_arstr);
break;
case 9:
sprintf(str,"%s Moderated Posting User",cfg.sub[i]->sname);
getar(str,cfg.sub[i]->mod_arstr);
break;
case 10:
sprintf(str,"%"PRIu32,cfg.sub[i]->maxmsgs);
uifc.helpbuf=
"`Maximum Number of Messages:`\n"
"\n"
"This value is the maximum number of messages that will be kept in the\n"
"sub-board. Once this maximum number of messages is reached, the oldest\n"
"messages will be automatically purged. Usually, 100 messages is a\n"
"sufficient maximum.\n"
;
uifc.input(WIN_MID|WIN_SAV,0,17,"Maximum Number of Messages"
,str,9,K_EDIT|K_NUMBER);
cfg.sub[i]->maxmsgs=atoi(str);
cfg.sub[i]->misc|=SUB_HDRMOD;
break;
case 11:
sprintf(str,"%u",cfg.sub[i]->maxage);
uifc.helpbuf=
"`Maximum Age of Messages:`\n"
"\n"
"This value is the maximum number of days that messages will be kept in\n"
"the sub-board.\n"
;
uifc.input(WIN_MID|WIN_SAV,0,17,"Maximum Age of Messages (in days)"
,str,5,K_EDIT|K_NUMBER);
cfg.sub[i]->maxage=atoi(str);
cfg.sub[i]->misc|=SUB_HDRMOD;
break;
case 12:
sprintf(str,"%"PRIu32,cfg.sub[i]->maxcrcs);
uifc.helpbuf=
"`Maximum Number of CRCs:`\n"
"\n"
"This value is the maximum number of CRCs that will be kept in the\n"
"sub-board for duplicate message checking. Once this maximum number of\n"
"CRCs is reached, the oldest CRCs will be automatically purged.\n"
;
uifc.input(WIN_MID|WIN_SAV,0,17,"Maximum Number of CRCs"
,str,9,K_EDIT|K_NUMBER);
cfg.sub[i]->maxcrcs=atol(str);
cfg.sub[i]->misc|=SUB_HDRMOD;
break;
case 13:
while(1) {
n=0;
sprintf(opt[n++],"%-27.27s%s","Allow Private Posts"
,cfg.sub[i]->misc&SUB_PRIV ? cfg.sub[i]->misc&SUB_PONLY
? "Only":"Yes":"No");
sprintf(opt[n++],"%-27.27s%s","Allow Anonymous Posts"
,cfg.sub[i]->misc&SUB_ANON ? cfg.sub[i]->misc&SUB_AONLY
? "Only":"Yes":"No");
sprintf(opt[n++],"%-27.27s%s","Post Using Real Names"
,cfg.sub[i]->misc&SUB_NAME ? "Yes":"No");
sprintf(opt[n++],"%-27.27s%s","Users Can Edit Posts"
,cfg.sub[i]->misc&SUB_EDIT ? cfg.sub[i]->misc&SUB_EDITLAST
? "Last" : "Yes" : "No");
sprintf(opt[n++],"%-27.27s%s","Users Can Delete Posts"
,cfg.sub[i]->misc&SUB_DEL ? cfg.sub[i]->misc&SUB_DELLAST
? "Last" : "Yes" : "No");
sprintf(opt[n++],"%-27.27s%s","Default On for New Scan"
,cfg.sub[i]->misc&SUB_NSDEF ? "Yes":"No");
sprintf(opt[n++],"%-27.27s%s","Forced On for New Scan"
,cfg.sub[i]->misc&SUB_FORCED ? "Yes":"No");
sprintf(opt[n++],"%-27.27s%s","Default On for Your Scan"
,cfg.sub[i]->misc&SUB_SSDEF ? "Yes":"No");
sprintf(opt[n++],"%-27.27s%s","Public 'To' User"
,cfg.sub[i]->misc&SUB_TOUSER ? "Yes":"No");
sprintf(opt[n++],"%-27.27s%s","Allow Message Quoting"
,cfg.sub[i]->misc&SUB_QUOTE ? "Yes":"No");
sprintf(opt[n++],"%-27.27s%s","Suppress User Signatures"
,cfg.sub[i]->misc&SUB_NOUSERSIG ? "Yes":"No");
sprintf(opt[n++],"%-27.27s%s","Permanent Operator Msgs"
,cfg.sub[i]->misc&SUB_SYSPERM ? "Yes":"No");
sprintf(opt[n++],"%-27.27s%s","Kill Read Messages"
,cfg.sub[i]->misc&SUB_KILL ? "Yes"
: (cfg.sub[i]->misc&SUB_KILLP ? "Pvt" : "No"));
sprintf(opt[n++],"%-27.27s%s","Compress Messages (LZH)"
,cfg.sub[i]->misc&SUB_LZH ? "Yes" : "No");
opt[n][0]=0;
uifc.helpbuf=
"`Sub-board Toggle Options:`\n"
"\n"
"This menu allows you to toggle certain options for the selected\n"
"sub-board between two or more settings, such as `Yes` and `No`.\n"
;
n=uifc.list(WIN_ACT|WIN_SAV|WIN_RHT|WIN_BOT,3,2,36,&tog_dflt,0
,"Toggle Options",opt);
if(n==-1)
break;
switch(n) {
case 0:
if(cfg.sub[i]->misc&SUB_PONLY)
n=2;
else
n=(cfg.sub[i]->misc&SUB_PRIV) ? 0:1;
strcpy(opt[0],"Yes");
strcpy(opt[1],"No");
strcpy(opt[2],"Only");
opt[3][0]=0;
uifc.helpbuf=
"`Allow Private Posts on Sub-board:`\n"
"\n"
"If you want users to be able to post private messages to other users\n"
"on this sub-board, set this value to `Yes`. Usually, E-mail is the\n"
"preferred method of private communication. If you want users to be able\n"
"to post private messages only on this sub-board, select `Only`.\n"
;
n=uifc.list(WIN_SAV|WIN_MID,0,0,0,&n,0
,"Allow Private Posts",opt);
if(n==-1)
break;
if(!n && (cfg.sub[i]->misc&(SUB_PRIV|SUB_PONLY))
!=SUB_PRIV) {
uifc.changes=1;
cfg.sub[i]->misc&=~SUB_PONLY;
cfg.sub[i]->misc|=SUB_PRIV;
break; }
if(n==1 && cfg.sub[i]->misc&SUB_PRIV) {
uifc.changes=1;
cfg.sub[i]->misc&=~SUB_PRIV;
break; }
if(n==2 && (cfg.sub[i]->misc&(SUB_PRIV|SUB_PONLY))
!=(SUB_PRIV|SUB_PONLY)) {
uifc.changes=1;
cfg.sub[i]->misc|=(SUB_PRIV|SUB_PONLY); }
break;
case 1:
if(cfg.sub[i]->misc&SUB_AONLY)
n=2;
else
n=(cfg.sub[i]->misc&SUB_ANON) ? 0:1;
strcpy(opt[0],"Yes");
strcpy(opt[1],"No");
strcpy(opt[2],"Only");
opt[3][0]=0;
uifc.helpbuf=
"`Allow Anonymous Posts on Sub-board:`\n"
"\n"
"If you want users with the `A` exemption to be able to post anonymously on\n"
"this sub-board, select `Yes`. If you want all posts on this sub-board to be\n"
"forced anonymous, select `Only`. If you do not want anonymous posts allowed\n"
"on this sub-board at all, select `No`.\n"
;
n=uifc.list(WIN_SAV|WIN_MID,0,0,0,&n,0
,"Allow Anonymous Posts",opt);
if(n==-1)
break;
if(!n && (cfg.sub[i]->misc&(SUB_ANON|SUB_AONLY))
!=SUB_ANON) {
uifc.changes=1;
cfg.sub[i]->misc&=~SUB_AONLY;
cfg.sub[i]->misc|=SUB_ANON;
break; }
if(n==1 && cfg.sub[i]->misc&(SUB_ANON|SUB_AONLY)) {
uifc.changes=1;
cfg.sub[i]->misc&=~(SUB_ANON|SUB_AONLY);
break; }
if(n==2 && (cfg.sub[i]->misc&(SUB_ANON|SUB_AONLY))
!=(SUB_ANON|SUB_AONLY)) {
uifc.changes=1;
cfg.sub[i]->misc|=(SUB_ANON|SUB_AONLY); }
break;
case 2:
n=(cfg.sub[i]->misc&SUB_NAME) ? 0:1;
strcpy(opt[0],"Yes");
strcpy(opt[1],"No");
opt[2][0]=0;
uifc.helpbuf=
"`User Real Names in Posts on Sub-board:`\n"
"\n"
"If you allow aliases on your system, you can have messages on this\n"
"sub-board automatically use the real name of the posting user by setting\n"
"this option to `Yes`.\n"
;
n=uifc.list(WIN_SAV|WIN_MID,0,0,0,&n,0
,"Use Real Names in Posts",opt);
if(n==-1)
break;
if(!n && !(cfg.sub[i]->misc&SUB_NAME)) {
uifc.changes=1;
cfg.sub[i]->misc|=SUB_NAME;
break; }
if(n==1 && cfg.sub[i]->misc&SUB_NAME) {
uifc.changes=1;
cfg.sub[i]->misc&=~SUB_NAME; }
break;
case 3:
if(cfg.sub[i]->misc&SUB_EDITLAST)
n=2;
else
n=(cfg.sub[i]->misc&SUB_EDIT) ? 0:1;
strcpy(opt[0],"Yes");
strcpy(opt[1],"No");
strcpy(opt[2],"Last Post Only");
opt[3][0]=0;
uifc.helpbuf=
"`Users Can Edit Posts on Sub-board:`\n"
"\n"
"If you wish to allow users to edit their messages after they have been\n"
"posted, this option to `Yes`. If you wish to allow users to edit only the\n"
"last message on a message base, set this option to `Last Post Only`.\n"
;
n=uifc.list(WIN_SAV|WIN_MID,0,0,0,&n,0
,"Users Can Edit Messages",opt);
if(n==-1)
break;
if(n==0 /* yes */
&& (cfg.sub[i]->misc&(SUB_EDIT|SUB_EDITLAST))
!=SUB_EDIT
) {
uifc.changes=1;
cfg.sub[i]->misc|=SUB_EDIT;
cfg.sub[i]->misc&=~SUB_EDITLAST;
break;
}
if(n==1 /* no */
&& cfg.sub[i]->misc&(SUB_EDIT|SUB_EDITLAST)
) {
uifc.changes=1;
cfg.sub[i]->misc&=~(SUB_EDIT|SUB_EDITLAST);
break;
}
if(n==2 /* last only */
&& (cfg.sub[i]->misc&(SUB_EDIT|SUB_EDITLAST))
!=(SUB_EDIT|SUB_EDITLAST)
) {
uifc.changes=1;
cfg.sub[i]->misc|=(SUB_EDIT|SUB_EDITLAST);
break;
}
break;
case 4:
if(cfg.sub[i]->misc&SUB_DELLAST)
n=2;
else
n=(cfg.sub[i]->misc&SUB_DEL) ? 0:1;
strcpy(opt[0],"Yes");
strcpy(opt[1],"No");
strcpy(opt[2],"Last Post Only");
opt[3][0]=0;
uifc.helpbuf=
"`Users Can Delete Posts on Sub-board:`\n"
"\n"
"If you want users to be able to delete any of their own posts on this\n"
"sub-board, set this option to `Yes`. If you want to allow users the\n"
"ability to delete their message only if it is the last message on the\n"
"sub-board, select `Last Post Only`. If you want to disallow users from\n"
"deleting any of their posts, set this option to `No`.\n"
;
n=uifc.list(WIN_SAV|WIN_MID,0,0,0,&n,0
,"Users Can Delete Posts",opt);
if(n==-1)
break;
if(!n && (cfg.sub[i]->misc&(SUB_DEL|SUB_DELLAST))
!=SUB_DEL) {
uifc.changes=1;
cfg.sub[i]->misc&=~SUB_DELLAST;
cfg.sub[i]->misc|=SUB_DEL;
break;
}
if(n==1 && cfg.sub[i]->misc&SUB_DEL) {
uifc.changes=1;
cfg.sub[i]->misc&=~SUB_DEL;
break;
}
if(n==2 && (cfg.sub[i]->misc&(SUB_DEL|SUB_DELLAST))
!=(SUB_DEL|SUB_DELLAST)) {
uifc.changes=1;
cfg.sub[i]->misc|=(SUB_DEL|SUB_DELLAST);
}
break;
case 5:
n=(cfg.sub[i]->misc&SUB_NSDEF) ? 0:1;
strcpy(opt[0],"Yes");
strcpy(opt[1],"No");
opt[2][0]=0;
uifc.helpbuf=
"`Default On for New Scan:`\n"
"\n"
"If you want this sub-board to be included in all user new message scans\n"
"by default, set this option to `Yes`.\n"
;
n=uifc.list(WIN_SAV|WIN_MID,0,0,0,&n,0
,"Default On for New Scan",opt);
if(n==-1)
break;
if(!n && !(cfg.sub[i]->misc&SUB_NSDEF)) {
uifc.changes=1;
cfg.sub[i]->misc|=SUB_NSDEF;
break; }
if(n==1 && cfg.sub[i]->misc&SUB_NSDEF) {
uifc.changes=1;
cfg.sub[i]->misc&=~SUB_NSDEF; }
break;
case 6:
n=(cfg.sub[i]->misc&SUB_FORCED) ? 0:1;
strcpy(opt[0],"Yes");
strcpy(opt[1],"No");
opt[2][0]=0;
uifc.helpbuf=
"`Forced On for New Scan:`\n"
"\n"
"If you want this sub-board to be included in all user new message scans\n"
"even if the user has removed it from their new scan configuration, set\n"
"this option to `Yes`.\n"
;
n=uifc.list(WIN_SAV|WIN_MID,0,0,0,&n,0
,"Forced New Scan",opt);
if(n==-1)
break;
if(!n && !(cfg.sub[i]->misc&SUB_FORCED)) {
uifc.changes=1;
cfg.sub[i]->misc|=SUB_FORCED;
break; }
if(n==1 && cfg.sub[i]->misc&SUB_FORCED) {
uifc.changes=1;
cfg.sub[i]->misc&=~SUB_FORCED; }
break;
case 7:
n=(cfg.sub[i]->misc&SUB_SSDEF) ? 0:1;
strcpy(opt[0],"Yes");
strcpy(opt[1],"No");
opt[2][0]=0;
uifc.helpbuf=
"`Default On for Your Scan:`\n"
"\n"
"If you want this sub-board to be included in all user personal message\n"
"scans by default, set this option to `Yes`.\n"
;
n=uifc.list(WIN_SAV|WIN_MID,0,0,0,&n,0
,"Default On for Your Scan",opt);
if(n==-1)
break;
if(!n && !(cfg.sub[i]->misc&SUB_SSDEF)) {
uifc.changes=1;
cfg.sub[i]->misc|=SUB_SSDEF;
break; }
if(n==1 && cfg.sub[i]->misc&SUB_SSDEF) {
uifc.changes=1;
cfg.sub[i]->misc&=~SUB_SSDEF; }
break;
case 8:
n=(cfg.sub[i]->misc&SUB_TOUSER) ? 0:1;
strcpy(opt[0],"Yes");
strcpy(opt[1],"No");
opt[2][0]=0;
uifc.helpbuf=
"`Prompt for 'To' User on Public Posts:`\n"
"\n"
"If you want all posts on this sub-board to be prompted for a 'To' user,\n"
"set this option to `Yes`. This is a useful option for sub-boards that\n"
"are on a network that does not allow private posts.\n"
;
n=uifc.list(WIN_SAV|WIN_MID,0,0,0,&n,0
,"Prompt for 'To' User on Public Posts",opt);
if(n==-1)
break;
if(!n && !(cfg.sub[i]->misc&SUB_TOUSER)) {
uifc.changes=1;
cfg.sub[i]->misc|=SUB_TOUSER;
break; }
if(n==1 && cfg.sub[i]->misc&SUB_TOUSER) {
uifc.changes=1;
cfg.sub[i]->misc&=~SUB_TOUSER; }
break;
case 9:
n=(cfg.sub[i]->misc&SUB_QUOTE) ? 0:1;
strcpy(opt[0],"Yes");
strcpy(opt[1],"No");
opt[2][0]=0;
uifc.helpbuf=
"`Allow Message Quoting:`\n"
"\n"
"If you want users to be allowed to quote messages on this sub-board, set\n"
"this option to `Yes`.\n"
;
n=uifc.list(WIN_SAV|WIN_MID,0,0,0,&n,0
,"Allow Message Quoting",opt);
if(n==-1)
break;
if(!n && !(cfg.sub[i]->misc&SUB_QUOTE)) {
uifc.changes=1;
cfg.sub[i]->misc|=SUB_QUOTE;
break; }
if(n==1 && cfg.sub[i]->misc&SUB_QUOTE) {
uifc.changes=1;
cfg.sub[i]->misc&=~SUB_QUOTE; }
break;
case 10:
n=(cfg.sub[i]->misc&SUB_NOUSERSIG) ? 0:1;
strcpy(opt[0],"Yes");
strcpy(opt[1],"No");
opt[2][0]=0;
uifc.helpbuf=
"Suppress User Signatures:\n"
"\n"
"If you do not wish to have user signatures automatically appended to\n"
"messages posted in this sub-board, set this option to Yes.\n"
;
n=uifc.list(WIN_SAV|WIN_MID,0,0,0,&n,0
,"Suppress User Signatures",opt);
if(n==-1)
break;
if(!n && !(cfg.sub[i]->misc&SUB_NOUSERSIG)) {
uifc.changes=1;
cfg.sub[i]->misc|=SUB_NOUSERSIG;
break; }
if(n==1 && cfg.sub[i]->misc&SUB_NOUSERSIG) {
uifc.changes=1;
cfg.sub[i]->misc&=~SUB_NOUSERSIG; }
break;
case 11:
n=(cfg.sub[i]->misc&SUB_SYSPERM) ? 0:1;
strcpy(opt[0],"Yes");
strcpy(opt[1],"No");
opt[2][0]=0;
uifc.helpbuf=
"`Operator Messages Automatically Permanent:`\n"
"\n"
"If you want messages posted by `System` and `Sub-board Operators` to be\n"
"automatically permanent (non-purgable) for this sub-board, set this\n"
"option to `Yes`.\n"
;
n=uifc.list(WIN_SAV|WIN_MID,0,0,0,&n,0
,"Permanent Operator Messages",opt);
if(n==-1)
break;
if(!n && !(cfg.sub[i]->misc&SUB_SYSPERM)) {
uifc.changes=1;
cfg.sub[i]->misc|=SUB_SYSPERM;
break; }
if(n==1 && cfg.sub[i]->misc&SUB_SYSPERM) {
uifc.changes=1;
cfg.sub[i]->misc&=~SUB_SYSPERM; }
break;
case 12:
if(cfg.sub[i]->misc&SUB_KILLP)
n=2;
else
n=(cfg.sub[i]->misc&SUB_KILL) ? 0:1;
strcpy(opt[0],"Yes");
strcpy(opt[1],"No");
strcpy(opt[2],"Private");
opt[3][0]=0;
uifc.helpbuf=
"`Kill Read Messages Automatically:`\n"
"\n"
"If you want messages that have been read by the intended recipient to\n"
"be automatically deleted by `SMBUTIL`, set this option to `Yes` or\n"
"`Private` if you want only private messages to be automatically deleted.\n"
;
n=uifc.list(WIN_SAV|WIN_MID,0,0,0,&n,0
,"Kill Read Messages",opt);
if(n==-1)
break;
if(!n && !(cfg.sub[i]->misc&SUB_KILL)) {
uifc.changes=1;
cfg.sub[i]->misc|=SUB_KILL;
cfg.sub[i]->misc&=~SUB_KILLP;
break; }
if(n==1 && cfg.sub[i]->misc&(SUB_KILL|SUB_KILLP)) {
uifc.changes=1;
cfg.sub[i]->misc&=~(SUB_KILL|SUB_KILLP); }
if(n==2 && !(cfg.sub[i]->misc&SUB_KILLP)) {
uifc.changes=1;
cfg.sub[i]->misc|=SUB_KILLP;
cfg.sub[i]->misc&=~SUB_KILL;
break; }
break;
case 13:
n=(cfg.sub[i]->misc&SUB_LZH) ? 0:1;
strcpy(opt[0],"Yes");
strcpy(opt[1],"No");
opt[2][0]=0;
uifc.helpbuf=
"`Compress Messages with LZH Encoding:`\n"
"\n"
"If you want all messages in this sub-board to be automatically\n"
"compressed via `LZH` (Lempel/Ziv/Huffman algorithm used in LHarc, LHA,\n"
"and other popular compression and archive programs), this option to `Yes`.\n"
"\n"
"Compression will slow down the reading and writing of messages slightly,\n"
"but the storage space saved can be as much as `50 percent`.\n"
"\n"
"Before setting this option to `Yes`, make sure that all of the SMB\n"
"compatible mail programs you use support the `LZH` translation.\n"
;
n=uifc.list(WIN_SAV|WIN_MID,0,0,0,&n,0
,"Compress Messages (LZH)",opt);
if(n==-1)
break;
if(!n && !(cfg.sub[i]->misc&SUB_LZH)) {
uifc.changes=1;
cfg.sub[i]->misc|=SUB_LZH;
break; }
if(n==1 && cfg.sub[i]->misc&SUB_LZH) {
uifc.changes=1;
cfg.sub[i]->misc&=~SUB_LZH; }
break;
} }
break;
case 14:
while(1) {
n=0;
sprintf(opt[n++],"%-27.27s%s","Append Tag/Origin Line"
,cfg.sub[i]->misc&SUB_NOTAG ? "No":"Yes");
sprintf(opt[n++],"%-27.27s%s","Export ASCII Only"
,cfg.sub[i]->misc&SUB_ASCII ? "Yes":"No");
sprintf(opt[n++],"%-27.27s%s","Gate Between Net Types"
,cfg.sub[i]->misc&SUB_GATE ? "Yes":"No");
sprintf(opt[n++],"%-27.27s%s","QWK Networked"
,cfg.sub[i]->misc&SUB_QNET ? "Yes":"No");
sprintf(opt[n++],"QWK Tagline");
sprintf(opt[n++],"%-27.27s%s","Internet (UUCP/NNTP)"
,cfg.sub[i]->misc&SUB_INET ? "Yes":"No");
sprintf(opt[n++],"%-27.27s%s","PostLink or PCRelay"
,cfg.sub[i]->misc&SUB_PNET ? "Yes":"No");
sprintf(opt[n++],"%-27.27s%s","FidoNet EchoMail"
,cfg.sub[i]->misc&SUB_FIDO ? "Yes":"No");
sprintf(opt[n++],"%-27.27s%s","FidoNet Address"
,smb_faddrtoa(&cfg.sub[i]->faddr,tmp));
sprintf(opt[n++],"EchoMail Origin Line");
opt[n][0]=0;
uifc.helpbuf=
"`Sub-board Network Options:`\n"
"\n"
"This menu contains options for the selected sub-board that pertain\n"
"specifically to message networking.\n"
;
n=uifc.list(WIN_ACT|WIN_SAV|WIN_RHT|WIN_BOT,3,2,60,&net_dflt,0
,"Network Options",opt);
if(n==-1)
break;
switch(n) {
case 0:
n=0;
strcpy(opt[0],"Yes");
strcpy(opt[1],"No");
opt[2][0]=0;
uifc.helpbuf=
"`Append Tag/Origin Line to Posts:`\n"
"\n"
"If you want to disable the automatic addition of a network tagline or\n"
"origin line to the bottom of outgoing networked posts from this\n"
"sub-board, set this option to `No`.\n"
;
n=uifc.list(WIN_SAV|WIN_MID,0,0,0,&n,0
,"Append Tag/Origin Line to Posts",opt);
if(n==-1)
break;
if(!n && cfg.sub[i]->misc&SUB_NOTAG) {
uifc.changes=1;
cfg.sub[i]->misc&=~SUB_NOTAG;
break; }
if(n==1 && !(cfg.sub[i]->misc&SUB_NOTAG)) {
uifc.changes=1;
cfg.sub[i]->misc|=SUB_NOTAG; }
break;
case 1:
n=0;
strcpy(opt[0],"Yes");
strcpy(opt[1],"No");
opt[2][0]=0;
uifc.helpbuf=
"`Export ASCII Characters Only:`\n"
"\n"
"If the network that this sub-board is echoed on does not allow extended\n"
"ASCII (>127) or control codes (<20, not including CR), set this option\n"
"to `Yes`.\n"
;
n=uifc.list(WIN_SAV|WIN_MID,0,0,0,&n,0
,"Export ASCII Characters Only",opt);
if(n==-1)
break;
if(n && cfg.sub[i]->misc&SUB_ASCII) {
uifc.changes=1;
cfg.sub[i]->misc&=~SUB_ASCII;
break; }
if(!n && !(cfg.sub[i]->misc&SUB_ASCII)) {
uifc.changes=1;
cfg.sub[i]->misc|=SUB_ASCII; }
break;
case 2:
n=1;
strcpy(opt[0],"Yes");
strcpy(opt[1],"No");
opt[2][0]=0;
uifc.helpbuf=
"`Gate Between Net Types:`\n"
"\n"
"If this sub-board is networked using more than one network technology,\n"
"and you want messages to be `gated` between the networks, set this\n"
"option to `Yes`.\n"
"\n"
"If this option is set to `No`, messages imported from one network type\n"
"will `not` be exported to another network type. This is the default and\n"
"should be used unless you have `specific` permission from both networks\n"
"to gate this sub-board. Incorrectly gated sub-boards can cause duplicate\n"
"messages loops and cross-posted messages.\n"
"\n"
"This option does not affect the exporting of messages created on your\n"
"BBS.\n"
;
n=uifc.list(WIN_SAV|WIN_MID,0,0,0,&n,0
,"Gate Between Net Types",opt);
if(n==-1)
break;
if(!n && !(cfg.sub[i]->misc&SUB_GATE)) {
uifc.changes=1;
cfg.sub[i]->misc|=SUB_GATE;
break; }
if(n==1 && cfg.sub[i]->misc&SUB_GATE) {
uifc.changes=1;
cfg.sub[i]->misc&=~SUB_GATE; }
break;
case 3:
n=1;
strcpy(opt[0],"Yes");
strcpy(opt[1],"No");
opt[2][0]=0;
uifc.helpbuf=
"`Sub-board Networked via QWK Packets:`\n"
"\n"
"If this sub-board is networked with other BBSs via QWK packets, this\n"
"option should be set to `Yes`. With this option set to `Yes`, titles of\n"
"posts on this sub-board will be limited to the QWK packet limitation of\n"
"25 characters. It also allows the `N`etwork restriction to function\n"
"properly.\n"
;
n=uifc.list(WIN_SAV|WIN_MID,0,0,0,&n,0
,"Networked via QWK Packets",opt);
if(n==-1)
break;
if(!n && !(cfg.sub[i]->misc&SUB_QNET)) {
uifc.changes=1;
cfg.sub[i]->misc|=SUB_QNET;
break; }
if(n==1 && cfg.sub[i]->misc&SUB_QNET) {
uifc.changes=1;
cfg.sub[i]->misc&=~SUB_QNET; }
break;
case 4:
uifc.helpbuf=
"`Sub-board QWK Network Tagline:`\n"
"\n"
"If you want to use a different QWK tagline than the configured default\n"
"tagline in the `Networks` configuration, you should enter that tagline\n"
"here. If this option is left blank, the default tagline is used.\n"
;
uifc.input(WIN_MID|WIN_SAV,0,0,nulstr,cfg.sub[i]->tagline
,sizeof(cfg.sub[i]->tagline)-1,K_MSG|K_EDIT);
break;
case 5:
n=1;
strcpy(opt[0],"Yes");
strcpy(opt[1],"No");
opt[2][0]=0;
uifc.helpbuf=
"`Sub-board Networked via Internet:`\n"
"\n"
"If this sub-board is networked to the Internet via UUCP or NNTP, this\n"
"option should be set to `Yes`.\n"
"\n"
"It will allow the `N`etwork user restriction to function properly.\n"
;
n=uifc.list(WIN_SAV|WIN_MID,0,0,0,&n,0
,"Networked via Internet",opt);
if(n==-1)
break;
if(!n && !(cfg.sub[i]->misc&SUB_INET)) {
uifc.changes=1;
cfg.sub[i]->misc|=SUB_INET;
break; }
if(n==1 && cfg.sub[i]->misc&SUB_INET) {
uifc.changes=1;
cfg.sub[i]->misc&=~SUB_INET; }
break;
case 6:
n=1;
strcpy(opt[0],"Yes");
strcpy(opt[1],"No");
opt[2][0]=0;
uifc.helpbuf=
"`Sub-board Networked via PostLink or PCRelay:`\n"
"\n"
"If this sub-board is networked with other BBSs via PostLink or PCRelay,\n"
"this option should be set to `Yes`. With this option set to `Yes`,\n"
"titles of posts on this sub-board will be limited to the UTI\n"
"specification limitation of 25 characters. It also allows the `N`etwork\n"
"restriction to function properly.\n"
;
n=uifc.list(WIN_SAV|WIN_MID,0,0,0,&n,0
,"Networked via PostLink or PCRelay",opt);
if(n==-1)
break;
if(!n && !(cfg.sub[i]->misc&SUB_PNET)) {
uifc.changes=1;
cfg.sub[i]->misc|=SUB_PNET;
break; }
if(n==1 && cfg.sub[i]->misc&SUB_PNET) {
uifc.changes=1;
cfg.sub[i]->misc&=~SUB_PNET; }
break;
case 7:
n=1;
strcpy(opt[0],"Yes");
strcpy(opt[1],"No");
opt[2][0]=0;
uifc.helpbuf=
"`Sub-board Networked via FidoNet EchoMail:`\n"
"\n"
"If this sub-board is part of a FidoNet EchoMail conference, set this\n"
"option to `Yes`.\n"
;
n=uifc.list(WIN_SAV|WIN_MID,0,0,0,&n,0
,"Networked via FidoNet EchoMail",opt);
if(n==-1)
break;
if(!n && !(cfg.sub[i]->misc&SUB_FIDO)) {
uifc.changes=1;
cfg.sub[i]->misc|=SUB_FIDO;
break; }
if(n==1 && cfg.sub[i]->misc&SUB_FIDO) {
uifc.changes=1;
cfg.sub[i]->misc&=~SUB_FIDO; }
break;
case 8:
smb_faddrtoa(&cfg.sub[i]->faddr,str);
uifc.helpbuf=
"`Sub-board FidoNet Address:`\n"
"\n"
"If this sub-board is part of a FidoNet EchoMail conference, this is\n"
"the address used for this sub-board. Format: `Zone:Net/Node[.Point]`\n"
;
uifc.input(WIN_MID|WIN_SAV,0,0,"FidoNet Address"
,str,25,K_EDIT);
cfg.sub[i]->faddr=atofaddr(str);
break;
case 9:
uifc.helpbuf=
"`Sub-board FidoNet Origin Line:`\n"
"\n"
"If this sub-board is part of a FidoNet EchoMail conference and you\n"
"want to use an origin line other than the default origin line in the\n"
"`Networks` configuration, set this value to the desired origin line.\n"
"\n"
"If this option is blank, the default origin line is used.\n"
;
uifc.input(WIN_MID|WIN_SAV,0,0,nulstr,cfg.sub[i]->origline
,sizeof(cfg.sub[i]->origline)-1,K_EDIT);
break;
}
}
break;
case 15:
while(1) {
n=0;
if(cfg.sub[i]->qwkconf)
sprintf(str,"Static (%u)",cfg.sub[i]->qwkconf);
else
strcpy(str,"Dynamic");
sprintf(opt[n++],"%-27.27s%s","QWK Conference Number"
,str);
sprintf(opt[n++],"%-27.27s%s","Storage Method"
,cfg.sub[i]->misc&SUB_HYPER ? "Hyper Allocation"
: cfg.sub[i]->misc&SUB_FAST ? "Fast Allocation"
: "Self-packing");
if(!cfg.sub[i]->data_dir[0])
sprintf(str,"%ssubs/",cfg.data_dir);
else
strcpy(str,cfg.sub[i]->data_dir);
sprintf(opt[n++],"%-27.27s%.40s","Storage Directory",str);
sprintf(opt[n++],"%-27.27s%.40s","Semaphore File",cfg.sub[i]->post_sem);
sprintf(opt[n++],"%-27.27s%u","Pointer File Index",cfg.sub[i]->ptridx);
opt[n][0]=0;
uifc.helpbuf=
"`Sub-board Advanced Options:`\n"
"\n"
"This menu contains options for the selected sub-board that are advanced\n"
"in nature.\n"
;
n=uifc.list(WIN_ACT|WIN_SAV|WIN_RHT|WIN_BOT,3,2,60,&adv_dflt,0
,"Advanced Options",opt);
if(n==-1)
break;
switch(n) {
case 0:
uifc.helpbuf=
"`Sub-board QWK Conference Number:`\n"
"\n"
"If you wish to have the QWK conference number for this sub-board\n"
"automatically generated by Synchronet (based on the group number\n"
"and sub-board number for the user), set this option to `Dynamic`.\n"
"\n"
"If you wish to have the same QWK conference number for this sub-board\n"
"regardless of which user access it, set this option to `Static`\n"
"by entering the conference number you want to use.\n"
;
if(cfg.sub[i]->qwkconf)
sprintf(str,"%u",cfg.sub[i]->qwkconf);
else
str[0]=0;
if(uifc.input(WIN_MID|WIN_SAV,0,17
,"QWK Conference Number (0=Dynamic)"
,str,5,K_EDIT|K_NUMBER)>=0)
cfg.sub[i]->qwkconf=atoi(str);
break;
case 1:
n=0;
strcpy(opt[0],"Hyper Allocation");
strcpy(opt[1],"Fast Allocation");
strcpy(opt[2],"Self-packing");
opt[3][0]=0;
uifc.helpbuf=
"`Self-Packing` is the slowest storage method because it conserves disk\n"
" space as it imports messages by using deleted message header and data\n"
" blocks for new messages automatically. If you use this storage method,\n"
" you will not need to run `SMBUTIL P` on this message base unless you\n"
" accumilate a large number of deleted message blocks and wish to free\n"
" that disk space. You can switch from self-packing to fast allocation\n"
" storage method and back again as you wish.\n"
"`Fast Allocation` is faster than self-packing because it does not search\n"
" for deleted message blocks for new messages. It automatically places\n"
" all new message blocks at the end of the header and data files. If you\n"
" use this storage method, you will need to run `SMBUTIL P` on this\n"
" message base periodically or it will continually use up disk space.\n"
"`Hyper Allocation` is the fastest storage method because it does not\n"
" maintain allocation files at all. Once a message base is setup to use\n"
" this storage method, it should not be changed without first deleting\n"
" the message base data files in your `DATA\\DIRS\\SUBS` directory for this\n"
" sub-board. You must use `SMBUTIL P` as with the fast allocation method.\n"
;
n=uifc.list(WIN_SAV|WIN_MID,0,0,0,&n,0
,"Storage Method",opt);
if(n==-1)
break;
if(!n && !(cfg.sub[i]->misc&SUB_HYPER)) {
uifc.changes=1;
cfg.sub[i]->misc|=SUB_HYPER;
cfg.sub[i]->misc&=~SUB_FAST;
cfg.sub[i]->misc|=SUB_HDRMOD;
break; }
if(!n)
break;
if(cfg.sub[i]->misc&SUB_HYPER) { /* Switching from hyper */
strcpy(opt[0],"Yes");
strcpy(opt[1],"No, I want to use Hyper Allocation");
opt[2][0]=0;
m=0;
if(uifc.list(WIN_SAV|WIN_MID,0,0,0,&m,0
,"Delete all messages in this sub-board?",opt)!=0)
break;
if(cfg.sub[i]->data_dir[0])
sprintf(str,"%s",cfg.sub[i]->data_dir);
else
sprintf(str,"%ssubs/",cfg.data_dir);
sprintf(str2,"%s%s.*"
,cfg.grp[cfg.sub[i]->grp]->code_prefix
,cfg.sub[i]->code_suffix);
strlwr(str2);
delfiles(str,str2);
}
if(cfg.sub[i]->misc&SUB_HYPER)
cfg.sub[i]->misc|=SUB_HDRMOD;
if(n==1 && !(cfg.sub[i]->misc&SUB_FAST)) {
uifc.changes=1;
cfg.sub[i]->misc|=SUB_FAST;
cfg.sub[i]->misc&=~SUB_HYPER;
break;
}
if(n==2 && cfg.sub[i]->misc&(SUB_FAST|SUB_HYPER)) {
uifc.changes=1;
cfg.sub[i]->misc&=~(SUB_FAST|SUB_HYPER);
break;
}
break;
case 2:
uifc.helpbuf=
"`Sub-board Storage Directory:`\n"
"\n"
"Use this if you wish to place the data directory for this sub-board on\n"
"another drive or in another directory besides the default setting.\n"
;
uifc.input(WIN_MID|WIN_SAV,0,17,"Directory"
,cfg.sub[i]->data_dir,sizeof(cfg.sub[i]->data_dir)-1,K_EDIT);
break;
case 3:
uifc.helpbuf=
"`Sub-board Semaphore File:`\n"
"\n"
"This is a filename that will be created as a semaphore (signal) to an\n"
"external program or event whenever a message is posted in this sub-board.\n"
;
uifc.input(WIN_MID|WIN_SAV,0,17,"Semaphore File"
,cfg.sub[i]->post_sem,sizeof(cfg.sub[i]->post_sem)-1,K_EDIT);
break;
case 4:
uifc.helpbuf=
"`Sub-board Pointer Index:`\n"
"\n"
"You should normally have no reason to modify this value. If you get\n"
"crossed-up or duplicate ptridx values, then you may want to adjust\n"
"this value, but do so with great care and trepidation.\n"
;
sprintf(str,"%u",cfg.sub[i]->ptridx);
if(uifc.input(WIN_MID|WIN_SAV,0,17
,"Pointer File Index (Danger!)"
,str,5,K_EDIT|K_NUMBER)>=0)
cfg.sub[i]->ptridx=atoi(str);
break;
}
}
break;
}
}
}
}
bool sbbs_t::pack_rep(uint hubnum)
{
char str[MAX_PATH+1];
char tmp[MAX_PATH+1],tmp2[MAX_PATH+1];
char hubid_upper[LEN_QWKID+1];
char hubid_lower[LEN_QWKID+1];
int file,mode;
uint i,j,k;
long msgcnt,submsgs,packedmail,netfiles=0,deleted;
uint32_t u;
uint32_t posts;
uint32_t mailmsgs;
ulong msgs;
uint32_t last;
post_t* post;
mail_t* mail;
FILE* rep;
FILE* hdrs=NULL;
DIR* dir;
DIRENT* dirent;
smbmsg_t msg;
msgcnt=0L;
delfiles(cfg.temp_dir,ALLFILES);
SAFECOPY(hubid_upper,cfg.qhub[hubnum]->id);
strupr(hubid_upper);
SAFECOPY(hubid_lower,cfg.qhub[hubnum]->id);
strlwr(hubid_lower);
SAFEPRINTF2(str,"%s%s.REP",cfg.data_dir,hubid_upper);
if(fexistcase(str)) {
eprintf(LOG_INFO,"Updating %s", str);
external(cmdstr(cfg.qhub[hubnum]->unpack,str,ALLFILES,NULL),EX_OFFLINE);
} else
eprintf(LOG_INFO,"Creating %s", str);
/*************************************************/
/* Create SYSID.MSG, write header and leave open */
/*************************************************/
SAFEPRINTF2(str,"%s%s.MSG",cfg.temp_dir,hubid_upper);
fexistcase(str);
if((rep=fnopen(&file,str,O_CREAT|O_WRONLY|O_TRUNC))==NULL) {
errormsg(WHERE,ERR_CREATE,str,O_CREAT|O_WRONLY|O_TRUNC);
return(false);
}
if(filelength(file)<1) { /* New REP packet */
SAFEPRINTF2(str,"%-*s"
,QWK_BLOCK_LEN,hubid_upper); /* So write header */
fwrite(str,QWK_BLOCK_LEN,1,rep);
}
fseek(rep,0L,SEEK_END);
/* Always includes HEADERS.DAT in .REP packets which are only for QWKnet hubs */
/* And *usually* a Synchronet system */
SAFEPRINTF(str,"%sHEADERS.DAT",cfg.temp_dir);
fexistcase(str);
if((hdrs=fopen(str,"a"))==NULL)
errormsg(WHERE,ERR_CREATE,str,0);
/*********************/
/* Pack new messages */
/*********************/
SAFEPRINTF(smb.file,"%smail",cfg.data_dir);
smb.retry_time=cfg.smb_retry_time;
smb.subnum=INVALID_SUB;
if((i=smb_open(&smb))!=0) {
fclose(rep);
if(hdrs!=NULL)
fclose(hdrs);
errormsg(WHERE,ERR_OPEN,smb.file,i,smb.last_error);
return(false);
}
/***********************/
/* Pack E-mail, if any */
/***********************/
qwkmail_last=0;
mail=loadmail(&smb,&mailmsgs,0,MAIL_YOUR,0);
packedmail=0;
if(mailmsgs) {
eprintf(LOG_INFO,"Packing NetMail for %s", cfg.qhub[hubnum]->id);
for(u=0;u<mailmsgs;u++) {
// bprintf("\b\b\b\b\b%-5lu",u+1);
memset(&msg,0,sizeof(msg));
msg.idx=mail[u];
if(msg.idx.number>qwkmail_last)
qwkmail_last=msg.idx.number;
if(!loadmsg(&msg,mail[u].number))
continue;
SAFEPRINTF(str,"%s/",cfg.qhub[hubnum]->id);
if(msg.to_net.type!=NET_QWK
|| (strcmp((char *)msg.to_net.addr,cfg.qhub[hubnum]->id)
&& strncmp((char *)msg.to_net.addr,str,strlen(str)))) {
smb_unlockmsghdr(&smb,&msg);
smb_freemsgmem(&msg);
continue;
}
msgtoqwk(&msg,rep,QM_TO_QNET|QM_REP|A_LEAVE,INVALID_SUB,0,hdrs);
packedmail++;
smb_unlockmsghdr(&smb,&msg);
smb_freemsgmem(&msg);
YIELD(); /* yield */
}
eprintf(LOG_INFO,"Packed %d NetMail messages",packedmail);
}
smb_close(&smb); /* Close the e-mail */
if(mailmsgs)
free(mail);
for(i=0;i<cfg.qhub[hubnum]->subs;i++) {
j=cfg.qhub[hubnum]->sub[i]; /* j now equals the real sub num */
msgs=getlastmsg(j,&last,0);
lncntr=0; /* defeat pause */
if(!msgs || last<=subscan[j].ptr) {
if(subscan[j].ptr>last) {
subscan[j].ptr=last;
subscan[j].last=last;
}
eprintf(LOG_INFO,remove_ctrl_a(text[NScanStatusFmt],tmp)
,cfg.grp[cfg.sub[j]->grp]->sname
,cfg.sub[j]->lname,0L,msgs);
continue;
}
SAFEPRINTF2(smb.file,"%s%s"
,cfg.sub[j]->data_dir,cfg.sub[j]->code);
smb.retry_time=cfg.smb_retry_time;
smb.subnum=j;
if((k=smb_open(&smb))!=0) {
errormsg(WHERE,ERR_OPEN,smb.file,k,smb.last_error);
continue;
}
post=loadposts(&posts,j,subscan[j].ptr,LP_BYSELF|LP_OTHERS|LP_PRIVATE|LP_REP,NULL);
eprintf(LOG_INFO,remove_ctrl_a(text[NScanStatusFmt],tmp)
,cfg.grp[cfg.sub[j]->grp]->sname
,cfg.sub[j]->lname,posts,msgs);
if(!posts) { /* no new messages */
smb_close(&smb);
continue;
}
subscan[j].ptr=last; /* set pointer */
eprintf(LOG_INFO,"%s",remove_ctrl_a(text[QWKPackingSubboard],tmp)); /* ptr to last msg */
submsgs=0;
for(u=0;u<posts;u++) {
// bprintf("\b\b\b\b\b%-5lu",u+1);
memset(&msg,0,sizeof(msg));
msg.idx=post[u];
if(!loadmsg(&msg,post[u].number))
continue;
if(msg.from_net.type && msg.from_net.type!=NET_QWK &&
!(cfg.sub[j]->misc&SUB_GATE)) {
smb_freemsgmem(&msg);
smb_unlockmsghdr(&smb,&msg);
continue;
}
if(!strnicmp(msg.subj,"NE:",3) || (msg.from_net.type==NET_QWK &&
route_circ((char *)msg.from_net.addr,cfg.qhub[hubnum]->id))) {
smb_freemsgmem(&msg);
smb_unlockmsghdr(&smb,&msg);
continue;
}
mode=cfg.qhub[hubnum]->mode[i]|QM_TO_QNET|QM_REP;
if(mode&A_LEAVE) mode|=(QM_VIA|QM_TZ|QM_MSGID);
if(msg.from_net.type!=NET_QWK)
mode|=QM_TAGLINE;
msgtoqwk(&msg,rep,mode,j,cfg.qhub[hubnum]->conf[i],hdrs);
smb_freemsgmem(&msg);
smb_unlockmsghdr(&smb,&msg);
msgcnt++;
submsgs++;
if(!(u%50))
YIELD(); /* yield */
}
eprintf(LOG_INFO,remove_ctrl_a(text[QWKPackedSubboard],tmp),submsgs,msgcnt);
free(post);
smb_close(&smb);
YIELD(); /* yield */
}
if(hdrs!=NULL)
fclose(hdrs);
fclose(rep); /* close HUB_ID.MSG */
CRLF;
/* Look for extra files to send out */
SAFEPRINTF2(str,"%sqnet/%s.out",cfg.data_dir,hubid_lower);
dir=opendir(str);
while(dir!=NULL && (dirent=readdir(dir))!=NULL) {
SAFEPRINTF3(str,"%sqnet/%s.out/%s",cfg.data_dir,hubid_lower,dirent->d_name);
if(isdir(str))
continue;
SAFEPRINTF2(tmp2,"%s%s",cfg.temp_dir,dirent->d_name);
eprintf(LOG_INFO,remove_ctrl_a(text[RetrievingFile],tmp),str);
if(!mv(str,tmp2,/* copy: */TRUE))
netfiles++;
}
if(dir!=NULL)
closedir(dir);
if(netfiles)
CRLF;
if(!msgcnt && !netfiles && !packedmail) {
eprintf(LOG_INFO,remove_ctrl_a(text[QWKNoNewMessages],tmp));
return(true); // Changed from false Mar-11-2005 (needs to be true to save updated ptrs)
}
/*******************/
/* Compress Packet */
/*******************/
SAFEPRINTF2(str,"%s%s.REP",cfg.data_dir,hubid_upper);
SAFEPRINTF2(tmp2,"%s%s",cfg.temp_dir,ALLFILES);
i=external(cmdstr(cfg.qhub[hubnum]->pack,str,tmp2,NULL)
,EX_OFFLINE|EX_WILDCARD);
if(!fexistcase(str)) {
eprintf(LOG_WARNING,"%s",remove_ctrl_a(text[QWKCompressionFailed],tmp));
if(i)
errormsg(WHERE,ERR_EXEC,cmdstr(cfg.qhub[hubnum]->pack,str,tmp2,NULL),i);
else
lprintf(LOG_ERR, "Couldn't compress REP packet");
return(false);
}
SAFEPRINTF2(str,"%sqnet/%s.out/",cfg.data_dir,hubid_lower);
delfiles(str,ALLFILES);
if(packedmail) { /* Delete NetMail */
SAFEPRINTF(smb.file,"%smail",cfg.data_dir);
smb.retry_time=cfg.smb_retry_time;
smb.subnum=INVALID_SUB;
if((i=smb_open(&smb))!=0) {
errormsg(WHERE,ERR_OPEN,smb.file,i,smb.last_error);
return(true);
}
mail=loadmail(&smb,&mailmsgs,0,MAIL_YOUR,0);
if((i=smb_locksmbhdr(&smb))!=0) { /* Lock the base, so nobody */
if(mailmsgs)
free(mail);
smb_close(&smb);
errormsg(WHERE,ERR_LOCK,smb.file,i,smb.last_error); /* messes with the index */
return(true);
}
if((i=smb_getstatus(&smb))!=0) {
if(mailmsgs)
free(mail);
smb_close(&smb);
errormsg(WHERE,ERR_READ,smb.file,i,smb.last_error);
return(true);
}
deleted=0;
/* Mark as READ and DELETE */
for(u=0;u<mailmsgs;u++) {
if(mail[u].number>qwkmail_last)
continue;
memset(&msg,0,sizeof(msg));
/* !IMPORTANT: search by number (do not initialize msg.idx.offset) */
if(!loadmsg(&msg,mail[u].number))
continue;
SAFEPRINTF(str,"%s/",cfg.qhub[hubnum]->id);
if(msg.to_net.type!=NET_QWK
|| (strcmp((char *)msg.to_net.addr,cfg.qhub[hubnum]->id)
&& strncmp((char *)msg.to_net.addr,str,strlen(str)))) {
smb_unlockmsghdr(&smb,&msg);
smb_freemsgmem(&msg);
continue;
}
msg.hdr.attr|=MSG_DELETE;
msg.idx.attr=msg.hdr.attr;
if((i=smb_putmsg(&smb,&msg))!=0)
errormsg(WHERE,ERR_WRITE,smb.file,i,smb.last_error);
else
deleted++;
smb_unlockmsghdr(&smb,&msg);
smb_freemsgmem(&msg);
}
if(deleted && cfg.sys_misc&SM_DELEMAIL)
delmail(0,MAIL_YOUR);
smb_close(&smb);
if(mailmsgs)
free(mail);
eprintf(LOG_INFO,"Deleted %d sent NetMail messages",deleted);
}
return(true);
}
bool sbbs_t::answer()
{
char str[MAX_PATH+1],str2[MAX_PATH+1],c;
char tmp[(MAX_PATH > CRYPT_MAX_TEXTSIZE ? MAX_PATH:CRYPT_MAX_TEXTSIZE)+1];
char tmpname[CRYPT_MAX_TEXTSIZE+1];
char path[MAX_PATH+1];
int i,l,in;
struct tm tm;
useron.number=0;
answertime=logontime=starttime=now=time(NULL);
/* Caller ID is IP address */
SAFECOPY(cid,client_ipaddr);
memset(&tm,0,sizeof(tm));
localtime_r(&now,&tm);
safe_snprintf(str,sizeof(str),"%s %s %s %02d %u Node %3u"
,hhmmtostr(&cfg,&tm,str2)
,wday[tm.tm_wday]
,mon[tm.tm_mon],tm.tm_mday,tm.tm_year+1900,cfg.node_num);
logline("@ ",str);
safe_snprintf(str,sizeof(str),"%s %s [%s]", connection, client_name, cid);
logline("@+:",str);
if(client_ident[0]) {
safe_snprintf(str,sizeof(str),"Identity: %s",client_ident);
logline("@*",str);
}
online=ON_REMOTE;
if(sys_status&SS_RLOGIN) {
if(incom(1000)==0) {
for(i=0;i<(int)sizeof(str)-1;i++) {
in=incom(1000);
if(in==0 || in==NOINP)
break;
str[i]=in;
}
str[i]=0;
for(i=0;i<(int)sizeof(str2)-1;i++) {
in=incom(1000);
if(in==0 || in==NOINP)
break;
str2[i]=in;
}
str2[i]=0;
for(i=0;i<(int)sizeof(terminal)-1;i++) {
in=incom(1000);
if(in==0 || in==NOINP)
break;
terminal[i]=in;
}
terminal[i]=0;
lprintf(LOG_DEBUG,"Node %d RLogin: '******' / '%.*s' / '%s'"
,cfg.node_num
,LEN_ALIAS*2,str
,LEN_ALIAS*2,str2
,terminal);
SAFECOPY(rlogin_term, terminal);
SAFECOPY(rlogin_name, str2);
SAFECOPY(rlogin_pass, str);
/* Truncate terminal speed (e.g. "/57600") from terminal-type string
(but keep full terminal type/speed string in rlogin_term): */
truncstr(terminal,"/");
useron.number=userdatdupe(0, U_ALIAS, LEN_ALIAS, rlogin_name);
if(useron.number) {
getuserdat(&cfg,&useron);
useron.misc&=~TERM_FLAGS;
SAFEPRINTF(path,"%srlogin.cfg",cfg.ctrl_dir);
if(!findstr(client.addr,path)) {
SAFECOPY(tmp, rlogin_pass);
for(i=0;i<3;i++) {
if(stricmp(tmp,useron.pass)) {
badlogin(useron.alias, tmp);
rioctl(IOFI); /* flush input buffer */
bputs(text[InvalidLogon]);
if(cfg.sys_misc&SM_ECHO_PW)
safe_snprintf(str,sizeof(str),"(%04u) %-25s FAILED Password attempt: '%s'"
,0,useron.alias,tmp);
else
safe_snprintf(str,sizeof(str),"(%04u) %-25s FAILED Password attempt"
,0,useron.alias);
logline(LOG_NOTICE,"+!",str);
bputs(text[PasswordPrompt]);
console|=CON_R_ECHOX;
getstr(tmp,LEN_PASS*2,K_UPPER|K_LOWPRIO|K_TAB);
console&=~(CON_R_ECHOX|CON_L_ECHOX);
}
else {
if(REALSYSOP) {
rioctl(IOFI); /* flush input buffer */
if(!chksyspass())
bputs(text[InvalidLogon]);
else {
i=0;
break;
}
}
else
break;
}
}
if(i) {
if(stricmp(tmp,useron.pass)) {
badlogin(useron.alias, tmp);
bputs(text[InvalidLogon]);
if(cfg.sys_misc&SM_ECHO_PW)
safe_snprintf(str,sizeof(str),"(%04u) %-25s FAILED Password attempt: '%s'"
,0,useron.alias,tmp);
else
safe_snprintf(str,sizeof(str),"(%04u) %-25s FAILED Password attempt"
,0,useron.alias);
logline(LOG_NOTICE,"+!",str);
}
lprintf(LOG_WARNING,"Node %d !CLIENT IP NOT LISTED in %s"
,cfg.node_num,path);
useron.number=0;
hangup();
}
}
}
else
lprintf(LOG_INFO,"Node %d RLogin: Unknown user: %s",cfg.node_num,rlogin_name);
}
if(rlogin_name[0]==0) {
lprintf(LOG_NOTICE,"Node %d !RLogin: No user name received",cfg.node_num);
sys_status&=~SS_RLOGIN;
}
}
if(!(telnet_mode&TELNET_MODE_OFF)) {
/* Disable Telnet Terminal Echo */
request_telnet_opt(TELNET_WILL,TELNET_ECHO);
/* Will suppress Go Ahead */
request_telnet_opt(TELNET_WILL,TELNET_SUP_GA);
/* Retrieve terminal type and speed from telnet client --RS */
request_telnet_opt(TELNET_DO,TELNET_TERM_TYPE);
request_telnet_opt(TELNET_DO,TELNET_TERM_SPEED);
request_telnet_opt(TELNET_DO,TELNET_SEND_LOCATION);
request_telnet_opt(TELNET_DO,TELNET_NEGOTIATE_WINDOW_SIZE);
request_telnet_opt(TELNET_DO,TELNET_NEW_ENVIRON);
}
#ifdef USE_CRYPTLIB
if(sys_status&SS_SSH) {
pthread_mutex_lock(&ssh_mutex);
cryptGetAttributeString(ssh_session, CRYPT_SESSINFO_USERNAME, tmpname, &i);
tmpname[i]=0;
SAFECOPY(rlogin_name, tmpname);
cryptGetAttributeString(ssh_session, CRYPT_SESSINFO_PASSWORD, tmp, &i);
tmp[i]=0;
SAFECOPY(rlogin_pass, tmp);
pthread_mutex_unlock(&ssh_mutex);
lprintf(LOG_DEBUG,"Node %d SSH login: '******'"
,cfg.node_num, tmpname);
useron.number=userdatdupe(0, U_ALIAS, LEN_ALIAS, tmpname);
if(useron.number) {
getuserdat(&cfg,&useron);
useron.misc&=~TERM_FLAGS;
for(i=0;i<3;i++) {
if(stricmp(tmp,useron.pass)) {
badlogin(useron.alias, tmp);
rioctl(IOFI); /* flush input buffer */
bputs(text[InvalidLogon]);
if(cfg.sys_misc&SM_ECHO_PW)
safe_snprintf(str,sizeof(str),"(%04u) %-25s FAILED Password attempt: '%s'"
,0,useron.alias,tmp);
else
safe_snprintf(str,sizeof(str),"(%04u) %-25s FAILED Password attempt"
,0,useron.alias);
/* crash here Sept-12-2010
str 0x06b3fc4c "(0000) Guest FAILED Password attempt: '*****@*****.**'"
and Oct-6-2010
str 0x070ffc4c "(0000) Woot903 FAILED Password attempt: 'p67890pppsdsjhsdfhhfhnhnfhfhfdhjksdjkfdskw3902391=`'" char [261]
*/
logline(LOG_NOTICE,"+!",str);
bputs(text[PasswordPrompt]);
console|=CON_R_ECHOX;
getstr(tmp,LEN_PASS*2,K_UPPER|K_LOWPRIO|K_TAB);
console&=~(CON_R_ECHOX|CON_L_ECHOX);
}
else {
if(REALSYSOP) {
rioctl(IOFI); /* flush input buffer */
if(!chksyspass())
bputs(text[InvalidLogon]);
else {
i=0;
break;
}
}
else
break;
}
}
if(i) {
if(stricmp(tmp,useron.pass)) {
badlogin(useron.alias, tmp);
bputs(text[InvalidLogon]);
if(cfg.sys_misc&SM_ECHO_PW)
safe_snprintf(str,sizeof(str),"(%04u) %-25s FAILED Password attempt: '%s'"
,0,useron.alias,tmp);
else
safe_snprintf(str,sizeof(str),"(%04u) %-25s FAILED Password attempt"
,0,useron.alias);
logline(LOG_NOTICE,"+!",str);
}
useron.number=0;
hangup();
}
}
else
lprintf(LOG_INFO,"Node %d SSH: Unknown user: %s",cfg.node_num,rlogin_name);
}
#endif
/* Detect terminal type */
mswait(200);
rioctl(IOFI); /* flush input buffer */
putcom( "\r\n" /* locate cursor at column 1 */
"\x1b[s" /* save cursor position (necessary for HyperTerm auto-ANSI) */
"\x1b[255B" /* locate cursor as far down as possible */
"\x1b[255C" /* locate cursor as far right as possible */
"\b_" /* need a printable at this location to actually move cursor */
"\x1b[6n" /* Get cursor position */
"\x1b[u" /* restore cursor position */
"\x1b[!_" /* RIP? */
"\x1b[30;40m\xc2\x9f""Zuul.connection.write('\\x1b""Are you the gatekeeper?')\xc2\x9c" /* ZuulTerm? */
"\x1b[0m_" /* "Normal" colors */
"\x1b[2J" /* clear screen */
"\x1b[H" /* home cursor */
"\xC" /* clear screen (in case not ANSI) */
"\r" /* Move cursor left (in case previous char printed) */
);
i=l=0;
tos=1;
lncntr=0;
safe_snprintf(str, sizeof(str), "%s %s", VERSION_NOTICE, COPYRIGHT_NOTICE);
strip_ctrl(str, str);
center(str);
while(i++<50 && l<(int)sizeof(str)-1) { /* wait up to 5 seconds for response */
c=incom(100)&0x7f;
if(c==0)
continue;
i=0;
if(l==0 && c!=ESC) // response must begin with escape char
continue;
str[l++]=c;
if(c=='R') { /* break immediately if ANSI response */
mswait(500);
break;
}
}
while((c=(incom(100)&0x7f))!=0 && l<(int)sizeof(str)-1)
str[l++]=c;
str[l]=0;
if(l) {
c_escape_str(str,tmp,sizeof(tmp),TRUE);
lprintf(LOG_DEBUG,"Node %d received terminal auto-detection response: '%s'"
,cfg.node_num,tmp);
if(str[0]==ESC && str[1]=='[' && str[l-1]=='R') {
int x,y;
if(terminal[0]==0)
SAFECOPY(terminal,"ANSI");
autoterm|=(ANSI|COLOR);
if(sscanf(str+2,"%u;%u",&y,&x)==2) {
lprintf(LOG_DEBUG,"Node %d received ANSI cursor position report: %ux%u"
,cfg.node_num, x, y);
/* Sanity check the coordinates in the response: */
if(x>=40 && x<=255) cols=x;
if(y>=10 && y<=255) rows=y;
}
}
truncsp(str);
if(strstr(str,"RIPSCRIP")) {
if(terminal[0]==0)
SAFECOPY(terminal,"RIP");
logline("@R",strstr(str,"RIPSCRIP"));
autoterm|=(RIP|COLOR|ANSI); }
else if(strstr(str,"Are you the gatekeeper?")) {
if(terminal[0]==0)
SAFECOPY(terminal,"HTML");
logline("@H",strstr(str,"Are you the gatekeeper?"));
autoterm|=HTML;
}
}
else if(terminal[0]==0)
SAFECOPY(terminal,"DUMB");
rioctl(IOFI); /* flush left-over or late response chars */
if(!autoterm && str[0]) {
c_escape_str(str,tmp,sizeof(tmp),TRUE);
lprintf(LOG_NOTICE,"Node %d terminal auto-detection failed, response: '%s'"
,cfg.node_num, tmp);
}
/* AutoLogon via IP or Caller ID here */
if(!useron.number && !(sys_status&SS_RLOGIN)
&& (startup->options&BBS_OPT_AUTO_LOGON) && cid[0]) {
useron.number=userdatdupe(0, U_NOTE, LEN_NOTE, cid);
if(useron.number) {
getuserdat(&cfg, &useron);
if(!(useron.misc&AUTOLOGON) || !(useron.exempt&FLAG('V')))
useron.number=0;
}
}
if(!online)
return(false);
if(stricmp(terminal,"sexpots")==0) { /* dial-up connection (via SexPOTS) */
SAFEPRINTF2(str,"%s connection detected at %lu bps", terminal, cur_rate);
logline("@S",str);
node_connection = (ushort)cur_rate;
SAFEPRINTF(connection,"%lu",cur_rate);
SAFECOPY(cid,"Unknown");
SAFECOPY(client_name,"Unknown");
if(telnet_location[0]) { /* Caller-ID info provided */
SAFEPRINTF(str, "CID: %s", telnet_location);
logline("@*",str);
SAFECOPY(cid,telnet_location);
truncstr(cid," "); /* Only include phone number in CID */
char* p=telnet_location;
FIND_WHITESPACE(p);
SKIP_WHITESPACE(p);
if(*p) {
SAFECOPY(client_name,p); /* CID name, if provided (maybe 'P' or 'O' if private or out-of-area) */
}
}
SAFECOPY(client.addr,cid);
SAFECOPY(client.host,client_name);
client_on(client_socket,&client,TRUE /* update */);
} else {
if(telnet_location[0]) { /* Telnet Location info provided */
SAFEPRINTF(str, "Telnet Location: %s", telnet_location);
logline("@*",str);
}
}
useron.misc&=~TERM_FLAGS;
useron.misc|=autoterm;
SAFECOPY(useron.comp,client_name);
if(!useron.number && rlogin_name[0]!=0 && !(cfg.sys_misc&SM_CLOSED) && !matchuser(&cfg, rlogin_name, /* Sysop alias: */FALSE)) {
lprintf(LOG_INFO,"Node %d UNKNOWN %s-specified USERNAME: %s, starting new user signup",cfg.node_num,client.protocol,rlogin_name);
bprintf("%s: %s\r\n", text[UNKNOWN_USER], rlogin_name);
newuser();
}
if(!useron.number) { /* manual/regular logon */
/* Display ANSWER screen */
rioctl(IOSM|PAUSE);
sys_status|=SS_PAUSEON;
SAFEPRINTF(str,"%sanswer",cfg.text_dir);
SAFEPRINTF(path,"%s.rip",str);
if((autoterm&RIP) && fexistcase(path))
printfile(path,P_NOABORT);
else {
SAFEPRINTF(path,"%s.html",str);
if((autoterm&HTML) && fexistcase(path))
printfile(path,P_NOABORT);
else {
SAFEPRINTF(path,"%s.ans",str);
if((autoterm&ANSI) && fexistcase(path))
printfile(path,P_NOABORT);
else {
SAFEPRINTF(path,"%s.asc",str);
if(fexistcase(path))
printfile(path, P_NOABORT);
}
}
}
sys_status&=~SS_PAUSEON;
exec_bin(cfg.login_mod,&main_csi);
} else /* auto logon here */
if(logon()==false)
return(false);
if(!useron.number)
hangup();
/* Save the IP to the user's note */
if(cid[0]) {
SAFECOPY(useron.note,cid);
putuserrec(&cfg,useron.number,U_NOTE,LEN_NOTE,useron.note);
}
/* Save host name to the user's computer description */
if(client_name[0]) {
SAFECOPY(useron.comp,client_name);
putuserrec(&cfg,useron.number,U_COMP,LEN_COMP,useron.comp);
}
if(!online)
return(false);
if(!(sys_status&SS_USERON)) {
errormsg(WHERE,ERR_CHK,"User not logged on",0);
hangup();
return(false);
}
if(useron.pass[0])
loginSuccess(startup->login_attempt_list, &client_addr);
return(true);
}
ulong sbbs_t::gettimeleft(bool handle_out_of_time)
{
char str[128];
char tmp[512];
event_t nextevent;
now=time(NULL);
timeleft = (ulong)::gettimeleft(&cfg, &useron, starttime);
/* Timed event time reduction handler */
event_time=getnextevent(&cfg, &nextevent);
if(event_time)
event_code=nextevent.code;
if(event_time && now+(time_t)timeleft>event_time) { /* less time, set flag */
if(event_time<now)
timeleft=0;
else
timeleft=(ulong)(event_time-now);
if(!(sys_status&SS_EVENT)) {
lprintf(LOG_NOTICE,"Node %d Time reduced (to %s) due to upcoming event (%s) on %s"
,cfg.node_num,sectostr(timeleft,tmp),event_code,timestr(event_time));
sys_status|=SS_EVENT;
}
}
if((long)timeleft<0) /* timeleft can't go negative */
timeleft=0;
if(thisnode.status==NODE_NEWUSER) {
timeleft=cfg.level_timepercall[cfg.new_level];
if(timeleft<10*60L)
timeleft=10*60L;
}
if(handle_out_of_time && !gettimeleft_inside) /* The following code is not recursive */
{
gettimeleft_inside=1;
if(!timeleft && !SYSOP && !(sys_status&SS_LCHAT)) {
logline(LOG_NOTICE,nulstr,"Ran out of time");
SAVELINE;
if(sys_status&SS_EVENT)
bprintf(text[ReducedTime],timestr(event_time));
bputs(text[TimesUp]);
if(!(sys_status&(SS_EVENT|SS_USERON)) && useron.cdt>=100L*1024L
&& !(cfg.sys_misc&SM_NOCDTCVT)) {
SAFEPRINTF(tmp,text[Convert100ktoNminQ],cfg.cdt_min_value);
if(yesno(tmp)) {
logline(" ","Credit to Minute Conversion");
useron.min=adjustuserrec(&cfg,useron.number,U_MIN,10,cfg.cdt_min_value);
useron.cdt=adjustuserrec(&cfg,useron.number,U_CDT,10,-(102400L));
SAFEPRINTF(str,"Credit Adjustment: %ld",-(102400L));
logline("$-",str);
SAFEPRINTF(str,"Minute Adjustment: %u",cfg.cdt_min_value);
logline("*+",str);
RESTORELINE;
gettimeleft();
gettimeleft_inside=0;
return timeleft;
}
}
if(cfg.sys_misc&SM_TIME_EXP && !(sys_status&SS_EVENT)
&& !(useron.exempt&FLAG('E'))) {
/* set to expired values */
bputs(text[AccountHasExpired]);
SAFEPRINTF(str,"%s Expired",useron.alias);
logentry("!%",str);
if(cfg.level_misc[useron.level]&LEVEL_EXPTOVAL
&& cfg.level_expireto[useron.level]<10) {
useron.flags1=cfg.val_flags1[cfg.level_expireto[useron.level]];
useron.flags2=cfg.val_flags2[cfg.level_expireto[useron.level]];
useron.flags3=cfg.val_flags3[cfg.level_expireto[useron.level]];
useron.flags4=cfg.val_flags4[cfg.level_expireto[useron.level]];
useron.exempt=cfg.val_exempt[cfg.level_expireto[useron.level]];
useron.rest=cfg.val_rest[cfg.level_expireto[useron.level]];
if(cfg.val_expire[cfg.level_expireto[useron.level]])
useron.expire=(time32_t)now
+(cfg.val_expire[cfg.level_expireto[useron.level]]*24*60*60);
else
useron.expire=0;
useron.level=cfg.val_level[cfg.level_expireto[useron.level]];
}
else {
if(cfg.level_misc[useron.level]&LEVEL_EXPTOLVL)
useron.level=cfg.level_expireto[useron.level];
else
useron.level=cfg.expired_level;
useron.flags1&=~cfg.expired_flags1; /* expired status */
useron.flags2&=~cfg.expired_flags2; /* expired status */
useron.flags3&=~cfg.expired_flags3; /* expired status */
useron.flags4&=~cfg.expired_flags4; /* expired status */
useron.exempt&=~cfg.expired_exempt;
useron.rest|=cfg.expired_rest;
useron.expire=0;
}
putuserrec(&cfg,useron.number,U_LEVEL,2,ultoa(useron.level,str,10));
putuserrec(&cfg,useron.number,U_FLAGS1,8,ultoa(useron.flags1,str,16));
putuserrec(&cfg,useron.number,U_FLAGS2,8,ultoa(useron.flags2,str,16));
putuserrec(&cfg,useron.number,U_FLAGS3,8,ultoa(useron.flags3,str,16));
putuserrec(&cfg,useron.number,U_FLAGS4,8,ultoa(useron.flags4,str,16));
putuserrec(&cfg,useron.number,U_EXPIRE,8,ultoa((ulong)useron.expire,str,16));
putuserrec(&cfg,useron.number,U_EXEMPT,8,ultoa(useron.exempt,str,16));
putuserrec(&cfg,useron.number,U_REST,8,ultoa(useron.rest,str,16));
if(cfg.expire_mod[0])
exec_bin(cfg.expire_mod,&main_csi);
RESTORELINE;
gettimeleft();
gettimeleft_inside=0;
return timeleft;
}
SYNC;
hangup();
}
gettimeleft_inside=0;
}
return timeleft;
}
uint sbbs_t::finduser(char *instr)
{
int file,i;
char str[128],str2[256],str3[256],ynq[25],c,pass=1;
long l,length;
FILE *stream;
i=atoi(instr);
if(i>0) {
username(&cfg, i,str2);
if(str2[0] && strcmp(str2,"DELETED USER"))
return(i);
}
strcpy(str,instr);
strupr(str);
SAFEPRINTF(str3,"%suser/name.dat",cfg.data_dir);
if(flength(str3)<1L)
return(0);
if((stream=fnopen(&file,str3,O_RDONLY))==NULL) {
errormsg(WHERE,ERR_OPEN,str3,O_RDONLY);
return(0);
}
SAFEPRINTF(ynq,"%.2s",text[YN]);
ynq[2]='Q';
ynq[3]=0;
length=(long)filelength(file);
while(pass<3) {
fseek(stream,0L,SEEK_SET); /* seek to beginning for each pass */
for(l=0;l<length;l+=LEN_ALIAS+2) {
if(!online) break;
fread(str2,LEN_ALIAS+2,1,stream);
for(c=0;c<LEN_ALIAS;c++)
if(str2[c]==ETX) break;
str2[c]=0;
if(!c) /* deleted user */
continue;
strcpy(str3,str2);
strupr(str2);
if(pass==1 && !strcmp(str,str2)) {
fclose(stream);
return((l/(LEN_ALIAS+2))+1);
}
if(pass==2 && strstr(str2,str)) {
bprintf(text[DoYouMeanThisUserQ],str3
,(uint)(l/(LEN_ALIAS+2))+1);
c=(char)getkeys(ynq,0);
if(sys_status&SS_ABORT) {
fclose(stream);
return(0);
}
if(c==text[YN][0]) {
fclose(stream);
return((l/(LEN_ALIAS+2))+1);
}
if(c=='Q') {
fclose(stream);
return(0);
}
}
}
pass++;
}
bputs(text[UnknownUser]);
fclose(stream);
return(0);
}
static void
#if defined(_WIN32)
WINAPI
#endif
service_loop(int argc, char** argv)
{
int argn;
char* arg;
char str[128];
char compiler[128];
for(argn=1; argn<(int)argc; argn++) {
arg=argv[argn];
if(*arg!='-') { /* .ini file specified */
if(!fexist(arg)) {
lprintf(LOG_ERR,"Initialization file does not exist: %s", arg);
exit(usage(argv[0]));
}
parse_ini_file(arg);
continue;
}
while(*arg=='-')
arg++;
if(stricmp(arg,"null")==0)
mdm_null=TRUE;
else if(stricmp(arg,"com")==0 && argc > argn+1)
SAFECOPY(com_dev, argv[++argn]);
else if(stricmp(arg,"baud")==0 && argc > argn+1)
com_baudrate = (ulong)strtol(argv[++argn],NULL,0);
else if(stricmp(arg,"host")==0 && argc > argn+1)
SAFECOPY(host, argv[++argn]);
else if(stricmp(arg,"port")==0 && argc > argn+1)
port = (ushort)strtol(argv[++argn], NULL, 0);
else if(stricmp(arg,"live")==0) {
if(argc > argn+1 &&
(com_handle = (COM_HANDLE)strtol(argv[argn+1], NULL, 0)) != 0) {
argn++;
com_handle_passed=TRUE;
}
com_alreadyconnected=TRUE;
terminate_after_one_call=TRUE;
mdm_null=TRUE;
}
else if(stricmp(arg,"nohangup")==0) {
com_hangup=FALSE;
}
else if(stricmp(arg,"debug")==0) {
log_level=LOG_DEBUG;
}
else if(stricmp(arg,"help")==0 || *arg=='?')
exit(usage(argv[0]));
else {
fprintf(stderr,"Invalid option: %s\n", arg);
exit(usage(argv[0]));
}
}
#if defined(_WIN32)
/* Convert "1" to "COM1" for Windows */
{
int i;
if((i=atoi(com_dev)) != 0)
SAFEPRINTF(com_dev, "COM%d", i);
}
if(daemonize) {
if((svc_status_handle = RegisterServiceCtrlHandler(NAME, ServiceControlHandler))==0) {
lprintf(LOG_ERR,"!ERROR %d registering service control handler",GetLastError());
return;
}
svc_status.dwServiceType=SERVICE_WIN32_OWN_PROCESS;
svc_status.dwControlsAccepted=SERVICE_ACCEPT_SHUTDOWN;
svc_status.dwWaitHint=NTSVC_TIMEOUT_STARTUP;
svc_status.dwCurrentState=SERVICE_START_PENDING;
SetServiceStatus(svc_status_handle, &svc_status);
}
#endif
lprintf(LOG_INFO,"%s", comVersion(str,sizeof(str)));
DESCRIBE_COMPILER(compiler);
lprintf(LOG_INFO,"Build %s %s %s", __DATE__, __TIME__, compiler);
/************************************/
/* Inititalize WinSock and COM Port */
/************************************/
if(!winsock_startup())
exit(1);
/* Install clean-up callback */
atexit(cleanup);
lprintf(LOG_INFO,"TCP Host: %s", host);
lprintf(LOG_INFO,"TCP Port: %u", port);
if(!com_handle_passed) {
lprintf(LOG_INFO,"Opening Communications Device (COM Port): %s", com_dev);
if((com_handle=comOpen(com_dev)) == COM_HANDLE_INVALID) {
lprintf(LOG_ERR,"ERROR %u opening communications device/port: '%s'", COM_ERROR_VALUE, com_dev);
exit(1);
}
}
lprintf(LOG_INFO,"COM Port device handle: %u", com_handle);
if(com_baudrate!=0) {
if(!comSetBaudRate(com_handle,com_baudrate))
lprintf(LOG_ERR,"ERROR %u setting DTE rate to %lu bps"
,COM_ERROR_VALUE, com_baudrate);
}
lprintf(LOG_INFO,"COM Port DTE rate: %ld bps", comGetBaudRate(com_handle));
if(ident)
_beginthread(ident_server_thread, 0, NULL);
#if defined(_WIN32)
if(daemonize) {
svc_status.dwCurrentState=SERVICE_RUNNING;
svc_status.dwControlsAccepted|=SERVICE_ACCEPT_STOP;
SetServiceStatus(svc_status_handle, &svc_status);
}
#endif
/***************************/
/* Initialization Complete */
/***************************/
/* Main service loop: */
while(!terminated && wait_for_call(com_handle)) {
if(!carrier_detect(com_handle)) /* re-initialization timer time-out? */
continue;
comWriteByte(com_handle,'\r');
comWriteString(com_handle, banner);
comWriteString(com_handle, "\r\n");
if((sock=connect_socket(host, port)) == INVALID_SOCKET) {
comWriteString(com_handle,"\7\r\n!ERROR connecting to TCP port\r\n");
} else {
handle_call();
close_socket(&sock);
total_calls++;
lprintf(LOG_INFO,"Call completed (%lu total)", total_calls);
}
if(com_hangup && !hangup_call(com_handle))
break;
if(terminate_after_one_call)
break;
}
exit(0);
}
ulong sbbs_t::msgtoqwk(smbmsg_t* msg, FILE *qwk_fp, long mode, uint subnum
, int conf, FILE* hdrs)
{
char str[512],from[512],to[512],ch=0,tear=0,tearwatch=0,*buf,*p;
char asc;
char msgid[256];
char tmp[512];
long l,size=0,offset;
int i;
ushort hfield_type;
struct tm tm;
smbmsg_t remsg;
time_t tt;
offset=(long)ftell(qwk_fp);
if(hdrs!=NULL) {
fprintf(hdrs,"[%lx]\n",offset);
/* Message-IDs */
fprintf(hdrs,"Message-ID: %s\n",get_msgid(&cfg,subnum,msg,msgid,sizeof(msgid)));
if(msg->reply_id!=NULL)
fprintf(hdrs,"In-Reply-To: %s\n",msg->reply_id);
/* Time/Date/Zone info */
fprintf(hdrs,"WhenWritten: %-20s %04hx\n"
,xpDateTime_to_isoDateTimeStr(
time_to_xpDateTime(msg->hdr.when_written.time,smb_tzutc(msg->hdr.when_written.zone))
,/* separators: */"","","", /* precision: */0
,str,sizeof(str))
,msg->hdr.when_written.zone
);
fprintf(hdrs,"WhenImported: %-20s %04hx\n"
,xpDateTime_to_isoDateTimeStr(
time_to_xpDateTime(msg->hdr.when_imported.time,smb_tzutc(msg->hdr.when_imported.zone))
,/* separators: */"","","", /* precision: */0
,str,sizeof(str))
,msg->hdr.when_imported.zone
);
fprintf(hdrs,"WhenExported: %-20s %04hx\n"
,xpDateTime_to_isoDateTimeStr(
xpDateTime_now()
,/* separators: */"","","", /* precision: */0
,str,sizeof(str))
,sys_timezone(&cfg)
);
fprintf(hdrs,"ExportedFrom: %s %s %"PRIu32"\n"
,cfg.sys_id
,subnum==INVALID_SUB ? "mail":cfg.sub[subnum]->code
,msg->hdr.number
);
/* SENDER */
fprintf(hdrs,"%s: %s\n",smb_hfieldtype(SENDER),msg->from);
if(msg->from_net.type)
fprintf(hdrs,"%s: %s\n",smb_hfieldtype(SENDERNETADDR),smb_netaddrstr(&msg->from_net,tmp));
if((p=(char*)smb_get_hfield(msg,hfield_type=SENDERIPADDR,NULL))!=NULL)
fprintf(hdrs,"%s: %s\n",smb_hfieldtype(hfield_type),p);
if((p=(char*)smb_get_hfield(msg,hfield_type=SENDERHOSTNAME,NULL))!=NULL)
fprintf(hdrs,"%s: %s\n",smb_hfieldtype(hfield_type),p);
if((p=(char*)smb_get_hfield(msg,hfield_type=SENDERPROTOCOL,NULL))!=NULL)
fprintf(hdrs,"%s: %s\n",smb_hfieldtype(hfield_type),p);
if(msg->from_org!=NULL)
fprintf(hdrs,"Organization: %s\n",msg->from_org);
else if(msg->from_net.type==NET_NONE)
fprintf(hdrs,"Organization: %s\n",cfg.sys_name);
/* Reply-To */
if((p=(char*)smb_get_hfield(msg,RFC822REPLYTO,NULL))==NULL) {
if(msg->replyto_net.type==NET_INTERNET)
p=(char*)msg->replyto_net.addr;
else if(msg->replyto!=NULL)
p=msg->replyto;
}
if(p!=NULL)
fprintf(hdrs,"Reply-To: %s\n",p); /* use original RFC822 header field */
/* SUBJECT */
fprintf(hdrs,"%s: %s\n",smb_hfieldtype(SUBJECT),msg->subj);
/* RECIPIENT */
fprintf(hdrs,"%s: %s\n",smb_hfieldtype(RECIPIENT),msg->to);
if(msg->to_net.type)
fprintf(hdrs,"%s: %s\n",smb_hfieldtype(RECIPIENTNETADDR),smb_netaddrstr(&msg->to_net,tmp));
/* FidoNet */
if((p=(char*)smb_get_hfield(msg,hfield_type=FIDOAREA,NULL))!=NULL)
fprintf(hdrs,"%s: %s\n", smb_hfieldtype(hfield_type), p);
if((p=(char*)smb_get_hfield(msg,hfield_type=FIDOSEENBY,NULL))!=NULL)
fprintf(hdrs,"%s: %s\n", smb_hfieldtype(hfield_type), p);
if((p=(char*)smb_get_hfield(msg,hfield_type=FIDOPATH,NULL))!=NULL)
fprintf(hdrs,"%s: %s\n", smb_hfieldtype(hfield_type), p);
if((p=(char*)smb_get_hfield(msg,hfield_type=FIDOMSGID,NULL))!=NULL)
fprintf(hdrs,"%s: %s\n", smb_hfieldtype(hfield_type), p);
if((p=(char*)smb_get_hfield(msg,hfield_type=FIDOREPLYID,NULL))!=NULL)
fprintf(hdrs,"%s: %s\n", smb_hfieldtype(hfield_type), p);
if((p=(char*)smb_get_hfield(msg,hfield_type=FIDOPID,NULL))!=NULL)
fprintf(hdrs,"%s: %s\n", smb_hfieldtype(hfield_type), p);
if((p=(char*)smb_get_hfield(msg,hfield_type=FIDOFLAGS,NULL))!=NULL)
fprintf(hdrs,"%s: %s\n", smb_hfieldtype(hfield_type), p);
if((p=(char*)smb_get_hfield(msg,hfield_type=FIDOTID,NULL))!=NULL)
fprintf(hdrs,"%s: %s\n", smb_hfieldtype(hfield_type), p);
/* Synchronet */
if((p=(char*)smb_get_hfield(msg,hfield_type=SMB_EDITOR,NULL))!=NULL)
fprintf(hdrs,"%s: %s\n", smb_hfieldtype(hfield_type), p);
/* USENET */
if((p=(char*)smb_get_hfield(msg,hfield_type=USENETPATH,NULL))!=NULL)
fprintf(hdrs,"%s: %s\n", smb_hfieldtype(hfield_type), p);
if((p=(char*)smb_get_hfield(msg,hfield_type=USENETNEWSGROUPS,NULL))!=NULL)
fprintf(hdrs,"%s: %s\n", smb_hfieldtype(hfield_type), p);
/* RFC822 header fields: */
for(i=0;i<msg->total_hfields;i++)
if(msg->hfield[i].type==RFC822HEADER)
fprintf(hdrs,"%s\n",truncsp_lines((char*)msg->hfield_dat[i]));
/* Blank line: */
fprintf(hdrs,"\n");
}
fprintf(qwk_fp,"%*s",QWK_BLOCK_LEN,""); /* Init header to space */
/* QWKE compatible kludges */
SAFECOPY(from,msg->from);
if(msg->from_net.addr && (uint)subnum==INVALID_SUB && !(mode&QM_TO_QNET)) {
if(msg->from_net.type==NET_FIDO)
sprintf(from,"%.128s@%.128s"
,msg->from,smb_faddrtoa((faddr_t *)msg->from_net.addr,tmp));
else if(msg->from_net.type==NET_INTERNET || strchr((char*)msg->from_net.addr,'@')!=NULL)
sprintf(from,"%.128s",(char*)msg->from_net.addr);
else
sprintf(from,"%.128s@%.128s",msg->from,(char*)msg->from_net.addr);
}
if(msg->hdr.attr&MSG_ANONYMOUS && !SYSOP)
SAFECOPY(from,text[Anonymous]);
else if((subnum==INVALID_SUB || (useron.qwk&QWK_EXT)) && strlen(from) > QWK_HFIELD_LEN) {
size+=fprintf(qwk_fp,"From: %.128s%c", from, QWK_NEWLINE);
SAFECOPY(from,msg->from);
}
SAFECOPY(to,msg->to);
if(msg->to_net.addr && (uint)subnum==INVALID_SUB) {
if(msg->to_net.type==NET_FIDO)
sprintf(to,"%.128s@%s",msg->to,smb_faddrtoa((faddr_t *)msg->to_net.addr,tmp));
else if(msg->to_net.type==NET_INTERNET)
sprintf(to,"%.128s",(char*)msg->to_net.addr);
else if(msg->to_net.type==NET_QWK) {
if(mode&QM_TO_QNET) {
p=strchr((char *)msg->to_net.addr,'/');
if(p) { /* Another hop */
p++;
SAFECOPY(to,"NETMAIL");
size+=fprintf(qwk_fp,"%.128s@%.128s%c",msg->to,p,QWK_NEWLINE);
}
else
sprintf(to,"%.128s",msg->to);
}
else
sprintf(to,"%.128s@%.128s",msg->to,(char*)msg->to_net.addr);
}
else
sprintf(to,"%.128s@%.128s",msg->to,(char*)msg->to_net.addr);
}
if((subnum==INVALID_SUB || (useron.qwk&QWK_EXT)) && strlen(to) > QWK_HFIELD_LEN) {
size+=fprintf(qwk_fp,"To: %.128s%c", to, QWK_NEWLINE);
if(msg->to_net.type==NET_QWK)
SAFECOPY(to,"NETMAIL");
else
SAFECOPY(to,msg->to);
}
if((useron.qwk&QWK_EXT) && strlen(msg->subj) > QWK_HFIELD_LEN)
size+=fprintf(qwk_fp,"Subject: %.128s%c", msg->subj, QWK_NEWLINE);
if(msg->from_net.type==NET_QWK && mode&QM_VIA && !msg->forwarded)
size+=fprintf(qwk_fp,"@VIA: %s%c"
,(char*)msg->from_net.addr,QWK_NEWLINE);
if(mode&QM_MSGID && (uint)subnum!=INVALID_SUB) {
size+=fprintf(qwk_fp,"@MSGID: %s%c"
,get_msgid(&cfg,subnum,msg,msgid,sizeof(msgid)),QWK_NEWLINE);
if(msg->reply_id) {
SAFECOPY(tmp,msg->reply_id);
truncstr(tmp," ");
size+=fprintf(qwk_fp,"@REPLY: %s%c"
,tmp,QWK_NEWLINE);
} else if(msg->hdr.thread_back) {
memset(&remsg,0,sizeof(remsg));
remsg.hdr.number=msg->hdr.thread_back;
if(smb_getmsgidx(&smb, &remsg))
size+=fprintf(qwk_fp,"@REPLY: <%s>%c",smb.last_error,QWK_NEWLINE);
else
size+=fprintf(qwk_fp,"@REPLY: %s%c"
,get_msgid(&cfg,subnum,&remsg,msgid,sizeof(msgid))
,QWK_NEWLINE);
}
}
if(msg->hdr.when_written.zone && mode&QM_TZ)
size+=fprintf(qwk_fp,"@TZ: %04hx%c",msg->hdr.when_written.zone,QWK_NEWLINE);
if(msg->replyto!=NULL && mode&QM_REPLYTO)
size+=fprintf(qwk_fp,"@REPLYTO: %s%c"
,msg->replyto,QWK_NEWLINE);
p=0;
for(i=0;i<msg->total_hfields;i++) {
if(msg->hfield[i].type==SENDER)
p=(char *)msg->hfield_dat[i];
if(msg->hfield[i].type==FORWARDED && p) {
size+=fprintf(qwk_fp,"Forwarded from %s on %s%c",p
,timestr(*(time32_t *)msg->hfield_dat[i])
,QWK_NEWLINE);
}
}
buf=smb_getmsgtxt(&smb,msg,GETMSGTXT_ALL);
if(!buf)
return(0);
for(l=0;buf[l];l++) {
ch=buf[l];
if(ch=='\n') {
if(tear)
tear++; /* Count LFs after tearline */
if(tear>3) /* more than two LFs after the tear */
tear=0;
if(tearwatch==4) { /* watch for LF---LF */
tear=1;
tearwatch=0;
}
else if(!tearwatch)
tearwatch=1;
else
tearwatch=0;
if(l && buf[l-1]=='\r') /* Replace CRLF with funky char */
ch=QWK_NEWLINE; /* but leave sole LF (soft-NL) alone */
fputc(ch,qwk_fp);
size++;
continue;
}
if(ch=='\r') { /* Ignore CRs */
if(tearwatch<4) /* LF---CRLF is okay */
tearwatch=0; /* LF-CR- is not okay */
continue;
}
if(ch==' ' && tearwatch==4) { /* watch for "LF--- " */
tear=1;
tearwatch=0;
}
if(ch=='-') { /* watch for "LF---" */
if(l==0 || (tearwatch && tearwatch<4))
tearwatch++;
else
tearwatch=0;
}
else
tearwatch=0;
if((uint)subnum!=INVALID_SUB && cfg.sub[subnum]->misc&SUB_ASCII) {
if(ch<' ' && ch!=1)
ch='.';
else if((uchar)ch>0x7f)
ch=exascii_to_ascii_char(ch);
}
if(ch==QWK_NEWLINE) /* funky char */
ch='*';
if(ch==CTRL_A) {
ch=buf[++l];
if(ch==0 || toupper(ch)=='Z') /* EOF */
break;
if((asc=ctrl_a_to_ascii_char(ch)) != 0) {
fputc(asc,qwk_fp);
size++;
continue;
}
if(mode&A_EXPAND) {
str[0]=0;
switch(toupper(ch)) {
case 'W':
SAFECOPY(str,ansi(LIGHTGRAY));
break;
case 'K':
SAFECOPY(str,ansi(BLACK));
break;
case 'H':
SAFECOPY(str,ansi(HIGH));
break;
case 'I':
SAFECOPY(str,ansi(BLINK));
break;
case '-':
case '_':
case 'N': /* Normal */
SAFECOPY(str,ansi(ANSI_NORMAL));
break;
case 'R':
SAFECOPY(str,ansi(RED));
break;
case 'G':
SAFECOPY(str,ansi(GREEN));
break;
case 'B':
SAFECOPY(str,ansi(BLUE));
break;
case 'C':
SAFECOPY(str,ansi(CYAN));
break;
case 'M':
SAFECOPY(str,ansi(MAGENTA));
break;
case 'Y': /* Yellow */
SAFECOPY(str,ansi(BROWN));
break;
case '0':
SAFECOPY(str,ansi(BG_BLACK));
break;
case '1':
SAFECOPY(str,ansi(BG_RED));
break;
case '2':
SAFECOPY(str,ansi(BG_GREEN));
break;
case '3':
SAFECOPY(str,ansi(BG_BROWN));
break;
case '4':
SAFECOPY(str,ansi(BG_BLUE));
break;
case '5':
SAFECOPY(str,ansi(BG_MAGENTA));
break;
case '6':
SAFECOPY(str,ansi(BG_CYAN));
break;
case '7':
SAFECOPY(str,ansi(BG_LIGHTGRAY));
break;
}
if(str[0])
size+=fwrite(str,sizeof(char),strlen(str),qwk_fp);
continue;
} /* End Expand */
if(mode&A_LEAVE && valid_ctrl_a_code(ch)) {
fputc(CTRL_A,qwk_fp);
fputc(ch,qwk_fp);
size+=2L;
}
continue;
} /* End of Ctrl-A shit */
fputc(ch,qwk_fp);
size++;
}
free(buf);
if(ch!=QWK_NEWLINE) {
fputc(QWK_NEWLINE,qwk_fp); /* make sure it ends in CRLF */
size++;
}
if(mode&QM_TAGLINE && !(cfg.sub[subnum]->misc&SUB_NOTAG)) {
if(!tear) /* no tear line */
SAFEPRINTF(str,"\1n---%c",QWK_NEWLINE); /* so add one */
else
SAFECOPY(str,"\1n");
if(cfg.sub[subnum]->misc&SUB_ASCII) ch='*';
else ch='þ';
safe_snprintf(tmp,sizeof(tmp)," %c \1g%.10s\1n %c %.127s%c"
,ch,VERSION_NOTICE,ch,cfg.sub[subnum]->tagline,QWK_NEWLINE);
strcat(str,tmp);
if(!(mode&A_LEAVE))
remove_ctrl_a(str,str);
size+=fwrite(str,sizeof(char),strlen(str),qwk_fp);
}
while(size%QWK_BLOCK_LEN) { /* Pad with spaces */
size++;
fputc(' ',qwk_fp);
}
tt=msg->hdr.when_written.time;
if(localtime_r(&tt,&tm)==NULL)
memset(&tm,0,sizeof(tm));
safe_snprintf(tmp,sizeof(tmp),"%02u-%02u-%02u%02u:%02u"
,tm.tm_mon+1,tm.tm_mday,TM_YEAR(tm.tm_year)
,tm.tm_hour,tm.tm_min);
if(msg->hdr.attr&MSG_PRIVATE) {
if(msg->hdr.attr&MSG_READ)
ch='*'; /* private, read */
else
ch='+'; /* private, unread */ }
else {
if(msg->hdr.attr&MSG_READ)
ch='-'; /* public, read */
else
ch=' '; /* public, unread */ }
safe_snprintf(str,sizeof(str),"%c%-7lu%-13.13s%-25.25s"
"%-25.25s%-25.25s%12s%-8lu%-6lu\xe1%c%c%c%c%c"
,ch /* message status flag */
,mode&QM_REP ? (ulong)conf /* conference or */
: msg->hdr.number&MAX_MSGNUM /* message number */
,tmp /* date and time */
,to /* To: */
,from /* From: */
,msg->subj /* Subject */
,nulstr /* Password */
,msg->hdr.thread_back&MAX_MSGNUM /* Message Re: Number */
,(size/QWK_BLOCK_LEN)+1 /* Number of blocks */
,(char)conf&0xff /* Conference number lo byte */
,(ushort)conf>>8 /* hi byte */
,' ' /* not used */
,' ' /* not used */
,useron.rest&FLAG('Q') ? '*' : ' ' /* Net tag line */
);
fseek(qwk_fp,offset,SEEK_SET);
fwrite(str,QWK_BLOCK_LEN,1,qwk_fp);
fseek(qwk_fp,size,SEEK_CUR);
return(size);
}
