09/09/2011, 16:20
Bonjour,
@djkenny: J'ai remplacé les lignes que tu avais précisé, mais j'ai toujours un message d'erreur en Party-Line
Voici les modifications que j'ai apporté:
Merci pour ton aide djkenny.
@djkenny: J'ai remplacé les lignes que tu avais précisé, mais j'ai toujours un message d'erreur en Party-Line
Code :
[16:11] Tcl error [connexion]: can't read "connexion": no such variable
Voici les modifications que j'ai apporté:
tcl
#################
## PUTQUICK ##
###############
proc putquick {arg} {
append arg "\n"
putdccraw 0 [string length $arg] $arg
}
bind raw - NOTICE connexion
proc connexion {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 connexion "$g_nick $g_host [clock format [clock seconds] -format "%d/%m/%Y %H:%M:%S"]"
putquick "PRIVMSG #test :\00301Connexion de:\00303 $g_nick \00301sous le host \00301$g_user\00304@\00301$g_host"
}
set logfichier [open "connect.txt" "a+"]
puts $logfichier "$connexion"
close $logfichier
}
return 0
}
}
bind pub - !connect connects
proc connects { nick uhost handle channel arg } {
putquick "NOTICE $nick :\0033..:Liste des connexions:.."
catch {open "connect.txt" "r"} connexion
set num 0
while {![eof $connexion]} {
gets $connexion verif
if {$verif ne "" && [string match -nocase *$arg* $verif]} {incr num 1;putquick "NOTICE $nick :\0034 $num -->\0033 [lrange $verif 0 end] \r"} }
catch {close $connexion}
if {$num eq "0"} {putquick "NOTICE $nick :\0034Aucune connexion dans la base de donnée ! \r; return 0"}
putquick "NOTICE $nick :\0033Fin de la Liste (\0034 $num \0033connexion(s) enregistré(s))"; return 0
}
Merci pour ton aide djkenny.