Updated BBSList, See UPGRADE/BBSLIST.SCR for new options
Not Sure which new ascii is available, I'll check modified: BBSLIST.PAS modified: RECORDS.PAS new file: UPGRADE/BBSLIST.SCR new file: UPGRADE/FIXBBSL.PAS
This commit is contained in:
sk5
parent
5e81182bf7
commit
88bcf6810a
1333
SOURCE/BBSLIST.PAS
1333
SOURCE/BBSLIST.PAS
File diff suppressed because it is too large
Load Diff
|
|
@ -932,25 +932,36 @@ TYPE
|
||||||
|
|
||||||
BBSListRecordType = { *.BBS file records }
|
BBSListRecordType = { *.BBS file records }
|
||||||
{$IFDEF WIN32} PACKED {$ENDIF} RECORD
|
{$IFDEF WIN32} PACKED {$ENDIF} RECORD
|
||||||
RecordNum: LongInt; { Number OF the Record For Edit }
|
RecordNum, { Number OF the Record For Edit }
|
||||||
UserID: LongInt; { User ID OF person adding this }
|
UserID, { User ID OF person adding this }
|
||||||
BBSName: STRING[30]; { Name OF BBS }
|
MaxNodes : LongInt; { Maximum Number Of Nodes }
|
||||||
SysOpName: STRING[30]; { SysOp OF BBS }
|
Port : Word; { Telnet Port }
|
||||||
TelnetUrl: STRING[60]; { Telnet Urls }
|
BBSName : STRING[30]; { Name OF BBS }
|
||||||
WebSiteUrl: STRING[60]; { Web Site Url }
|
SysOpName : STRING[30]; { SysOp OF BBS }
|
||||||
PhoneNumber: STRING[20]; { Phone number OF BBS }
|
TelnetUrl : STRING[60]; { Telnet Urls }
|
||||||
Software: STRING[8]; { Software used by BBS }
|
WebSiteUrl : STRING[60]; { Web Site Url }
|
||||||
Speed: STRING[8]; { Highest connect speed OF BBS }
|
PhoneNumber : STRING[20]; { Phone number OF BBS }
|
||||||
Description: STRING[60]; { Description OF BBS }
|
Location : STRING[30]; { Location of BBS }
|
||||||
Description2: STRING[60]; { Second line OF descrition }
|
Software, { Software used by BBS }
|
||||||
DateAdded: UnixTime; { Date entry was added }
|
SoftwareVersion : String[12]; { Software Version of BBS }
|
||||||
DateEdited: UnixTime; { Date entry was last edited }
|
OS : STRING[20]; { Operating System of BBS }
|
||||||
XA: STRING[8]; { sysop definable A }
|
Speed : STRING[8]; { Highest connect speed OF BBS }
|
||||||
XB: STRING[30]; { sysop definable B }
|
Hours : STRING[20]; { Hours of Operation }
|
||||||
XC: STRING[30]; { sysop definable C }
|
Birth : STRING[10]; { When the BBS Began }
|
||||||
XD: STRING[40]; { sysop definable D }
|
Description : STRING[60]; { Description OF BBS }
|
||||||
XE: STRING[60]; { sysop definable E }
|
Description2 : STRING[60]; { Second line OF descrition }
|
||||||
XF: STRING[60]; { sysop definable F }
|
DateAdded : UnixTime; { Date entry was added }
|
||||||
|
DateEdited : UnixTime; { Date entry was last edited }
|
||||||
|
SDA : STRING[8]; { sysop definable A }
|
||||||
|
SDB : STRING[30]; { sysop definable B }
|
||||||
|
SDC : STRING[30]; { sysop definable C }
|
||||||
|
SDD : STRING[40]; { sysop definable D }
|
||||||
|
SDE : STRING[60]; { sysop definable E }
|
||||||
|
SDF : STRING[60]; { sysop definable F }
|
||||||
|
SDG : Word; { sysop definable G }
|
||||||
|
SDH, { sysop definable H }
|
||||||
|
SDI : Boolean; { sysop definable I }
|
||||||
|
|
||||||
END;
|
END;
|
||||||
|
|
||||||
MenuFlagType =
|
MenuFlagType =
|
||||||
|
|
|
||||||
|
|
@ -0,0 +1,61 @@
|
||||||
|
#
|
||||||
|
# This is an example of a bbslist template.
|
||||||
|
#
|
||||||
|
# Anything after a '#' is considered a comment and is ignored.
|
||||||
|
# Anything That doesn't begin with a [ is ignored.
|
||||||
|
#
|
||||||
|
# [BBSName]: BBS Name
|
||||||
|
# [SysOpName]: Sysop Name
|
||||||
|
# [MaxNodes]: Max Nodes
|
||||||
|
# [Port]: Telnet Port
|
||||||
|
# [TelnetUrl]: Telnet Url
|
||||||
|
# [WebSiteUrl]: Website
|
||||||
|
# [PhoneNumber]: BBS Phone Number
|
||||||
|
# [Location]: Location of BBS
|
||||||
|
# [Software]: BBS Software Used
|
||||||
|
# [SoftwareVersion]: BBS Software Version
|
||||||
|
# [OS]: Operating System of BBS
|
||||||
|
# [Speed]: Speed of the BBS
|
||||||
|
# [Hours]: Hours of Operation
|
||||||
|
# [Birth]: When the bbs started
|
||||||
|
# [Description]: Description
|
||||||
|
# [Description2]: Description 2
|
||||||
|
# [SDA]: SysOp Definable String 8
|
||||||
|
# [SDB]: SysOp Definable String 30
|
||||||
|
# [SDC]: SysOp Definable String 30
|
||||||
|
# [SDD]: SysOp Definable String 40
|
||||||
|
# [SDE]: SysOp Definable String 60
|
||||||
|
# [SDF]: SysOp Definable String 60
|
||||||
|
# [SDG]: SysOp Definable Number
|
||||||
|
# [SDH]: SysOp Definable Yes/No (Default Yes)
|
||||||
|
# [SDI]: SysOp Definable Yes/No (Default No)
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
# if you want to ask the questions in a certain order change the order.
|
||||||
|
# if you don't want to ask a question then leave it out.
|
||||||
|
#
|
||||||
|
# MCI and Pipe Color Codes are allowed in the question.
|
||||||
|
#
|
||||||
|
# Start BBS List Questions
|
||||||
|
#
|
||||||
|
[BBSName]:%DFAEBBS%%LF |03Enter the Name of BBS |15:|11
|
||||||
|
[SysOpName]:%LF |03What is the Sysop of this BBS name? |15:|11
|
||||||
|
[TelnetUrl]:%LF |03What is the Telnet Address of the BBS?%LF |15:|11
|
||||||
|
[Port]:%LF |03What port can this BBS be reached at? |15:|08
|
||||||
|
[WebSiteUrl]:%LF |03What is the web address of the BBS?%LF |15:|11
|
||||||
|
[PhoneNumber]:%DFAEBBS%%LF |03BBS Phone Number |08(|07if any|08) |15:|11
|
||||||
|
[Location]:%LF |03What is the location of this BBS? |15:|11
|
||||||
|
[Software]:%LF |03What Software does this BBS use? |15:|11
|
||||||
|
[SoftwareVersion]:%LF |03Software Version? |15:|11
|
||||||
|
[OS]:%LF |03Operating System? |15:|11
|
||||||
|
[MaxNodes]:%LF |03How Many Nodes? |15:|08
|
||||||
|
[Speed]:%DFAEBBS%%LF |03What is the Speed of the BBS? |08(|072400, 56700, Telnet|08) |15:|11
|
||||||
|
[Hours]:%LF |03What hours does this bbs run? |08(|0724/7 |08.. |076am-3pm|08) |15:|11
|
||||||
|
[Birth]:%LF |03When did this bbs start?
|
||||||
|
[Description]:%LF |03Enter a small description of the BBS 60 Chars Max. 2 Lines%LF |15 : |11
|
||||||
|
[Description2]: |15: |11
|
||||||
|
#[SDG]:%LF |03Number Test? |15:|08
|
||||||
|
#[SDH]:%LF |03BBS Is 24/7? |15:|11
|
||||||
|
#[SDI]:%LF |03Private Nodes? |15:|11
|
||||||
|
|
||||||
|
|
@ -0,0 +1,217 @@
|
||||||
|
Program FixBBSL;
|
||||||
|
|
||||||
|
Uses
|
||||||
|
Dos,
|
||||||
|
Crt,
|
||||||
|
Common,
|
||||||
|
BBSList;
|
||||||
|
|
||||||
|
Type
|
||||||
|
|
||||||
|
UnixTime = Longint;
|
||||||
|
|
||||||
|
OldBBSListRecordType = { *.BBS file records }
|
||||||
|
{$IFDEF WIN32} PACKED {$ENDIF} RECORD
|
||||||
|
RecordNum : LongInt; { Number OF the Record For Edit }
|
||||||
|
UserID : LongInt; { User ID OF person adding this }
|
||||||
|
BBSName : STRING[30]; { Name OF BBS }
|
||||||
|
SysOpName : STRING[30]; { SysOp OF BBS }
|
||||||
|
TelnetUrl : STRING[60]; { Telnet Urls }
|
||||||
|
WebSiteUrl : STRING[60]; { Web Site Url }
|
||||||
|
PhoneNumber : STRING[20]; { Phone number OF BBS }
|
||||||
|
Software : STRING[8]; { Software used by BBS }
|
||||||
|
Speed : STRING[8]; { Highest connect speed OF BBS }
|
||||||
|
Description : STRING[60]; { Description OF BBS }
|
||||||
|
Description2 : STRING[60]; { Second line OF descrition }
|
||||||
|
DateAdded : UnixTime; { Date entry was added }
|
||||||
|
DateEdited : UnixTime; { Date entry was last edited }
|
||||||
|
XA : STRING[8]; { sysop definable A }
|
||||||
|
XB : STRING[30]; { sysop definable B }
|
||||||
|
XC : STRING[30]; { sysop definable C }
|
||||||
|
XD : STRING[40]; { sysop definable D }
|
||||||
|
XE : STRING[60]; { sysop definable E }
|
||||||
|
XF : STRING[60]; { sysop definable F }
|
||||||
|
END;
|
||||||
|
|
||||||
|
NewBBSListRecordType = { New *.BBS file records }
|
||||||
|
{$IFDEF WIN32} PACKED {$ENDIF} RECORD
|
||||||
|
RecordNum, { Number OF the Record For Edit }
|
||||||
|
UserID, { User ID OF person adding this }
|
||||||
|
MaxNodes : LongInt; { Maximum Number Of Nodes }
|
||||||
|
Port : Word; { Telnet Port }
|
||||||
|
BBSName : STRING[30]; { Name OF BBS }
|
||||||
|
SysOpName : STRING[30]; { SysOp OF BBS }
|
||||||
|
TelnetUrl : STRING[60]; { Telnet Urls }
|
||||||
|
WebSiteUrl : STRING[60]; { Web Site Url }
|
||||||
|
PhoneNumber : STRING[20]; { Phone number OF BBS }
|
||||||
|
Location : STRING[30]; { Location of BBS }
|
||||||
|
Software, { Software used by BBS }
|
||||||
|
SoftwareVersion : String[12]; { Software Version of BBS }
|
||||||
|
OS : STRING[20]; { Operating System of BBS }
|
||||||
|
Speed : STRING[8]; { Highest connect speed OF BBS }
|
||||||
|
Hours : STRING[20]; { Hours of Operation }
|
||||||
|
Birth : STRING[10]; { When The BBS Began }
|
||||||
|
Description : STRING[60]; { Description OF BBS }
|
||||||
|
Description2 : STRING[60]; { Second line OF descrition }
|
||||||
|
DateAdded : UnixTime; { Date entry was added }
|
||||||
|
DateEdited : UnixTime; { Date entry was last edited }
|
||||||
|
SDA : STRING[8]; { sysop definable A }
|
||||||
|
SDB : STRING[30]; { sysop definable B }
|
||||||
|
SDC : STRING[30]; { sysop definable C }
|
||||||
|
SDD : STRING[40]; { sysop definable D }
|
||||||
|
SDE : STRING[60]; { sysop definable E }
|
||||||
|
SDF : STRING[60]; { sysop definable F }
|
||||||
|
SDG : Word; { sysop definable G }
|
||||||
|
SDH, { sysop definable H }
|
||||||
|
SDI : Boolean; { sysop definable I }
|
||||||
|
END;
|
||||||
|
|
||||||
|
|
||||||
|
Var
|
||||||
|
|
||||||
|
OldBBSFile : File Of OldBBSListRecordType;
|
||||||
|
OldBBSDat : OldBBSListRecordType;
|
||||||
|
|
||||||
|
BBSFile : File Of NewBBSListRecordType;
|
||||||
|
BBSDat : NewBBSListRecordType;
|
||||||
|
|
||||||
|
i : Integer;
|
||||||
|
|
||||||
|
TempFile,
|
||||||
|
Dir,
|
||||||
|
BBSListDat : String;
|
||||||
|
|
||||||
|
|
||||||
|
Function GetDataFile : String;
|
||||||
|
Var
|
||||||
|
Old : String;
|
||||||
|
Begin
|
||||||
|
GetDir(0,BBSListDat);
|
||||||
|
BBSListDat := BBSListDat+'\DATA\BBSLIST.DAT';
|
||||||
|
GetDir(0,Old);
|
||||||
|
Old := Old+'\DATA\BBSLIST.OLD';
|
||||||
|
If Exist(Old) Then
|
||||||
|
Begin
|
||||||
|
WriteLn;
|
||||||
|
TextColor(12);
|
||||||
|
Write(' ', Old);
|
||||||
|
TextColor(4);
|
||||||
|
WriteLn(' exists. ');
|
||||||
|
TextColor(7);
|
||||||
|
WriteLn(' It seems you have already run this program. ');
|
||||||
|
TextColor(7);
|
||||||
|
WriteLn(' There is no need to run it again.');
|
||||||
|
WriteLn;
|
||||||
|
Halt;
|
||||||
|
End
|
||||||
|
Else If Exist(BBSListDat) Then
|
||||||
|
Begin
|
||||||
|
GetDataFile := BBSListDat;
|
||||||
|
Exit;
|
||||||
|
End
|
||||||
|
Else
|
||||||
|
Begin
|
||||||
|
WriteLn;
|
||||||
|
TextColor(12);
|
||||||
|
Write(' ',BBSListDat);
|
||||||
|
TextColor(4);
|
||||||
|
WriteLn(' doesn''t exist');
|
||||||
|
TextColor(7);
|
||||||
|
WriteLn(' Run this from inside your RENEGADE Home Dir.');
|
||||||
|
WriteLn;
|
||||||
|
Halt;
|
||||||
|
End;
|
||||||
|
End;
|
||||||
|
|
||||||
|
Begin { Main Program }
|
||||||
|
|
||||||
|
BBSListDat := GetDataFile; { Get BBSLIST.DAT or Quit }
|
||||||
|
|
||||||
|
TempFile := 'DATA\BBSTEMP.DAT';
|
||||||
|
|
||||||
|
Assign(OldBBSFile, BBSListDat);
|
||||||
|
Assign(BBSFile, TempFile);
|
||||||
|
Reset(OldBBSFile);
|
||||||
|
Rewrite(BBSFile);
|
||||||
|
Seek(OldBBSFile, 0);
|
||||||
|
Seek(BBSFile, 0);
|
||||||
|
WriteLn;
|
||||||
|
TextColor(3);
|
||||||
|
Write(' Converting Old BBS Records ');
|
||||||
|
|
||||||
|
For i := 1 to FileSize(OldBBSFile) Do
|
||||||
|
Begin
|
||||||
|
Delay(200);
|
||||||
|
TextColor(11);
|
||||||
|
Write('.');
|
||||||
|
Read(OldBBSFile, OldBBSDat);
|
||||||
|
|
||||||
|
BBSDat.RecordNum := OldBBSDat.RecordNum;
|
||||||
|
BBSDat.UserID := OldBBSDat.UserID;
|
||||||
|
BBSDat.BBSName := OldBBSDat.BBSName;
|
||||||
|
BBSDat.SysOpName := OldBBSDat.SysOpName;
|
||||||
|
BBSDat.TelnetUrl := OldBBSDat.TelnetUrl;
|
||||||
|
BBSDat.WebSiteUrl := OldBBSDat.WebSiteUrl;
|
||||||
|
BBSDat.PhoneNumber := OldBBSDat.PhoneNumber;
|
||||||
|
BBSDat.Software := OldBBSDat.Software;
|
||||||
|
BBSDat.Speed := OldBBSDat.Speed;
|
||||||
|
BBSDat.Description := OldBBSDat.Description;
|
||||||
|
BBSDat.Description2 := OldBBSDat.Description2;
|
||||||
|
BBSDat.DateAdded := OldBBSDat.DateAdded;
|
||||||
|
BBSDat.DateEdited := OldBBSDat.DateEdited;
|
||||||
|
BBSDat.SDA := OldBBSDat.XA;
|
||||||
|
BBSDat.SDB := OldBBSDat.XB;
|
||||||
|
BBSDat.SDC := OldBBSDat.XC;
|
||||||
|
BBSDat.SDD := OldBBSDat.XD;
|
||||||
|
BBSDat.SDE := OldBBSDat.XE;
|
||||||
|
BBSDat.SDF := OldBBSDat.XF;
|
||||||
|
|
||||||
|
Write(BBSFile, BBSDat);
|
||||||
|
|
||||||
|
Seek(OldBBSFile, i);
|
||||||
|
Seek(BBSFile, i);
|
||||||
|
|
||||||
|
End;
|
||||||
|
TextColor(3);
|
||||||
|
WriteLn(' Done!');
|
||||||
|
|
||||||
|
GetDir(0,Dir);
|
||||||
|
|
||||||
|
WriteLn;
|
||||||
|
TextColor(3);
|
||||||
|
Write(' Copying ');
|
||||||
|
TextColor(11);
|
||||||
|
Write(Dir,'\DATA\BBSLIST.DAT ');
|
||||||
|
TextColor(3);
|
||||||
|
Write('to ');
|
||||||
|
TextColor(11);
|
||||||
|
Write(Dir,'\DATA\BBSLIST.OLD ');
|
||||||
|
TextColor(3);
|
||||||
|
Write('...');
|
||||||
|
|
||||||
|
Rename(OldBBSFile,Dir+'\DATA\BBSLIST.OLD');
|
||||||
|
|
||||||
|
TextColor(3);
|
||||||
|
WriteLn(' Done!');
|
||||||
|
|
||||||
|
TextColor(3);
|
||||||
|
Write(' Moving ');
|
||||||
|
TextColor(11);
|
||||||
|
Write(Dir,'\DATA\BBSTEMP.DAT ');
|
||||||
|
TextColor(3);
|
||||||
|
Write('to ');
|
||||||
|
TextColor(11);
|
||||||
|
Write(Dir,'\DATA\BBSLIST.DAT ');
|
||||||
|
TextColor(3);
|
||||||
|
Write('...');
|
||||||
|
|
||||||
|
Rename(BBSFile,Dir+'\DATA\BBSLIST.DAT');
|
||||||
|
|
||||||
|
TextColor(3);
|
||||||
|
WriteLn(' Done!');
|
||||||
|
WriteLn;
|
||||||
|
|
||||||
|
Close(OldBBSFile);
|
||||||
|
Close(BBSFile);
|
||||||
|
|
||||||
|
End.
|
||||||
Loading…
Reference in New Issue