home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 2 BBS
/
02-BBS.zip
/
imm_110.zip
/
DOMAIL.CMD
next >
Wrap
OS/2 REXX Batch file
|
1994-11-07
|
2KB
|
87 lines
/* */
'@ECHO OFF'
/*trace a
trace r*/
/**************************************************************
* load shareware dll for sort and resource locking functions.
**************************************************************
*/
If RxFuncQuery('RxExtra') <> 0 Then
ry = RxFuncAdd('RxExtra', 'RxExtras', 'RxExtra')
CALL RxExtra 'Drop' /* Drop everything */
rc = RxFuncAdd('RxExtra', 'RxExtras', 'RxExtra')
CALL RxExtra 'Load'
/**************************************************************
* Load the REXX Utility Functions (RexxUtil)
**************************************************************
*/
CALL RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
CALL SysLoadFuncs
/**************************************************************
* before we start make sure no one else is messing around
* with mail and the outbound FLO files. to this we obtain
* a system resource. any other mail processes must also follow
* this same technique to avoid corrupting files by walking on
* each other
**************************************************************
*/
Say 'Waiting for MailLock...'
DO UNTIL DATATYPE(hmaillock) = 'NUM'
hmaillock = RxResourceCreate('MailLock')
IF RxResourceRequest('MailLock') = 'Resource available' THEN
LEAVE
END
/**************************************************************
* Main entry for processing a bundle. A bundle needs to be
* unarchived prior to tossing the mail packets.
**************************************************************
*/
ProcessMail:
CALL DIRECTORY "C:\Binkley\Hold"
"PolyxArc -cC:\Max\PolyxArc.Cfg -F"
/* "PolyxArc -F >> poly.log" */
CALL DIRECTORY "C:\Max"
NoPGP
"Squishp In Out Squash -o"
"scanbldp user.bbs area.dat local matrix @EchoScan.Lst"
Del EchoScan.Lst
/* AFP EC
If rc = 0 Then Signal TossDone
If rc = 3 Then Signal TossDone
AFP EC*/
TossDone:
/* Mt */
CALL DIRECTORY "C:\NetMgr"
NetMgrP
CALL DIRECTORY "C:\Max"
Squishp In Out Squash
CALL DIRECTORY "C:\Binkley"
NMScan
"mergeflo -td:\yatic\outbound -oc:\binkley\outbound -fc:\binkley\flags -lc:\binkley\mrgflo.log"
CALL RxResourceRelease 'MailLock'
"Echo > C:\Binkley\Flags\BtReScan.01"
"Echo > C:\Binkley\Flags\BtReScan.02"
"Echo > C:\Binkley\Flags\XMRESCAN.FLG"
RETURN