home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 2 / goldfish_vol2_cd1.bin / files / comm / misc / cyberpager / rexx / caw / pagegetty next >
Text File  |  1993-06-29  |  424b  |  23 lines
  1. /*
  2.  * External function to use for pagewatch that sends messages about
  3.  * getty login attempts.
  4.  */
  5.  
  6. parse arg datetime . ',' . ',' what
  7.  
  8. if left(what, 1) = ' ' then
  9.     who = ''
  10. else
  11.     parse var what who what
  12.  
  13. who = strip(who)
  14. what = strip(what)
  15.  
  16. if left(what, 11) = 'Write Error' then return ''
  17.  
  18. if left(what, 15) = 'SetParams Error' then return ''
  19.  
  20. if upper(strip(who)) = 'PAGE' then return ''
  21.  
  22. return 'getty:' datetime what
  23.