View \MAKEDAT.PAS

Full Source Code To Vision Bbs System

Submitted By: WEBMASTER
Rating: (Not rated) (Rate It)

Procedure MakeSyslogDat;
Var T:Text;
Begin
Assign(T,'SysLog.Dat');
ReWrite(T);
WriteLn(T,'General');
WriteLn(T,'0 1 User % logged on');
WriteLn(T,'0 2 User % invalid password');
WriteLn(T,'0 3 Disconnected');
WriteLn(T,'0 4 System error: %');
WriteLn(T,'');
WriteLn(T,'Main menu');
WriteLn(T,'1 1 Password changed');
WriteLn(T,'1 2 Tried to chat');
WriteLn(T,'1 3 Requested chat: %');
WriteLn(T,'1 4 ** TRANSFERED TO USER % **');
WriteLn(T,'1 5 Wrong password xfering to %');
WriteLn(T,'1 6 Changed name to %');
WriteLn(T,'');
WriteLn(T,'Sysop menu');
WriteLn(T,'2 1 Added to the News');
WriteLn(T,'2 2 Deleted the error log');
WriteLn(T,'2 3 Edited user %');
WriteLn(T,'2 4 Changed the system time/date');
WriteLn(T,'2 5 Created a new guided tour');
WriteLn(T,'2 6 Viewed the system log');
WriteLn(T,'2 7 % Deleted the System Log (---WHY???---)');
WriteLn(T,'2 8 Created user %');
WriteLn(T,'2 9 % tried to del the system log');
WriteLn(T,'2 10 % tried to edit a user');
WriteLn(T,'2 11 User tried to Edit self - Code Entered: %');
WriteLn(T,'2 12 Password Hack Attempt USER ->%');
WriteLn(T,'2 13 Shelled to dos at %');
WriteLn(T,'');
WriteLn(T,'G-Files menu');
WriteLn(T,'3 1 Added G-File %');
WriteLn(T,'3 2 Created G-File %');
WriteLn(T,'3 3 Changed G-File %');
WriteLn(T,'3 4 Deleted G-File %');
WriteLn(T,'3 5 Updated date/time stamp %');
WriteLn(T,'3 6 Created G-File Area %');
WriteLn(T,'3 7 Killed G-File Area %');
WriteLn(T,'3 8 Uploaded G-File %');
WriteLn(T,'3 9 Downloaded G-File %');
WriteLn(T,'3 10 Uploaded G-File Desc: %');
WriteLn(T,'3 11 Added G-File Desc: %');
WriteLn(T,'');
WriteLn(T,'Bulletin menu');
WriteLn(T,'4 1 ASCII-downloaded %');
WriteLn(T,'4 2 ASCII-uploaded %');
WriteLn(T,'4 3 Sponsor commands: Sub-board=%');
WriteLn(T,'4 4 Created sub-board %');
WriteLn(T,'4 5 Deleted bulletin %');
WriteLn(T,'4 6 Re-edited bulletin %');
WriteLn(T,'');
WriteLn(T,'Board sponsor command menu');
WriteLn(T,'5 1 Let in user %');
WriteLn(T,'5 2 Kicked out user %');
WriteLn(T,'5 3 Access by level for user %');
WriteLn(T,'5 4 Everyone''s access: %');
WriteLn(T,'5 5 Renamed sub-board to %');
WriteLn(T,'5 6 Moved file %');
WriteLn(T,'5 7 Wiped out file %');
WriteLn(T,'5 8 Set sponsor to %');
WriteLn(T,'5 9 Re-titled file %');
WriteLn(T,'5 10 Killed the sub-board');
WriteLn(T,'5 11 Set autodelete to %');
WriteLn(T,'5 12 Set access level to %');
WriteLn(T,'5 13 Moved bulletin %');
WriteLn(T,'5 14 Re-ordered the sub-boards');
WriteLn(T,'5 15 Added resident file %');
WriteLn(T,'5 16 Sorted sub-boards');
WriteLn(T,'');
WriteLn(T,'Configuration menu');
WriteLn(T,'');
WriteLn(T,'Database menu');
WriteLn(T,'7 1 Sysop commands: Database=%');
WriteLn(T,'7 2 Created database %');
WriteLn(T,'');
WriteLn(T,'Database sysop menu');
WriteLn(T,'8 1 Re-ordered databases');
WriteLn(T,'8 2 Renamed database to %');
WriteLn(T,'8 3 Changed entry %');
WriteLn(T,'8 4 Set database access level to %');
WriteLn(T,'8 5 Killed database');
WriteLn(T,'8 6 Deleted entry %');
WriteLn(T,'');
WriteLn(T,'Doors menu');
WriteLn(T,'9 1 Opened door %');
WriteLn(T,'');
WriteLn(T,'Sysop doors menu');
WriteLn(T,'10 1 Changed door %');
WriteLn(T,'10 2 Deleted door %');
WriteLn(T,'10 3 Added door %');
WriteLn(T,'10 4 Created batch file %');
WriteLn(T,'');
WriteLn(T,'Feedback menu');
WriteLn(T,'');
WriteLn(T,'E-mail menu');
WriteLn(T,'');
WriteLn(T,'Group editing menu');
WriteLn(T,'13 1 Created group %');
WriteLn(T,'13 2 Deleted group %');
WriteLn(T,'');
WriteLn(T,'E-mail sysop commands menu');
WriteLn(T,'14 1 Looked in %''s mailbox');
WriteLn(T,'14 2 Scanned all of the mail');
WriteLn(T,'14 3 Group for access to board %');
WriteLn(T,'');
WriteLn(T,'File transfer menu');
WriteLn(T,'15 1 Downloaded %');
WriteLn(T,'15 2 Uploaded %');
WriteLn(T,'15 3 Sysop commands: Area=%');
WriteLn(T,'15 4 Created area %');
WriteLn(T,'15 5 Batch Downloaded %');
WriteLn(T,'');
WriteLn(T,'File transfer sysop commands');
WriteLn(T,'16 1 Searched for new uploads');
WriteLn(T,'16 2 Killed area');
WriteLn(T,'16 3 Renamed area to %');
WriteLn(T,'16 4 Changed file %');
WriteLn(T,'16 5 Moved file %');
WriteLn(T,'16 6 Sorted area');
WriteLn(T,'16 7 Deleted file %');
WriteLn(T,'16 8 Added resident file %');
WriteLn(T,'16 9 Re-ordered areas');
WriteLn(T,'16 10 Disk directory %');
WriteLn(T,'16 11 Set area level to %');
WriteLn(T,'16 12 Set sponsor to %');
WriteLn(T,'16 13 Set upload directory to %');
WriteLn(T,'16 14 Tried to Add File %');
WriteLn(T,'16 15 Tried to Kill File %');
WriteLn(T,'16 16 Tried to Kill Area %');
WriteLn(T,'16 17 Tried to Add Multiple Files -- Wildcard: %');
WriteLn(T,'');
WriteLn(T,'News editing menu');
WriteLn(T,'17 1 Deleted news item %');
WriteLn(T,'17 2 Added news %');
WriteLn(T,'');
WriteLn(T,'User editing menu');
WriteLn(T,'18 1 Set wanted flag to %');
WriteLn(T,'18 2 Let into board %');
WriteLn(T,'18 3 Kicked out of board %');
WriteLn(T,'18 4 By level for board %');
WriteLn(T,'18 5 All sub-boards are now %');
WriteLn(T,'18 6 Changed user''s name to %');
WriteLn(T,'18 7 File transfer points: %');
WriteLn(T,'18 8 Changed user''s password');
WriteLn(T,'18 9 Deleted user');
WriteLn(T,'18 10 Granted sysop status: %');
WriteLn(T,'18 11 Denied sysop status: %');
WriteLn(T,'18 12 Time left for today: %');
WriteLn(T,'18 13 Viewed user''s status');
WriteLn(T,'18 14 File transfer level: %');
WriteLn(T,'18 15 Set user''s access level: %');
WriteLn(T,'18 16 Changed phone number: %');
WriteLn(T,'18 17 Part-sysop security violation');
WriteLn(T,'18 18 Changed G-File Level: %');
WriteLn(T,'');
WriteLn(T,'Voting booth menu');
WriteLn(T,'19 1 Sysop commands: Booth=%');
WriteLn(T,'');
WriteLn(T,'Voting booth sysop commands');
WriteLn(T,'20 1 Deleted topic');
WriteLn(T,'20 2 Added choice: %');
WriteLn(T,'20 3 Added topic: %');
WriteLn(T,'');
WriteLn(T,'Local Configuration Commands');
WriteLn(T,'21 1 Changed BBS shortname to %');
WriteLn(T,'21 2 Changed System password to %');
WriteLn(T,'21 3 Changed Matrix type to %');
WriteLn(T,'21 4 Changed sysop password to %');
WriteLn(T,'21 5 Changed time refund to %');
WriteLn(T,'21 6 Allow new users : %');
WriteLn(T,'21 7 Changed NUP to %');
WriteLn(T,'21 8 Changed login header to %');
WriteLn(T,'21 9 Allow matrix feedback : %');
WriteLn(T,'21 10 Allow Matrix chat : %');
WriteLn(T,'21 11 Leech Week Active : %');
WriteLn(T,'');
WriteLn(T,'Hack Attempts');
WriteLn(T,'22 1 Hack Attempt #1 %');
WriteLn(T,'22 2 Hack Attempt #2 %');
WriteLn(T,'22 3 Hack Attempt #3 %');
WriteLn(T,'22 4 Hung up on Hacker %');
TextClose(T);
WriteLn(Usr,'Finished Making Syslog.Dat File!');
End;