home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 4 / FreshFish_May-June1994.bin / bbs / amigalib / d992 / cyberpager.lha / CyberPager / rexx / caw / pagegetty next >
Encoding:
Text File  |  1994-04-05  |  424 b   |  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.