18/04/2014, 10:11
Bonjour,
Je viens vers vous pour un peu d'aide et profiter de vos lumière pour me faire avancer dans ma quête de codage de tcl !
Je souhaite faire avec ce codage :
et à ce niveau là
mais rien du tout à l'arrivé...
Merci d'avance à vous !
Je viens vers vous pour un peu d'aide et profiter de vos lumière pour me faire avancer dans ma quête de codage de tcl !
Je souhaite faire avec ce codage :
tcl
bind pub - !addtest addtest
proc addtest { nick host handle channel arg } {
if {$channel == "#salon"} {
set duree [lindex $arg 0]
set debut [lindex $arg 1]
if {$duree == "" || $debut == ""} {
putserv "NOTICE $nick :04Erreur :12 Mauvaise commande. Exemple :06 !addtest 20 18-06-2011"
return 0
}
set db [open "./scripts/db/test.db" "r"]
while {![eof $db]} {
set getdb [gets $db]
set infopseudo [lindex $getdb 0]
if {![string equal -nocase [string tolower $nick] [string tolower $infopseudo]]==0} {
putserv "NOTICE $nick :04Erreur :12 Tu es déjà dans la liste des tests."
return 0
}
}
et à ce niveau là
Citation :[open "./scripts/db/test.db" "r"]est ce qu'il est possible de mettre une finalité en html ? Car j'ai fais des test mais rien de concluant... J'avais mis ceci
tcl
[open "./home/COMPTE/public_html/test.html" "r"]
mais rien du tout à l'arrivé...
Merci d'avance à vous !