Mise en forme de code: pensez à utiliser les balises [ tcl ] et [ /tcl ] (sans les espaces bien sûr) autour de vos codes tcl afin d'avoir un meilleur rendu et une coloration syntaxique. x


TCL de fermture
#1
Information 
Bonjour,

voici un codage de tcl, que vous m'aviez aidé à créer à l'époque. J'ai tenté de le mettre en service mais malheureusement plus de s'effectue. Aucun message d'erreur en PL et surtout aucune fermeture de salon. Avez-vous une idée du problème ?

Merci d'avance.

Code:
# Minute de fermeture de salon

set CC(min) "07"



# Heure de fermeture du salon

set CC(ferme) "17"



# Heure d'ouverture du salon

set CC(ouvre) "17"



# Minute d'ouverture du salon

set CC(mouvre) "05"



# Heure d'avertissement de fermeture

set CC(afh)   "17"



# Minute d'avertissement de fermeture

set CC(amn)   "05"



# Mode de fermeture de salon

set CC(mode) "+iRm"



# Message d'avertissement de fermeture

set CC(af)   "Fermeture du salon dans 05minute.. veuillez quitter ce salon !"



# Message de fermeture

set CC(close) "Fermeture du salon !"



# Message d'ouverture



set CC(ouvert) "Ouverture du salon ! Bon t'chat à tous ! ;)"





if {![file exists "scripts/chan.db"]} { set file_chan [open "host.db" a+]; close $file_chan }



bind time - "$CC(amn) $CC(afh) * * *" time:averto

proc time:averto {min hour day month year} {

global CC

catch {open scripts/chan.db r} salle

while {![eof $salle]} { gets $salle salon; if {$salon!=""} { puts "PRIVMSG $salon :$CC(af)" } }

catch {close $salle}

}



bind time - "$CC(min) $CC(ferme) * * *" time:close

proc time:close {min hour day month year} {

global CC

catch {open scripts/chan.db r} salle

while {![eof $salle]} { gets $salle salon; if {$salon!=""} { puts "PRIVMSG $salon :$CC(close)"; puts "MODE $salon +$CC(mode)"; foreach users [chanlist $salon] { puts "KICK $salon $user :$CC(ouvert)"} } }

catch {close $salle}

}



bind time - "$CC(mouvre) $CC(ouvre) * * *" time:ouvre

proc time:ouvre {min hour day month year} {

global CC

catch {open scripts/chan.db r} salle

while {![eof $salle]} { gets $salle salon; if {$salon!=""} { puts "PRIVMSG $salon :$CC(ouvert)"; puts "MODE $salon -$CC(mode)" } }

catch {close $salle}

}
  Reply


Messages In This Thread
TCL de fermture - by KeeViiNou - 06/06/2020, 14:33
RE: TCL de fermture - by CrazyCat - 07/06/2020, 01:05

Forum Jump:


Users browsing this thread: 1 Guest(s)