home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / WRB100B.ZIP / WRBBS_T1.PAS < prev    next >
Pascal/Delphi Source File  |  1993-01-07  |  8KB  |  171 lines
  1. UNIT WRBBS_T1;
  2.  
  3. {
  4. **************************************************************************
  5. **************************************************************************
  6.  
  7. This file is for use by thrid party developers who wish to write utilities
  8. for WR-BBS.  You do not need this file for operation of WR-BBS.  If you do
  9. not have a need for it, you can safely delete this file.
  10.  
  11. **************************************************************************
  12. **************************************************************************
  13. }
  14.  
  15. { Compiled program WR-BBS is Copyright (C) 1993 by Wilson A. Rogers }
  16.  
  17. INTERFACE
  18.  
  19. {   These TYPE declarations are public -  other WR-BBS units use them   }
  20.  
  21. {
  22.  
  23. Although the WR-BBS program is copyrighted, the TYPE declarations for
  24. most of the files used by WR-BBS are being published for use by third
  25. party developers who may wish to write utilities that directly access
  26. the WR-BBS database files.
  27.  
  28. DEVELOPERS:
  29.  
  30. When designing a utility for WR-BBS,  never change the following data
  31. fields, as they are indexed by the W-TREE Database Manager, or relate
  32. directly to DOS filenames:
  33.  
  34. User database:    FirstName, LastName
  35. Files database:   FileName
  36.  
  37. Everything else is pretty much fair game - just be sensible.
  38.  
  39. }
  40.  
  41.  
  42. USES
  43.     DOS;
  44.  
  45. TYPE    { Record TYPE Declaration }
  46. {------------------------------------------------------------------------}
  47.     COS_Structure                        = RECORD
  48.         AsciiXfer,
  49.             OverWrite,
  50.         SignalSysOp                      : ARRAY [ 65..90 ] OF BOOLEAN;
  51.         TimeLimit                        : ARRAY [ 65..90 ] OF WORD;
  52.     END;    { RECORD TYPE definition for COS_Structure }
  53. {------------------------------------------------------------------------}
  54.     { DataBaseFlag is used by WR-BBS to determine state of database }
  55.     DataBaseFlag                         = RECORD
  56.         DataBaseOpen                     : BOOLEAN;
  57.     END;    { RECORD TYPE Declaration for DataBaseFlag }
  58. {------------------------------------------------------------------------}
  59.     DoorRecord                           = RECORD
  60.         DoorActive                       : BOOLEAN;
  61.         DoorCOS                          : ARRAY [ 65..90 ] OF BOOLEAN;
  62.     END;    { RECORD TYPE declaration for DoorRecord }
  63. {------------------------------------------------------------------------}
  64.     EventRecord                           = RECORD
  65.         EventDay, EventHour,
  66.             EventMinute                   : BYTE;
  67.         EventRunString                    : STRING [ 128 ];
  68.         EventSuspended,
  69.             EventRanToday                 : BOOLEAN;
  70.         LastExecuted                      : STRING [ 14 ];
  71.     END;    { RECORD TYPE declaration for EventRecord }
  72. {------------------------------------------------------------------------}
  73.     FileAreaRecord                        = RECORD
  74.         NameOfArea, PathOfArea            : STRING [ 64 ];
  75.         CosForThisArea                    : ARRAY [ 65..90 ] OF BOOLEAN;
  76.         AreaIsActive                      : BOOLEAN;
  77.     END;    { RECORD TYPE declaration for FileAreaRecord }
  78. {------------------------------------------------------------------------}
  79.     { LibraryRecord is for File Library (File descriptions) }
  80.     LibraryRecord                        = RECORD
  81.         FileArea                         : BYTE;
  82.         FileName                         : STRING [ 12 ];
  83.         Description                      : ARRAY [ 1..8 ] OF STRING [ 64 ];
  84.         LibFileSize, TotalDownloads      : LongInt;
  85.         FileAdded, FileCreated,
  86.             LastDownload                 : DateTime;
  87.         UploaderName                     : STRING [ 32 ];
  88.         Password                         : STRING [ 16 ];
  89.         ForSysOpOnly, NotOnDisk,
  90.             DeletedRecord                : BOOLEAN;
  91.     END;    { RECORD TYPE Declaration for LibraryRecord }
  92. {------------------------------------------------------------------------}
  93.     { MsgDataRecord is for Mail System }
  94.     MsgDataRecord                        = RECORD
  95.         RecipientName, SenderName        : STRING [ 32 ];
  96.         Subject                          : STRING [ 64 ];
  97.         Deleted, Forwarded, Private,
  98.             Received                     : BOOLEAN;
  99.         SentYear, SentMonth, SentDay,
  100.             SentHour, SentMinute,
  101.             ReceivedYear, ReceivedMonth,
  102.             ReceivedDay, ReceivedHour,
  103.             ReceivedMinute, TimesRead    : WORD;
  104.         MessageLines                     : BYTE;
  105.         MessageFileName                  : STRING [ 80 ];
  106.         MessageNumber                    : LongInt;
  107.     END;    { RECORD TYPE Declaration for MsgDataRecord }
  108. {------------------------------------------------------------------------}
  109.     { PegRecord contains volatile data that changes for each call }
  110.     PegRecord                            = RECORD
  111.         LastCallerName, LastCall,
  112.             LastEvent                    : STRING [ 32 ];
  113.         CallsToday, DayIndex,
  114.             MessageIndex, NewMessages,
  115.             TotalCalls, Uploads          : WORD;
  116.         EventHistory                     : ARRAY [ 1..16 ] OF EventRecord;
  117.     END;    { RECORD TYPE Declaration for PegRecord }
  118. {------------------------------------------------------------------------}
  119.     ProtocolRecord                        = RECORD
  120.         ProtocolName                      : STRING [ 48 ];
  121.         BatchMode, Configured             : BOOLEAN;
  122.         KeyWord                           : STRING [ 32 ];
  123.         CosPermitted                      : ARRAY [ 65..90 ] OF BOOLEAN;
  124.     END;    { RECORD TYPE Declaration for ProtocolRecord }
  125. {------------------------------------------------------------------------}
  126.     { Screen is an ARRAY of WORDs used to store screen images }
  127.     Screen                                = ARRAY [ 0..1999 ] OF WORD;
  128.     DefaultScreenArray                    = ARRAY [ 0..1999 ] OF WORD;
  129. {------------------------------------------------------------------------}
  130.     UserRecord                            = RECORD
  131.         FirstName, LastName, PassWord     : STRING [ 16 ];
  132.         AddressOne, AddressTwo            : STRING [ 32 ];
  133.         City, Country                     : STRING [ 24 ];
  134.         State                             : STRING [ 2 ];
  135.         DataPhone, VoicePhone             : STRING [ 16 ];
  136.         ZipCode                           : STRING [ 15 ];
  137.         FirstYear, FirstMonth,
  138.             FirstDay, FirstDayName,
  139.             FirstHour,
  140.             FirstMinute, LastYear,
  141.             LastMonth, LastDay,
  142.             LastDayName,
  143.             LastHour, LastMinute,
  144.             FileYear, FileMonth,
  145.             FileDay, FileDayName,
  146.             MessageYear,
  147.             MessageMonth,MessageDay,
  148.             MessageDayName,
  149.             ExpireYear, ExpireMonth,
  150.             ExpireDay,
  151.             MinutesRemaining,
  152.             Downloads,
  153.             TotalCalls, Uploads           : WORD;
  154.         HighMessageRead                   : ARRAY [ 1..32 ] OF WORD;
  155.         ColorEnabled, DeletedRecord,
  156.             LockedOut, MasterSysOp,
  157.             NewUser                       : BOOLEAN;
  158.         DownloadBytes, UploadBytes        : LongInt;
  159.         ClassOfService                    : CHAR;
  160.     END;    { Record TYPE declaration for UserRecord }
  161. {------------------------------------------------------------------------}
  162.     UserIndexRecord                       = RECORD
  163.         NameKey                           : STRING [ 33 ];
  164.         RecordLocation                    : LONGINT;
  165.     END;    { Record TYPE declaration for UserIndexRecord }
  166.  
  167.  
  168. IMPLEMENTATION
  169.     { There is no implementation - this UNIT is just for TYPEs }
  170. END.
  171.