!planning radio

[heretoc]

Bon je vais essayer de t'aider de la façon que j'ai compris ton truc, et merci de pas t'enerver.
Avec divers bout de tcl j'ai fait un medley si on peut le dire qui permet avec la commande de "Artix" de faire ton "!planning radio" et j'ai continuer ... je te previent je n'est pas essayer, cela est meme brouillon mais bon si sa peut te donner des idées pour continuer tant mieux

tclcopier

set Planning "scripts/radioplanning.txt"
 
bind pub - !addplaning pub:!addplaning
proc pub:!addplaning { nick host hand channel text } {
global Planning
set f [open "$Planning" "a"]
puts $f "$text par $nick"
close $f
putserv "NOTICE $nick OK. Is good."
} 
}
 
bind pubm - "* !planning radio" pubm:planning
proc pubm:planning {nick uhost hand chan text} {
  global Planning
  set RadioP [open $Planning r]
  set ligne "1"
  while { ![eof $RadioP] } {
    gets $RadioP rrabus
set len [string length $rrabus]
putdccraw 0 [expr $len + 1] "$rrabus\n" 
    putquick "NOTICE $nick : $ligne - $rrabus"
    if {$rrabus != ""} { incr ligne }
  }
  if {$ligne == "0"} { putserv "NOTICE $nick : Il n'y a pas de planning." }
  close $RadioP
  return 0
}