home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 2 / goldfish_vol2_cd1.bin / files / comm / misc / avmnfax / playall.rexx < prev    next >
OS/2 REXX Batch file  |  1994-05-15  |  541b  |  31 lines
  1. /* this script shows how to play all entries in a mailbox */
  2.  
  3. parse upper arg mailbox .
  4.  
  5. if mailbox = '' then do
  6.   say 'Usage:  playall mailboxdir'
  7.   exit
  8. end
  9.  
  10. call addlib("rexxsupport.library", 0, -30, 0)
  11.  
  12. logrexxport = 'AVMLOGVIEW.' || mailbox
  13.  
  14. logviewrunning = show('p', logrexxport)
  15.  
  16. say 'Opening up' mailbox
  17.  
  18. address command 'run >nil: <nil: avm:logview' mailbox
  19.  
  20. if ~logviewrunning then do 5
  21.   call delay(100)
  22.   logviewrunning = show('p', logrexxport)
  23.   if logviewrunning then break
  24. end
  25.  
  26. address value logrexxport
  27. 'selectall'
  28. 'play'
  29.  
  30.  
  31.