void term_reinit(int wait) /* fixup after running other progs */
{
struct text_info dat;
gppconio_init();
gettextinfo(&dat);
if (dat.screenheight != screen_h) {
_set_screen_lines(screen_h);
gettextinfo(&dat);
screen_h = dat.screenheight;
screen_w = dat.screenwidth;
mouse_init();
}
set_bright_backgrounds();
if (wait) {
clear_keybuf();
gch();
}
__djgpp_set_ctrl_c(0);
setcbrk(0);
}
void AGSDOS::InitialiseAbufAtStartup()
{
// sort the mouse out in the DOS ver
set_gfx_mode(GFX_VGA,320,200,320,200);
// disable Ctrl-C exiting (ctrl-break will still work)
__djgpp_set_ctrl_c(0);
abuf = screen;
}
int main(void)
{
__djgpp_set_ctrl_c(0);
initVariant();
setup();
for (;;)
{
loop();
if (serialEventRun) serialEventRun();
}
return 0;
}
/* go to background: TSR */
void
msdosBackground (void) {
__djgpp_set_ctrl_c(0);
saveState(&mainState);
if (!setjmp(mainContext)) {
__dpmi_regs regs;
/* set a chained Protected Mode Timer IRQ handler */
timerSeginfo.pm_selector = _my_cs();
timerSeginfo.pm_offset = (unsigned long)&timerInterruptHandler;
_go32_dpmi_get_protected_mode_interrupt_vector(TIMER_INTERRUPT, &origTimerSeginfo);
_go32_dpmi_chain_protected_mode_interrupt_vector(TIMER_INTERRUPT, &timerSeginfo);
/* set a real mode DOS Idle handler which calls back our Idle handler */
idleSeginfo.pm_selector = _my_cs();
idleSeginfo.pm_offset = (unsigned long)&idleInterruptHandler;
memset(&idleRegisters, 0, sizeof(idleRegisters));
_go32_dpmi_get_real_mode_interrupt_vector(IDLE_INTERRUPT, &origIdleSeginfo);
_go32_dpmi_allocate_real_mode_callback_iret(&idleSeginfo, &idleRegisters);
_go32_dpmi_set_real_mode_interrupt_vector(IDLE_INTERRUPT, &idleSeginfo);
/* Get InDos and Critical flags addresses */
regs.h.ah = 0X34;
__dpmi_int(DOS_INTERRUPT, ®s);
inDosFlagPointer = msdosMakeAddress(regs.x.es, regs.x.bx);
regs.x.ax = 0X5D06;
__dpmi_int(DOS_INTERRUPT, ®s);
criticalOffset = msdosMakeAddress(regs.x.ds, regs.x.si);
/* We are ready */
isBackgrounded = 1;
regs.x.ax = 0X3100;
msdosBreakAddress(0X100/*psp*/ + _go32_info_block.size_of_transfer_buffer, 0,
®s.x.dx, NULL);
__dpmi_int(DOS_INTERRUPT, ®s);
/* shouldn't be reached */
logMessage(LOG_ERR, "TSR installation failed");
isBackgrounded = 0;
}
saveState(&interruptState);
restoreState(&mainState);
}
/* Telnet or "rlogin" access
** -------------------------
*/
PRIVATE int remote_session ARGS2(char *, acc_method, char *, host)
{
char * user = host;
char * password = NULL;
char * cp;
char * hostname;
char * port;
char command[256];
enum _login_protocol { telnet, rlogin, tn3270 } login_protocol =
strcmp(acc_method, "rlogin") == 0 ? rlogin :
strcmp(acc_method, "tn3270") == 0 ? tn3270 : telnet;
#ifdef VMS
extern int DCLsystem PARAMS((char *command));
#define system(a) DCLsystem(a) /* use LYCurses.c routines for spawns */
#endif /* VMS */
/*
* Modified to allow for odd chars in a username only if exists.
* 05-28-94 Lynx 2-3-1 Garrett Arch Blythe
*/
/* prevent telnet://hostname;rm -rf * URL's (VERY BAD)
* *cp=0; / * terminate at any ;,<,>,`,|,",' or space or return
* or tab to prevent security whole
*/
for(cp = (strchr(host, '@') ? strchr(host, '@') : host); *cp != '\0';
cp++) {
if(!isalnum(*cp) && *cp != '_' && *cp != '-' &&
*cp != ':' && *cp != '.' && *cp != '@') {
*cp = '\0';
break;
}
}
hostname = strchr(host, '@');
if (hostname) {
*hostname++ = '\0'; /* Split */
} else {
hostname = host;
user = NULL; /* No user specified */
}
port = strchr(hostname, ':');
if (port)
*port++ = '\0'; /* Split */
if (!hostname || *hostname == '\0') {
CTRACE(tfp, "HTTelnet: No host specified!\n");
return HT_NO_DATA;
}
if (user) {
password = strchr(user, ':');
if (password) {
*password++ = '\0';
}
}
/* If the person is already telnetting etc, forbid hopping */
/* This is a security precaution, for us and remote site */
if (HTSecure) {
#ifdef TELNETHOPPER_MAIL
sprintf(command,
"finger @%s | mail -s \"**telnethopper %s\" [email protected]",
HTClientHost, HTClientHost);
system(command);
#endif
printf("\n\nSorry, but the service you have selected is one\n");
printf("to which you have to log in. If you were running www\n");
printf("on your own computer, you would be automatically connected.\n");
printf("For security reasons, this is not allowed when\n");
printf("you log in to this information service remotely.\n\n");
printf("You can manually connect to this service using %s\n",
acc_method);
printf("to host %s", hostname);
if (user) printf(", user name %s", user);
if (password) printf(", password %s", password);
if (port) printf(", port %s", port);
printf(".\n\n");
return HT_NO_DATA;
}
/* Not all telnet servers get it even if user name is specified
** so we always tell the guy what to log in as
*/
if (user && login_protocol != rlogin)
printf("When you are connected, log in as: %s\n", user);
if (password && login_protocol != rlogin)
printf(" The password is: %s\n", password);
/*
* NeXTSTEP is the implied version of the NeXT operating system.
* You may need to define this yourself.
*/
#if defined(NeXT) && defined(NeXTSTEP) && NeXTSTEP<=20100
sprintf(command, "%s%s%s %s %s", TELNET_COMMAND,
user ? " -l " : "",
user ? user : "",
hostname,
port ? port : "");
CTRACE(tfp, "HTTelnet: Command is: %s\n\n", command);
system(command);
return HT_NO_DATA; /* Ok - it was done but no data */
#define TELNET_DONE
#endif
/* Most unix machines suppport username only with rlogin */
#if defined(unix) || defined(DOSPATH)
#ifndef TELNET_DONE
if (login_protocol == rlogin) {
sprintf(command, "%s %s%s%s", RLOGIN_COMMAND,
hostname,
user ? " -l " : "",
user ? user : "");
} else if (login_protocol == tn3270) {
sprintf(command, "%s %s %s", TN3270_COMMAND,
hostname,
port ? port : "");
} else { /* TELNET */
sprintf(command, "%s %s %s", TELNET_COMMAND,
hostname,
port ? port : "");
}
CTRACE(tfp, "HTTelnet: Normal: Command is: %s\n\n", command);
#ifdef __DJGPP__
__djgpp_set_ctrl_c(0);
_go32_want_ctrl_break(1);
#endif /* __DJGPP__ */
system(command);
#ifdef __DJGPP__
__djgpp_set_ctrl_c(1);
_go32_want_ctrl_break(0);
#endif /* __DJGPP__ */
return HT_NO_DATA; /* Ok - it was done but no data */
#define TELNET_DONE
#endif /* !TELNET_DONE */
#endif /* unix */
/* VMS varieties */
#if defined(MULTINET)
if (login_protocol == rlogin) {
sprintf(command, "RLOGIN%s%s%s%s%s %s", /*lm 930713 */
user ? "/USERNAME=\"" : "",
user ? user : "",
user ? "\"" : "",
port ? "/PORT=" : "",
port ? port : "",
hostname);
} else if (login_protocol == tn3270) {
sprintf(command, "TELNET/TN3270 %s%s %s",
port ? "/PORT=" : "",
port ? port : "",
hostname);
} else { /* TELNET */
sprintf(command, "TELNET %s%s %s",
port ? "/PORT=" : "",
port ? port : "",
hostname);
}
CTRACE(tfp, "HTTelnet: Command is: %s\n\n", command);
system(command);
return HT_NO_DATA; /* Ok - it was done but no data */
#define TELNET_DONE
#endif /* MULTINET */
#if defined(WIN_TCP)
{
char *cp;
if ((cp=getenv("WINTCP_COMMAND_STYLE")) != NULL &&
0==strncasecomp(cp, "VMS", 3)) { /* VMS command syntax */
if (login_protocol == rlogin) {
sprintf(command, "RLOGIN%s%s%s%s%s %s", /*lm 930713 */
user ? "/USERNAME=\"" : "",
user ? user : "",
user ? "\"" : "",
port ? "/PORT=" : "",
port ? port : "",
hostname);
} else if (login_protocol == tn3270) {
sprintf(command, "TELNET/TN3270 %s%s %s",
port ? "/PORT=" : "",
port ? port : "",
hostname);
} else { /* TELNET */
sprintf(command, "TELNET %s%s %s",
port ? "/PORT=" : "",
port ? port : "",
hostname);
}
} else { /* UNIX command syntax */
if (login_protocol == rlogin) {
sprintf(command, "RLOGIN %s%s%s%s%s",
hostname,
user ? " -l " : "",
user ? "\"" : "",
user ? user : "",
user ? "\"" : "");
} else if (login_protocol == tn3270) {
sprintf(command, "TN3270 %s %s",
hostname,
port ? port : "");
} else { /* TELNET */
sprintf(command, "TELNET %s %s",
hostname,
port ? port : "");
}
}
CTRACE(tfp, "HTTelnet: Command is: %s\n\n", command);
system(command);
return HT_NO_DATA; /* Ok - it was done but no data */
}
#define TELNET_DONE
#endif /* WIN_TCP */
#ifdef UCX
if (login_protocol == rlogin) {
sprintf(command, "RLOGIN%s%s%s %s %s",
user ? "/USERNAME=\"" : "",
user ? user : "",
user ? "\"" : "",
hostname,
port ? port : "");
} else if (login_protocol == tn3270) {
sprintf(command, "TN3270 %s %s",
hostname,
port ? port : "");
} else { /* TELNET */
sprintf(command, "TELNET %s %s",
hostname,
port ? port : "");
}
CTRACE(tfp, "HTTelnet: Command is: %s\n\n", command);
system(command);
return HT_NO_DATA; /* Ok - it was done but no data */
#define TELNET_DONE
#endif /* UCX */
#ifdef CMU_TCP
if (login_protocol == telnet) {
sprintf(command, "TELNET %s%s %s",
port ? "/PORT=" : "",
port ? port : "",
hostname);
CTRACE(tfp, "HTTelnet: Command is: %s\n\n", command);
system(command);
}
else {
extern int LYgetch NOPARAMS;
extern BOOLEAN HadVMSInterrupt;
printf(
"\nSorry, this browser was compiled without the %s access option.\n",
acc_method);
printf("\nPress <return> to return to Lynx.");
LYgetch();
HadVMSInterrupt = FALSE;
}
return HT_NO_DATA; /* Ok - it was done but no data */
#define TELNET_DONE
#endif /* CMU_TCP */
#ifdef SOCKETSHR_TCP
{
char *cp;
if (getenv("MULTINET_SOCKET_LIBRARY") != NULL) {
if (login_protocol == rlogin) {
sprintf(command, "MULTINET RLOGIN%s%s%s%s %s", /*lm 930713 */
user ? "/USERNAME="******"",
user ? user : "",
port ? "/PORT=" : "",
port ? port : "",
hostname);
} else if (login_protocol == tn3270) {
sprintf(command, "MULTINET TELNET/TN3270 %s%s %s",
port ? "/PORT=" : "",
port ? port : "",
hostname);
} else { /* TELNET */
sprintf(command, "MULTINET TELNET %s%s %s",
port ? "/PORT=" : "",
port ? port : "",
hostname);
}
CTRACE(tfp, "HTTelnet: Command is: %s\n\n", command);
system(command);
return HT_NO_DATA; /* Ok - it was done but no data */
}
else if ((cp=getenv("WINTCP_COMMAND_STYLE")) != NULL) {
if (0==strncasecomp(cp, "VMS", 3)) { /* VMS command syntax */
if (login_protocol == rlogin) {
sprintf(command, "RLOGIN%s%s%s%s %s", /*lm 930713 */
user ? "/USERNAME="******"",
user ? user : "",
port ? "/PORT=" : "",
port ? port : "",
hostname);
} else if (login_protocol == tn3270) {
sprintf(command, "TELNET/TN3270 %s%s %s",
port ? "/PORT=" : "",
port ? port : "",
hostname);
} else { /* TELNET */
sprintf(command, "TELNET %s%s %s",
port ? "/PORT=" : "",
port ? port : "",
hostname);
}
} else { /* UNIX command syntax */
if (login_protocol == rlogin) {
sprintf(command, "RLOGIN %s%s%s",
hostname,
user ? " -l " : "",
user ? user : "");
} else if (login_protocol == tn3270) {
sprintf(command, "TN3270 %s %s",
hostname,
port ? port : "");
} else { /* TELNET */
sprintf(command, "TELNET %s %s",
hostname,
port ? port : "");
}
}
CTRACE(tfp, "HTTelnet: Command is: %s\n\n", command);
system(command);
return HT_NO_DATA; /* Ok - it was done but no data */
}
else if (getenv("UCX$DEVICE") != NULL) {
if (login_protocol == rlogin) {
sprintf(command, "RLOGIN%s%s %s %s",
user ? "/USERNAME="******"",
user ? user : "",
hostname,
port ? port : "");
} else if (login_protocol == tn3270) {
sprintf(command, "TN3270 %s %s",
hostname,
port ? port : "");
} else { /* TELNET */
sprintf(command, "TELNET %s %s",
hostname,
port ? port : "");
}
CTRACE(tfp, "HTTelnet: Command is: %s\n\n", command);
system(command);
return HT_NO_DATA; /* Ok - it was done but no data */
}
else if (getenv("CMUTEK_ROOT") != NULL) {
if (login_protocol == telnet) {
sprintf(command, "TELNET %s%s %s",
port ? "/PORT=" : "",
port ? port : "",
hostname);
CTRACE(tfp, "HTTelnet: Command is: %s\n\n", command);
system(command);
}
else {
extern int LYgetch NOPARAMS;
extern BOOLEAN HadVMSInterrupt;
printf(
"\nSorry, this browser was compiled without the %s access option.\n",
acc_method);
printf("\nPress <return> to return to Lynx.");
LYgetch();
HadVMSInterrupt = FALSE;
}
return HT_NO_DATA; /* Ok - it was done but no data */
}
else {
if (login_protocol == telnet) {
sprintf(command, "TELNET %s%s %s",
port ? "/PORT=" : "",
port ? port : "",
hostname);
CTRACE(tfp, "HTTelnet: Command is: %s\n\n", command);
system(command);
}
else {
extern int LYgetch NOPARAMS;
extern BOOLEAN HadVMSInterrupt;
printf(
"\nSorry, this browser was compiled without the %s access option.\n",
acc_method);
printf("\nPress <return> to return to Lynx.");
LYgetch();
HadVMSInterrupt = FALSE;
}
return HT_NO_DATA; /* Ok - it was done but no data */
}
}
#define TELNET_DONE
#endif /* SOCKETSHR_TCP */
#ifdef VM
#define SIMPLE_TELNET
#endif
#ifdef SIMPLE_TELNET
if (login_protocol == telnet) { /* telnet only */
sprintf(command, "TELNET %s", /* @@ Bug: port ignored */
hostname);
CTRACE(tfp, "HTTelnet: Command is: %s\n\n", command);
system(command);
return HT_NO_DATA; /* Ok - it was done but no data */
}
#endif
#ifndef TELNET_DONE
printf(
"\nSorry, this browser was compiled without the %s access option.\n",
acc_method);
printf(
"\nTo access the information you must %s to %s", acc_method, hostname);
if (port)
printf(" (port %s)", port);
if (user)
printf("\nlogging in with username %s", user);
printf(".\n");
{
extern int LYgetch NOPARAMS;
printf("\nPress <return> to return to Lynx.");
fflush(stdout);
LYgetch();
#ifdef VMS
{
extern BOOLEAN HadVMSInterrupt;
HadVMSInterrupt = FALSE;
}
#endif /* VMS */
}
return HT_NO_DATA;
#endif /* !TELNET_DONE */
}
