home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 2 BBS / 02-BBS.zip / 3rdparty.zip / mail.cmd < prev    next >
OS/2 REXX Batch file  |  1996-02-17  |  2KB  |  47 lines
  1. /*****************************************************************************/
  2. /*    Mail.Cmd v1.0 with recycle options by Koen Koster alias CliP on IRC    */
  3. /*****************************************************************************/
  4. /*    This Mail.Cmd will recycle multiple gatekeeper tasks so that only 1    */
  5. /*    GateKeeper task is started which will handle all GK requests :-)       */
  6. /*****************************************************************************/
  7.  
  8. /******************* < Begin Sysop Configuration Section > *******************/
  9.  
  10. AdeptDirectory = 'd:\adept'                                  /* change drive */
  11. BusyFlag       = 'd:\adept\gatekpr.busy'                     /* change drive */
  12. RunningFlag    = 'd:\adept\gatekpr.running'                  /* change drive */
  13.  
  14. /******************** < End Sysop Configuration Section > ********************/
  15.  
  16.   call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysloadFuncs'
  17.   call SysLoadFuncs
  18.   curDir = Directory(AdeptDirectory)
  19.   call RxFuncAdd 'SysFileTree','RexxUtil','SysFileTree'
  20.   rc = SysFileTree(RunningFlag,"stem",'F')
  21.  if (stem.0 \= 0) then do
  22.    address cmd '@echo gatekeeper is busy >>'BusyFlag
  23.    call back
  24.  end
  25.  else
  26.    address cmd '@echo gatekeeper is running >>'RunningFlag
  27.    call running
  28.  end
  29.  
  30. running:
  31.    rc = SysFileTree(BusyFlag,"stem",'F')
  32.  if (stem.0 \= 0) then do
  33.    address cmd '@del 'BusyFlag
  34.  end
  35. /* address cmd '@set pktsort=-ld:\adept\logfiles\pktsort.log' */
  36.    address cmd '@GateKpr.Exe GateKpr.Ctl A NP'
  37. /* address cmd '@PMImake.Exe' */
  38.    rc = SysFileTree(BusyFlag,"stem",'F')
  39.  if (stem.0 \= 0) then do
  40.    signal running
  41.  end
  42.  else
  43.    address cmd '@del 'RunningFlag
  44.  
  45. back:
  46.  exit
  47.