Bonjour,
Je souhaite créer un tcl d'annonce où un utilisateur puisse renseigner un message et que ce message soit dit par l'eggdrop toutes les X minutes.
J'ai commencé à faire ça :
Le tcl se lance, mais quand je souhaite renseigner un message, rien dans le fichier...
Je souhaite créer un tcl d'annonce où un utilisateur puisse renseigner un message et que ce message soit dit par l'eggdrop toutes les X minutes.
J'ai commencé à faire ça :
tcl
set fichier "/home/shell/scripts/annonce.txt"
set canal "#salon"
set fi [open $fichier "r"]
set phrases [split [read -nonewline $fi] "\n"]
close $fi
bind time - "*0 * * * *" randlecture
bind time - "*30 * * * *" randlecture
proc randlecture {mm hh dd mo yy} {
set laphrase [lindex $::phrases [rand [llength $::phrases]]]
putserv "PRIVMSG $::canal :$laphrase"
}
bind pub - "!addpub" add:news
proc add:news {n ht hd ch a} {
set news [lrange $a 0 end]
if {$ch == "#Radio_US-Route66"} {
if {$news == ""} {putspeed "notice $n :Syntaxe => !addpub < message >"; return}
if {![file exists "scripts/annonce.txt"]} {set files [open "scripts/annonce.txt" a+]; close $files}
# enregistrement de la news #
set num [expr {int(rand() * 37)}]
set files [open "scripts/annonce.txt" a+]
puts $files "$num $n $news"
close $files
putspeed "notice $n :News enregistré et validé"
} else {
putspeed "notice $n :Erreur Salon"
} }
Le tcl se lance, mais quand je souhaite renseigner un message, rien dans le fichier...