News.tcl

[Aragorn]

Alors voila j'ai un news.tcl mais j'ai un souci dessus

Voila le tcl en question:

tclcopier

############
# News.tcl #
############
 
set backroom "#Staff";
set base "/home/Aragorn/shell/eggnews/scripts/News/news.txt";
 
bind pub - "!helpnews" news:help
proc news:help {nick uhost handle chan text} {
    putserv "NOTICE $nick :\00312Debut de l'aide de News-Staff"
    putserv "NOTICE $nick :\0034!addnews <news>\00312 Pour ajouter une news"
    putserv "NOTICE $nick :\0034!news <numero>\00312 Pour voir une news precise"
    putserv "NOTICE $nick :\0034!delnews <numero>\00312 Pour suprimer une news"
    putserv "NOTICE $nick :\00312Fin de l'aide de News-Staff"
}
 
bind pub - "!addnews" news:sent
proc news:sent {nick uhost handle chan text} {
    set fp [open $::base a]
    puts $fp "$nick $text"
    close $fp
    putserv "NOTICE $nick :\00312Votre news a été enregistrée"
}
 
bind pub - "!news" news:read
proc news:read {nick uhost handle chan args} {
    if {[lindex $args 0] eq ""} {
        return 0
    } else  {
        set nb [lindex $args 0]
    }
    set fp [open $::base r]
    set cpt 0
    set data [read -nonewline $fp]
    close $fp
    foreach templine [split $data "\n"] {
        incr cpt
        if {$cpt == $nb} {
            set line [split $templine]
            set $user [lindex $line 0]
            putserv "PRIVMSG $::backroom $user\00312 => [lindex $line 1]"
            return 1
        }
    }
    putserv "PRIVMSG $::backroom \00312news $nb introuvable"
}
 
bind pub - "!delnews" news:del
proc news:del {nick uhost handle chan args} {
    if {[lindex $args 0] eq ""} {
        return 0
    } else  {
        set nb [lindex $args 0]
    }
    set fp [open $::base r]
    set cpt 0
    set data [read -nonewline $fp]
    close $fp
    set fp [open $::base w]
    foreach templine [split $data "\n"] {
        incr cpt
        if {$cpt != $nb} {
            puts $fp $templine
        }
    }
    close $fp
    putserv "NOTICE $nick :\00312La news $nb as été suprimée"
}

Alors la commande !addnews fonctionne parfaitement la commande !delnews fonctionne aussi le problème vient de la commandes !news nomero de la news sa ne marche pas:

tclcopier

-02:17:27- ‹Aragorn› !addnews je test pour voir
-02:17:28- Notice News-Staff:Aragorn Votre news a été enregistrée
-02:17:34- ‹Aragorn› !news 1

Et voila le message d'erreur en party-line avec le bot:

tclcopier

-02:17:34- <News> [01:20] Tcl error [news:read]: can't read "user": no such variable

Voila je ne vois pas d'ou vient le problème merci de votre aide futur.

Et j'aimerais aussi avoir une commande !newslist qui donnerai en notice la list complète des news et aussi avoir la date de la news.
Actuellement les news sont enregistrer de la façon "pseudo news" je voudrai quel soit enregistré de la façon "date pseudo news".

Voila j'arrete là merci de votre aide futur.
Cordialement Aragorn.