home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / vi_si_on / makedat.pas < prev    next >
Pascal/Delphi Source File  |  1990-09-08  |  8KB  |  189 lines
  1.      Procedure MakeSyslogDat;
  2.      Var T:Text;
  3.      Begin
  4.         Assign(T,'SysLog.Dat');
  5.         ReWrite(T);
  6.         WriteLn(T,'General');
  7.         WriteLn(T,'0 1 User % logged on');
  8.         WriteLn(T,'0 2 User % invalid password');
  9.         WriteLn(T,'0 3 Disconnected');
  10.         WriteLn(T,'0 4 System error: %');
  11.         WriteLn(T,'');
  12.         WriteLn(T,'Main menu');
  13.         WriteLn(T,'1 1 Password changed');
  14.         WriteLn(T,'1 2 Tried to chat');
  15.         WriteLn(T,'1 3 Requested chat: %');
  16.         WriteLn(T,'1 4 ** TRANSFERED TO USER % **');
  17.         WriteLn(T,'1 5 Wrong password xfering to %');
  18.         WriteLn(T,'1 6 Changed name to %');
  19.         WriteLn(T,'');
  20.         WriteLn(T,'Sysop menu');
  21.         WriteLn(T,'2 1 Added to the News');
  22.         WriteLn(T,'2 2 Deleted the error log');
  23.         WriteLn(T,'2 3 Edited user %');
  24.         WriteLn(T,'2 4 Changed the system time/date');
  25.         WriteLn(T,'2 5 Created a new guided tour');
  26.         WriteLn(T,'2 6 Viewed the system log');
  27.         WriteLn(T,'2 7 % Deleted the System Log (---WHY???---)');
  28.         WriteLn(T,'2 8 Created user %');
  29.         WriteLn(T,'2 9 % tried to del the system log');
  30.         WriteLn(T,'2 10 % tried to edit a user');
  31.         WriteLn(T,'2 11 User tried to Edit self - Code Entered: %');
  32.         WriteLn(T,'2 12 Password Hack Attempt USER ->%');
  33.         WriteLn(T,'2 13 Shelled to dos at %');
  34.         WriteLn(T,'');
  35.         WriteLn(T,'G-Files menu');
  36.         WriteLn(T,'3 1 Added G-File %');
  37.         WriteLn(T,'3 2 Created G-File %');
  38.         WriteLn(T,'3 3 Changed G-File %');
  39.         WriteLn(T,'3 4 Deleted G-File %');
  40.         WriteLn(T,'3 5 Updated date/time stamp %');
  41.         WriteLn(T,'3 6 Created G-File Area %');
  42.         WriteLn(T,'3 7 Killed G-File Area %');
  43.         WriteLn(T,'3 8 Uploaded G-File %');
  44.         WriteLn(T,'3 9 Downloaded G-File %');
  45.         WriteLn(T,'3 10 Uploaded G-File Desc: %');
  46.         WriteLn(T,'3 11 Added G-File Desc: %');
  47.         WriteLn(T,'');
  48.         WriteLn(T,'Bulletin menu');
  49.         WriteLn(T,'4 1 ASCII-downloaded %');
  50.         WriteLn(T,'4 2 ASCII-uploaded %');
  51.         WriteLn(T,'4 3 Sponsor commands: Sub-board=%');
  52.         WriteLn(T,'4 4 Created sub-board %');
  53.         WriteLn(T,'4 5 Deleted bulletin %');
  54.         WriteLn(T,'4 6 Re-edited bulletin %');
  55.         WriteLn(T,'');
  56.         WriteLn(T,'Board sponsor command menu');
  57.         WriteLn(T,'5 1 Let in user %');
  58.         WriteLn(T,'5 2 Kicked out user %');
  59.         WriteLn(T,'5 3 Access by level for user %');
  60.         WriteLn(T,'5 4 Everyone''s access: %');
  61.         WriteLn(T,'5 5 Renamed sub-board to %');
  62.         WriteLn(T,'5 6 Moved file %');
  63.         WriteLn(T,'5 7 Wiped out file %');
  64.         WriteLn(T,'5 8 Set sponsor to %');
  65.         WriteLn(T,'5 9 Re-titled file %');
  66.         WriteLn(T,'5 10 Killed the sub-board');
  67.         WriteLn(T,'5 11 Set autodelete to %');
  68.         WriteLn(T,'5 12 Set access level to %');
  69.         WriteLn(T,'5 13 Moved bulletin %');
  70.         WriteLn(T,'5 14 Re-ordered the sub-boards');
  71.         WriteLn(T,'5 15 Added resident file %');
  72.         WriteLn(T,'5 16 Sorted sub-boards');
  73.         WriteLn(T,'');
  74.         WriteLn(T,'Configuration menu');
  75.         WriteLn(T,'');
  76.         WriteLn(T,'Database menu');
  77.         WriteLn(T,'7 1 Sysop commands: Database=%');
  78.         WriteLn(T,'7 2 Created database %');
  79.         WriteLn(T,'');
  80.         WriteLn(T,'Database sysop menu');
  81.         WriteLn(T,'8 1 Re-ordered databases');
  82.         WriteLn(T,'8 2 Renamed database to %');
  83.         WriteLn(T,'8 3 Changed entry %');
  84.         WriteLn(T,'8 4 Set database access level to %');
  85.         WriteLn(T,'8 5 Killed database');
  86.         WriteLn(T,'8 6 Deleted entry %');
  87.         WriteLn(T,'');
  88.         WriteLn(T,'Doors menu');
  89.         WriteLn(T,'9 1 Opened door %');
  90.         WriteLn(T,'');
  91.         WriteLn(T,'Sysop doors menu');
  92.         WriteLn(T,'10 1 Changed door %');
  93.         WriteLn(T,'10 2 Deleted door %');
  94.         WriteLn(T,'10 3 Added door %');
  95.         WriteLn(T,'10 4 Created batch file %');
  96.         WriteLn(T,'');
  97.         WriteLn(T,'Feedback menu');
  98.         WriteLn(T,'');
  99.         WriteLn(T,'E-mail menu');
  100.         WriteLn(T,'');
  101.         WriteLn(T,'Group editing menu');
  102.         WriteLn(T,'13 1 Created group %');
  103.         WriteLn(T,'13 2 Deleted group %');
  104.         WriteLn(T,'');
  105.         WriteLn(T,'E-mail sysop commands menu');
  106.         WriteLn(T,'14 1 Looked in %''s mailbox');
  107.         WriteLn(T,'14 2 Scanned all of the mail');
  108.         WriteLn(T,'14 3 Group for access to board %');
  109.         WriteLn(T,'');
  110.         WriteLn(T,'File transfer menu');
  111.         WriteLn(T,'15 1 Downloaded %');
  112.         WriteLn(T,'15 2 Uploaded %');
  113.         WriteLn(T,'15 3 Sysop commands: Area=%');
  114.         WriteLn(T,'15 4 Created area %');
  115.         WriteLn(T,'15 5 Batch Downloaded %');
  116.         WriteLn(T,'');
  117.         WriteLn(T,'File transfer sysop commands');
  118.         WriteLn(T,'16 1 Searched for new uploads');
  119.         WriteLn(T,'16 2 Killed area');
  120.         WriteLn(T,'16 3 Renamed area to %');
  121.         WriteLn(T,'16 4 Changed file %');
  122.         WriteLn(T,'16 5 Moved file %');
  123.         WriteLn(T,'16 6 Sorted area');
  124.         WriteLn(T,'16 7 Deleted file %');
  125.         WriteLn(T,'16 8 Added resident file %');
  126.         WriteLn(T,'16 9 Re-ordered areas');
  127.         WriteLn(T,'16 10 Disk directory %');
  128.         WriteLn(T,'16 11 Set area level to %');
  129.         WriteLn(T,'16 12 Set sponsor to %');
  130.         WriteLn(T,'16 13 Set upload directory to %');
  131.         WriteLn(T,'16 14 Tried to Add File %');
  132.         WriteLn(T,'16 15 Tried to Kill File %');
  133.         WriteLn(T,'16 16 Tried to Kill Area %');
  134.         WriteLn(T,'16 17 Tried to Add Multiple Files -- Wildcard: %');
  135.         WriteLn(T,'');
  136.         WriteLn(T,'News editing menu');
  137.         WriteLn(T,'17 1 Deleted news item %');
  138.         WriteLn(T,'17 2 Added news %');
  139.         WriteLn(T,'');
  140.         WriteLn(T,'User editing menu');
  141.         WriteLn(T,'18 1 Set wanted flag to %');
  142.         WriteLn(T,'18 2 Let into board %');
  143.         WriteLn(T,'18 3 Kicked out of board %');
  144.         WriteLn(T,'18 4 By level for board %');
  145.         WriteLn(T,'18 5 All sub-boards are now %');
  146.         WriteLn(T,'18 6 Changed user''s name to %');
  147.         WriteLn(T,'18 7 File transfer points: %');
  148.         WriteLn(T,'18 8 Changed user''s password');
  149.         WriteLn(T,'18 9 Deleted user');
  150.         WriteLn(T,'18 10 Granted sysop status: %');
  151.         WriteLn(T,'18 11 Denied sysop status: %');
  152.         WriteLn(T,'18 12 Time left for today: %');
  153.         WriteLn(T,'18 13 Viewed user''s status');
  154.         WriteLn(T,'18 14 File transfer level: %');
  155.         WriteLn(T,'18 15 Set user''s access level: %');
  156.         WriteLn(T,'18 16 Changed phone number: %');
  157.         WriteLn(T,'18 17 Part-sysop security violation');
  158.         WriteLn(T,'18 18 Changed G-File Level: %');
  159.         WriteLn(T,'');
  160.         WriteLn(T,'Voting booth menu');
  161.         WriteLn(T,'19 1 Sysop commands:  Booth=%');
  162.         WriteLn(T,'');
  163.         WriteLn(T,'Voting booth sysop commands');
  164.         WriteLn(T,'20 1 Deleted topic');
  165.         WriteLn(T,'20 2 Added choice: %');
  166.         WriteLn(T,'20 3 Added topic: %');
  167.         WriteLn(T,'');
  168.         WriteLn(T,'Local Configuration Commands');
  169.         WriteLn(T,'21 1 Changed BBS shortname to %');
  170.         WriteLn(T,'21 2 Changed System password to %');
  171.         WriteLn(T,'21 3 Changed Matrix type to %');
  172.         WriteLn(T,'21 4 Changed sysop password to %');
  173.         WriteLn(T,'21 5 Changed time refund to %');
  174.         WriteLn(T,'21 6 Allow new users : %');
  175.         WriteLn(T,'21 7 Changed NUP to %');
  176.         WriteLn(T,'21 8 Changed login header to %');
  177.         WriteLn(T,'21 9 Allow matrix feedback : %');
  178.         WriteLn(T,'21 10 Allow Matrix chat : %');
  179.         WriteLn(T,'21 11 Leech Week Active : %');
  180.         WriteLn(T,'');
  181.         WriteLn(T,'Hack Attempts');
  182.         WriteLn(T,'22 1 Hack Attempt #1 %');
  183.         WriteLn(T,'22 2 Hack Attempt #2 %');
  184.         WriteLn(T,'22 3 Hack Attempt #3 %');
  185.         WriteLn(T,'22 4 Hung up on Hacker %');
  186.         TextClose(T);
  187.         WriteLn(Usr,'Finished Making Syslog.Dat File!');
  188.       End;
  189.