essaye peut être cela:
je n'est pas testé (je le signale)
cordialement
tcl
#//-//-//-//-//-//-//-//-//-//-#
#-//-//- Configuration -//-//-#
#//-//-//-//-//-//-//-//-//-//-#
#ici le(s) nom(s) de vos salon(s):
set salon_planning "#Salon"
bind pub - !planning_radio pub:planning
proc pub:planning { nick uhost handle channel arg } {
global salon_planning
foreach a $salon_planning {
if {[string equal -nocase $channel $a]} {
putquick "NOTICE $nick :Voici le planning de la radio :"
putserv "NOTICE $nick :blablabla"
}
}
}
je n'est pas testé (je le signale)
cordialement