home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Spezial / SPEZIAL2_97.zip / SPEZIAL2_97.iso / ANWEND / ONLINE / ELM23-2 / ELM23-2.ZIP / bin / messages.cmd < prev    next >
OS/2 REXX Batch file  |  1994-06-23  |  770b  |  45 lines
  1. /* REXX: messages.cmd, part of Elm for OS/2 */
  2.  
  3. maildir = 'c:\uupc\mail'
  4.  
  5. parse arg folder rest
  6.  
  7. if rest \= "" 
  8. then do
  9.   say ''
  10.   say 'Usage: messages {folder-name}'
  11.   exit 1
  12. end
  13.  
  14. if folder = ""
  15. then do
  16.   fname = maildir || '\' || value('LOGNAME',,'OS2ENVIRONMENT')
  17.   optional = 'in your mailbox'
  18. end 
  19. else do
  20.   fname = folder
  21.   optional = 'in folder ' || folder
  22. end
  23.  
  24. queue = rxqueue('create')
  25. call rxqueue 'set', queue
  26.  
  27. '@egrep -c "^From " ' || fname || ' | rxqueue 'queue
  28.  
  29. if queued() > 0
  30. then parse pull mcount
  31. else mcount = -1
  32.  
  33. call rxqueue 'delete', queue
  34.  
  35. if mcount = -1
  36. then exit 0
  37.  
  38. say ''
  39.  
  40. if mcount = 1
  41. then say 'There is 'mcount' message 'optional'.'
  42. else say 'There are 'mcount' messages 'optional'.'
  43.  
  44. exit mcount
  45.