home *** CD-ROM | disk | FTP | other *** search
/ Amiga Times / AmigaTimes.iso / internet / stricq / rexx / notify_stricq_1.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1998-10-06  |  970 b   |  37 lines
  1. /*
  2. **   Arexx script for StrICQ triggered by the notify event that will open
  3. **   a requester to inform you who sent you a message.
  4. **
  5. **   $VER: ICQNotify.rexx 1.0 (27.06.98) by Torsten Pieper <topic@gmx.net>
  6. **
  7. **
  8. ** Installation:
  9. **  · Copy the Script where you like
  10. **  · Start StrICQ, open the Prefs-Window and go to the page "Notify"
  11. **  · In the string-gadget "Message Notify Command" insert:
  12. **     SYS:Rexxc/RX <path-to-script>ICQNotify.rexx %ld <path-to-stricq-dir>
  13. **
  14. */
  15. cr="0a"x
  16.  
  17. IF ~SHOW('L','rexxreqtools.library') THEN
  18.   IF ADDLIB('rexxreqtools.library',0,-30,0)=0 THEN EXIT
  19.  
  20. OPTIONS RESULTS
  21.  
  22. PARSE UPPER ARG uid " " dir
  23.  
  24. IF uid="" | dir="" THEN EXIT
  25.  
  26. IF ~OPEN(fh,dir"Contacts","R") THEN EXIT
  27. DO UNTIL EOF(fh)
  28.     ln=READLN(fh)
  29.     PARSE VAR ln uin rst
  30.     PARSE VAR rst usr.uin.nick usr.uin.first usr.uin.last usr.uin.email .
  31. END
  32. CLOSE(fh)
  33.  
  34. ok=rtezrequest("Received a message from" cr usr.uid.nick "("usr.uid.first usr.uid.last").",,"ICQ Message")
  35.  
  36. EXIT
  37.