bind pub m !ipban pub_ipban
bind ctcr - USERINFO pub_uinfo
proc pub_ipban {nick host handle channel args} {
set who [lindex $args 0]
putserv "PRIVMSG #Lamest :$nick has requested a ban on $who"
putserv "PRIVMSG $who :01USERINFO01"
}
### #Lamest is grimbot's chan, also default eggdrop chan ;D. ###
proc pub_uinfo {nick host handle channel args} {
set ipp [lindex $args 1]
set ipp2 [lindex $ipp 0]
putserv "PRIVMSG #Lamest :$args"
putserv "[exec echo !$ipp2 >> /www/cgi-bin/ipaccess]"
putserv "PRIVMSG #Lamest :I have banned $ipp2 from WAGD.com's CGI:IRC."
return 1
}
I'm sure there's probably a easier way to do it, but this works perfectly. Shoutz to the forum.
Statistics: Posted by Guest — Wed Dec 12, 2001 2:23 am
]]>