News.tcl

[CrazyCat]

mais je ne sais tjs pas ou metre cette ligne pour avoir la date de la news

tclcopier

clock format [clock seconds] -format "%d:%m:%y"

Voila pour ajouter la date en début de ligne:

tclcopier

bind pub - "!addnews" news:sent
proc news:sent {nick uhost handle chan text} {
    set fp [open $::base a]
    puts $fp "[clock format [clock seconds] -format "%d:%m:%y"] $nick $text"
    close $fp
    putserv "NOTICE $nick :\00312Votre news a été enregistrée"
}

et comment créer une commande !newslist qui renverai as la personne qui la la tapez toute les news en notice

C'est assez simple, tu as déjà les éléments:

tclcopier

bind pub - "!newslist" news:list
proc news:list {nick uhost handle chan text} {
   set fp [open $::base r]
   set data [read -nonewline $fp]
   close $fp
   foreach templine [split $data "\n"] {
      set line [split $templine]
      puthelp "NOTICE $nick :$line"
   }
}

Note que j'utilise plutôt puthelp pour éviter le flood lorsque c'est un envoit d'un nombre inconnu de lignes.