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


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

Voila le tcl en question:

tcl
############
# 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:

tcl
-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:

tcl
-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.


Messages In This Thread
News.tcl - by Aragorn - 18/01/2009, 03:31
RE: News.tcl - by BdS - 18/01/2009, 15:16
RE: News.tcl - by Aragorn - 18/01/2009, 17:17
RE: News.tcl - by BeussAy - 18/01/2009, 18:31
RE: News.tcl - by Aragorn - 18/01/2009, 19:30
RE: News.tcl - by CrazyCat - 19/01/2009, 10:03
RE: News.tcl - by Babytigrou16 - 19/01/2009, 19:52
RE: News.tcl - by Aragorn - 19/01/2009, 20:05
RE: News.tcl - by CrazyCat - 19/01/2009, 20:41
RE: News.tcl - by Babytigrou16 - 25/03/2009, 20:53
RE: News.tcl - by Babytigrou16 - 30/03/2009, 21:04
RE: News.tcl - by CrazyCat - 30/03/2009, 22:21
RE: News.tcl - by Babytigrou16 - 03/04/2009, 06:43
RE: News.tcl - by fedora - 03/04/2009, 08:55
RE: News.tcl - by MorDenX - 03/04/2009, 14:11
RE: News.tcl - by Babytigrou16 - 05/04/2009, 18:26
RE: News.tcl - by cestlemien - 07/04/2009, 09:45
RE: News.tcl - by CrazyCat - 07/04/2009, 16:32
RE: News.tcl - by MorDenX - 07/04/2009, 22:23
RE: News.tcl - by MorDenX - 09/04/2009, 18:30
RE: News.tcl - by DodY - 28/01/2010, 18:38
RE: News.tcl - by fedora - 28/01/2010, 18:43
RE: News.tcl - by DodY - 28/01/2010, 18:57
RE: News.tcl - by fedora - 28/01/2010, 19:11
RE: News.tcl - by DodY - 28/01/2010, 19:40
RE: News.tcl - by fedora - 28/01/2010, 19:46
RE: News.tcl - by DodY - 28/01/2010, 20:57
RE: News.tcl - by DodY - 04/02/2010, 20:04

Possibly Related Threads…
Thread Author Replies Views Last Post
Information Adaptation d'un tcl news.tcl KeeViiNou 12 2,818 13/05/2020, 10:49
Last Post: KeeViiNou
  Tcl gestion de news / Programme Radio KeeViiNou 5 6,339 29/12/2012, 13:27
Last Post: CrazyCat
  Petit souci de tcl !news modifier en !absent snip74 1 5,577 12/04/2012, 13:39
Last Post: snip74
  Eggdrop , diffuser des news o0TaGa0o 6 5,045 01/12/2010, 18:26
Last Post: DnS
  news-linuxfr.tcl dimoala 4 4,107 26/08/2009, 18:32
Last Post: dimoala

Forum Jump:


Users browsing this thread: 1 Guest(s)