action non déclarer.
#4
J'ai donc modifié par :

tcl
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} {
             }
        }
    }
    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
    }




et lorsque je fait .compile ...tcl j'ai toujours l'erreur :

Citation :[13:18:36] (alias_angelius) .compile autorise.tcl
[13:18:36] <Talk-Me> [13:18:45] Compilation De : autorise.tcl...
[13:18:36] <Talk-Me> [13:18:45] can't read "action": no such variable
[13:18:36] <Talk-Me> [13:18:45] while executing
[13:18:36] <Talk-Me> [13:18:45] "if {$action=="ajout"} {
[13:18:36] <Talk-Me> [13:18:45] if {$r!=""} {
[13:18:36] <Talk-Me> [13:18:45] puts $fa $r
[13:18:36] <Talk-Me> [13:18:45] } else {
[13:18:36] <Talk-Me> [13:18:45] puts $fa $arg
[13:18:36] <Talk-Me> [13:18:45] }
[13:18:36] <Talk-Me> [13:18:45] return 1
[13:18:37] <Talk-Me> [13:18:45] }"
[13:18:37] <Talk-Me> [13:18:45] (in namespace eval "::autorise" script line 72)
[13:18:37] <Talk-Me> [13:18:45] invoked from within
[13:18:37] <Talk-Me> [13:18:45] "namespace eval ::autorise {
[13:18:37] <Talk-Me> [13:18:45] package require msgcat
[13:18:37] <Talk-Me> [13:18:45] package require Tcl 8.5
[13:18:37] <Talk-Me> [13:18:45] # Salon back/ou salon ou ont désire mettre une autorisation.
[13:18:37] <Talk-Me> [13:18:45] ..."
[13:18:37] <Talk-Me> [13:18:45] (file "scripts/autorise.tcl" line 25)
[13:18:37] <Talk-Me> [13:18:45] invoked from within
[13:18:37] <Talk-Me> [13:18:45] "source scripts/autorise.tcl"
[13:18:37] <Talk-Me> [13:18:45] ("uplevel" body line 1)
[13:18:37] <Talk-Me> [13:18:45] invoked from within
[13:18:37] <Talk-Me> [13:18:45] "uplevel #0 [list source scripts/$args] "
Répondre Avertir


Messages dans ce sujet
action non déclarer. - par aliasangelius - 30/10/2011, 12:05
RE: action non déclarer. - par djkenny - 30/10/2011, 12:52
RE: action non déclarer. - par aliasangelius - 30/10/2011, 14:05
RE: action non déclarer. - par aliasangelius - 30/10/2011, 14:23
RE: action non déclarer. - par djkenny - 30/10/2011, 14:32
RE: action non déclarer. - par aliasangelius - 30/10/2011, 14:45
RE: action non déclarer. - par djkenny - 30/10/2011, 18:51
RE: action non déclarer. - par aliasangelius - 31/10/2011, 11:27
RE: action non déclarer. - par djkenny - 31/10/2011, 14:36
RE: action non déclarer. - par djkenny - 31/10/2011, 14:40
RE: action non déclarer. - par aliasangelius - 31/10/2011, 14:44
RE: action non déclarer. - par djkenny - 31/10/2011, 14:46
RE: action non déclarer. - par aliasangelius - 31/10/2011, 15:27
RE: action non déclarer. - par djkenny - 31/10/2011, 17:55
RE: action non déclarer. - par djkenny - 31/10/2011, 18:05
RE: action non déclarer. - par aliasangelius - 31/10/2011, 19:05
RE: action non déclarer. - par djkenny - 31/10/2011, 22:04
RE: action non déclarer. - par aliasangelius - 31/10/2011, 22:17
RE: action non déclarer. - par djkenny - 31/10/2011, 22:39
RE: action non déclarer. - par DnS - 31/10/2011, 22:44
RE: action non déclarer. - par djkenny - 31/10/2011, 22:47
RE: action non déclarer. - par DnS - 31/10/2011, 22:55
RE: action non déclarer. - par aliasangelius - 31/10/2011, 22:59

Atteindre :


Utilisateur(s) parcourant ce sujet : 1 visiteur(s)
Tchat 100% gratuit -Discutez en toute liberté