Fermeture automatique d'un salon a une heure prédéfinie

[Artix]

Bon je sais que je suis pas le premier a essayer, mais j'essaie quand même avec ma version (non testée <_<) :

tclcopier

# Une liste des canaux
# Les {, } et \ doivent etre précédés d'un \ !!
variable timedChans_chanlist {#chan1 #chan2}

# On met les binds time en place
bind time -|- {00 19 * * *} ::timedChans_close 
bind time -|- {00 10 * * *} ::timedChans_open
 
proc ::timedChans_close {min hour args} {
putquick "PRIVMSG [join $::timedChans_chanlist ,] :Il est 19h, le canal va fermer. Nous esperons vous revoir demain."
foreach chan $::timedChans_chanlist { 
pushmode $chan +im
putserv "ChanServ CLEAR $chan USERS" }
putserv "JOIN [join $::timedChans_chanlist ,]"
}
 
proc ::timedChans_open {min hour args} {
timer 5 {::timeChans_announce} 
foreach chan $::timedChans_chanlist {
pushmode $chan -im
}
}
 
proc ::timedChans_announce {} {
putquick "PRIVMSG [join $::timedChans_chanlist ,] :Il est 10h, le canal est désormais ouvert !" }

A noter: neccessite chanserv, et peux ne pas marcher pour plus de 20 canaux