01/03/2009, 22:28
merci,apres avoir testé et ajouté des putlogs il n'utilise pas
voici le code
il trouve tjr pas le host caché :x
là j'avoue je vois plus trop comment faire :x
tcl
if { [string first $::spamhost $userhost] != -1} {
voici le code
tcl
proc whois:answ {from kw text} {
set args [split $text]
set nick [lindex $args 0]
putlog "jusqu'ici sa va 1"
set userhost [concat "*!" [lindex $args 1] "@" [lindex $args 2]]
putlog "jusqu'ici sa va 2"
if { [string first $::spamhost $userhost] != -1} {
putlog "jusqu'ici sa va 3"
putquick "KICK $chanm $nick :$::kick(spambot)"
putquick "MODE $chanm +b $userhost"
putserv "PRIVMSG $::salonm :Alerte ! SpambOt détécté sous le pseudo: $nick Host: $userhost "
}
return 0
}
tcl
|21:23:50| <BoX-Nantes> [21:23] clauroblau (guest@1691762511.net) joined #Nantes.
|21:23:50| <BoX-Nantes> [21:23] jusqu'ici sa va 1
|21:23:50| <BoX-Nantes> [21:23] jusqu'ici sa va 2
il trouve tjr pas le host caché :x
tcl
• Whøis sur › clauroblau (guest@1691762511.net)
Nøm › Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1;
Domaine › Networking
Høst Caché › 2531986971.fr
16 Salons [1 cømmun] › #nantes #Domtom-Le-Vrai +#revolution
Serveur › ircvoila1.tchat.orange.fr (Serveur t'Chat)
Nick Enregistré › Non
Inactivité › 3mins 49secs
• Øline Depuis › Dimanche 01 Mars 2009 à 21:08:12
là j'avoue je vois plus trop comment faire :x