home *** CD-ROM | disk | FTP | other *** search
/ back2roots/padua / padua.7z / padua / ftp.vapor.com / amirc / submissions / MCF4AmIRCv4_13.lzx / MCF4AmIRC / Rexx / MCF_UI.AMIRX < prev    next >
Encoding:
Text File  |  1996-10-11  |  816 b   |  13 lines
  1. /* MCF_UI.AMIRX
  2. // $VER: MCF_UI.AMIRX 4.7 (11.10.96)
  3. \\ Written by Donald T. Becker (dtbecker@prolog.net) IRC: StarDustr
  4. // Please mail any bug reports/comments to the above address with a subject
  5. \\ header of MCF.AMIRX.
  6. //
  7. \\ ** What to do with this file?
  8. //  Put this script in REXX:
  9. \\  Go into Settings->Lists in the menu.
  10. //  Click on Aliases.  Add the following Alias
  11. \\  UI /Rx MCF_UI %p            Make sure you use a lowercase   p.
  12. */
  13. ;OPTIONS RESULTS;parse arg MCFenv Abuser junk;if Abuser ~="" then;address value(MCFenv);else;do;Abuser=MCFenv;MCFenv=address();end;userhost Abuser;xx=result;if xx="RESULT" then xx="*!*@"||Abuser;xp1=pos("!",xx)+1;xp2=pos("@",xx);if xp1=xp2 then;UName="*";else UName=upper(substr(xx,xp1,xp2-xp1));UHost=upper(substr(xx,xp2+1));"Say /Rx Rexx:MCF_Alias DROP" UName UHost;exit