home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 35 Internet / 35-Internet.zip / wpbif094.zip / runBiff.cmd < prev    next >
OS/2 REXX Batch file  |  1997-06-13  |  1KB  |  51 lines
  1. /* 
  2.   Sample rexx script to run WPS Biff 
  3.  
  4. */
  5.  
  6.  
  7. call RxFuncAdd 'SysLoadFuncs', "RexxUtil", "SysLoadFuncs"
  8. call SysLoadFuncs
  9.  
  10. parse source . . src_prog
  11.  
  12.  
  13. icon=filespec("drive", src_prog)||filespec("path", src_prog)||"mail_0.ico"
  14.  
  15. user='username'
  16.  
  17. obj_id="<POP3_"||user||">"
  18.  
  19. rc=SysDestroyObject(obj_id);
  20.  
  21. rc=SysCreateObject("WPDataFile", "mail", "<WP_DESKTOP>", "ICONFILE="||icon||";OBJECTID="||obj_id);
  22. if \rc then do
  23.  say "Object was not created:("
  24.  return 1;
  25. end
  26. env='OS2ENVIRONMENT'
  27.  
  28. icon1=filespec("drive", src_prog)||filespec("path", src_prog)||"mail_1.ico"
  29. icon_err=filespec("drive", src_prog)||filespec("path", src_prog)||"mail_err.ico"
  30.  
  31. crlf=x2c('0d')||x2c('0a')
  32. setlocal
  33. call value 'POP3_HOST',"pop3.domain.com",env
  34.  
  35.  /* the variable `user' was assigned somewhere above*/
  36. call value 'POP3_USER',user,env
  37. call value 'POP3_PASS','password',env
  38. call value 'POP3_INTERVAL','60',env
  39. call value 'POP3_WPS_OBJECT',obj_id,env
  40. call value 'POP3_NO_MAIL_ICON',icon,env
  41. call value 'POP3_MAIL_ICON',icon1,env
  42. call value 'POP3_ERROR_ICON',icon_err,env
  43. call value 'POP3_ERROR_TITLE',"Error connecting to "||host,env
  44. call value 'POP3_NO_MSGS_TITLE',"Empty mailbox",env
  45. call value 'POP3_1_MSG_TITLE',"There is 1 message "crlf"for "||value('POP3_USER',,env)||"@"||value('POP3_HOST',,env),env
  46. call value 'POP3_MSGS_TITLE',"There are %d messages "crlf"for "||value('POP3_USER',,env)||"@"||value('POP3_HOST',,env),env
  47.  
  48. 'biff.exe'
  49. endlocal
  50.  
  51.