Log connexions

[Aristide]

Bonjour,

J'avais pris un code TCL qui a été posté sur le Forum, et qu'il ne fonctionnait pas, alors j'ai du modifier quelque lignes dans le code pour le faire débuger. Le code sert à historiser les connexions entrantes sur le serveur IRC, et les enregistrer dans un fichier "connects.db", et j'aimerais ajouter une nouvelle fonctionnalité qui servira à retourer via l'adresse IP les pseudo qui ont été passés sous cette adresse, et vis-versa via un pseudo çà me retourne les adresse qui ont été utilisées par le pseudo en question.

Exemple:

Code :

<Good>!connect bob
<Bot>Connection de bob
<bot>pseudo : bob IP: 00.000.00.IP Date:01/02/03 à 13h03
<bot>pseudo : bob IP: 00.000.00.IP Date:01/02/03 à 14h03


sens contraire :


<Good>!connect 01.020.0301.IP
<Bot>Connection de 01.020.0301.IP
<bot> IP: 00.000.00.IP pseudo: bob1 Date:01/02/03 à 13h03
<bot> IP: 00.000.00.IP pseudo: bob09 Date:01/02/03 à 14h03

Voici le code que j'utilise:

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 {[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"
    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 ""} {incr num 1;putquick "NOTICE $nick :\0034 $num -->\0033 [lrange $verif 0 end] \r"}
   }
   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
   catch {close $connexion}
}

Donc, je sais pas d'ou commencer pour ajouter cette fonction.
Merci de votre aide à l'avance.