home *** CD-ROM | disk | FTP | other *** search
/ Merciful 5 / Merciful - Disc 5.iso / software / e / easy_patch / easypatchv1.23cra.lha / EasyPatch123a / Docs / SendMail.rexx < prev   
Encoding:
OS/2 REXX Batch file  |  1997-02-10  |  941 b   |  69 lines
  1. /* SendMail.rexx <mailer> - © Alessandro Zummo */
  2.  
  3. author  = 'azummo@ita.flashnet.it'
  4. subject = 'EasyPatch 1.22'
  5.  
  6. PARSE ARG mailer
  7.  
  8. IF mailer = 'Yam' THEN
  9. DO
  10.     IF ~SHOW('Ports','YAM') THEN DO
  11.  
  12.         PRAGMA('S',10000)
  13.  
  14.           ADDRESS 'COMMAND'
  15.  
  16.         IF EXISTS('YAM:MultiYAM') 
  17.         THEN 
  18.             'Run YAM:MultiYAM'
  19.           ELSE
  20.             'Run YAM:YAM NOCHECK'
  21.  
  22.           'SYS:RexxC/WaitForPort YAM'
  23.     END
  24.  
  25.     ADDRESS 'YAM'
  26.     MailWrite
  27.     WriteSubject '"'subject'"'
  28.     WriteMailTo '"'author'"'
  29.  
  30.     EXIT
  31. END
  32.  
  33. IF mailer = 'IBrowse' THEN
  34. DO
  35.     IF ~SHOW('Ports','IBROWSE') THEN CALL ERROR
  36.  
  37.     ADDRESS 'IBROWSE'
  38.  
  39.     gotourl 'mailto:'author
  40.  
  41.     EXIT
  42. END
  43.  
  44. IF mailer = 'Voyager' THEN
  45. DO
  46.     IF ~SHOW('Ports','VOYAGER') THEN CALL ERROR
  47.  
  48.     ADDRESS 'VOYAGER'
  49.  
  50.     openurl 'mailto:'author
  51.  
  52.     EXIT
  53. END
  54.  
  55. IF mailer = 'Clip' THEN
  56. DO
  57.     ADDRESS COMMAND 'ClipWrite "'author'"'
  58.  
  59.     EXIT
  60. END
  61.  
  62. ERROR:
  63.  
  64. Say mailer' not loaded!'
  65.  
  66. ADDRESS COMMAND 'RequestChoice TITLE="SendMail.rexx" BODY="'mailer' not loaded!" "Ok" >NIL:'
  67.  
  68. EXIT
  69.