home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #26 / NN_1992_26.iso / spool / alt / irc / 3999 < prev    next >
Encoding:
Text File  |  1992-11-08  |  1.1 KB  |  37 lines
  1. Newsgroups: alt.irc
  2. Path: sparky!uunet!think.com!mintaka.lcs.mit.edu!hal.gnu.ai.mit.edu!mycroft
  3. From: mycroft@hal.gnu.ai.mit.edu (Charles Hannum)
  4. Subject: Re: userhost()
  5. Message-ID: <1992Nov8.034748.29328@mintaka.lcs.mit.edu>
  6. Sender: news@mintaka.lcs.mit.edu
  7. Organization: /etc/organization
  8. References: <Bx5rq1.E42@news.cso.uiuc.edu> <1992Nov3.224311.19052@murdoch.acc.Virginia.EDU> <Bx6LKA.1xC@news.cso.uiuc.edu>
  9. Date: Sun, 8 Nov 1992 03:47:48 GMT
  10. Lines: 25
  11.  
  12.  
  13. Here's my autokicker for 2.2pre7.  I haven't used it much myself.
  14.  
  15.  
  16. ALIAS STRIPCHAN {
  17.   assign function_return $strip(#+-*/\\={}[]<>!@$$%^~`,?:|'\". $0-)
  18. }
  19.  
  20. ASSIGN AUTOKICKS[] *!*@coombs.anu.edu.au
  21. ASSIGN AUTOKICKS[HACK] *!tami@*.gnu.ai.mit.edu
  22.  
  23. ON #^JOIN 17 * autokick.join $0 $1 $stripchan($1) $0!$userhost()
  24. ON #^NICK 17 * autokick.join $1 $C $stripchan($C) $1!$userhost()
  25.  
  26. ALIAS AUTOKICK.JOIN {
  27.   if ([$0] != [$N])
  28.   {
  29.     if (rmatch($3 $autokicks[] $autokicks[$2])) {kick $1 $0}
  30.   }
  31. }
  32.  
  33. -- 
  34.  \  /   Charles Hannum, mycroft@ai.mit.edu
  35.  /\ \   PGP public key available on request.  MIME, AMS, NextMail accepted.
  36. Scheme  White heterosexual atheist male (WHAM) pride!
  37.