home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / BBS / RA / FDDEV202.ZIP / PASCAL.ARJ / EVENT.INC < prev    next >
Encoding:
Text File  |  1991-10-02  |  3.7 KB  |  89 lines
  1. (*
  2. **  Event.Inc (FrontDoor)
  3. **
  4. **  Copyright 1991 Joaquim H. Homrighausen. All rights reserved.
  5. **
  6. **  EVENT.FD definitions for FrontDoor 2.00+
  7. **
  8. **  Last revision:  91-10-02
  9. **                            
  10. **  -------------------------------------------------------------------------
  11. **  This information is not necessarily final and is subject to change at any
  12. **  given time without further notice
  13. **  -------------------------------------------------------------------------
  14. *)
  15.  
  16. (*
  17. **  Day values, non-exclusive bit values
  18. **
  19. **  I.e. If the event was active on Monday and Tuesday, the day field
  20. **       would contain $03. If the event is active on all days, the
  21. **       day field should only contain $80.
  22. *)
  23. CONST
  24.   MONDAY      = $01;
  25.   TUESDAY     = $02;
  26.   WEDNESDAY   = $04;
  27.   THURSDAY    = $08;
  28.   FRIDAY      = $10;
  29.   SATURDAY    = $20;
  30.   SUNDAY      = $40;
  31.   ALL         = $80;
  32.  
  33.  
  34. (*
  35. **  Behavior, non-exclusive bit values
  36. **
  37. **  I.e. If an event had FREQ_OK and DO_PICKUP enabled, the behavior field
  38. **       would be $00000018.
  39. **
  40. **       Ignore the "ifndef" directive below, it's only used when I compile
  41. **       FDSETUP.EXE on my system.
  42. *)
  43.   USERS_OK    = $00000001;                 (* Allow users to interrupt event*)
  44.   MAIL_EXIT   = $00000002;                     (* Exit when mail is received*)
  45.   CRASH_ONLY  = $00000004;                           (* Only send Crash mail*)
  46.   FREQ_OK     = $00000008;                    (* Honor inbound file requests*)
  47.   DO_PICKUP   = $00000010;              (* Pickup mail during outbound calls*)
  48.   ALLOW_PICKUP= $00000020;             (* Allow calling nodes to pickup mail*)
  49.   SEND_ONLY   = $00000040;            (* Send only, don't wait between calls*)
  50.   RECV_ONLY   = $00000080;             (* Receive only, don't make any calls*)
  51.   FORCED      = $00000100;           (* Event is forced and MUST be executed*)
  52.   ENDNOMAIL   = $00000200;           (* End event when no more outgoing mail*)
  53.   SENDTOCM    = $00000400;                        (* Send to CM systems only*)
  54.   SENDTONOCM  = $00000800;                    (* Send to non-CM systems only*)
  55.   ONLYONCE    = $00001000;             (* Only call a node once during event*)
  56.   PICKUPFREQ  = $00002000;          (* Honor file requests on outbound calls*)
  57.   HOLDFREQ    = $00004000;          (* Don't send file requests during event*)
  58.  
  59.   (* .. gap .. *)
  60.  
  61.   DELETED     = $40000000;                          (* Never written to disk*)
  62.   INACTIVE    = $80000000;
  63.  
  64.  
  65. (*
  66. **  The first record in EVENT.FD must be the EVENTBASE and have the tag
  67. **  field set to '@'.
  68. *)
  69. TYPE
  70.   EventRec    = RECORD
  71.     Tag       : char;                        (* Event tag A-Z (X==External) *)
  72.     Day       : byte;      (* Days to execute event on, non-exclusive value *)
  73.     Modifier  : char;   (* '-'=Subtract, '+'= Add, '*'= Don't use eventbase *)
  74.     StartHr,                               (* Starting hour, 24 hour format *)
  75.     StartMin,                                            (* Starting minute *)
  76.     LengthHr,                             (* Length (hours), 24 hour format *)
  77.     LengthMin,                                           (* Length (minute) *)
  78.     Level     : byte;    (* Errorlevel on X-events, ignored on non-X events *)
  79.     Behavior  : longint;             (* Event behavior, non-exclusive value *)
  80.     Cost,                  (* Maxmium cost of mail to go out, -1 don't care *)
  81.     LastRun   : integer;              (* Packed DOS date when last executed *)
  82.     Reserved1 : byte;
  83.     Timer,                    (* Delay between calls in seconds, 0==Default *)
  84.     MinCost   : word;                (* Minimum cost for messages to go out *)
  85.     Reserved2 : byte;
  86.   End;
  87.  
  88. (* end of file "Event.Inc" *)
  89.