Log connexions

[Aristide]

Bonsoir,

@CrazyCat: Merci pour la réponse, j'ai remplacé les lignes que tu m'avais précisé dans le code et j'ai toujours la même erreur en partyline

Code :

<Hestia> [22:32] Tcl error [connexion]: can't read "connexion": no such variable

@djkenny: Merci aussi pour tes réponses, et si seulement tu pourrai me corriger le code, çà serait trop bien. Merci encore pour l'aide et pour le temps que tu consacres pour nous aider.

tclcopier

#################
##  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 {[string match -nocase "*notice*client*connecting*" $text]} {
     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 ts [clock format [clock seconds] -format "%d/%m/%Y %H:%M:%S"]
   set connexion "$g_nick $g_host $ts"
    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
 
   }