home *** CD-ROM | disk | FTP | other *** search
/ back2roots/padua / padua.7z / padua / ftp.vapor.com / amirc / submissions / Phoenix1_21.lzx / bin / rexx / Phoenix.amirx < prev    next >
Encoding:
Text File  |  1997-02-01  |  823 b   |  19 lines
  1. /*\
  2.  * Phoenix.amirx -- AmIRC to Phoenix interface
  3.  * Usage  : change your Event ANY/JOIN/KICK/MODE/INVITE settings to 
  4.  *        : "phoenix.amirx %p" & edit .phoenix.cfg to suit your needs.
  5.  * $VER: PhoEniX.amirx 1.21 (01.02.97) by |Paladin|
  6. \*/
  7. options results;parse arg line;p=address();parse var p .'.'p2
  8. tp=pragma('p',0);pragma('p',tp);n='PHOENIX.'p2
  9. if show('P',n) then do;address(n)
  10. p line
  11. exit;end
  12. else if getclip('phx_'p2)~=p2 then do;pragma('p',tp+2)
  13. if ~show('L','rexxsupport.library') then if ~addlib('rexxsupport.library',0,-30,0) then do
  14. 'echo P='phx' 'd2c(2)'FATAL ERROR:'d2c(2)' Unable to load rexxsupport.library.'
  15. exit;end;forbid();address command;'run >nil: rexx/Phoenix >>ram:Phoenix.err 'p2
  16. 'waitforport 'n
  17. address;if ~show('P',n) then 'echo P='d2c(27)'b½PhoEniX╗ Unable to start Phoenix'
  18. permit();end
  19.