{
infusion bbs callback verifier .. version 1.0a (first release) by skaboy101
made for heurcoloco6 or sokmething
}
Program Infusion_CBV;
Uses crt,dos,modem,gensubs,subs1,subs2,configrt,gentypes,skashit,
control,textunit;
{:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
const
cVersion = '1.0a2b';
cRelease = '??/??/??';
{:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
Type
cConfigRec = record
AcsPromote : word;
CheckLevel : byte;
EnterPassword : Mstr;
EnterPhone : Mstr;
end;
{:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
cDropRec = record
System_Name : Lstr;
Sysop_Name : Mstr;
Current_Node : byte;
Comm_Port : byte;
Baud_Rate : byte;
User_Handle : Mstr;
User_Real : Mstr;
Root_Dir : Lstr;
Data_Dir : Lstr;
Text_Dir : Lstr;
Menu_Dir : Lstr;
Config_File : Sstr;
end;
{:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
var
cConfig : cConfigRec;
cDrop : cDropRec;
{:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
Procedure cError(code : byte);
begin
if (code=1) then
begin
skawrite('|CR|08■ |07Fatal error, INFDOOR.NFO must reside in current directory|CR');
skawrite('|08■ |07Halting opperation.|CR');
halt(1);
end else
if (code=2) then
begin
skawrite('|CR|08■ |07Fatal error, '+cDrop.Root_Dir+cDrop.Config_File+' does not exist|CR');
skawrite('|08■ |07Halting opperation.|CR');
halt(2);
end else
if (code=3) then
begin
skawrite('|CR|08■ |07Fatal error, INF-CBV requires there to be a FOSSIL driver loaded...|CR');
skawrite('|CR|08■ There is no point in running this locally, sorry =)...|CR');
skawrite('|08■ |07Halting opperation.|CR');
halt(3);
end;
end;
{::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
Procedure cEditConfig;
Begin
end;
{::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
Procedure cReadDropFile;
Var
dF : text;
dCount : byte;
Begin
if not exist('INFDOOR.NFO') then cError(1);
skawrite('|08■ |07Reading INFDOOR.NFO ........................');
Assign(dF,'INFDOOR.NFO');
reset(dF);
for dCount := 1 to 7 do Readln(dF);
readln(dF,cDrop.System_Name);readln(dF);
readln(dF,cDrop.Sysop_Name);readln(dF);
readln(dF,cDrop.Current_Node);readln(dF);
readln(dF,cDrop.Comm_Port);readln(dF);
readln(dF,cDrop.Baud_Rate);readln(dF);
readln(dF,cDrop.User_Handle);readln(dF);
readln(dF,cDrop.User_Real);readln(dF);
readln(dF,cDrop.Root_Dir);readln(dF);
readln(dF,cDrop.Data_Dir);readln(dF);
readln(dF,cDrop.Text_Dir);readln(dF);
readln(dF,cDrop.Menu_Dir);readln(dF);
readln(dF,cDrop.Config_File);close(dF);
skawrite('|07........ |15dONE|CR');
end;
{::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
Procedure cReadConfig;
Var
cF : file of cConfigrec;
Begin
if Not Exist('INF-CBV.DAT') then cEditConfig;
skawrite('|08■ |07Reading INF-CBV.DAT ........................');
Assign(cF,'INF-CBV.DAT');
reset(cF);
read(cF,cConfig);
close(cF);
skawrite('|07........ |15dONE|CR');
end;
{::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
Procedure cReadInfusionConfig;
Var
cF : file of configsettype;
Begin
skawrite('|08■ |07Reading Infusion configuration file ........');
If not exist(cDrop.Root_Dir+cDrop.Config_File) then cError(2);
Assign(cF,cDrop.Root_Dir+cDrop.Config_File);
reset(cF);
read(cF,Cfg);
close(cF);
skawrite('|07........ |15dONE|CR');
end;
{::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
Procedure cInitModem;
begin
If not (Modem.InstallFossil) then cError(3);
end;
{::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}