19/01/2009, 20:05
Bonsoir, CrazyCat j'ai me le code que tu ma fourni sa fonctionne impec
Encore merci as vous pour votre aide
Je poste le code complet fini au cas ou d'autres personne en es besoin.
Encore merci as vous pour votre aide
Je poste le code complet fini au cas ou d'autres personne en es besoin.
TCL
############
# News.tcl #
############
set backroom "#Staff";
set base "/home/votre-chemin/news.txt";
bind pub - "!helpnews" news:help
proc news:help {nick uhost handle chan text} {
putserv "NOTICE $nick :\00312Debut de l'aide de News"
putserv "NOTICE $nick :\0034"
putserv "NOTICE $nick :\0034!addnews <news>\00312 Pour ajouter une news"
putserv "NOTICE $nick :\0034!newslist\00312 Pour voir toute les 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 :\0034"
putserv "NOTICE $nick :\00312Fin de l'aide de News"
putserv "PRIVMSG #Services :\00312News Help : \0034$nick"
}
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"
putserv "PRIVMSG #Services :\00312Add News : \0034$nick"
}
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"
putserv "PRIVMSG #Services :\00312News list : \0034$nick"
}
}
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 »» [lrange $line 1 end]"
return 1
}
}
putserv "PRIVMSG $::backroom \00312news $nb introuvable"
putserv "PRIVMSG #Services :\00312News : \0034$nick"
}
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"
putserv "PRIVMSG #Services :\00312Del News : \0034$nick"
}
putlog "\00312News.tcl V1.0 par Vampire chargé..."