je veux créer un script qui me permet de créer un fichier et écrire dedans la liste des utilisateurs qui joindre mon salon j'ai essayer avec ce script mais ca marcha pas
bind join - * join:join
proc join:join {nick uhost handle channel arg} {
set id [open $filejoin "a+"]
puts $id "$nick has joined $channel"
close $id
}
voila c bon
bind join - * pub:join
tcl
proc pub:join { nick uhost handle channel } {
putserv "PRIVMSG $channel :$nick joindre votre canal"
set fichier "scripts/listejoin.txt"
set id [open $fichier a+]
set ch "$nick joindre la canal $channel"
puts $id $ch
close $id
}
putlog "le fichier join est téléchargé avec succés"
/tcl
marawam a écrit :svp puis je savoir si vous avez un lien qui me donne Les format des messages que reçois les serveurs et les clients irc?
merci
Pourrais-tu ne pas poster ta question sur des sujets où elle n'a rien à faire s'il te plait ?
Et pourrais-tu:
1) ouvrir un nouveau sujet
2) être plus clair sur ce que tu demandes
bonjour puis je savoir si c possible ,avec tcl, de créer un tableau avec des lignes et des colonnes et de stocker la dedant des variables ensuite de chercher un élémen dans ce tableau en retournant son emplacemen exactement(ligne,colone)
si c possible j'aurais besoin d'un exemple svp
tcl:
#avec ce script tcl je veux créer un tableau qui contien 2 colones une pour id et l'autre pour pseudo
#et de remplir les colones id et pseudo à chaq foi que qlq1 tappe !tab (déclancheur) et d'afficher les contenu du tableau dans le canal( en respectant #le test if )
# ca marche pa, svp besoin d'aide
bind pub - !tab pub:testtab
proc pub:testtab { nick uhost handle arg channel } {
set i 1
set id 1
set [array size tabpseudo] 30
set pseudo 20
set pseudoch $arg
for {set i 1} {i<[array size tabpseudo]} {incr i} {
array set tabpseudo(i,1) $id
array set tabpseudo(i,2) $pseudo
set search [array get $tabpseudo (i,2)]
if { [string match $search $pseudoch] } {
array set tabpseudo([exper [array size tabpseudo] + 1],1) $id
array set tabpseudo([exper [array size tabpseudo] + 1],2) $pseudoch
putserv "PRIVMSG $channel : client avec l'id [array get $tabpseudo($i,1)] et de pseudo [array get $tabpseudo($i,2)]"
}
}
}