Category : BBS Programs+Doors
Archive   : TONSMOD.ZIP
Filename : WFCSTATS.MOD

A WFC Status Screen (puts stats on screen during WFC)
Smaug! #410 @9800
Mon Apr 13 19:12:39 1992
Ok, this is a small mod that LEAVES info bout the system on the WFC
screen. Nothing big, no PSWDS! and fairly boring. I spiced mine up
a lot, if you know even a teensie weensi lil thang bout programming
im sure you cen add some nice things to it too...
FIRST! back up your friggin source!
Next, go to FCNS.H
Look through for Modem.c
After imodem(int+1) or whatever....
insert a new line:
void wfcscrn();
Thats it for that part, but it means recomping the whole BBS later...
Now for The BIG mod part... Go to MODEM.C and look in void imodem(...)
ALLL the way down at the bottom, RIGHT before the very end is a:
outs
now make sure that end part looks like:
done=1;
}
outs("\x0c"); /*that "outs"*/
wfcscrn(); /*ADD ME! ADD ME!*/
}

OK, hard part, You have to insert this ENTIRE void right after the imodem
void ends.... (sorry, but its REAL Long)...

void wfcscrn()
{
int i;
long l;

outchr(12);
npr("--> %s @%u <-- Reg: #%ld (%s)\r\n",
syscfg.systemname,
syscfg.systemnumber,
syscfg.wwiv_reg_number,
wwiv_version);
npr("Board Stat: %s Time: %s Last Date: %s\r\n",
syscfg.closedsystem?"Closed":"Open",
times(),
status.date1);
npr("Calls Total: %ld\r\nUsers Total: %d\r\n",
status.callernum1,
status.users);
npr("Active today: %d\r\nCalls Today: %d\r\nUDs Today: %d\r\n",
status.activetoday,
status.callstoday,
status.uptoday);
npr("Email Today: %d\r\nFback Today: %d, Fback Waiting: %d\r\nMsgs: %d\r\n",
status.emailtoday,
status.fbacktoday,
fwaiting,
status.msgposttoday);
i=3;
l=(long) freek(3);
while ((l>0) && ((i+'@')<=cdir[0])) {
npr("%c: Free Space: %ldk\r\nSysOp: %sAvailable\r\n",
i+'@',
l,
sysop2()?"":"NOT ");
i++;
if ((i+'@')<=cdir[0])
l=(long) freek(i);
}
}

Ok, thats that for the Mod, Now if you wanna spice things up you cen add
in printfile("WFCPIC"); or some such thing... Mine looks REAL nice,
i included an old "WFCPIC" from my BBS with this mod (that is, if
this is the .LZHed version.. if i posted it, tough.)
Im sure you cen all figure out the general stuffs of this mod, it
aint hard by a long shot...

Smaug! 1@9828
Deep Thought BBS!
Email me for info or help...