ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng)/ProfitPress-MegaCDROM2.B6I/BBS/MISC/WMAIL220.ZIP/WMSTRUCT.220

Text File | 1992-01-10 | 10.6 KB | 239 lines

WMAIL 2.2 - Copyright 1990,91 by Silvan Calarco -

    ────────────────────────────────────────
    Structures of files managed by WMAIL 2.2
    ────────────────────────────────────────

The following structures are created in Turbo Pascal; look at following
table for type compatibility.

Turbo Pascal  C language    Length
────────────  ────────────  ───────
Byte          Char          1 byte
Char          Char          1 byte
Integer       Int           2 bytes
Word          Unsigned Int  2 bytes
Longint       Long          4 bytes
────────────  ────────────  ───────

String[] format uses a byte more than the number specified in brackets, as
the first one (String[0]) contains string length.

───────────────────────────────────────────────────────────────────────────


{ ***** Configuration file structures *********************************** }


   SetRec=Record       { >>>>> file WMAIL.PRM <<<<< }
             Version:Word; { 4: WMail 2.0  5: WMail 2.1  9: WMail 2.2 }
             Sysop:String[30];
             Key:String[16];
             Aka:Array[0..10] of  { Aka 0 is primary address }
                 Record
                    Zone,Net,Node,Point:Integer;
                    Domain:String[20];
                 end;
             FakeNet:Word;
             ZoneGate:Array[1..10] of
                      Record
                         Net,Node:Integer;
                      end;
             Active_Options:Byte; { Bit mapped:
                                        0: Import dupes
                                        1: Import bad messages
                                        2: Do statistics
                                        3: Use log file
                                        4: Use nodelist files
                                        5: Create new Fido area
                                        6: Create new QBBS area
                                        7: Binkley mode on }
             Swap:Byte;           { 0: No swap; 1: Disk swap; 2: EMS swap }
             MinSpace:Word;
             Dir:Record
                    Mail,Files,Out,ArcMail,MsgBase,Dupes,
                    BadEcho,Packer,Stats,NewAreas,Nodelist:String[60];
                 end;
             Origin:Array[1..10] of String[65];
             AreaListFile:String[60];
             LogFile:String[60];
             LogLevel:Byte;        { 0: Important messages
                                     1: Important+normal messages
                                     2: Important+normal+detailed messages
                                     3: Debug mode (all sort of messages) }
             LogStyle:Byte;        { 0: Binkley Term; 1: FrontDoor }
             Active_Options2:Byte; { Bit mapped:
                                       0: Kill rcvd messages
                                       1: Sort nodes
                                       2: Write nodes in short form
                                       3: Allow user rescan
                                       5: Combine 2 tear lines
                                       6: Honour RRQs
                                       7: Kill packed messages }
             BBSInfo:Array [1..50] of
                     Record
                        Zone,Net,Node,Point:Integer;
                        Packer:Byte;
                        CmdPw1:String[20];
                        CmdPw2:String[20];
                        Level:Byte;
                        Misc:Integer; { Bit 1: Daily packets }
                        Aka:Byte;
                     end;
             RouteFile:String[60];
             Packer:Array[1..7] of { See DefPacker for packers and unpackers
                                     assignations. Packer[7] (???) can be
                                     any packer }
                       Record
                          Name:String[12];
                          Parms:String[20];
                       end;
             UnPacker:Array[1..7] of
                         Record
                            Name:String[12];
                            Parms:String[20];
                         end;
             DefPacker:Byte;        {1:ARC 2:ARJ 3:LZH 4:PAK 5:ZIP 6:ZOO}
             Def_Misc:Byte;         { Bit mapped:
                                         0: Put origin
                                         1: Put tear line
                                         2: Hide SEEN-BY
                                         3: Strip 4d address
                                         4: Add AKA's
                                         5: Put domain  }
             Unused:Array[1..1000] of Byte;
          end;


   AreasRecord=Record { >>>>> File AREAS.PRM <<<<< }
                  Titolo   : String[40];
                  Path     : String[80];
                  Tipo     : Byte; {Local=1  EchoMail=2  NetMail=3
                                   Passthru=4}
                  WEdOrigin: Byte; { Used by WEdit }
                  Tag      : String[40];
                  Def_Attr : Byte;        {Bit Mapped (used by WEdit):
                                                     Bit 0 : Pvt
                                                     Bit 1 : Crash
                                                     Bit 4 : F/A
                                                     Bit 7 : Kill/Sent}
                  ForwardTo: Array[1..3] Of String[60];
                  Aka      : Byte;
                  Misc     : Byte;  { Bits: see SetRec.Def_Misc }
                  Level    : Byte;
                  WMOrigin : Byte;
                  Fill     : Array[1..8] of Char;
               end;


{ ***** Statistics files structures ************************************* }

   Stat1=Record         { >>>>> file WMSTAT1.DAT <<<<<}
            TagArea:String[30];
            F:Array[1..3] of
              Record
                 ImpMsg,ExpMsg:Word;
              end;
         end;

{ TagArea contains the name of the area to which statistics refer.
  Record F contains number of imported (ImpMsg) and exported (ExpMsg) messages.
  F[1] contains yearly informations, F[2] monthly ones and F[3] weekly ones.
  From first record it is possible to obtain informations about the period
  for which statistics refer.
  F[1].ImpMsg contains a 4 digit number indicating the concerned year
  F[2].ImpMsg contains a number in {1,2,...12} indicating the concerned month
  F[3].ImpMsg contains number of days between 1970 and concerned period.
  Weekly statistics are made after first Monday import.

   Stat2=Record         { >>>>> file WMSTAT2.DAT <<<<< }
            Net,Node,Point:Integer;
            F:Array[1..3] of
              Record
                 NumPktImp:Integer;
                 NumMsgImp,NumBytesImp:Longint;
                 NumPktExp:Integer;
                 NumMsgExp,NumBytesExp:Longint;
              end;
         end;

{ Net,Node,Point contain the address of node to which statistics refer.
  Record F contains informations about number of imported packets (NumPktImp),
  number of imported messages (NumMsgImp) and total dimension in bytes of
  imported packets (NumBytesImp). The same informations are also present in
  export (NumPktExp, NumMsgExp,NumBytesExp). F[1] contains yearly informations
  F[2] the monthly ones and F[3] the weekly ones.
  First record contains reserved informations and must be therefore skipped. }



{ ***** W-Nodelist files structures **************************************** }

Files created by WNode are 4, and are used for indexing text nodelist in
order to speed up seeks;

*AltNode.WNL contains a queue of nodelist files used other than NodeList.*,
             so private nodelists, pointlists or alternate net nodelists.

*NodeLoc.WNL contains position of concerned field, and nodelist file in
             which are contained the informations about node every record
             refers to.

*SysList.WNL contains names of all Sysops alphabetically sorted and location
             of relative node in NodeLoc.WNL.

*NodeRec.WNL contains indexes to obtain a quick search inside NodeLoc.WNL and
             SysList.WNL. All starting positions of zones and nets, and of
             sorted sysop are put in it.


   NodeLocRec=Record             { Record of NodeLoc.WNL }
                 NodeType:Byte;  { 1:Zone coordinator
                                   2:Region coordinator
                                   4:Host
                                   8:Hub
                                  16:Pvt
                                  32:Hold
                                  64:Down
                                 128:Boss [from pointlist] }
                 Zone,Net,Node,Point:Integer;
                 FileNum:Byte;   { 1: Nodelist.* [newest file];
                                   2: AltNode.WNL [created by WNode] }
                 FilePos:Longint; { Contains absolute node position in one
                                    of two files pointed by FileNum }
              end;


   SysopRec=Record               { Record of SysList.WNL }
               Name:String[20];
               BBSRecord:Longint;{ Position of node record in NodeLoc.WNL }
            end;


   NodeRec=Record                { Record of NodeIdx.WNL }
              NodeType:Byte;     { For mapping, see NodeLocRec.NodeType.
                                   Nodes reported in this field are only of
                                   the following types:
                                   Zone coordinator
                                   Region coordinator
                                   Host
                                   Boss }
              Number:Integer;    { The significative part of address:
                                   Zone coordinator: zone number
                                   Region coordinator, Host: net number
                                   Boss: node number }
              BBSRecord:Longint; { Position of node record in NodeLoc.WNL }
              Match:Array[1..4] of Char;
                                 { The first 4 character of some of the
                                   sorted sysop names. One out of about 30
                                   names is taken. }
              SysopRecord:Longint;
                                 { Position of sysop record in SysList.WNL }
           end;

───────────────────────────────────────────────────────────────────────────
Note: The author reserves for himself right to change this document without
advice.
───────────────────────────────────────────────────────────────────────────
End of file.