home *** CD-ROM | disk | FTP | other *** search
/ back2roots/padua / padua.7z / padua / ftp.vapor.com / amirc / submissions / MCF4AmIRCv4_13.lzx / MCF4AmIRC / Rexx / FAQ.AMIRX < prev    next >
Encoding:
Text File  |  1996-09-17  |  1017 b   |  13 lines
  1. /* FAQ.AMIRX -- Send a FAQ to the channel
  2. // $VER: FAQ.AMIRX 4.1 (29.07.96) (MCF Extra Command)
  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. \\  Add the following alias
  10. //   /alias FAQ /rx FAQ FAQDIR %p"
  11. \\  Where FAQDIR is the Directory where FAQs are stored
  12. */
  13. ;parse arg FDir Fname User;FName=strip(FName,'L');options results;if FDir=""|FName="" then;do;"echo P="d2c(27)"½½Error╗" d2c(2) "Usage:" d2c(2) " FAQ  FAQ-DIR  FAQ-Name";exit;end;FQName=FDir||Fname||'.faq';if ~exists(FQName) then;do;"echo P="d2c(27)"½½Error╗ FAQ "|| d2c(2)||FQName|| d2c(2)||" does not Exist.";exit;end;getmynick;mynick=RESULT;getchannel;channel=RESULT;call open("Input",FQName,"Read");xx=readln("Input");do acntr=1 by 1 until eof("Input");"echo P="d2c(27)"½½MCF╗ :"xx;"RAW PRIVMSG "Channel" :"xx;xx=readln("Input");end acntr;call close("Input");exit