scrit.tcl auto bonjour

[diabolo]

bonjour et merci

je viens de modifier mais cela n'a pas fonctionner !!

tclcopier

set SalonJoinUser "#Amities"
 
bind join - "$::SalonJoinUser *" join_user
proc join_user {nick uhost hand chan} {
putserv "PRIVMSG $chan : Hello $nick et bienvenue sur "#Amities" le salon de toutes vos Rencontres :)"
return 0
}
 
 
 
set salonmx "#Amities"
set confirmation "pseudo"
 
bind time - "10 19 * * *" message1
bind time - "10 19 * * *" message1
proc message1 {min hour day month year} {
global salonmx confirmation
putquick "privmsg $salonmx :Amities vous offre tout les jours à 19h10 un bon apéritif :p
putquick "privmsg $confirmation :Message correctement dit sur $salonmx"
}