is there any tcl for on connect akill for the bad nick?
or what will be the code to on connect?
like:
-irc[dot]server[dot]com- *** Notice -- Client connecting on port 6667: adopav (~poqvds@202.165.253.12) [clients]
-
-irc[dot]server[dot]com- *** Global -- from OperServ: BOT added an AKILL for *@202.165.253.12 ([BOT] Badnick) (expires in 69 days)
set akillnicks {
"nick1"
"nick2"
"nick3"
"etc."
}
bind raw - NOTICE client:connect
proc client:connect {from keyword args} {
global akillnicks
if {[string match "*Client connecting on port*" $args]} {
set usernick [lindex [split $args] 9]
foreach nick $akillnicks {
if {[string equal -nocase $nick $usernick]} {
# your akill thing here
break
}
}
}
}
Take care, this will work only on local server, the message isn't the same if you have more than 1 server and if the bad client connects to a different server than where the bot is connected.
You'd better check for Client connecting
CrazyCat wrote:Take care, this will work only on local server, the message isn't the same if you have more than 1 server and if the bad client connects to a different server than where the bot is connected.
You'd better check for Client connecting