back2roots/padua/padua.7z/padua/ftp.vapor.com/amirc/submissions/MCF4AmIRCv4_13.lzx/MCF4AmIRC/Rexx/MCF_AU.AMIRX

Text File | 1996-09-17 | 1.1 KB | 10 lines

/* MCF_AU.AMIRX
// $VER: MCF_AU.AMIRX 4.1 (29.07.96)
\\ Written by Donald T. Becker ([e-mail]) IRC: StarDustr
// Please mail any bug reports/comments to the above address with a subject
\\ header of MCF.AMIRX.
//
\\ ** What to do with this file
// Put this script in REXX:        It will be used by MCF.AMIRX.
*/
;parse arg MCFenv junk User Host Auth Mchans;address value(MCFenv);UUser=upper(User);UHost=upper(Host);fname="MCF:MCF.Ops";call open("Input",fname,'R');NLine="";cnt1=0;xx=readln("Input");do until eof("Input");uu=upper(xx);parse value uu with FAuth FUser FHost junk;if FUser=UUser&FHost=UHost then;do;NLine=Auth User Host;xx=readln("Input");iterate;end;cnt1=cnt1+1;OLine.cnt1=xx;xx=readln("Input");end;call close("Input");if NLine="" then;if upper(User) ~="PRIVCH" then;NLine=Auth User Host||Mchans;else NLine=User Host;call open("Output",fname,'W');do cnt2=1 by 1 until cnt2=cnt1;if NLine<OLine.cnt2 then;do;if NLine ~=999 then;call writeln("Output",NLine);NLine=999;end;call writeln("Output",OLine.cnt2);end cnt2;if NLine ~=999 then;call writeln("Output",NLine);call close("Output");options results;getmynick;MyNick=RESULT;"RAW PRIVMSG "MyNick" :%RU";exit