If anyone uses the CGI:IRC script for a chat client on there page, it's nice available at http://cgiirc.sourceforge.net, this is a script to control bans, kills, etc of the users, given the eggdrop is running on the same server as cgi:irc, could be modified to make a new ipaccess and upload it probably. Here goes some code. Putting it on here before I submit it, enjoy.
### Script to control CGI:IRC clients ###
### Created by sirgrim@WAGD.com ###
putlog "CGI:IRC Client Control Loaded...."
### Output Channel. ###
set chann "#Lamest"
### Location of ipaccess file (usually cgi-bin) ###
set location "/www/cgi-bin/ipaccess"
### The CTCP kill password ###
set killpass "pass here"
bind pub m !ipban pub_ipban
bind pub m !iban pub_iban
bind ctcr - USERINFO pub_uinfo
bind pub m !kill pub_kill
bind pub m !ophelp pub_ophelp
proc pub_ophelp {nick host handle channel args} {
set who [lindex $args 0]
putserv "PRIVMSG $nick :Thanks for interest in my operator help section."
putserv "PRIVMSG $nick :There are 3 basic commands for use with the WAGD.com CGI:IRC Client. These are: !iban !ipban !kill."
putserv "PRIVMSG $nick :!iban is simply used as !iban 10.0.*.*, replace ip numbers as needed, this bans entire ip classes from the CGI:IRC."
putserv "PRIVMSG $nick :!ipban is even easier, you just type !ipban username, and grimbot will find there ip, and ban it from the CGI:IRC Client."
putserv "PRIVMSG $nick :!kill is used to kick people off the chat completely. Simply type !kill username, and I will kill them for you"
puthelp "PRIVMSG $nick :If you have any suggestions for this script, please e-mail sirgrim@WAGD.com"
return 1
}
proc pub_kill {nick host handle channel args} {
global killpass location chann
set who [lindex $args 0]
putserv "PRIVMSG $who :01KILL $killpass requested by $nick01"
return 1
}
proc pub_iban {nick host handle channel args} {
global killpass location chann
set who [lindex $args 0]
if {$who == "*.*.*.*"} {
putserv "PRIVMSG $channel :$nick, i'm not that stupid, you're lucky i don't ban you!"
return 1
}
putserv "PRIVMSG $chann :$nick has requested a ban on $who."
putserv "[exec echo !$who >> $location]"
putserv "PRIVMSG $chann :I have banned $who from WAGD.com's CGI:IRC"
return 1
}
proc pub_uinfo {nick host handle channel args} {
global killpass location chann
set ipp [lindex $args 1]
set ipp2 [lindex $ipp 0]
putserv "PRIVMSG $chann :$args"
putserv "[exec echo !$ipp2 >> $location]"
putserv "PRIVMSG $chann :I have banned $ipp2 from WAGD.com's CGI:IRC."
return 1
}
proc pub_ipban {nick host handle channel args} {
global killpass location chann
set who [lindex $args 0]
putserv "PRIVMSG $chann :$nick has requested a ban on $who"
putserv "PRIVMSG $who :01USERINFO01"
}