Newer
Older
/* Synchronet FidoNet EchoMail Scanning/Tossing and NetMail Tossing Utility */
/* $Id$ */
/****************************************************************************
* @format.tab-size 4 (Plain Text/Source Code File Header) *
* @format.use-tabs true (see http://www.synchro.net/ptsc_hdr.html) *
* *
* Copyright 2000 Rob Swindell - http://www.synchro.net/copyright.html *
* *
* This program is free software; you can redistribute it and/or *
* modify it under the terms of the GNU General Public License *
* as published by the Free Software Foundation; either version 2 *
* of the License, or (at your option) any later version. *
* See the GNU General Public License for more details: gpl.txt or *
* http://www.fsf.org/copyleft/gpl.html *
* *
* Anonymous FTP access to the most recent released source is available at *
* ftp://vert.synchro.net, ftp://cvs.synchro.net and ftp://ftp.synchro.net *
* *
* Anonymous CVS access to the development source and modification history *
* is available at cvs.synchro.net:/cvsroot/sbbs, example: *
* cvs -d :pserver:anonymous@cvs.synchro.net:/cvsroot/sbbs login *
* (just hit return, no password is necessary) *
* cvs -d :pserver:anonymous@cvs.synchro.net:/cvsroot/sbbs checkout src *
* *
* For Synchronet coding style and modification guidelines, see *
* http://www.synchro.net/source.html *
* *
* You are encouraged to submit any modifications (preferably in Unix diff *
* format) via e-mail to mods@synchro.net *
* *
* Note: If this box doesn't appear square, then you need to fix your tabs. *
****************************************************************************/
/* Portions written by Allen Christiansen 1994-1996 */
#ifdef _WIN32
#include <windows.h>
#endif
#include <time.h>
#include <errno.h>
#include <stdio.h>
#include <ctype.h>
#include <fcntl.h>
#include <stdarg.h>
#include <stdlib.h>
#include <string.h>
#ifdef __WATCOMC__
#include <mem.h>
#define O_DENYNONE SH_DENYNO
#endif
#ifdef __MSDOS__
extern uchar node_swap;
#endif
extern long misc;
extern config_t cfg;
/******************************************************************************
Here we take a string and put a terminator in place of the first TAB or SPACE
******************************************************************************/
char *cleanstr(char *instr)
{
int i;
break;
instr[i]=0;
return(instr);
/****************************************************************************/
/* Returns the FidoNet address kept in str as ASCII. */
/****************************************************************************/
faddr_t atofaddr(char *instr)
{
char *p,str[51];
faddr_t addr;
sprintf(str,"%.50s",instr);
cleanstr(str);
if(!stricmp(str,"ALL")) {
addr.zone=addr.net=addr.node=addr.point=0xffff;
return(addr); }
addr.zone=addr.net=addr.node=addr.point=0;
if((p=strchr(str,':'))!=NULL) {
if(!strnicmp(str,"ALL:",4))
addr.zone=0xffff;
else
addr.zone=atoi(str);
p++;
if(!strnicmp(p,"ALL",3))
addr.net=0xffff;
else
addr.net=atoi(p); }
else {
#ifdef SCFG
#endif
addr.zone=1;
addr.net=atoi(str); }
if(!addr.zone) /* no such thing as zone 0 */
addr.zone=1;
if((p=strchr(str,'/'))!=NULL) {
p++;
if(!strnicmp(p,"ALL",3))
addr.node=0xffff;
else
addr.node=atoi(p); }
if(!addr.net) {
#ifdef SCFG
if(total_faddrs)
addr.net=faddr[0].net;
else
#endif
addr.net=1; }
addr.node=atoi(str); }
if((p=strchr(str,'.'))!=NULL) {
p++;
if(!strnicmp(p,"ALL",3))
addr.point=0xffff;
else
addr.point=atoi(p); }
return(addr);
/******************************************************************************
This function returns the number of the node in the SBBSECHO.CFG file which
matches the address passed to it (or cfg.nodecfgs if no match).
******************************************************************************/
int matchnode(faddr_t addr, int exact)
{
int i;
if(exact!=2) {
for(i=0;i<cfg.nodecfgs;i++) /* Look for exact match */
if(!memcmp(&cfg.nodecfg[i].faddr,&addr,sizeof(faddr_t)))
break;
if(exact || i<cfg.nodecfgs)
return(i); }
for(i=0;i<cfg.nodecfgs;i++) /* Look for point match */
if(cfg.nodecfg[i].faddr.point==0xffff
&& addr.zone==cfg.nodecfg[i].faddr.zone
&& addr.net==cfg.nodecfg[i].faddr.net
&& addr.node==cfg.nodecfg[i].faddr.node)
if(i<cfg.nodecfgs)
return(i);
for(i=0;i<cfg.nodecfgs;i++) /* Look for node match */
if(cfg.nodecfg[i].faddr.node==0xffff
&& addr.zone==cfg.nodecfg[i].faddr.zone
&& addr.net==cfg.nodecfg[i].faddr.net)
break;
if(i<cfg.nodecfgs)
return(i);
for(i=0;i<cfg.nodecfgs;i++) /* Look for net match */
if(cfg.nodecfg[i].faddr.net==0xffff
&& addr.zone==cfg.nodecfg[i].faddr.zone)
break;
if(i<cfg.nodecfgs)
return(i);
for(i=0;i<cfg.nodecfgs;i++) /* Look for total wild */
if(cfg.nodecfg[i].faddr.zone==0xffff)
break;
return(i);
}
void read_echo_cfg()
{
uchar str[1025],tmp[512],*p,*tp;
int i,j,file;
FILE *stream;
faddr_t addr,route_addr;
/****** READ IN SBBSECHO.CFG FILE *******/
printf("\nReading %s\n",cfg.cfgfile);
if((stream=fnopen(&file,cfg.cfgfile,O_RDONLY))==NULL) {
printf("Unable to open %s for read.\n",cfg.cfgfile);
bail(1); }
cfg.maxpktsize=DFLT_PKT_SIZE;
cfg.maxbdlsize=DFLT_BDL_SIZE;
cfg.badecho=-1;
cfg.log=LOG_DEFAULTS;
cfg.check_path=TRUE;
while(1) {
if(!fgets(str,256,stream))
break;
truncsp(str);
p=str;
while(*p && *p<=' ') p++;
if(*p==';')
continue;
sprintf(tmp,"%-.25s",p);
if(tp)
*tp=0; /* Chop off at space */
#if 0
strupr(tmp); /* Convert code to uppercase */
#endif
while(*p>' ') p++; /* Skip code */
while(*p && *p<=' ') p++; /* Skip white space */
if(!stricmp(tmp,"PACKER")) { /* Archive Definition */
if((cfg.arcdef=(arcdef_t *)REALLOC(cfg.arcdef
,sizeof(arcdef_t)*(cfg.arcdefs+1)))==NULL) {
printf("\nError allocating %u bytes of memory for arcdef #%u.\n"
,sizeof(arcdef_t)*(cfg.arcdefs+1),cfg.arcdefs+1);
bail(1); }
sprintf(cfg.arcdef[cfg.arcdefs].name,"%-.25s",p);
tp=cfg.arcdef[cfg.arcdefs].name;
while(*tp && *tp>' ') tp++;
while(*p && *p>' ') p++;
while(*p && *p<=' ') p++;
cfg.arcdef[cfg.arcdefs].byteloc=atoi(p);
while(*p && *p>' ') p++;
while(*p && *p<=' ') p++;
sprintf(cfg.arcdef[cfg.arcdefs].hexid,"%-.25s",p);
tp=cfg.arcdef[cfg.arcdefs].hexid;
while(*tp && *tp>' ') tp++;
*tp=0;
while(fgets(str,256,stream) && strnicmp(str,"END",3)) {
p=str;
while(*p && *p<=' ') p++;
if(!strnicmp(p,"PACK ",5)) {
p+=5;
while(*p && *p<=' ') p++;
sprintf(cfg.arcdef[cfg.arcdefs].pack,"%-.80s",p);
truncsp(cfg.arcdef[cfg.arcdefs].pack);
continue; }
if(!strnicmp(p,"UNPACK ",7)) {
p+=7;
while(*p && *p<=' ') p++;
sprintf(cfg.arcdef[cfg.arcdefs].unpack,"%-.80s",p);
truncsp(cfg.arcdef[cfg.arcdefs].unpack); } }
++cfg.arcdefs;
continue; }
if(!stricmp(tmp,"REGNUM"))
if(!stricmp(tmp,"NOPATHCHECK")) {
cfg.check_path=FALSE;
continue;
}
if(!stricmp(tmp,"NOTIFY")) {
cfg.notify=atoi(cleanstr(p));
continue; }
if(!stricmp(tmp,"LOG")) {
cleanstr(p);
if(!stricmp(p,"ALL"))
cfg.log=0xffffffffUL;
else if(!stricmp(p,"DEFAULT"))
cfg.log=LOG_DEFAULTS;
else if(!stricmp(p,"NONE"))
cfg.log=0L;
else
cfg.log=strtol(cleanstr(p),0,16);
continue; }
if(!stricmp(tmp,"NOSWAP")) {
#ifdef __MSDOS__
node_swap=0;
#endif
continue; }
if(!stricmp(tmp,"SECURE_ECHOMAIL")) {
if(!stricmp(tmp,"STRIP_LF")) {
misc|=STRIP_LF;
if(!stricmp(tmp,"STORE_SEENBY")) {
misc|=STORE_SEENBY;
continue; }
if(!stricmp(tmp,"STORE_PATH")) {
misc|=STORE_PATH;
continue; }
if(!stricmp(tmp,"STORE_KLUDGE")) {
misc|=STORE_KLUDGE;
continue; }
if(!stricmp(tmp,"FUZZY_ZONE")) {
misc|=FUZZY_ZONE;
continue; }
if(!stricmp(tmp,"TRUNC_BUNDLES")) {
misc|=TRUNC_BUNDLES;
if(!stricmp(tmp,"FLO_MAILER")) {
misc|=FLO_MAILER;
continue; }
if(!stricmp(tmp,"ELIST_ONLY")) {
misc|=ELIST_ONLY;
continue; }
if(!stricmp(tmp,"KILL_EMPTY")) {
misc|=KILL_EMPTY_MAIL;
continue; }
if(!stricmp(tmp,"AREAFILE")) {
sprintf(cfg.areafile,"%-.80s",cleanstr(p));
continue; }
if(!stricmp(tmp,"LOGFILE")) {
sprintf(cfg.logfile,"%-.80s",cleanstr(p));
continue; }
if(!stricmp(tmp,"INBOUND")) { /* Inbound directory */
sprintf(cfg.inbound,"%-.80s",cleanstr(p));
backslash(cfg.inbound);
if(!stricmp(tmp,"SECURE_INBOUND")) { /* Secure Inbound directory */
sprintf(cfg.secure,"%-.80s",cleanstr(p));
backslash(cfg.secure);
continue; }
if(!stricmp(tmp,"OUTBOUND")) { /* Outbound directory */
sprintf(cfg.outbound,"%-.80s",cleanstr(p));
backslash(cfg.outbound);
continue; }
if(!stricmp(tmp,"ARCSIZE")) { /* Maximum bundle size */
cfg.maxbdlsize=atol(p);
continue; }
if(!stricmp(tmp,"PKTSIZE")) { /* Maximum packet size */
cfg.maxpktsize=atol(p);
continue; }
if(!stricmp(tmp,"USEPACKER")) { /* Which packer to use */
continue;
strcpy(str,p);
p=str;
while(*p && *p>' ') p++;
if(!*p)
continue;
*p=0;
p++;
for(i=0;i<cfg.arcdefs;i++)
if(!strnicmp(cfg.arcdef[i].name,str
,strlen(cfg.arcdef[i].name)))
break;
if(i==cfg.arcdefs) /* i = number of arcdef til done */
i=0xffff; /* Uncompressed type if not found */
while(*p) {
while(*p && *p<=' ') p++;
if(!*p)
break;
addr=atofaddr(p);
while(*p && *p>' ') p++;
j=matchnode(addr,1);
if(j==cfg.nodecfgs) {
cfg.nodecfgs++;
if((cfg.nodecfg=(nodecfg_t *)REALLOC(cfg.nodecfg
,sizeof(nodecfg_t)*(j+1)))==NULL) {
printf("\nError allocating memory for nodecfg #%u.\n"
,j+1);
bail(1); }
memset(&cfg.nodecfg[j],0,sizeof(nodecfg_t));
cfg.nodecfg[j].faddr=addr; }
cfg.nodecfg[j].arctype=i; } }
if(!stricmp(tmp,"PKTPWD")) { /* Packet Password */
if(!*p)
continue;
addr=atofaddr(p);
while(*p && *p>' ') p++; /* Skip address */
while(*p && *p<=' ') p++; /* Find beginning of password */
j=matchnode(addr,1);
if(j==cfg.nodecfgs) {
cfg.nodecfgs++;
if((cfg.nodecfg=(nodecfg_t *)REALLOC(cfg.nodecfg
,sizeof(nodecfg_t)*(j+1)))==NULL) {
printf("\nError allocating memory for nodecfg #%u.\n"
,j+1);
memset(&cfg.nodecfg[j],0,sizeof(nodecfg_t));
cfg.nodecfg[j].faddr=addr; }
sprintf(cfg.nodecfg[j].pktpwd,"%.8s",p); }
if(!stricmp(tmp,"PKTTYPE")) { /* Packet Type to Use */
if(!*p)
continue;
strcpy(str,p);
p=str;
while(*p && *p>' ') p++;
while(*p && *p<=' ') p++;
if(!*p)
break;
addr=atofaddr(p);
while(*p && *p>' ') p++;
j=matchnode(addr,1);
if(j==cfg.nodecfgs) {
cfg.nodecfgs++;
if((cfg.nodecfg=(nodecfg_t *)REALLOC(cfg.nodecfg
,sizeof(nodecfg_t)*(j+1)))==NULL) {
printf("\nError allocating memory for nodecfg #%u.\n"
,j+1);
bail(1); }
memset(&cfg.nodecfg[j],0,sizeof(nodecfg_t));
cfg.nodecfg[j].faddr=addr; }
if(!strcmp(str,"2+"))
cfg.nodecfg[j].pkt_type=PKT_TWO_PLUS;
else if(!strcmp(str,"2.2"))
cfg.nodecfg[j].pkt_type=PKT_TWO_TWO;
else if(!strcmp(str,"2"))
cfg.nodecfg[j].pkt_type=PKT_TWO; } }
if(!stricmp(tmp,"SEND_NOTIFY")) { /* Nodes to send notify lists to */
while(*p && *p<=' ') p++;
if(!*p)
break;
addr=atofaddr(p);
while(*p && *p>' ') p++;
j=matchnode(addr,1);
if(j==cfg.nodecfgs) {
cfg.nodecfgs++;
if((cfg.nodecfg=(nodecfg_t *)REALLOC(cfg.nodecfg
,sizeof(nodecfg_t)*(j+1)))==NULL) {
printf("\nError allocating memory for nodecfg #%u.\n"
,j+1);
bail(1); }
memset(&cfg.nodecfg[j],0,sizeof(nodecfg_t));
cfg.nodecfg[j].faddr=addr; }
cfg.nodecfg[j].attr|=SEND_NOTIFY; } }
if(!stricmp(tmp,"PASSIVE")
|| !stricmp(tmp,"HOLD")
|| !stricmp(tmp,"CRASH")
|| !stricmp(tmp,"DIRECT")) { /* Set node attributes */
if(!stricmp(tmp,"PASSIVE"))
else if(!stricmp(tmp,"CRASH"))
else if(!stricmp(tmp,"HOLD"))
else if(!stricmp(tmp,"DIRECT"))
while(*p && *p<=' ') p++;
if(!*p)
break;
addr=atofaddr(p);
while(*p && *p>' ') p++;
j=matchnode(addr,1);
if(j==cfg.nodecfgs) {
cfg.nodecfgs++;
if((cfg.nodecfg=(nodecfg_t *)REALLOC(cfg.nodecfg
,sizeof(nodecfg_t)*(j+1)))==NULL) {
printf("\nError allocating memory for nodecfg #%u.\n"
,j+1);
bail(1); }
memset(&cfg.nodecfg[j],0,sizeof(nodecfg_t));
cfg.nodecfg[j].faddr=addr; }
cfg.nodecfg[j].attr|=attr; } }
if(!stricmp(tmp,"ROUTE_TO")) {
while(*p && *p<=' ') p++;
while(*p && *p>' ') p++; }
while(*p && *p<=' ') p++;
if(!*p)
break;
addr=atofaddr(p);
while(*p && *p>' ') p++;
j=matchnode(addr,1);
if(j==cfg.nodecfgs) {
cfg.nodecfgs++;
if((cfg.nodecfg=(nodecfg_t *)REALLOC(cfg.nodecfg
,sizeof(nodecfg_t)*(j+1)))==NULL) {
printf("\nError allocating memory for nodecfg #%u.\n"
,j+1);
bail(1); }
memset(&cfg.nodecfg[j],0,sizeof(nodecfg_t));
cfg.nodecfg[j].faddr=addr; }
cfg.nodecfg[j].route=route_addr; } }
if(!stricmp(tmp,"AREAFIX")) { /* Areafix stuff here */
i=matchnode(addr,1);
if(i==cfg.nodecfgs) {
cfg.nodecfgs++;
if((cfg.nodecfg=(nodecfg_t *)REALLOC(cfg.nodecfg
printf("\nError allocating memory for nodecfg #%u.\n"
memset(&cfg.nodecfg[i],0,sizeof(nodecfg_t));
cfg.nodecfg[i].faddr=addr; }
cfg.nodecfg[i].flag=NULL;
while(*p && *p>' ') p++; /* Get to the end of the address */
while(*p && *p<=' ') p++; /* Skip over whitespace chars */
while(*p && *p>' ') p++; /* Find end of password */
sprintf(cfg.nodecfg[i].password,"%-.25s",tp);
while(*p && *p<=' ') p++; /* Search for more chars */
if(!*p) /* Nothing else there */
continue;
while(*p) {
while(*p && *p>' ') p++; /* Find end of this flag */
for(j=0;j<cfg.nodecfg[i].numflags;j++)
if(!strnicmp(cfg.nodecfg[i].flag[j].flag,tp
,strlen(cfg.nodecfg[i].flag[j].flag)))
break;
if(j==cfg.nodecfg[i].numflags) {
if((cfg.nodecfg[i].flag=
(flag_t *)REALLOC(cfg.nodecfg[i].flag
,sizeof(flag_t)*(j+1)))==NULL) {
printf("\nError allocating memory for nodecfg #%u "
"flag #%u.\n",cfg.nodecfgs,j+1);
bail(1); }
cfg.nodecfg[i].numflags++;
sprintf(cfg.nodecfg[i].flag[j].flag,"%.4s",tp); }
while(*p && *p<=' ') p++; } }
if(!stricmp(tmp,"ECHOLIST")) { /* Echolists go here */
if((cfg.listcfg=(echolist_t *)REALLOC(cfg.listcfg
,sizeof(echolist_t)*(cfg.listcfgs+1)))==NULL) {
printf("\nError allocating memory for echolist cfg #%u.\n"
,cfg.listcfgs+1);
bail(1); }
memset(&cfg.listcfg[cfg.listcfgs],0,sizeof(echolist_t));
++cfg.listcfgs;
/* Need to forward requests? */
if(!strnicmp(p,"FORWARD ",8) || !strnicmp(p,"HUB ",4)) {
if(!strnicmp(p,"HUB ",4))
cfg.listcfg[cfg.listcfgs-1].misc|=NOFWD;
while(*p && *p>' ') p++;
while(*p && *p<=' ') p++;
if(*p)
cfg.listcfg[cfg.listcfgs-1].forward=atofaddr(p);
while(*p && *p>' ') p++;
while(*p && *p<=' ') p++;
if(*p && !(cfg.listcfg[cfg.listcfgs-1].misc&NOFWD)) {
tp=p;
while(*p && *p>' ') p++;
while(*p && *p<=' ') p++;
SAFECOPY(cfg.listcfg[cfg.listcfgs-1].password,tp); } }
else
cfg.listcfg[cfg.listcfgs-1].misc|=NOFWD;
if(!*p)
continue;
while(*p && *p>' ') p++;
*p=0;
p++;
sprintf(cfg.listcfg[cfg.listcfgs-1].listpath,"%-.128s",tp);
cfg.listcfg[cfg.listcfgs-1].numflags=0;
cfg.listcfg[cfg.listcfgs-1].flag=NULL;
while(*p && *p<=' ') p++; /* Skip over whitespace chars */
while(*p && *p>' ') p++; /* Find end of this flag */
*p=0; /* and terminate it */
++p;
for(j=0;j<cfg.listcfg[cfg.listcfgs-1].numflags;j++)
if(!strnicmp(cfg.listcfg[cfg.listcfgs-1].flag[j].flag,tp
,strlen(cfg.listcfg[cfg.listcfgs-1].flag[j].flag)))
break;
if(j==cfg.listcfg[cfg.listcfgs-1].numflags) {
if((cfg.listcfg[cfg.listcfgs-1].flag=
(flag_t *)REALLOC(cfg.listcfg[cfg.listcfgs-1].flag
,sizeof(flag_t)*(j+1)))==NULL) {
printf("\nError allocating memory for listcfg #%u "
"flag #%u.\n",cfg.listcfgs,j+1);
bail(1); }
cfg.listcfg[cfg.listcfgs-1].numflags++;
sprintf(cfg.listcfg[cfg.listcfgs-1].flag[j].flag,"%.4s",tp); }
while(*p && *p<=' ') p++; } }
/* Message disabled why? ToDo */
/* printf("Unrecognized line in SBBSECHO.CFG file.\n"); */
}
fclose(stream);
printf("\n");