int mdm_dial(char *phone,char *port)
{
int rc;
char s[MAX_STRING],conn[MAX_STRING];
if((rc=tty_openport(port))) {
write_log("can't open port: %s",tty_errs[rc]);
return MC_BAD;
}
reset();
xstrcpy(s,cfgs(CFG_DIALPREFIX),MAX_STRING);
xstrcat(s,phone,MAX_STRING);
xstrcat(s,cfgs(CFG_DIALSUFFIX),MAX_STRING);
tty_local(1);
sline("Dialing %s",s);vidle();
rc=modem_chat(s,cfgsl(CFG_MODEMCONNECT),cfgsl(CFG_MODEMNODIAL),cfgsl(CFG_MODEMERROR),
cfgsl(CFG_MODEMBUSY),cfgs(CFG_MODEMRINGING),cfgi(CFG_MAXRINGS),
cfgi(CFG_WAITCARRIER),conn,MAX_STRING);
sline("Modem said: %s",conn);
xfree(connstr);connstr=xstrdup(conn);
if(rc!=MC_OK) {
write_log("got %s",conn);
if(rc==MC_FAIL)hangup();
tty_close();
if(rc==MC_RING) {
sline("RING found..");
sleep(2);
execsh("killall -USR1 mgetty vgetty >/dev/null 2>&1");
} else sline("Call failed (%s)",mcs[rc]);
return rc;
}
write_log("*** %s",conn);
tty_local(0);
return rc;
}
void chatlog_done()
{
FILE *chatlog=NULL;
time_t tt;struct tm *t;
char str[MAX_STRING]={0};
write_log("Chat closed");
if(rcpos)chatlog_write("\n",1);
if(mcpos)chatlog_write("\n",0);
if(cfgs(CFG_CHATLOG))chatlog=fopen(ccs,"at");
tt=time(NULL);t=localtime(&tt);
strftime(str,MAX_STRING-1,"\n[--- Chat closed at %d %b %y %H:%M:%S ---]\n\n",t);
if(chatlog){fwrite(str,strlen(str),1,chatlog);fclose(chatlog);}
if(lemail)fwrite(str,strlen(str),1,lemail);
if(cpkt) {
if(cfgi(CFG_RECODEPKTS))recode_to_remote(str);
strtr(str,'\n','\r');
fwrite(str,strlen(str)-1,1,cpkt);
closeqpkt(cpkt,adr);
snprintf(str,MAX_STRING-1,"%s/%s",cfgs(CFG_INBOUND),basename(pktname));
if(rename(pktname,str))write_log("can't rename %s to %s: %s",pktname,str,strerror(errno));
else chmod(str,cfgi(CFG_DEFPERM));
}
if(lemail) {
fclose(lemail);
snprintf(str,MAX_STRING-1,"mail -s chatlog %s < /tmp/qlemail.%04lx",cfgs(CFG_CHATTOEMAIL),(long)getpid());
execsh(str);
lunlink(strrchr(str,'<')+1);
}
}
int chatlog_init(char *remname,ftnaddr_t *ra,int side)
{
FILE *chatlog=NULL;
time_t tt;struct tm *t;
char str[MAX_STRING]={0};
write_log("Chat opened%s",side?" by remote side":"");
adr=&cfgal(CFG_ADDRESS)->addr;
if(cfgs(CFG_RUNONCHAT)&&side)execnowait("/bin/sh","-c",ccs,ftnaddrtoa(adr));
if(cfgi(CFG_CHATLOGNETMAIL)) {
snprintf(pktname,MAX_PATH-1,"%s/tmp/%08lx.pkt",cfgs(CFG_INBOUND),sequencer());
cpkt=openpktmsg(adr,adr,"qico chat-log poster",xstrdup(cfgs(CFG_SYSOP)),"log of chat",NULL,pktname,137);
if(!cpkt)write_log("can't open '%s' for writing",pktname);
}
if(cfgs(CFG_CHATTOEMAIL)) {
snprintf(str,MAX_PATH,"/tmp/qlemail.%04lx",(long)getpid());
lemail=fopen(str,"wt");
if(!lemail)write_log("can't crearte temporary email-log file");
}
if(cfgs(CFG_CHATLOG))chatlog=fopen(ccs,"at");
if(ccs&&!chatlog)write_log("can't open chat log %s",ccs);
tt=time(NULL);t=localtime(&tt);
snprintf(str,MAX_STRING,"[Chat with: %s (%u:%u/%u.%u) open by %s at ",remname,ra->z,ra->n,ra->f,ra->p,side?"remote":"my");
strftime(str+strlen(str),MAX_STRING-1,"%d %b %y %H:%M:%S]\n",t);
if(chatlog){fwrite(str,strlen(str),1,chatlog);fclose(chatlog);}
if(lemail)fwrite(str,strlen(str),1,lemail);
if(cpkt) {
if(cfgi(CFG_RECODEPKTS))recode_to_remote(str);
strtr(str,'\n','\r');
fwrite(str,strlen(str),1,cpkt);
runtoss=1;
}
mcpos=rcpos=0;*rchat=0;*mchat=0;
return(cpkt!=NULL||chatlog!=NULL||lemail!=NULL);
}
static int reset()
{
slist_t *hc;
int rc=MC_OK;
if(!cfgsl(CFG_MODEMRESET)) return MC_OK;
write_log("resetting modem...");
for(hc=ccsl;hc && rc==MC_OK;hc=hc->next)
rc=modem_chat(hc->str,cfgsl(CFG_MODEMOK),cfgsl(CFG_MODEMNODIAL),
cfgsl(CFG_MODEMERROR),cfgsl(CFG_MODEMBUSY),
cfgs(CFG_MODEMRINGING),cfgi(CFG_MAXRINGS),
cfgi(CFG_WAITRESET),NULL,0);
if(rc!=MC_OK) write_log("modem reset failed, rc=%d [%s]",rc,mcs[rc]);
return rc;
}
static int wazoosend(int zap)
{
flist_t *l;
int rc,ticskip=0;
unsigned long total=totalf+totalm;
write_log("wazoo send");
sline("Init zsend...");
rc=zmodem_sendinit(zap);
sendf.cps=1;sendf.allf=totaln;sendf.ttot=totalf;
if(!rc)for(l=fl;l;l=l->next) {
if(l->sendas) {
rc=cfgi(CFG_AUTOTICSKIP)?ticskip:0;ticskip=0;
if(!rc||!istic(l->tosend))rc=zmodem_sendfile(l->tosend,l->sendas,&total,&totaln);
else write_log("tic file '%s' auto%sed",l->tosend,rc==ZSKIP?"skipp":"refus");
if(rc<0)break;
if(!rc||rc==ZSKIP) {
if(l->type==IS_REQ)was_req=1;
flexecute(l);
}
if(rc==ZSKIP||rc==ZFERR)ticskip=rc;
} else flexecute(l);
}
sline("Done zsend...");
rc=zmodem_senddone();
qpreset(1);
return(rc<0);
}
int receivecb(char *fn)
{
char *p=strrchr(fn,'.');
if(!p)return 0; else p++;
if(!strcasecmp(p,"pkt")&&cfgi(CFG_SHOWPKT))return(showpkt(fn));
if(!strcasecmp(p,"req")&&(cfgs(CFG_EXTRP)||cfgs(CFG_SRIFRP)))return(freq_recv(fn));
return 0;
}
void addflist(flist_t **fl,char *loc,char *rem,char kill,off_t off,FILE *lo,int fromlo)
{
flist_t **t,*q;
int type;
slist_t *i;
DEBUG(('S',2,"Add file: '%s', sendas: '%s', kill: '%c', fromLO: %s, offset: %d",
loc,rem?rem:"(null)",kill,lo?"yes":"no",off));
type=whattype(rem);
if(type==IS_PKT&&fromlo)type=IS_FILE;
if((checktimegaps(cfgs(CFG_MAILONLY))||
checktimegaps(cfgs(CFG_ZMH)))&&type!=IS_PKT)return;
for(i=cfgsl(CFG_AUTOHOLD);i;i=i->next)
if(!xfnmatch(i->str,loc,FNM_PATHNAME))return;
switch(type) {
case IS_REQ:
if(rnode&&rnode->options&O_HRQ)return;
if(rnode&&rnode->options&O_NRQ&&!cfgi(CFG_IGNORENRQ))return;
break;
case IS_PKT:
if(rnode&&rnode->options&O_HAT)return;
break;
default:
if(rnode&&rnode->options&(O_HXT|O_HAT)&&rem)return;
break;
}
for(t=fl;*t&&((*t)->type<=type);t=&((*t)->next));
q=(flist_t*)xmalloc(sizeof(flist_t));
q->next=*t;*t=q;
if(fromlo&&kill=='#'&&cfgi(CFG_ALWAYSKILLFILES))q->kill='^';
else q->kill=kill;
q->loff=off;
if(rnode&&(rnode->options&O_FNC)&&rem) {
q->sendas=xstrdup(fnc(rem));
xfree(rem);
} else q->sendas=rem;
q->lo=lo;q->tosend=loc;
q->type=type;
}
int hangup()
{
slist_t *hc;
int rc=MC_FAIL,to=t_set(cfgi(CFG_WAITRESET));
if(!cfgsl(CFG_MODEMHANGUP))return MC_OK;
write_log("hanging up...");
while(rc!=MC_OK&&!t_exp(to)) {
for(hc=cfgsl(CFG_MODEMHANGUP);hc;hc=hc->next) {
rc=modem_chat(hc->str,cfgsl(CFG_MODEMOK),cfgsl(CFG_MODEMNODIAL),
cfgsl(CFG_MODEMERROR),cfgsl(CFG_MODEMBUSY),
cfgs(CFG_MODEMRINGING),cfgi(CFG_MAXRINGS),
t_rest(to),NULL,0);
}
if(rc!=MC_OK)sleep(1);
tty_purge();
rc=alive();
tty_purge();
}
#ifdef NEED_DEBUG
if(rc!=MC_OK)DEBUG(('M',3,"hangup: failed, rc=%d [%s]",rc,mcs[rc]));
#endif
return rc;
}
int alive()
{
char *ac;
int rc=MC_OK;
ac=cfgs(CFG_MODEMALIVE);
DEBUG(('M',4,"alive: checking modem..."));
rc=modem_chat(ac,cfgsl(CFG_MODEMOK),cfgsl(CFG_MODEMERROR),cfgsl(CFG_MODEMNODIAL),
cfgsl(CFG_MODEMBUSY),cfgs(CFG_MODEMRINGING),
cfgi(CFG_MAXRINGS),2,NULL,0);
#ifdef NEED_DEBUG
if(rc!=MC_OK)DEBUG(('M',3,"alive: failed, rc=%d [%s]",rc,mcs[rc]));
#endif
return rc;
}
static int hydra(int mode,int hmod,int rh1)
{
flist_t *l;
int rc=XFER_OK,ticskip=0;
sline("Hydra-%dk session",hmod*2);
hydra_init(HOPT_XONXOFF|HOPT_TELENET,mode,hmod,cfgi(CFG_HRXWIN),cfgi(CFG_HTXWIN));
for(l=fl;l;l=l->next)
if(l->sendas) {
if(l->type==IS_REQ||!rh1) {
rc=hydra_file(l->tosend,l->sendas);
if(rc==XFER_ABORT)break;
if(rc==XFER_OK||rc==XFER_SKIP)flexecute(l);
}
} else if(!rh1)flexecute(l);
if(rc==XFER_ABORT) {
hydra_deinit();
return 1;
}
rc=hydra_file(NULL,NULL);
for(l=fl;l;l=l->next)
if(l->sendas) {
rc=cfgi(CFG_AUTOTICSKIP)?ticskip:0;ticskip=0;
if(!rc||!istic(l->tosend))rc=hydra_file(l->tosend,l->sendas);
else write_log("tic file '%s' auto%sed",l->tosend,rc==XFER_SKIP?"skipp":"suspend");
if(rc==XFER_ABORT)break;
if(rc==XFER_OK||rc==XFER_SKIP)flexecute(l);
if(rc==XFER_SKIP||rc==XFER_SUSPEND)ticskip=rc;
} else flexecute(l);
if(rc==XFER_ABORT) {
hydra_deinit();
return 1;
}
rc=hydra_file(NULL,NULL);
hydra_deinit();
return(rc==XFER_ABORT);
}
void flexecute(flist_t *fl)
{
char cmt='~',str[MAX_STRING],*q;
FILE *f;
int rem=0;
DEBUG(('S',2,"Execute file: '%s', sendas: '%s', kill: '%c' fromLO: %s, offset: %d",
fl->tosend,fl->sendas?fl->sendas:"(null)",fl->kill,fl->lo?"yes":"no",fl->loff));
if(fl->lo) {
if(fl->loff<0) {
fseek(fl->lo,0L,SEEK_SET);
while(fgets(str,MAX_STRING,fl->lo))
if(*str!='~'&&*str!='\n'&&*str!='\r')rem++;
fclose(fl->lo);fl->lo=NULL;
if(!rem)lunlink(fl->tosend);
} else if(fl->sendas) {
switch(fl->kill) {
case '^':
lunlink(fl->tosend);break;
case '#':
f=fopen(fl->tosend,"w");
if(f)fclose(f);
else write_log("can't truncate %s: %s",fl->tosend,strerror(errno));
break;
}
fseek(fl->lo,fl->loff,SEEK_SET);
fwrite(&cmt,1,1,fl->lo);
xfree(fl->sendas);
}
} else if(fl->sendas) {
switch(fl->kill) {
case '^':
lunlink(fl->tosend);break;
case '#':
if((f=fopen(fl->tosend,"w")))fclose(f);
else write_log("can't truncate %s: %s",fl->tosend,strerror(errno));
}
xfree(fl->sendas);
if(cfgi(CFG_RMBOXES)) {
q=strrchr(fl->tosend,'/');
if(q&&q!=fl->tosend) {
*q=0;
rmdir(fl->tosend);
*q='/';
}
}
}
}
/* Returns hostname or ip address */
char *get_hostname(struct sockaddr *addr, socklen_t salen, char *host, int len)
{
char ipaddr[MAXHOSTNAMELEN + 1];
char hostbuf[MAXHOSTNAMELEN + 1];
int niErr = 1;
getnameinfo( addr, salen, ipaddr, sizeof(ipaddr), NULL, 0, NI_NUMERICHOST );
if ( cfgi( CFG_RESOLVEHOSTNAME ))
niErr = getnameinfo( addr, salen, hostbuf, sizeof(hostbuf), NULL, 0, NI_NAMEREQD );
if ( niErr == 0 )
snprintf( host, len, "%s (%s)", hostbuf, ipaddr );
else
xstrcpy( host, ipaddr, len );
return host;
}
int stat_collect()
{
slist_t *hc;
int rc=MC_OK,stat_len=8192;
char stat[8192],*cur_stat,*p;
if(!cfgsl(CFG_MODEMSTAT))return MC_OK;
write_log("collecting statistics...");
for(hc=cfgsl(CFG_MODEMSTAT);hc;hc=hc->next) {
*stat=0;
rc=modem_stat(hc->str,cfgsl(CFG_MODEMOK),cfgsl(CFG_MODEMERROR),
cfgi(CFG_WAITRESET),stat,stat_len);
for(cur_stat=stat;*cur_stat;) {
for(p=cur_stat;*p&&*p!='\n';p++);
if(*p)*(p++)=0;
write_log("%s",cur_stat);
cur_stat=p;
}
}
return rc;
}
void chatlog_write(char *text,int side)
{
FILE *chatlog=NULL;
long i,n,m;
char quot[2]={0},*tmp,*cbuf=side?rchat:mchat,tm;
if(side)*quot='>'; else *quot=' ';
if(text&&*text) {
xstrcpy(cbuf+(side?rcpos:mcpos),text,CHATLOG_BUF-(side?rcpos:mcpos)-1);
if(side)rcpos+=strlen(text);
else mcpos+=strlen(text);
while((side?rcpos:mcpos)&&(tmp=strchr(cbuf,'\n'))) {
i=n=m=0;
while(i<(tmp-cbuf+1))if(cbuf[i]=='\b'){i++;m+=2;if((--n)<0){n=0;m--;}}
else cbuf[n++]=cbuf[i++];
if(n&&cfgs(CFG_CHATLOG)) {
chatlog=fopen(ccs,"at");
fwrite(quot,1,1,chatlog);
fwrite(cbuf,1,n,chatlog);
fclose(chatlog);
}
if(n&&lemail) {
fwrite(quot,1,1,lemail);
fwrite(cbuf,1,n,lemail);
}
if(n&&cpkt) {
for(i=0;i<n;i++) {
if(cbuf[i]=='\n')cbuf[i]='\r';
if(cbuf[i]==7)cbuf[i]='*';
}
tm=cbuf[i];cbuf[i]=0;
if(cfgi(CFG_RECODEPKTS))recode_to_remote(cbuf);
cbuf[i]=tm;
fwrite(quot,1,1,cpkt);
fwrite(cbuf,1,n,cpkt);
}
if(cbuf[n])xstrcpy(cbuf,cbuf+n,CHATLOG_BUF-6);
if(side)rcpos-=(n+m);
else mcpos-=(n+m);
}
}
}
/*
* Open connection via proxy. Returns TRUE if OK, FALSE if fail.
*/
static int
tcp_connect_proxy(char *name)
{
int rc, i;
time_t t1;
char buf[H_BUF];
char *n, *p = NULL, *dp = "";
if ( cfgs( CFG_PROXY ) && ( p = strchr( ccs, ' ' )))
*p++ = 0;
if ( !strchr( name, ':' ))
dp = bink ? ":24554" : ":60179";
i = snprintf( buf, H_BUF, "CONNECT %s%s HTTP/1.0\r\n", name, dp );
if ( p ) {
if (( n = strchr( p,' ' )))
*n = ':';
i += snprintf( buf + i, H_BUF - i, "Proxy-Authorization: basic " );
i += base64( p, strlen( p ), buf + i );
buf[i++] = '\r';
buf[i++] = '\n';
}
buf[i++] = '\r';
buf[i++] = '\n';
PUTBLK( (unsigned char*) buf, i );
t1 = timer_set( cfgi( CFG_HSTIMEOUT ));
for( i = 0; i < H_BUF; i++ ) {
while(( rc = GETCHAR(1)) == TIMEOUT && !timer_expired( t1 ))
getevt();
if ( rc == RCDO || tty_gothup ) {
write_log( "got hangup" );
return (FALSE);
}
if ( rc == TIMEOUT ) {
write_log( "proxy timeout" );
return (FALSE);
} else if ( rc < 0 ) {
write_log("connection is closed by proxy");
return (FALSE);
}
buf[i] = rc;
buf[i + 1] = '\0';
if (( i >= H_BUF ) || (( p = strstr( buf, "\r\n\r\n" )))) {
if (( p = strchr( buf, '\n' ))) {
*p-- = '\0';
if ( *p == '\r' )
*p = '\0';
}
p = buf;
if ( strstr( buf, " 200 " ))
break;
if ( !strncasecmp( buf, "HTTP", 4 ))
p = strchr( buf, ' ' ) + 1;
write_log( "connect rejected by proxy (%s)", p );
return (FALSE);
}
}
return (TRUE);
}
int emsisession(int mode,ftnaddr_t *calladdr,int speed)
{
int rc,emsi_lo=0,proto;
unsigned long nfiles;
unsigned char *mydat;
char *t,pr[3],s[MAX_STRING];
falist_t *pp=NULL;
qitem_t *q=NULL;
was_req=0;got_req=0;
receive_callback=receivecb;
totaln=0;totalf=0;totalm=0;emsi_lo=0;
if(mode) {
write_log("starting outbound EMSI session");
q=q_find(calladdr);
if(q) {
totalm=q->pkts;
totalf=q_sum(q)+q->reqs;
}
mydat=(unsigned char*)emsi_makedat(calladdr,totalm,totalf,O_PUA,cfgs(CFG_PROTORDER),NULL,1);
rc=emsi_send(mode,mydat);xfree(mydat);
if(rc<0)return S_REDIAL|S_ADDTRY;
rc=emsi_recv(mode,rnode);
if(rc<0)return S_REDIAL|S_ADDTRY;
title("Outbound session %s",ftnaddrtoa(&rnode->addrs->addr));
} else {
rc=emsi_recv(mode,rnode);
if(rc<0) {
write_log("unable to establish EMSI session");
return S_REDIAL|S_ADDTRY;
}
write_log("starting inbound EMSI session");
if((t=getenv("CALLER_ID"))&&strcasecmp(t,"none")&&strlen(t)>3)
title("Inbound session %s (CID %s)",ftnaddrtoa(&rnode->addrs->addr),t);
else title("Inbound session %s",ftnaddrtoa(&rnode->addrs->addr));
}
log_rinfo(rnode);
for(pp=rnode->addrs;pp;pp=pp->next)aso_locknode(&pp->addr,LCK_s);
if(mode) {
if(!has_addr(calladdr,rnode->addrs)) {
write_log("remote isn't %s",ftnaddrtoa(calladdr));
return S_FAILURE;
}
flkill(&fl,0);totalf=0;totalm=0;
for(pp=rnode->addrs;pp;pp=pp->next)makeflist(&fl,&pp->addr,mode);
if(strlen(rnode->pwd))rnode->options|=O_PWD;
if(is_listed(rnode->addrs,cfgs(CFG_NLPATH),cfgi(CFG_NEEDALLLISTED)))rnode->options|=O_LST;
} else {
for(pp=cfgal(CFG_ADDRESS);pp;pp=pp->next)
if(has_addr(&pp->addr,rnode->addrs)) {
write_log("remote also has %s",ftnaddrtoa(&pp->addr));
return S_FAILURE;
}
nfiles=0;rc=0;
for(pp=rnode->addrs;pp;pp=pp->next) {
t=findpwd(&pp->addr);
if(!t||!strcasecmp(rnode->pwd,t)) {
makeflist(&fl,&pp->addr,mode);
if(t)rnode->options|=O_PWD;
} else {
write_log("password not matched for %s",ftnaddrtoa(&pp->addr));
write_log(" (got '%s' instead of '%s')",rnode->pwd,t);
rc=1;
}
}
if(!rc&&!(rnode->options&O_PWD))write_log("remote has been password for us");
if(is_listed(rnode->addrs,cfgs(CFG_NLPATH),cfgi(CFG_NEEDALLLISTED)))rnode->options|=O_LST;
if(rc) {
emsi_lo|=O_BAD;
rnode->options|=O_BAD;
}
if(!cfgs(CFG_FREQTIME)||rc)emsi_lo|=O_NRQ;
if(ccs&&!checktimegaps(ccs))emsi_lo|=O_HRQ;
if(checktimegaps(cfgs(CFG_MAILONLY))||
checktimegaps(cfgs(CFG_ZMH))||rc)emsi_lo|=O_HXT|O_HRQ;
if(cfgi(CFG_SENDONLY))emsi_lo|=O_HAT;
pr[2]=0;pr[1]=0;pr[0]=0;
for(t=cfgs(CFG_PROTORDER);*t;t++) {
#ifdef HYDRA8K16K
if(*t=='4'&&rnode->options&P_HYDRA4) {
*pr='4';emsi_lo|=P_HYDRA4;break;}
if(*t=='8'&&rnode->options&P_HYDRA8) {
*pr='8';emsi_lo|=P_HYDRA8;break;}
if(*t=='6'&&rnode->options&P_HYDRA16) {
*pr='6';emsi_lo|=P_HYDRA16;break;}
#endif/*HYDRA8K16K*/
if(*t=='H'&&rnode->options&P_HYDRA) {
*pr='H';emsi_lo|=P_HYDRA;break;}
if(*t=='J'&&rnode->options&P_JANUS) {
*pr='J';emsi_lo|=P_JANUS;break;}
if(*t=='D'&&rnode->options&P_DIRZAP) {
*pr='D';emsi_lo|=P_DIRZAP;break;}
if(*t=='Z'&&rnode->options&P_ZEDZAP) {
*pr='Z';emsi_lo|=P_ZEDZAP;break;}
if(*t=='1'&&rnode->options&P_ZMODEM) {
*pr='1';emsi_lo|=P_ZMODEM;break;}
}
if(strchr(cfgs(CFG_PROTORDER),'C'))pr[1]='C';
else rnode->opt&=~MO_CHAT;
if(!*pr)emsi_lo|=P_NCP;
mydat=(unsigned char*)emsi_makedat(&rnode->addrs->addr,totalm,totalf,emsi_lo,pr,NULL,!(emsi_lo&O_BAD));
rc=emsi_send(0,mydat);xfree(mydat);
if(rc<0) {
flkill(&fl,0);
return S_REDIAL|S_ADDTRY;
}
}
if(cfgs(CFG_RUNONEMSI)&&*ccs) {
write_log("starting %s %s",ccs,rnode->addrs?ftnaddrtoa(&rnode->addrs->addr):(calladdr?ftnaddrtoa(calladdr):"unknown"));
execnowait(ccs,rnode->addrs?ftnaddrtoa(&rnode->addrs->addr):(calladdr?ftnaddrtoa(calladdr):"unknown"),NULL,NULL);
}
write_log("we have: %d%c mail; %d%c files",SIZES(totalm),SIZEC(totalm),SIZES(totalf),SIZEC(totalf));
rnode->starttime=time(NULL);
if(cfgi(CFG_MAXSESSION))alarm(cci*60);
DEBUG(('S',1,"Maxsession: %d",cci));
proto=(mode?rnode->options:emsi_lo)&P_MASK;
switch(proto) {
case P_NCP:
write_log("no compatible protocols");
flkill(&fl,0);
return S_FAILURE;
case P_ZMODEM:
t="ZModem-1k";break;
case P_ZEDZAP:
t="ZedZap";break;
case P_DIRZAP:
t="DirZap";break;
#ifdef HYDRA8K16K
case P_HYDRA4:
t="Hydra-4k";break;
case P_HYDRA8:
t="Hydra-8k";break;
case P_HYDRA16:
t="Hydra-16k";break;
#endif/*HYDRA8K16K*/
case P_HYDRA:
t="Hydra";break;
case P_JANUS:
t="Janus";break;
default:
t="Unknown";
}
DEBUG(('S',1,"emsopts: %s %x %x %x %x",t,rnode->options&P_MASK,rnode->options,emsi_lo,rnode->opt));
snprintf(s,MAX_STRING-1,"%s%s%s%s%s%s%s%s%s%s",t,
(rnode->options&O_LST)?"/LST":"",
(rnode->options&O_PWD)?"/PWD":"",
(rnode->options&O_HXT)?"/MO":"",
(rnode->options&O_HAT)?"/HAT":"",
(rnode->options&O_HRQ)?"/HRQ":"",
(rnode->options&O_NRQ)?"/NRQ":"",
(rnode->options&O_FNC)?"/FNC":"",
(rnode->options&O_BAD)?"/BAD":"",
(rnode->opt&MO_CHAT)?"/CHT":"");
write_log("options: %s",s);
chatinit(proto);
IFPerl(rc=perl_on_session(s);
if(rc!=S_OK){flkill(&fl,0);return rc;});
int freq_ifextrp(slist_t *reqs)
{
FILE *f, *g, *r;
char s[MAX_PATH], fn[MAX_PATH], sfn[MAX_PATH], *ss;
char priv = 'a', *p, *sprt = "UNPROTEC", *slst = "UNLIS";
int got = 0, wz = cfgs( CFG_EXTRP ) ? 1 : 0, kil;
long tpid = (long) getpid();
ftnaddr_t *ma = akamatch( &rnode->addrs->addr, cfgal( CFG_ADDRESS ));
DEBUG(('R',1,"Freq received"));
if ( rnode->options & O_LST ) {
priv = 'l';
slst += 2;
}
if( rnode->options & O_PWD ) {
priv = 'p';
sprt += 2;
}
snprintf( fn, MAX_PATH, "/tmp/qreq.%04lx", tpid );
if( !( f = fopen( fn, "wt" ))) {
write_log( "can't open '%s' for writing: %s", fn, strerror( errno ));
return 0;
}
while( reqs ) {
if ( cfgs( CFG_MAPIN ) && strchr( ccs, 'r' ))
recode_to_local( reqs->str );
DEBUG(('R',1,"requested '%s'", reqs->str));
fprintf( f, "%s\n", reqs->str );
reqs = reqs->next;
}
fclose( f );
if(!wz) {
falist_t *ra;
snprintf(sfn,MAX_PATH,"/tmp/qsrif.%04lx",tpid);
if(!(r=fopen(sfn,"wt"))){write_log("can't open '%s' for writing: %s",sfn,strerror(errno));return 0;}
fprintf(r,"SessionType %s\n",bink?"OTHER":"EMSI");
fprintf(r,"Sysop %s\n",rnode->sysop);
for(ra=rnode->addrs;ra;ra=ra->next)fprintf(r,"AKA %s\n",ftnaddrtoa(&ra->addr));
if(!is_ip)fprintf(r,"Baud %d\n",rnode->realspeed);
fprintf(r,"Time -1\n");
fprintf(r,"RemoteStatus %sTED\n",sprt);
fprintf(r,"SystemStatus %sTED\n",slst);
fprintf(r,"RequestList /tmp/qreq.%04lx\n",tpid);
fprintf(r,"ResponseList /tmp/qfls.%04lx\n",tpid);
fprintf(r,"Location %s\n",rnode->place);
if(rnode->phone&&*rnode->phone)fprintf(r,"Phone %s\n",rnode->phone);
if(rnode->options&O_PWD)fprintf(r,"Password %s\n",rnode->pwd);
fprintf(r,"Mailer %s\n",rnode->mailer);
fprintf(r,"Site %s\n",rnode->name);
if(!is_ip&&(ss=getenv("CALLER_ID"))&&strcasecmp(ss,"none")&&strlen(ss)>3)fprintf(r,"CallerID %s\n",ss);
fprintf(r,"OurAKA %s\n",ftnaddrtoa(ma));
fprintf(r,"TRANX %08lu\n",time(NULL));
fclose(r);
snprintf(s,MAX_PATH,"%s %s",cfgs(CFG_SRIFRP),sfn);
} else snprintf(s,MAX_PATH,"%s -wazoo -%c -s%d %s /tmp/qreq.%04lx /tmp/qfls.%04lx /tmp/qrep.%04lx",
cfgs(CFG_EXTRP),priv,rnode->realspeed,ftnaddrtoa(&rnode->addrs->addr),tpid,tpid,tpid);
write_log("exec '%s' returned rc=%d",s,execsh(s));
lunlink(fn);lunlink(sfn);
snprintf(fn,MAX_PATH,"/tmp/qfls.%04lx",tpid);
if(!(f=fopen(fn,"rt"))) {
snprintf(fn,MAX_PATH,"/tmp/qrep.%04lx",tpid);
lunlink(fn);
snprintf(fn,MAX_PATH,"/tmp/qfls.%04lx",tpid);
lunlink(fn);
write_log("can't open '%s' for reading",fn);
return 0;
}
while(fgets(s,MAX_PATH-1,f)) {
if(*s=='\n'||*s=='\r'||*s==' '||!*s)continue;
ss=s;kil=0;got=1;
if(*s=='='||*s=='-'){ss++;kil=1;}
else if(*s=='+')ss++;
p=ss+strlen(ss)-1;
while(*p=='\r'||*p=='\n')*p--=0;
p=strrchr(ss,' ');
if(p)*p++=0;else p=ss;
DEBUG(('R',1,"sending '%s' as '%s'%s",ss,qbasename((p!=ss)?p:ss),kil?" and kill":""));
addflist(&fl,xstrdup(ss),xstrdup(qbasename((p!=ss)?p:ss)),kil?'^':' ',0,NULL,0);
}
fclose(f);lunlink(fn);
snprintf(fn,MAX_PATH,"/tmp/qrep.%04lx",tpid);
if(!(f=fopen(fn,"rt"))&&wz)write_log("can't open '%s' for reading",fn);
snprintf(fn,MAX_PATH,"/tmp/qpkt.%04lx%02x",tpid,++freq_pktcount);
g=openpktmsg(ma,&rnode->addrs->addr,cfgs(CFG_FREQFROM),rnode->sysop,cfgs(CFG_FREQSUBJ),NULL,fn,1);
if(!g) {
write_log("can't open '%s' for writing: %s",fn,strerror(errno));
if(f)fclose(f);
freq_pktcount--;
}
if(f&&g) {
while(fgets(s,MAX_PATH-1,f)) {
p=s+strlen(s)-1;
while(*p=='\r'||*p=='\n')*p--=0;
if(cfgi(CFG_RECODEPKTS))recode_to_remote(s);
fputs(s,g);fputc('\r',g);
}
fclose(f);
closeqpkt(g,ma);
snprintf(s,MAX_PATH,"/tmp/qpkt.%04lx%02x",tpid,freq_pktcount);
p=xstrdup(s);
snprintf(s,MAX_PATH,"%08lx.pkt",sequencer());
addflist(&fl,p,xstrdup(s),'^',0,NULL,1);
}
snprintf(fn,MAX_PATH,"/tmp/qrep.%04lx",tpid);
lunlink(fn);
return got;
}
static void answer_mode(int type)
{
int rc, spd;char *cs;
struct sockaddr_in sa;
socklen_t ss=sizeof(sa);
sts_t sts;
if(cfgs(CFG_ROOTDIR)&&ccs[0])chdir(ccs);
rnode=xcalloc(1,sizeof(ninfo_t));
is_ip=!isatty(0);
xstrcpy(ip_id,"ipline",10);
rnode->tty=xstrdup(is_ip?(bink?"binkp":"tcpip"):basename(ttyname(0)));
rnode->options|=O_INB;
if(!log_init(cfgs(CFG_LOG),rnode->tty)) {
printf("can't open log %s!\n",ccs);
exit(S_FAILURE);
}
signal(SIGINT,SIG_IGN);
signal(SIGTERM,sigerr);
signal(SIGSEGV,sigerr);
signal(SIGFPE,sigerr);
signal(SIGPIPE,SIG_IGN);
IFPerl(perl_init(cfgs(CFG_PERLFILE),0));
log_callback=NULL;xsend_cb=NULL;
ssock=cls_conn(CLS_LINE,cfgs(CFG_SERVER),NULL);
if(ssock<0)write_log("can't connect to server: %s",strerror(errno));
else log_callback=vlogs;
rc=aso_init(cfgs(CFG_ASOOUTBOUND),cfgs(CFG_BSOOUTBOUND),cfgs(CFG_QSTOUTBOUND),cfgal(CFG_ADDRESS)->addr.z);
if(!rc) {
write_log("No outbound defined");
stopit(S_FAILURE);
}
write_log("answering incoming call");vidle();
if(is_ip&&!getpeername(0,(struct sockaddr*)&sa,&ss)) {
write_log("remote is %s",inet_ntoa(sa.sin_addr));
spd=TCP_SPEED;
} else {
cs=getenv("CONNECT");spd=cs?atoi(cs):0;
xfree(connstr);connstr=xstrdup(cs);
if(cs&&spd)write_log("*** CONNECT %s",cs);
else {
write_log("*** CONNECT Unknown");
spd=DEFAULT_SPEED;
}
}
if((cs=getenv("CALLER_ID"))&&strcasecmp(cs,"none")&&strlen(cs)>3)write_log("caller-id: %s",cs);
tty_setattr(0);
tty_local(0);
rc=session(0,type,NULL,spd);
tty_local(1);
if(!is_ip) {
hangup();
stat_collect();
}
tty_cooked();
if((S_OK==(rc&S_MASK))&&cfgi(CFG_HOLDONSUCCESS)) {
log_done();
log_init(cfgs(CFG_MASTERLOG),NULL);
aso_getstatus(&rnode->addrs->addr, &sts);
sts.flags|=(Q_WAITA|Q_WAITR|Q_WAITX);
sts.htime=MAX(t_set(cci*60),sts.htime);
write_log("calls to %s delayed for %d min after successful incoming session",
ftnaddrtoa(&rnode->addrs->addr),cci);
aso_setstatus(&rnode->addrs->addr,&sts);
log_done();
log_init(cfgs(CFG_LOG),rnode->tty);
}
title("Waiting...");
vidle();sline("");
aso_done();
stopit(rc);
}
