/* answer.cpp */
/* Synchronet answer "caller" function */
/* $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. *
****************************************************************************/
#include "sbbs.h"
#include "telnet.h"
bool sbbs_t::answer()
{
char str[256],str2[256],c;
char tmp[512];
int i,l,in;
struct tm * tm;
struct in_addr addr;
useron.number=0;
answertime=logontime=starttime=now=time(NULL);
/* Caller ID is IP address */
addr.s_addr=client_addr;
strcpy(cid,inet_ntoa(addr));
tm=localtime(&now);
if(tm==NULL)
return(false);
sprintf(str,"%02d:%02d%c %s %s %02d %u Node %3u"
,tm->tm_hour>12 ? tm->tm_hour-12 : tm->tm_hour==0 ? 12 : tm->tm_hour
,tm->tm_min,tm->tm_hour>=12 ? 'p' : 'a',wday[tm->tm_wday]
,mon[tm->tm_mon],tm->tm_mday,tm->tm_year+1900,cfg.node_num);
logline("@ ",str);
sprintf(str,"%s %s [%s]", connection, client_name, cid);
logline("@+:",str);
online=ON_REMOTE;
rlogin_name[0]=0;
if(sys_status&SS_RLOGIN) {
mswait(1000); /* Give input_thread time to start */
if(incom()==0) {
for(i=0;i<LEN_ALIAS;i++) {
in=incom();
if(in==0 || in==NOINP)
break;
str[i]=in;
}
str[i]=0;
for(i=0;i<LEN_ALIAS;i++) {
in=incom();
if(in==0 || in==NOINP)
break;
str2[i]=in;
}
str2[i]=0;
lprintf("Node %d RLogin: '%s' / '%s'",cfg.node_num,str,str2);
strcpy(rlogin_name
,cfg.startup->options&BBS_OPT_USE_2ND_RLOGIN ? str2 : str);
useron.number=userdatdupe(0, U_ALIAS, LEN_ALIAS, rlogin_name, 0);
if(useron.number)
getuserdat(&cfg,&useron);
}
}
if(rlogin_name[0]==0)
sys_status&=~SS_RLOGIN;
/* Detect terminal type */
mswait(200);
rioctl(IOFI); /* flush input buffer */
putcom( "\r\n" /* locate cursor at column 1 */
"\x1b[99B" /* locate cursor as far down as possible */
"\x1b[6n" /* Get cursor position */
"\x1b[!_" /* RIP? */
"\x1b[0t_" /* WIP? */
"\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;
strcpy(str,VERSION_NOTICE);
strcat(str,COPYRIGHT_NOTICE);
center(str);
while(i++<50 && l<sizeof(str)-1) { /* wait up to 5 seconds for response */
c=(incom()&0x7f);
if(!c) {
mswait(100);
continue;
}
i=0;
if(l==0 && c!=ESC) // response must begin with escape char
continue;
str[l++]=c;
if(c=='R') { /* break immediately if response */
mswait(100);
break;
}
}
if(rioctl(RXBC)) /* wait a bit for extra RIP reply chars */
mswait(500);
while((c=(incom()&0x7f))!=0 && l<sizeof(str)-1)
str[l++]=c;
str[l]=0;
if(l) {
if(str[0]==ESC && str[1]=='[') {
autoterm|=(ANSI|COLOR);
rows=((str[2]&0xf)*10)+(str[3]&0xf);
if(rows<10 || rows>99) rows=24; }
truncsp(str);
if(strstr(str,"RIPSCRIP")) {
logline("@R",strstr(str,"RIPSCRIP"));
autoterm|=(RIP|COLOR|ANSI); }
else if(strstr(str,"DC-TERM")
&& toupper(*(strstr(str,"DC-TERM")+12))=='W') {
logline("@W",strstr(str,"DC-TERM"));
autoterm|=(WIP|COLOR|ANSI); } }
rioctl(IOFI); /* flush left-over or late response chars */
if(!autoterm && str[0]) {
lputs("Terminal Auto-detect failed, Response: ");
str2[0]=0;
for(i=0;str[i];i++) {
if(str[i]>=' ' && str[i]<='~')
sprintf(tmp,"%c", str[i]);
else
sprintf(tmp,"<%02X>", (uchar)str[i]);
strcat(str2,tmp);
}
lputs(str2);
}
if(!(sys_status&SS_RLOGIN)) {
/* Disable Telnet Terminal Echo */
sprintf(str,"%c%c%c",TELNET_IAC,TELNET_WILL,TELNET_ECHO);
putcom(str,3);
/* Will supress Go Ahead */
sprintf(str,"%c%c%c",TELNET_IAC,TELNET_WILL,TELNET_SUP_GA);
putcom(str,3);
}
/* AutoLogon via IP or Caller ID here */
if(!useron.number && !(sys_status&SS_RLOGIN)
&& cfg.startup->options&BBS_OPT_AUTO_LOGON && cid[0]) {
useron.number=userdatdupe(0, U_NOTE, LEN_NOTE, cid, 0);
if(useron.number) {
getuserdat(&cfg, &useron);
if(!(useron.misc&AUTOLOGON) || !(useron.exempt&FLAG('V')))
useron.number=0;
}
}
if(!online)
return(false);
useron.misc&=~(ANSI|COLOR|RIP|WIP);
useron.misc|=autoterm;
sprintf(useron.comp, "%.*s", sizeof(useron.comp)-1, client_name);
if(!useron.number && sys_status&SS_RLOGIN) {
CRLF;
newuser();
}
if(!useron.number) { /* manual/regular logon */
/* Display ANSWER screen */
sprintf(str,"%sanswer",cfg.text_dir);
sprintf(tmp,"%s.%s",str,autoterm&WIP ? "wip":"rip");
sprintf(str2,"%s.ans",str);
if(autoterm&(RIP|WIP) && fexist(tmp))
strcat(str,autoterm&WIP ? ".wip":".rip");
else if(autoterm&ANSI && fexist(str2))
strcat(str,".ans");
else
strcat(str,".asc");
rioctl(IOSM|PAUSE);
sys_status|=SS_PAUSEON;
printfile(str,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();
if(!online)
return(false);
/* Save the IP to the user's note */
if(cid[0]) {
sprintf(useron.note, "%.*s", sizeof(useron.note)-1, cid);
putuserrec(&cfg,useron.number,U_NOTE,LEN_NOTE,useron.note);
}
/* Save host name to the user's computer description */
if(client_name[0]) {
sprintf(useron.comp, "%.*s", sizeof(useron.comp)-1, client_name);
putuserrec(&cfg,useron.number,U_COMP,LEN_COMP,useron.comp);
}
if(!(sys_status&SS_USERON)) {
errormsg(WHERE,ERR_CHK,"User not logged on",0);
hangup();
return(false); }
return(true);
}