DeltaLima
/
TheNetNode-CB
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity
TheNetNode-CB/src/main.c

601 lines
19 KiB
C
Executable File
Raw Permalink Blame History

/************************************************************************/
/* */
/* ***** ***** */
/* ***** ***** */
/* ***** ***** */
/* ***** ***** */
/* *************** *************** */
/* ***************** ***************** */
/* *************** *************** */
/* ***** ***** TheNetNode */
/* ***** ***** Portable */
/* ***** ***** Network */
/* ***** ***** Software */
/* */
/* File src/main.c (maintained by: ???) */
/* */
/* This file is part of "TheNetNode" - Software Package */
/* */
/* Copyright (C) 1998 - 2008 NORD><LINK e.V. Braunschweig */
/* */
/* This program is free software; you can redistribute it and/or modify */
/* it under the terms of the NORD><LINK ALAS (Allgemeine Lizenz fuer */
/* Amateurfunk Software) as published by Hans Georg Giese (DF2AU) */
/* on 13/Oct/1992; either version 1, or (at your option) any later */
/* version. */
/* */
/* This program is distributed WITHOUT ANY WARRANTY only for further */
/* development and learning purposes. See the ALAS (Allgemeine Lizenz */
/* fuer Amateurfunk Software). */
/* */
/* You should have received a copy of the NORD><LINK ALAS (Allgemeine */
/* Lizenz fuer Amateurfunk Software) along with this program; if not, */
/* write to NORD><LINK e.V., Hinter dem Berge 5, D-38108 Braunschweig */
/* */
/* Dieses Programm ist PUBLIC DOMAIN, mit den Einschraenkungen durch */
/* die ALAS (Allgemeine Lizenz fuer Amateurfunk Software), entweder */
/* Version 1, veroeffentlicht von Hans Georg Giese (DF2AU), */
/* am 13.Oct.1992, oder (wenn gewuenscht) jede spaetere Version. */
/* */
/* Dieses Programm wird unter Haftungsausschluss vertrieben, aus- */
/* schliesslich fuer Weiterentwicklungs- und Lehrzwecke. Naeheres */
/* koennen Sie der ALAS (Allgemeine Lizenz fuer Amateurfunk Software) */
/* entnehmen. */
/* */
/* Sollte dieser Software keine ALAS (Allgemeine Lizenz fuer Amateur- */
/* funk Software) beigelegen haben, wenden Sie sich bitte an */
/* NORD><LINK e.V., Hinter dem Berge 5, D-38108 Braunschweig */
/* */
/************************************************************************/
#include "tnn.h"
#include <assert.h>
#ifdef __GO32__
#define ptrdiff_t int
#endif
extern int console_login_status;
static void initvar(void);
static void main_loop(void);
static void mainf(void);
#ifdef SETPATH
static void SetPath(void);
#endif /* SETPATH */
static void initvar(void)
{
int port, i;
PORTINFO *p;
BEACON *b;
memset(mh, 0, sizeof(STAT)*MAXSTAT);
memset(portstat, 0, sizeof(PORTSTAT)*L2PNUM);
for (port = 0, p = &portpar[0], b = &beacon[0];
port < L2PNUM;
port++, p++, b++)
{
sprintf(p->name, "Port%u", port); /* Portnamen eintragen */
p->mtu = 256;
p->l1mode =
p->l2mode = 0;
p->l1_tx_timer = 0;
p->txdelay = 25;
p->persistance = 128;
p->slottime = 10;
#ifdef PORT_MANUELL
p->paclen = 128;
p->IRTT = 200;
p->T2 = 10;
p->T3 = 18000;
#else
p->IRTT = 500;
p->T2 = 150;
#endif /* PORT_MANUELL */
#ifdef IPOLL_FRAME
p->ipoll_paclen = 128;
p->ipoll_retry = 3;
#endif /* IPOLL_FRAME */
#ifdef PORT_L2_CONNECT_TIME
p->l2_connect_time = 120;
#endif
#ifdef PORT_L2_CONNECT_RETRY
p->l2_connect_retry = 3;
#endif
#ifdef AUTOROUTING
p->poAuto = L_NOROUTE;
#endif /* AUTOROUTING */
#ifdef THENETMOD
p->broadcast = broint_ui; /* Timer fuer Broadcast-Nodes Bake. */
#endif /* THENETMOD */
p->maxframe = 2;
#ifdef EAX25
p->maxframe_eax = 16; /* Standard: Maxframe 16 */
p->eax_behaviour = 1; /* Mode nach MHEARD */
#endif
p->retry = 15;
#ifdef SETTAILTIME
#ifdef MC68302
p->tailtime = TAILTIME*10;
#else
p->tailtime = TAILTIME;
#endif
#endif
#ifdef EXPERTPARAMETER
p->l2autoparam = ~0L;
#endif
p->nmblks =
p->nmbstn = 0;
#ifdef DAMASLAVE
p->damaok = 0;
p->sendok = 0;
#endif
#ifdef USERMAXCON
p->maxcon = 0;
#endif
#ifdef PACSAT
pacsat_enabled[port] = FALSE;
#endif
cpyid(b->beades, "QST \140");
b->beadil[0] = b->text[0] = NUL;
b->interval = b->beatim = b->telemetrie = 0;
}
for (i = 0; i < MAXSUSPEND; i++)
*sustab[i].call = NUL;
#ifdef GRAPH
graphclear();
#endif
}
void memerr(void) {
hputs("*** ERROR: Not enough Memory!\n");
exit(10);
}
int main(int argc, char *argv[])
{
#if defined(__GO32__)
static char *line;
char drive[MAXDRIVE];
char path[MAXDIR];
char name[MAXFILE];
char ext[MAXEXT];
#endif
#ifdef __WIN32__
SetConsoleCtrlHandler( (PHANDLER_ROUTINE) CtrlHandler, TRUE );
#endif
/* Hardwarespezifische Sachen (Uhr nachstellen, UTC ins Enviroment, */
/* Kommandozeile auswerten steht jetzt in init_hardware(). */
if (init_hardware(argc, argv)) /* Hardwarespezifische Sachen */
exit(1);
time(&start_time); /* Startzeit merken */
clear_time = start_time;
/**********************************************************************/
/* Speicher besorgen */
/**********************************************************************/
VMSG("--- Allocating mem for LinkTable ...\n");
lnktbl = (LNKBLK *) malloc (sizeof(LNKBLK) * (LINKNMBR ));
VMSG("--- Allocating mem for CircuitTable ...\n");
cirtab = (CIRBLK *) malloc (sizeof(CIRBLK) * (NUMCIR ));
VMSG("--- Allocating mem for PatchcordTable ...\n");
ptctab = (PTCENT *) malloc (sizeof(PTCENT) * (NUMPAT ));
VMSG("--- Allocating mem for HostTable ...\n");
hstubl = (HOSTUS *) malloc (sizeof(HOSTUS) * (MAXHST ));
#ifdef L1TCPIP
VMSG("--- Allocating mem for TcpipTable ...\n");
tcptbl = (TCPIP *) malloc (sizeof(TCPIP) * (MAXTCPIP ));
#endif /* L1TCPIP */
if (lnktbl == NULL ||
cirtab == NULL ||
ptctab == NULL ||
#ifdef L1TCPIP
tcptbl == NULL ||
#endif /* L1TCPIP */
hstubl == NULL
) memerr();
VMSG("--- Initializing variables ...\n");
initvar(); /* Variablen Initialisieren */
/**********************************************************************/
/* Configuration laden */
/**********************************************************************/
*confpath = NUL;
#if defined(__GO32__)
fnsplit(argv[0],drive,path,name,ext); /* Pfad zu TNN.EXE ermitteln, */
strcpy(confpath,drive); /* dort auch die .cfg Dateien! */
strcat(confpath,path);
strcpy(exename, argv[0]); /* Name der EXE merken */
normfname(exename); /* normieren */
#endif
/* wird aus dem aktuellen Verzeichniss gestartet, dann ist das der */
/* ConfPath (Dose gibt "" zurueck !) */
#ifndef MC68302 /* DL1HAZ 01.02.95 */
if (*confpath == NUL) /* sonst wie Atari */
getcwd(confpath,MAXPATH); /* Aktuelles Verzeichnis, Suchpfad */
addslash(confpath);
#endif
if (load_configuration() == FALSE) /* Configuration laden */
hprintf("*** WARNING: Error reading %s.PAS ***\n",cfgfile);
if (load_stat() == FALSE) /* Statistik laden */
hprintf("*** WARNING: Error reading %s.STA ***\n",cfgfile);
#ifdef GRAPH
if (load_graph() == FALSE) /* Graphen laden */
hprintf("*** WARNING: Error reading GRAPH.STA ***\n");
graph.enabled = FALSE; /* wird erst nach einer Minute */
/* auf TRUE gesetzt */
#endif
#ifdef SETPATH
SetPath();
#endif /* WIN32 */
#ifdef MC68302
strcpy(confpath, textpath);
strcpy(msgpath, textpath);
#else
xchdir(textpath); /* Aktuelles Laufwerk und Pfad */
#if defined(__GO32__)
line = malloc(MAXPATH); /* Pfad zu den Konfigurations- */
strcpy(line,"CONFPATH="); /* dateien */
strcat(line,confpath);
if (putenv(line) == -1)
printf("*** WARNING: Enviroment full ***\n");
line = malloc(MAXPATH); /* Temporaerpfad umleiten */
strcpy(line,"TMP=");
strcat(line,textpath);
if (putenv(line) == -1)
printf("*** WARNING: Enviroment full ***\n");
#ifdef __GO32__
line = malloc(MAXPATH); /* Temporaerpfad umleiten */
strcpy(line,"TMPDIR=");
strcat(line,textpath);
if (putenv(line) == -1)
printf("*** WARNING: Enviroment full ***\n");
#endif
#endif
if (getenv("MSGPATH") == NULL) {
#if defined(__GO32__)
line = malloc(MAXPATH);
strcpy(line,"MSGPATH="); /* MSGPATH auf TEXTPATH setzten */
strcat(line,textpath);
if (putenv(line) == -1)
printf("*** WARNING: Enviroment full ***\n");
#endif
#if defined(__WIN32__)
strcpy(msgpath, textpath); /* MSGPATH auf TEXTPATH setzten */
strcat(msgpath, "msg");
addslash(msgpath);
#endif /* WIN32 */
}
else
{
strcpy(msgpath, getenv("MSGPATH"));
addslash(msgpath);
}
#endif
#ifndef MC68302
init_rs232(); /* Schnittstellen */
init_host(); /* Host-Schnittstelle */
init_timer(); /* Timer initialisieren */
#else
init_host(); /* Host-Schnittstelle */
init_timer(); /* Timer initialisieren */
mem_init();
#endif
/**********************************************************************/
/* Software initialisieren */
/**********************************************************************/
VMSG("--- Initializing Level 1 ...\n");
l1init(); /* Level 1 initialisieren */
VMSG("--- Initializing Level 2 ...\n");
l2init(); /* L2 */
VMSG("--- Initializing Level 3 ...\n");
l3init(); /* L3 */
VMSG("--- Initializing Level 4 ...\n");
initl4(); /* L4 */
VMSG("--- Initializing Level 7 ...\n");
initl7(); /* L7 */
#ifdef PACSAT
VMSG("--- Initializing PACSAT ...\n");
pacsat_init(); /* PACSAT-Broadcast */
#endif
#ifdef IPROUTE
VMSG("--- Initializing IP-router ...\n");
ipinit(); /* IP-Router initialisieren */
#endif
#ifdef L1TCPIP
VMSG("--- Initializing L1TCPIP ...\n");
InitTCP(); /* TCPIP Initialisieren. */
#endif /* L1TCPIP */
VMSG("--- Initializing MHeard ...\n");
init_mh(); /* MHEARD Liste laden */
#ifdef SPEECH
speech_init(); /* Sprache initialisieren */
#endif
VMSG("*** Entering main loop ...\n");
mainf(); /* ab in die Hauptschleife */
return(0); /* hierhin kommen wir niemals! */
}
#ifdef ST
char *wowarich;
#endif
/************************************************************************/
/* die Hauptschleife ---*/
/*----------------------------------------------------------------------*/
static void main_loop(void)
{
prof_start(PROF_SUM);
PROFILE(PROF_L2,"l2",l2);
PROFILE(PROF_L3RX,"l3rx",l3rx);
PROFILE(PROF_L7RX,"l7rx",l7rx);
PROFILE(PROF_TIM,"timsrv",timsrv);
#ifdef PACSAT
PROFILE(PROF_PAC,"pacsrv",pacsrv);
#endif
#ifdef IPROUTE
PROFILE(PROF_IP,"ipserv",ipserv);
#endif
#ifdef TCP_STACK
PROFILE(PROF_STACK,"StackSRV",StackSRV);
#endif /* TCP_STACK */
#ifdef L1TCPIP
PROFILE(PROF_TCPIP,"TcpipSRV",TcpipSRV);
#endif /* L1TCPIP */
PROFILE(PROF_L4,"l4rest",l4rest);
PROFILE(PROF_L3,"l3rest",l3rest);
PROFILE(PROF_L7TX,"l7tx",l7tx);
PROFILE(PROF_L4TX,"l4tx",l4tx);
PROFILE(PROF_L3TX,"l3tx",l3tx);
PROFILE(PROF_L1,"l1rxtx",l1rxtx);
prof_stop(PROF_SUM);
#ifndef MC68K
PROFILE(PROF_UPD,"timer",update_timer);
#endif
}
/************************************************************************/
/* das Programm persoenlich... ---*/
/*----------------------------------------------------------------------*/
static void mainf(void)
{
#ifdef ST
ULONG t;
#endif
hputs(signon);
hputid(myid);
hprintf(")\r"
"Copyright by NORD><LINK e.V. (c)1998 - 2008\r"
"This version is compiled for %d Ports. "
"Maximum %d L2-Links and %d Circuits.\r"
#ifdef PPCONVERS
"conversd %5.5s-pp (c) dc6iq/dk5sg, TNN-Version by DL1XAO\r%s\r",
L2PNUM, LINKNMBR, NUMCIR, strchr(REV, ':')+2,author);
#else
"\r", L2PNUM, LINKNMBR, NUMCIR);
#endif
#ifdef AXIPR_UDP
/* Sperre setzen. */
LookAX25IP = TRUE;
#endif /* AXIPR_UDP */
VMSG("--- Entering startup-loop ...\n");
while (startup_running)
{
l1rxtx();
#ifndef MC68K
update_timer();
#endif
hostsv();
hostim();
l7rx();
l7tx();
shellsrv(); /* fuer externe Programme in der tnb */
dealml((LEHEAD*)&rxfl); /* waehrend dem Start-Batch sind wir taub */
}
VMSG("--- Startup done.\n");
#ifdef ST
t = tic10 + 500;
while (t > tic10) /* zusaetzliche 5s Ruhe fuer den Tokenring */
{
l1rxtx();
hostsv();
hostim();
l7rx();
l7tx();
dealml((LEHEAD*)&rxfl);
}
#endif
#ifdef AXIPR_UDP
/* Sperre zuruecksetzen. */
LookAX25IP = FALSE;
#endif /* AXIPR_UDP */
VMSG("*** All done. Here we go ...\n\n");
hputs("password: ");
/* Die Start-TNB wurde geladen, jetzt koennen wir anfangen */
LOOP
main_loop();
}
/************************************************************************/
/* Programm Ende, aufraeumen */
/************************************************************************/
void quit_program(int exit_code)
{
#ifdef SPEECH
printf(speech_message(280));
#else
printf("Programm wird beendet!\n");
#endif
if ( console_login_status
|| exit_code == -1
#ifdef ST
|| exit_code == 2
#endif
) {
exit_mh(); /* MH-Liste sichern */
save_stat();
#ifdef GRAPH
save_graph();
#endif
#ifndef MC68302 /*hier nur noch auf Anforderung */
#ifndef DEBUG
if (nmbfre >= 600) /* nur wenn genug Buffer da ! */
save_parms(); /* Braucht 500 Buffer! */
#endif
personalmanager(SAVE,NULL,NULL); /* Pers. Daten fuer Convers */
#ifdef USERPROFIL
SaveProfil();
#endif /* USERPROFIL */
exit_timer(); /* Timer in Ursprungszustand */
l1exit(); /* L1 zuruecksetzen! */
exit_hardware(); /* Andere Hardware in Ursprungs.*/
exit_host(); /* Console schliessen */
#else
personalmanager(SAVE,NULL,NULL); /* Pers. Daten fuer Convers */
exit_hardware(); /* Andere Hardware in Ursprungs.*/
#endif
#ifdef ALIASCMD
/* Aliasliste loeschen */
clean_aliaslist();
#endif
/* Netzwerk deregistieren */
unregister_network();
/* Speicher freigeben */
free (lnktbl);
free (cirtab);
free (ptctab);
free (hstubl);
#ifdef L1TCPIP
free (tcptbl);
#endif /* L1TCPIP */
/* und tschuess.... */
exit(exit_code);
}
}
#ifdef SETPATH
/* System Pfade setzen. */
static void SetPath(void)
{
#ifdef __LINUX__
mode_t mode = 0775;
#endif /* LINUX */
#ifdef __GO32__
mode_t mode = S_IWUSR;
#endif /* GO32 */
strcpy(textpath, confpath); /* TEXTPATH setzen */
strcpy(textcmdpath, confpath); /* TEXTCMDPATH setzen */
strcat(textcmdpath, "textcmd");
addslash(textcmdpath);
#if defined(__LINUX__) || defined(__GO32__)
mkdir(textcmdpath, mode); /* Verzeichnis textcmd erstellen */
#else
mkdir(textcmdpath); /* Verzeichnis textcmd erstellen */
#endif /* LINUX / GO32 */
strcpy(userexepath, textpath); /* USEREXEPATH setzen */
strcat(userexepath, "userexe");
addslash(userexepath);
#if defined(__LINUX__) || defined(__GO32__)
mkdir(userexepath, mode); /* Verzeichnis USEREXE erstllen */
#else
mkdir(userexepath); /* Verzeichnis USEREXE erstllen */
#endif /* LINUX / GO32 */
strcpy(sysopexepath, textpath);/* SYSOEXEPATH setzen */
strcat(sysopexepath, "sysexe");
addslash(sysopexepath);
#if defined(__LINUX__) || defined(__GO32__)
mkdir(sysopexepath, mode); /* Verzeichnis SYSEXE erstllen */
#else
mkdir(sysopexepath); /* Verzeichnis SYSEXE erstllen */
#endif /* LINUX / GO32 */
strcpy(msgpath, textpath); /* MSGPATH setzen */
strcat(msgpath, "msg");
addslash(msgpath);
#if defined(__LINUX__) || defined(__GO32__)
mkdir(msgpath, mode); /* Verzeichnis MSG erstllen */
#else
mkdir(msgpath); /* Verzeichnis MSG erstllen */
#endif /* LINUX / GO32 */
#ifdef PACSAT
strcpy(pacsatpath, textpath); /* PACSATPATH setzen */
strcat(pacsatpath, "pacsat");
addslash(pacsatpath);
#if defined(__LINUX__) || defined(__GO32__)
mkdir(pacsatpath, mode); /* Verzeichnis PACSAT erstllen */
#else
mkdir(pacsatpath); /* Verzeichnis PACSAT erstllen */
#endif /* LINUX / GO32 */
#endif /* PACSAT */
#ifdef SPEECH
strcpy(speechpath, textpath); /* SPEECHPATH setzen */
strcat(speechpath, "speech");
addslash(speechpath);
#if defined(__LINUX__) || defined(__GO32__)
mkdir(speechpath, mode); /* Verzeichnis SPEECH erstllen */
#else
mkdir(speechpath); /* Verzeichnis SPEECH erstllen */
#endif /* LINUX / GO32 */
#endif /* SPEECH */
}
#endif /* SETPATH */
/* End of src/main.c */
Reference in New Issue View Git Blame Copy Permalink