Code :
###########################
## Systeme de News ##
###########################
set NnameAdulte "./scripts/news.txt"
proc putfast {arg} {
append arg "\n"
putdcc 0 $arg -raw
}
bind pub - !addnews pub:!addnews
proc pub:!addnews { nick host hand channel text } {
if ![string compare [string tolower $channel] "#staff"] {
global NnameAdulte
set f [open "$NnameAdulte" "a"]
puts $f "2--4#staff2--(3[clock format [clock seconds] -format " %x %X"] 2)12 $text 3Cey70y13t9/Dd4XE/74dSs/ 2(4 $nick 2)"
close $f
putserv "NOTICE $nick 3OK.12 News bien ajoutée."
}
}
bind pub *|* !news cmd:!news
proc cmd:!news {nick uhost hand channel arg} {
global NnameAdulte
if {$channel != "#staff"} { putserv "notice $nick :14No access !"; return }
set NnameAdulte [open $NnameAdulte r]
set ligne "1"
while { ![eof $NnameAdulte] } {
gets $NnameAdulte rrabus
set len [string length $rrabus]
putdcc 0 [expr $len + 1] "$rrabus\n"
putfast "NOTICE $nick :5 $ligne - $rrabus"
if {$rrabus != ""} { incr ligne }
}
if {$ligne == "0"} { putfast "NOTICE $nick :14Il n'y as pas encore de news." }
close $NnameAdulte
return 0
}
bind pub - !delnews pub:!delnews
proc pub:!delnews { nick host hand channel args } {
if ![string compare [string tolower $channel] "#staff"] {
global NnameAdulte
global NnameAdulte
set file [open $NnameAdulte r]
set fc 0
set fd 0
while {![eof $file]} {
set line [gets $file]
incr fc
if {$fc == $args } {
puthelp "NOTICE $nick :Effacement de la news n°$args"
set fd 1
} else {
lappend datalist $line
}
}
close $file
incr fc -1
set file [open $NnameAdulte w]
foreach line $datalist {
if {$line != "" } { puts $file $line }
}
close $file
if { $fd == 0 } { putfast "NOTICE $nick :Erreur ! le numéro de la ligne n'existe pas" }
}
}
putlog "\00304news.tcl \00303ajouté avec succés"
Voila le tcl au complet Je pense l'avoir bien remplacer. et quand je tape la commande !news ou addnews sa met :
[05:13:08] Tcl error [cmd:!news]: unknown putdcc option: should be -raw
[05:13:11] Tcl error [cmd:!news]: couldn't open "file11": no such file or directory