This repository has been archived on 2024-04-08. You can view files and clone it, but cannot push or open issues or pull requests.
magicka/deps/odoors/ex_diag.c

579 lines
17 KiB
C
Raw Normal View History

2016-12-03 05:08:50 +00:00
/* ex_diag.c - Diagnostic door program, written to test environment in which
* an OpenDooors door will run. Reads configuration settings from
* command line and configuration file, and displays diagnostic
* information on the local (and when possible, remote) screens.
*/
#include <string.h>
#include <stdio.h>
#include <stdlib.h>
#include "OpenDoor.h"
/******************/
/* Wrapper macros */
/******************/
#if defined(__unix__)
#if !defined(stricmp)
#define stricmp(x,y) strcasecmp(x,y)
#define strnicmp(x,y,z) strncasecmp(x,y,z)
#endif
#endif
typedef enum
{
kParamLocal,
kParamBPS,
kParamPort,
kParamNode,
kParamHelp,
kParamPersonality,
kParamMaxTime,
kParamAddress,
kParamIRQ,
kParamNoFOSSIL,
kParamNoFIFO,
kParamDropFile,
kParamUserName,
kParamTimeLeft,
kParamSecurity,
kParamLocation,
kParamUnknown
} tCommandLineParameter;
char *BoolAsStr(int bValue);
void ParseStandardCommandLine(int nArgCount, char *papszArguments[]);
static void AdvanceToNextArg(int *pnCurrentArg, int nArgCount,
char *pszOption);
static void GetNextArgName(int *pnCurrentArg, int nArgCount,
char *papszArguments[], char *pszString,
int nStringSize);
static tCommandLineParameter GetCommandLineParameter(char *pszArgument);
int main(int argc, char *argv[])
{
char sz[80];
int n;
/* Parse command-line. */
ParseStandardCommandLine(argc, argv);
/* Initialize OpenDoors. */
od_init();
od_clr_scr();
od_printf("OpenDoors has been initialized.\n\r");
for(;;)
{
od_printf("\n\rPOST-INITIALIZATION DIAGNOSTIC INFORMATION:\n\r");
od_printf(" Running in REMOTE mode : %s\n\r",
BoolAsStr(od_control.baud));
od_printf(" Port <-> Modem BPS Rate : %lu\n\r", od_control.baud);
od_printf(" Serial Port Number : %d (COM%d:)\n\r", od_control.port,
od_control.port + 1);
od_printf(" Serial I/O Method : ");
switch(od_control.od_com_method)
{
case COM_FOSSIL:
od_printf("FOSSIL Driver\n\r");
break;
case COM_INTERNAL:
od_printf("OpenDoors Internal I/O Module\n\r");
break;
case COM_SOCKET:
od_printf("TCP Socket/Telnet\n\r");
break;
default:
od_printf("Unknown\n\r");
break;
}
od_printf(" Drop File Type : ");
switch(od_control.od_info_type)
{
case DORINFO1:
od_printf("DORINFO?.DEF\n\r");
break;
case EXITINFO:
od_printf("Basic EXITINFO.BBS & DORINFO1.DEF\n\r");
break;
case RA1EXITINFO:
od_printf("RA 1.x EXITINFO.BBS & DORINFO1.DEF\n\r");
break;
case CHAINTXT:
od_printf("CHAIN.TXT\n\r");
break;
case SFDOORSDAT:
od_printf("SFDOORS.DAT\n\r");
break;
case CALLINFO:
od_printf("CALLINFO.BBS\n\r");
break;
case DOORSYS_GAP:
od_printf("GAP style DOOR.SYS\n\r");
break;
case DOORSYS_DRWY:
od_printf("DoorWay DOOR.SYS\n\r");
break;
case QBBS275EXITINFO:
od_printf("QuickBBS 2.75+ EXITINFO.BBS\n\r");
break;
case CUSTOM:
od_printf("User-Defined Custom Format\n\r");
break;
case DOORSYS_WILDCAT:
od_printf("WildCat! DOOR.SYS\n\r");
break;
case RA2EXITINFO:
od_printf("RA 2.x+ EXITINFO.BBS & DORINFO1.DEF\n\r");
break;
case NO_DOOR_FILE:
od_printf("No Drop File in Use\n\r");
break;
case DOOR32SYS:
od_printf("Door32.sys\n\r");
break;
default:
od_printf("Unknown Type\n\r");
break;
}
od_printf(" ANSI Mode Available : %s\n\r",
BoolAsStr(od_control.user_ansi));
od_printf(" AVATAR Mode Available : %s\n\r",
BoolAsStr(od_control.user_avatar));
od_printf(" RIP Graphics Available : %s\n\r",
BoolAsStr(od_control.user_rip));
od_printf(" User's Time Limit : %d\n\r", od_control.user_timelimit);
od_printf(" User's Full Name : %s\n\r", od_control.user_name);
od_printf("\n\rChoose Option: [E]xit, [T]yping Test,");
if(od_control.od_com_method == COM_INTERNAL)
{
od_printf(" [I]nternal I/O Diags,");
}
od_printf("\n\r");
od_printf(" [A]utodetect ANSI/RIP, [R]e-Display, [D]isplay Tests\n\r");
n=od_get_answer("eitard");
switch(n)
{
case 'e':
od_clr_scr();
od_printf("\n\rExit - Are You Sure (Y/N)? ");
if(od_get_answer("yn") == 'y')
{
return(0);
}
break;
case 'i':
od_clr_scr();
od_printf("INTERNAL SERIAL I/O DIAGNOSTIC INFORMATION:\n\r");
od_printf(" Serial Port Base Address : %x\n\r",
od_control.od_com_address);
od_printf(" IRQ Line Number : %d\n\r",
od_control.od_com_irq);
od_printf(" Receive Buffer Size : %d\n\r",
od_control.od_com_rx_buf);
od_printf(" Transmit Buffer Size : %d\n\r",
od_control.od_com_tx_buf);
od_printf(" Use FIFO Buffer, if avail : %s\n\r",
BoolAsStr(!od_control.od_com_no_fifo));
od_printf(" FIFO Trigger Size : %d\n\r",
od_control.od_com_fifo_trigger);
od_printf("\n\rPress [ENTER] to return.\n\r");
od_get_answer("\n\r");
break;
case 't':
od_clr_scr();
od_printf("\n\rTyping Test - Type any text below:\n\r");
od_printf("[------------------------------------------------------"
"-----------------------]\n\r");
od_input_str(sz, 79, 0, 255);
od_printf("\n\rEntered Text:\n\r%s\n\r", sz);
od_printf("\n\rPress [ENTER] to return.\n\r");
od_get_answer("\n\r");
break;
case 'a':
od_clr_scr();
od_printf("\n\rAutodetecting ANSI/RIP mode ...\n\r");
od_printf("(Detected modes will be turned on.)\n\r");
od_autodetect(0);
od_printf("\n\rDone, press [ENTER] to return.\n\r");
od_get_answer("\n\r");
break;
case 'd':
od_clr_scr();
od_printf("CLEAR SCREEN TEST\n\r");
od_printf("About to test clear screen. The screen should\n\r");
od_printf("be cleared before the next test if screen\n\r");
od_printf("clearing is enabled.\n\r");
od_printf("\n\rPress [ENTER] to perform test.\n\r");
od_get_answer("\n\r");
od_clr_scr();
od_printf("CARRIAGE RETURN TEST:\n\r");
od_printf("This should not be visible\r");
od_printf("This should cover it up...\n\r\n\r");
od_printf("The text \"This should not be visible\" will\n\r");
od_printf("appear above if this test failed.\n\r");
od_printf("\n\rPress [ENTER] to perform next test.\n\r");
od_get_answer("\n\r");
od_clr_scr();
od_printf("COLOR TEST:\n\r\n\r");
for(n = 0; n < 256; ++n)
{
od_set_attrib(n);
od_printf("%x", n % 16);
if(n % 32 == 31)
{
od_set_attrib(0x07);
od_printf("\n\r");
}
}
od_printf("\n\rIf ANSI or AVATAR modes are available, the\n\r");
od_printf("above test pattern should print in color.\n\r");
od_printf("\n\rPress [ENTER] to perform next test.\n\r");
od_get_answer("\n\r");
od_clr_scr();
od_printf("CURSOR POSITIONING TEST:\n\r");
for(n = 15; n > 2; --n)
{
od_set_cursor(n, n);
od_printf("\\");
}
for(n = 15; n > 2; --n)
{
od_set_cursor(n, 17 - n);
od_printf("/");
}
od_set_cursor(17, 1);
od_printf("If ANSI or AVATAR modes are available, a large X\n\r");
od_printf("should appear on lines 3 to 15.\n\r");
od_printf("\n\rPress [ENTER] to return.\n\r");
od_get_answer("\n\r");
break;
}
od_clr_scr();
}
/* Return with success. */
return(0);
}
char *BoolAsStr(int bValue)
{
return(bValue ? "Yes (TRUE)" : "No (FALSE)");
}
void ParseStandardCommandLine(int nArgCount, char *papszArguments[])
{
char *pszCurrentArg;
int nCurrentArg;
for(nCurrentArg = 1; nCurrentArg < nArgCount; ++nCurrentArg)
{
pszCurrentArg = papszArguments[nCurrentArg];
switch(GetCommandLineParameter(pszCurrentArg))
{
case kParamLocal:
od_control.od_force_local = TRUE;
break;
case kParamBPS:
AdvanceToNextArg(&nCurrentArg, nArgCount, pszCurrentArg);
od_control.baud = atol(papszArguments[nCurrentArg]);
break;
case kParamPort:
AdvanceToNextArg(&nCurrentArg, nArgCount, pszCurrentArg);
od_control.port = atoi(papszArguments[nCurrentArg]);
break;
case kParamHelp:
printf("AVALIABLE COMMAND LINE PARAMETERS:\n");
printf(" -L or -LOCAL - Causes door to operate in local mode, without requiring a\n");
printf(" door information (drop) file.\n");
printf(" -DROPFILE x - Door information file directory or directory+filename.\n");
printf(" -N x or -NODE x - Sets the node number to use.\n");
printf(" -B x or -BPS x - Sets the serial port <---> modem bps (baud) rate to use.\n");
printf(" -P x or -PORT x - Sets the serial port to use, were 0=COM1, 1=COM2, etc.\n");
printf(" -ADDRESS x - Sets serial port address in decimal NOT hexidecimal\n");
printf(" (only has effect if FOSSIL driver is not being used).\n");
printf(" -IRQ x - Sets the serial port IRQ line (only has effect if FOSSIL\n");
printf(" driver is not being used).\n");
printf(" -NOFOSSIL - Disables use of FOSSIL driver, even if available.\n");
printf(" -NOFIFO - Disables use of 16550 FIFO buffers (only if FOSSIL driver\n");
printf(" is not being used).\n");
printf(" -PERSONALITY x - Sets the sysop status line / function key personality to\n");
printf(" use - one of Standard, PCBoard, RemoteAccess or Wildcat.\n");
printf(" -MAXTIME x - Sets the maximum number of minutes that any user will be\n");
printf(" permitted to access the door.\n");
printf(" -USERNAME x - Name of user who is currently online.\n");
printf(" -TIMELEFT x - User's time remaining online.\n");
printf(" -SECURITY x - User's security level.\n");
printf(" -LOCATION x - Location from which user is calling.\n");
printf(" -?, -H or -HELP - Displays command-line help and exits.\n");
exit(1);
break;
case kParamNode:
AdvanceToNextArg(&nCurrentArg, nArgCount, pszCurrentArg);
od_control.od_node = atoi(papszArguments[nCurrentArg]);
break;
case kParamPersonality:
AdvanceToNextArg(&nCurrentArg, nArgCount, pszCurrentArg);
if(stricmp(papszArguments[nCurrentArg], "Standard") == 0)
{
od_control.od_default_personality = PER_OPENDOORS;
}
else if(stricmp(papszArguments[nCurrentArg], "PCBoard") == 0)
{
od_control.od_default_personality = PER_PCBOARD;
}
else if(stricmp(papszArguments[nCurrentArg], "RemoteAccess") == 0)
{
od_control.od_default_personality = PER_RA;
}
else if(stricmp(papszArguments[nCurrentArg], "Wildcat") == 0)
{
od_control.od_default_personality = PER_WILDCAT;
}
else
{
printf("Unknown personality: %s\n", papszArguments[nCurrentArg]);
exit(1);
}
break;
case kParamMaxTime:
AdvanceToNextArg(&nCurrentArg, nArgCount, pszCurrentArg);
od_control.od_maxtime = atoi(papszArguments[nCurrentArg]);
break;
case kParamAddress:
AdvanceToNextArg(&nCurrentArg, nArgCount, pszCurrentArg);
od_control.od_com_address = atoi(papszArguments[nCurrentArg]);
break;
case kParamIRQ:
AdvanceToNextArg(&nCurrentArg, nArgCount, pszCurrentArg);
od_control.od_com_irq = atoi(papszArguments[nCurrentArg]);
break;
case kParamNoFOSSIL:
od_control.od_no_fossil = TRUE;
break;
case kParamNoFIFO:
od_control.od_com_no_fifo = TRUE;
break;
case kParamDropFile:
AdvanceToNextArg(&nCurrentArg, nArgCount, pszCurrentArg);
strncpy(od_control.info_path, papszArguments[nCurrentArg],
sizeof(od_control.info_path) - 1);
od_control.info_path[sizeof(od_control.info_path) - 1] = '\0';
break;
case kParamUserName:
GetNextArgName(&nCurrentArg, nArgCount, papszArguments,
od_control.user_name, sizeof(od_control.user_name));
break;
case kParamTimeLeft:
AdvanceToNextArg(&nCurrentArg, nArgCount, pszCurrentArg);
od_control.user_timelimit = atoi(papszArguments[nCurrentArg]);
break;
case kParamSecurity:
AdvanceToNextArg(&nCurrentArg, nArgCount, pszCurrentArg);
od_control.user_security = atoi(papszArguments[nCurrentArg]);
break;
case kParamLocation:
GetNextArgName(&nCurrentArg, nArgCount, papszArguments,
od_control.user_location, sizeof(od_control.user_location));
break;
default:
printf("Unrecognized command line option: %s\n", pszCurrentArg);
exit(1);
break;
}
}
}
static void AdvanceToNextArg(int *pnCurrentArg, int nArgCount, char *pszOption)
{
if(++*pnCurrentArg >= nArgCount)
{
printf("Missing parameter for option: %s\n", pszOption);
exit(1);
}
}
static void GetNextArgName(int *pnCurrentArg, int nArgCount,
char *papszArguments[], char *pszString,
int nStringSize)
{
int bFirst = TRUE;
if((*pnCurrentArg) + 1 >= nArgCount)
{
printf("Missing parameter for option: %s\n",
papszArguments[(*pnCurrentArg) - 1]);
exit(1);
}
pszString[0] = '\0';
while(++*pnCurrentArg < nArgCount)
{
if(GetCommandLineParameter(papszArguments[*pnCurrentArg])
!= kParamUnknown)
{
--*pnCurrentArg;
break;
}
if(strlen(pszString) >= nStringSize - 1)
{
break;
}
if(!bFirst)
{
strcat(pszString, " ");
}
strncat(pszString, papszArguments[*pnCurrentArg],
strlen(pszString) - nStringSize - 1);
pszString[nStringSize - 1] = '\0';
bFirst = FALSE;
}
}
static tCommandLineParameter GetCommandLineParameter(char *pszArgument)
{
if(*pszArgument == '-' || *pszArgument == '/')
{
++pszArgument;
}
if(stricmp(pszArgument, "L") == 0
|| stricmp(pszArgument, "LOCAL") == 0)
{
return(kParamLocal);
}
else if(stricmp(pszArgument, "B") == 0
|| stricmp(pszArgument, "BPS") == 0
|| stricmp(pszArgument, "BAUD") == 0)
{
return(kParamBPS);
}
else if(stricmp(pszArgument, "P") == 0
|| stricmp(pszArgument, "PORT") == 0)
{
return(kParamPort);
}
else if(stricmp(pszArgument, "N") == 0
|| stricmp(pszArgument, "NODE") == 0)
{
return(kParamNode);
}
else if(stricmp(pszArgument, "?") == 0
|| stricmp(pszArgument, "H") == 0
|| stricmp(pszArgument, "HELP") == 0)
{
return(kParamHelp);
}
else if(stricmp(pszArgument, "PERSONALITY") == 0)
{
return(kParamPersonality);
}
else if(stricmp(pszArgument, "MAXTIME") == 0)
{
return(kParamMaxTime);
}
else if(stricmp(pszArgument, "ADDRESS") == 0)
{
return(kParamAddress);
}
else if(stricmp(pszArgument, "IRQ") == 0)
{
return(kParamIRQ);
}
else if(stricmp(pszArgument, "NOFOSSIL") == 0)
{
return(kParamNoFOSSIL);
}
else if(stricmp(pszArgument, "NOFIFO") == 0)
{
return(kParamNoFIFO);
}
else if(stricmp(pszArgument, "DROPFILE") == 0)
{
return(kParamDropFile);
}
else if(stricmp(pszArgument, "USERNAME") == 0)
{
return(kParamUserName);
}
else if(stricmp(pszArgument, "TIMELEFT") == 0)
{
return(kParamTimeLeft);
}
else if(stricmp(pszArgument, "SECURITY") == 0)
{
return(kParamSecurity);
}
else if(stricmp(pszArgument, "LOCATION") == 0)
{
return(kParamLocation);
}
else
{
return(kParamUnknown);
}
}
void NoDoorFileHandler(void)
{
/* Alter OpenDoors behaviour, so that we proceed with defaults if */
/* no door information file is available, rather than exiting with */
/* an error. Set od_no_file_func to point to this function. */
if(strlen(od_control.user_name) == 0)
{
strcpy(od_control.user_name, "Unknown User");
}
if(strlen(od_control.user_location) == 0)
{
strcpy(od_control.user_location, "Unknown Location");
}
if(od_control.user_timelimit == 0)
{
od_control.user_timelimit = 30;
}
od_control.od_info_type = CUSTOM;
}