home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 35 Internet / 35-Internet.zip / slip-cm.zip / CheckMail.CMD < prev    next >
OS/2 REXX Batch file  |  1994-03-21  |  991b  |  33 lines
  1. /******************************************************************/
  2. /*                                                                */
  3. /******************************************************************/
  4.  
  5. trace OFF
  6.  
  7.   signal on HALT name CLEANUP
  8.   signal on FAILURE name CLEANUP
  9.   signal on SYNTAX name CLEANUP
  10.  
  11.   if \CMStart(CheckMail, 1) then 
  12.     say date(USA) time() "001S connection could not be started"
  13.   else do
  14.     user = value('SLIP.USERNAME',, 'OS2ENVIRONMENT')
  15.     password = value('SLIP.PASSWORD',, 'OS2ENVIRONMENT')
  16.     server = value('SLIP.POP_SERVER',, 'OS2ENVIRONMENT')
  17.     mail = value('SLIP.POP_DIRECTORY',, 'OS2ENVIRONMENT')
  18.     index = value('SLIP.POP_INDEX',, 'OS2ENVIRONMENT')
  19.  
  20.     say date(USA) time() "002I receiving incoming mail..."
  21.  
  22.    '@lampop -r' server user password mail index
  23.  
  24.     say date(USA) time() "003I sending outgoing mail..."
  25.  
  26.     RC = spmail()
  27.   end /* else */
  28.     
  29. CLEANUP: 
  30.  
  31.   call CMStop CheckMail
  32.  
  33. return (RC)