home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 2 BBS / 02-BBS.zip / imm_110.zip / DOMAIL.CMD next >
OS/2 REXX Batch file  |  1994-11-07  |  2KB  |  87 lines
  1. /* */
  2.  
  3. '@ECHO OFF'
  4. /*trace a
  5. trace r*/
  6.  
  7. /**************************************************************
  8.  * load shareware dll for sort and resource locking functions.
  9.  **************************************************************
  10.  */
  11. If RxFuncQuery('RxExtra') <> 0 Then
  12.     ry = RxFuncAdd('RxExtra', 'RxExtras', 'RxExtra')
  13.  
  14. CALL RxExtra 'Drop' /* Drop everything */
  15. rc = RxFuncAdd('RxExtra', 'RxExtras', 'RxExtra')
  16. CALL RxExtra 'Load'
  17.  
  18. /**************************************************************
  19.  * Load the REXX Utility Functions (RexxUtil)
  20.  **************************************************************
  21.  */
  22. CALL RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  23. CALL SysLoadFuncs
  24.  
  25. /**************************************************************
  26.  * before we start make sure no one else is messing around
  27.  * with mail and the outbound FLO files.  to this we obtain
  28.  * a system resource.  any other mail processes must also follow
  29.  * this same technique to avoid corrupting files by walking on
  30.  * each other
  31.  **************************************************************
  32.  */
  33. Say 'Waiting for MailLock...'
  34.  
  35. DO UNTIL DATATYPE(hmaillock) = 'NUM'
  36.     hmaillock = RxResourceCreate('MailLock')
  37.     IF RxResourceRequest('MailLock') = 'Resource available' THEN
  38.         LEAVE
  39. END
  40.  
  41.  
  42. /**************************************************************
  43.  * Main entry for processing a bundle.  A bundle needs to be
  44.  * unarchived prior to tossing the mail packets.
  45.  **************************************************************
  46.  */
  47. ProcessMail:
  48.     CALL DIRECTORY "C:\Binkley\Hold"
  49.  
  50.    "PolyxArc -cC:\Max\PolyxArc.Cfg -F" 
  51. /*   "PolyxArc  -F >> poly.log" */
  52.  
  53.     CALL DIRECTORY "C:\Max"
  54.  
  55.     NoPGP  
  56.  
  57.     "Squishp In Out Squash -o"
  58.  
  59.     "scanbldp user.bbs area.dat local matrix @EchoScan.Lst"
  60.     Del EchoScan.Lst
  61.  
  62. /*    AFP EC
  63.  
  64.     If rc = 0 Then Signal TossDone
  65.     If rc = 3 Then Signal TossDone
  66.  
  67.     AFP EC*/
  68.  
  69. TossDone:
  70. /*    Mt */
  71.     CALL DIRECTORY "C:\NetMgr"
  72.     NetMgrP
  73.     CALL DIRECTORY "C:\Max"
  74.  
  75.     Squishp In Out Squash
  76.     CALL DIRECTORY "C:\Binkley"
  77.     NMScan
  78.     "mergeflo -td:\yatic\outbound -oc:\binkley\outbound -fc:\binkley\flags -lc:\binkley\mrgflo.log"
  79.    
  80.     CALL RxResourceRelease 'MailLock'
  81.  
  82.     "Echo > C:\Binkley\Flags\BtReScan.01"
  83.     "Echo > C:\Binkley\Flags\BtReScan.02"
  84.     "Echo > C:\Binkley\Flags\XMRESCAN.FLG"
  85.     RETURN
  86.         
  87.