action non déclarer.

[aliasangelius]

Bonjour,

Voilà j'ai commencé à reprendre le code de progfile de Pooshy mais il se trouve que lorsque je fais appel à $action il me dit no such variable..

Hors j'ai essayé de mettre variable action et ça na rien donnais.

Pourtant dans ma procédure action et bien dedans je ne comprends pas..
Si quelqu'un à une idée..
Voici le code.

tclcopier

proc fepo {nick action arg} {
        set arg [charfilter $arg]
        set fa [open "$basedir/$autorise(fichier)" a+]
        seek $fa 0
        while {![eof $fa]} {
             set get [gets $fa]
             if {[string equal [string tolower $get] [string tolower $nick]]==1} {
             }
        }
        close $fa
        return 0
    }
    if {$action=="ajout"} {
        if {$r!=""} {
            puts $fa $r
        } else {
            puts $fa $arg
        }
            return 1
    }
    if {$action=="sup"} {
        if {$r!=""} {
            if {![string match -nocase $arg [lindex $fa 0]] && ![string match -nocase $arg [lindex $fa 1]]} {
                puts $fa $r
            } else {
                return 1
            }
        }
    }
    if {$action=="join"} {
        if {$r!=""} {
            puts $fa $r
            if [string match -nocase [lindex $fa 0] $arg] {
                return 1
            }
        }
        close $fa
    }