Bonjour,
J'ai un message d'erreur en partyline me disant : invalid idx.
Pourtant j'ai corriger le script .
J'ai un message d'erreur en partyline me disant : invalid idx.
Pourtant j'ai corriger le script .
Code :
proc putserv {arg} {
append arg "\n"
putdcc 0 $arg -raw
}
bind raw - NOTICE snkconnexion
proc snkconnexion {from key arg} {
global botnick notc mod
set text [split $arg]
if {[join [lrange $text 2 5]] == "Notice -- Client connecting"} {
set g_nick [lindex $text 9]
set g_user [string range [lindex [split [lindex $text 10] "@"] 0] 1 end]
set g_host [string range [lindex [split [lindex $text 10] "@"] 1] 0 end-1]
set g_userhost "$g_nick!$g_user@$g_host"
set connexionnick "\00306pseudo: \00314$g_nick \00306ip: \00314$g_host \00313le \00314[strftime "%d.%m.%Y \00313à \00314%H:%M:%S"]"
putlog "connexion detectée"
putserv "PRIVMSG #services :\00301Pseudo:\00303 $g_nick"
}
set logfichiernk [open "./scripts/connectlog/$g_nick.db" "a+"]
puts $logfichiernk "$connexionnick"
close $logfichiernk
putlog "connexion (nick/ip) ajoutée"
}
return 0
}
}