bbs/deb-mbse
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Added debugging info for the ESLF experiment

Browse Source
This commit is contained in:
Michiel Broek 2002-12-16 20:58:14 +00:00
parent a8ad268c00
commit b3f78e2934
2 changed files with 57 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ChangeLog
View File

@ -16,6 +16,11 @@ v0.35.07 11-Dec-2002
On FreeBSD the lsz and lrz programs are found as alternate for
lz and sz.
common.a:
For testing purposes of the ESLF (Extended St. Louis Format)
nodelist, debugging is added to show the information in the
ESLF lines. Only visible with utilities debug 's'.
mbsebbs:
With menu 201 there is now a new optional data parameter N.
When used if a user selects a different message area, areas

60
lib/nodelist.c
View File

@ -174,9 +174,9 @@ int comp_node(struct _nlidx fap1, struct _ixentry fap2)
node *getnlent(faddr *addr)
{
FILE *fp;
FILE *fp, *np;
static node nodebuf;
static char buf[256], *p, *q;
static char buf[2048], ebuf[2048], *p, *q;
struct _ixentry xaddr;
int i, j, Found = FALSE, ixflag, stdflag, ndrecord = FALSE;
char *mydomain, *path;
@ -311,7 +311,6 @@ node *getnlent(faddr *addr)
fclose(fp);
goto retdummy;
}
fclose(fp);
/*
* Load noderecord if this node has one, if there is one then
@ -319,11 +318,11 @@ node *getnlent(faddr *addr)
* the nodelist entries.
*/
sprintf(path, "%s/etc/nodes.data", getenv("MBSE_ROOT"));
if ((fp = fopen(path, "r")) != NULL) {
fread(&ndhdr, sizeof(nodeshdr), 1, fp);
if ((np = fopen(path, "r")) != NULL) {
fread(&ndhdr, sizeof(nodeshdr), 1, np);
while (fread(&nd, ndhdr.recsize, 1, fp) == 1) {
fseek(fp, ndhdr.filegrp + ndhdr.mailgrp, SEEK_CUR);
while (fread(&nd, ndhdr.recsize, 1, np) == 1) {
fseek(np, ndhdr.filegrp + ndhdr.mailgrp, SEEK_CUR);
for (i = 0; i < 20; i++) {
if ((addr->zone == nd.Aka[i].zone) && (addr->net == nd.Aka[i].net) &&
(addr->node == nd.Aka[i].node) && (addr->point == nd.Aka[i].point)) {
@ -336,7 +335,7 @@ node *getnlent(faddr *addr)
break;
}
fclose(fp);
fclose(np);
}
free(path);
@ -357,14 +356,18 @@ node *getnlent(faddr *addr)
*q++ = '\0';
p = q;
if (p == NULL)
if (p == NULL) {
fclose(fp);
goto badsyntax;
}
if ((q=strchr(p,',')))
*q++ = '\0';
p = q;
if (p == NULL)
if (p == NULL) {
fclose(fp);
goto badsyntax;
}
/*
* Get system name
@ -377,8 +380,10 @@ node *getnlent(faddr *addr)
} else
nodebuf.name = p;
p = q;
if (p == NULL)
if (p == NULL) {
fclose(fp);
goto badsyntax;
}
/*
* Get location
@ -387,8 +392,10 @@ node *getnlent(faddr *addr)
*q++ = '\0';
nodebuf.location = p;
p = q;
if (p == NULL)
if (p == NULL) {
fclose(fp);
goto badsyntax;
}
/*
* Get sysop name
@ -397,8 +404,10 @@ node *getnlent(faddr *addr)
*q++ = '\0';
nodebuf.sysop = p;
p = q;
if (p == NULL)
if (p == NULL) {
fclose(fp);
goto badsyntax;
}
/*
* Get phone number
@ -410,8 +419,10 @@ node *getnlent(faddr *addr)
else
nodebuf.phone = p;
p = q;
if (p == NULL)
if (p == NULL) {
fclose(fp);
goto badsyntax;
}
/*
* Get modem speed
@ -470,6 +481,27 @@ node *getnlent(faddr *addr)
}
}
/*
* Now we read the next line from the nodelist and see if this
* is a ESLF (Extended St. Louis Format) line. This is for test
* and nothing is defined yet. For now, debug logging only.
*/
while (TRUE) {
if (fgets(ebuf, sizeof(ebuf)-1, fp) == NULL) {
WriteError("$fgets failed for nodelist entry");
break;
}
/*
* Linse starting with ;E space are real errors.
*/
if (strncmp(ebuf, (char *)";E ", 3) == 0)
break;
if (strncmp(ebuf, (char *)";E", 2))
break;
Syslog('s', "ESLF: \"%s\"", printable(ebuf, 0));
}
fclose(fp);
nodebuf.addr.name = nodebuf.sysop;
nodebuf.addr.domain = xstrcpy(fdx.domain);
nodebuf.upnet = ndx.upnet;