home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 3 / Meeting_Pearls_III.iso / Pearls / comm / Fido / MailManager / Contrib / Alessandro_Zummo / MM_Banner.rexx next >
OS/2 REXX Batch file  |  1995-04-10  |  644b  |  41 lines
  1. /**/
  2.  
  3. DROP MM.
  4.  
  5. MM.PrgName = 'MM_Banner 1.0'
  6. MM.TempFile= 'T:Banner.temp'
  7. MM.Banner  = 'Banner'
  8.  
  9. PARSE UPPER ARG MM.Area
  10.  
  11. ADDRESS 'MAILMANAGER'
  12.  
  13.  
  14. MM_GetAreaInfo MM.Area Info
  15.  
  16. IF rc ~= 0 THEN exit
  17.  
  18. MM_StringReq '"Enter a string..."' 'stringa'
  19.  
  20. IF rc ~= 0 THEN exit
  21.  
  22. IF stringa ~= '' THEN DO
  23.  
  24.     Address Command MM.Banner stringa' >'MM.TempFile
  25.  
  26.     DROP MM.Reply.
  27.  
  28.     GetSysop 'MM.Reply.From'
  29.  
  30.     MM.Reply.FromAddr     = Info.ADDR
  31.     MM.Reply.To           = 'All'
  32.     MM.Reply.ToAddr        = Info.ADDR   
  33.     MM.Reply.File         = MM.TempFile
  34.     MM.Reply.Tear         = MM.PrgName
  35.     MM.Reply.Flags         = !REFLOW
  36.  
  37.     MM_WriteMsg MM.Area MM.Reply
  38.  
  39.     MM_DeleteFile MM.TempFile
  40.  
  41. END