home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Amiga 12 / MA_Cover_12.iso / internet / cmanager / rexx / sendamirc.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1998-09-25  |  516 b   |  40 lines
  1. /*
  2.  *
  3.  *  $VER: SendAmIRC.rexx 1.1 (5.8.98) by Simone Tellini
  4.  *
  5.  */
  6.  
  7. Options Results
  8. Parse Arg '"'server'" "'channel'" "'AmIRCPath'"'
  9.  
  10. IF ~SHOW(P,'AMIRC.1') THEN DO
  11.  
  12.     Address Command 'Run <>NIL:' AmIRCPath
  13.  
  14.     Address Command 'SYS:RexxC/WaitForPort' AMIRC.1
  15.  
  16. END
  17.  
  18. Address AMIRC.1
  19.  
  20. serverok = 0
  21.  
  22. 'ISCONNECTED'
  23.  
  24. if rc == 0 then do
  25.  
  26.     'GETSERVERNAME'
  27.  
  28.     if result = server then
  29.         serverok = 1
  30. end
  31.  
  32. if serverok = 0 then
  33.     'SAY /SERVER' server
  34.  
  35. Address Command "Wait 5 secs"
  36.  
  37. 'SAY /JOIN' channel
  38.  
  39. Exit 0
  40.