Bind raw - FAILED OPER

[alanfollow]

Comme ceci ?

Code PHP :

bind raw - "001" opers:notice
proc opers:notice {from key arg} {
global botnick notc mod
   set text [split $arg] 
   if {[join [lrange $text 1 3]] == "Failed OPER"} {
     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 ?"
}
} 


Rien n'y fait.