Mise en forme de code: pensez à utiliser les balises [ tcl ] et [ /tcl ] (sans les espaces bien sûr) autour de vos codes tcl afin d'avoir un meilleur rendu et une coloration syntaxique. x


Gline logs
#2
Je te conseille de mettre des putlog un peu partout, pour vérifier que l'eggdrop reçoit bien les notices serveur, que les regexp marchent bien et que tu obtiens bien ce que tu veux.
Exemple:

tcl
proc rawgline {from keyword arg} {
    global gline
    putlog "Got a notice: $arg"
    if {[string match "*Client exiting at*User has been banned from nomserv.org*" $arg]} {
	    putlog "got a gline exit"
        set linegl [lindex $arg 8]
        regsub -all {^([^<]+)!.*} $linegl "\\1" nickexit
        regsub -all {.*@([^<]+)$} $linegl "\\1" hostexit
        set gline($nickexit) $hostexit
        putlog "In file: [list array set gline [array get gline]]"
        set datagl [open "./gline.db" "w"]
        puts $datagl [list array set gline [array get gline]]
        close $datagl
    }

irc.zeolia.net - Offrez-moi un café
Merci de ne pas demander d'aide en MP
Away


Messages In This Thread
Gline logs - by Ryan - 27/02/2012, 22:05
RE: Gline logs - by CrazyCat - 28/02/2012, 10:54
RE: Gline logs - by CrazyCat - 28/02/2012, 17:32

Possibly Related Threads…
Thread Author Replies Views Last Post
  Gline user nispOr 6 4,402 13/07/2012, 12:04
Last Post: aliasangelius
  Mettre les logs sur le net loulou7593 20 10,921 15/03/2010, 14:35
Last Post: CC30

Forum Jump:


Users browsing this thread: 1 Guest(s)