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:
Voici le code que j'utilise:
Donc, je sais pas d'ou commencer pour ajouter cette fonction.
Merci de votre aide à l'avance.
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:
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"
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.