Bind raw - FAILED OPER

[alanfollow]

join [lrange $text 1 3] sur ta notice donne "OPER attempt by" et non pas "Failed OPER".

Je dois mettre :

Code :

[lrange $text 1 2]

Ceci alors ?

@CrazyCat: L'eggdrop est ircop, c'est bon normalement, non ? (pour recevoir les snotices).

Code PHP :

bind raw - NOTICE opers:notice
proc opers:notice {from key arg} {
global botnick notc mod
   set text [split $arg] 
   if {[join [lrange $text 1 2]] == "Failed OPER"} {
[lrange $text 1 3]
     set opers_nick [lindex $text 6]
      set opers_user [string range [lindex [split [lindex $text 6] "@"] 0] 1 end]
      set opers_host [string range [lindex [split [lindex $text 6] "@"] 1] 0 end-1]
   set oper_userhost "$opers_nick!$opers_user@$opers_host"
    puthelp "PRIVMSG #opers :Je crois bien que $opers_nick a du mal à s'ircop... ( $opers_userhost )"
    puthelp "PRIVMSG $opers_nick :Tout va bien ?"
}
}