Soucis avec un codage

Oxyg3n3 · 01/03/2016 19:34:38

Bonjour, voilà j'ai un codage que m'avait fait quelqu'un et qui fonctionnait parfaitement, et depuis que j'ai tente de le relancer sans modif il ne fonctionne plus. Voici ce code :

Code: TCL

 
############
# Planning #
############
bind pub - "!pl" dop:pl
proc dop:pl {n ht hd ch a} {
set donnee [lindex $a 0]
set stop 0
if {![file exists "scripts/planning-resa.dab"]} {set files [open "scripts/planning-resa.dab" a+]; close $files}
	if {$donnee == ""} {
		catch {open "scripts/planning-resa.dab" r} files
		while {![eof $files]} {gets $files x; if {[lindex $x 0] != ""} {
			putfast "notice $n :10Numéro Résa4 \[\3 [lindex $x 0]4 \]\ 14:7 [lindex $x 1] 14Animera le4 \[\10 [lindex $x 2] [lindex $x 3] 14à12 [lrange $x 4 end] 4\]\ "
			set stop 1
		} }; catch {close $files}
		if {$stop == 0} {putfast "notice $n :Aucune réservation n'a été faite à ce jour !!"}
	}
	switch -exact $donnee {
		"test" {
			if {$n != "SerVuS"} {putfast "notice $n :------ Ceci est une zone réserver au codeur pour les tests ------"; return}
			# Lecture resa #
			catch {open "scripts/planning-resa.dab" r} files
			while {![eof $files]} {gets $files x; if {[lindex $x 0] != ""} {
				putfast "notice $n :$x"
			} }; catch {close $files}
		}
		"fixe" {
			# Toute la semaine #
			putfast "notice $n :4 /!\\ 14Commande en travaux !!10 Désoler pour le désagrément occasionné. 6Merci de bien vouloir patientez.4 /!\\"
		}
		"aujourd'hui" {
			catch {open "scripts/planning-resa.dab" r} files
			while {![eof $files]} {gets $files x; if {[lindex $x 0] != ""} {
				if {[lindex [times] 0] == [lindex $x 0] && [lindex [times] 1] == [lindex $x 1]} {set stop 1; putfast "notice $n :$x"}
			} }; catch {close $files}
			if {$stop == 0} {putfast "notice $n :Personne n'a réservé une annimation"} 
		}
		"demain" {
			putfast "notice $n :4 /!\\ 14Commande en travaux !!10 Désoler pour le désagrément occasionné. 6Merci de bien vouloir patientez.4 /!\\"
		}
		"hier" {
			set time [lindex [times] 5]
			if {$n != "SerVuS"} {putfast "notice $n :4 /!\\ 14Commande en travaux !!10 Désoler pour le désagrément occasionné. 6Merci de bien vouloir patientez.4 /!\\"; return}
			regsub -all -- {:} $time { } time
			set uptime "[lindex $time 0]h[lindex $time 1]"
			putfast "notice $n : [split [lindex [times] 5] :] / [times] / $uptime"
		}
	}
}
 
###########
# Réservé #
###########
bind pub - "!ap" dop:ap
proc dop:ap {n ht hd ch a} {
	set stop 0
	set num 0
	set jour [lindex $a 0]
	set date [lindex $a 1]
	set heure [lrange $a 2 end]
	if {$ch != "#!bot!"} {putfast "notice $n :Erreur salon"; return}
	if {$jour == ""} {putfast "notice $n :Syntaxe : !ap < jour > < date > < heure >"; return}
	if {$date == ""} {putfast "notice $n :Syntaxe : !ap < jour > < date > < heure >"; return}
	if {$heure == ""} {putfast "notice $n :Syntaxe : !ap < jour > < date > < heure >"; return}
	if {![file exists "scripts/planning-resa.dab"]} {set files [open "scripts/planning-resa.dab" a+]; close $files}
	# Control Résa #
	catch {open "scripts/planning-resa.dab" r} files
	while {![eof $files]} {gets $files x; if {[lindex $x 0] != ""} {
		if {$jour == [lindex $x 0] && $heure == [lindex $x 1]} {lappend user "[lindex $x 2]"; set stop 1}
	} }; catch {close $files}
	if {$stop == 1} {putfast "notice $n :Jour et Heure(s) déja réservé par $user"; return}
	# Résa #
	set num [expr {int(rand() * 42)}]
	set files [open "scripts/planning-resa.dab" a+]
	puts $files "$num $n $jour $date $heure"
	close $files
	putfast "notice $n :Planning Enregistrer pour $jour à $heure"
}
 
######################
# Annulé réservation #
######################
bind pub - "!dp" dop:dp
proc dop:dp {n ht hd ch a} {
set num [lindex $a 0]
set stop 0
if {$ch == "#!bot!"} {
	if {$num == ""} {putfast "notice $n :Syntaxe => !dp < numéro >"; return}
	if {![file exists "scripts/planning-resa.dab"]} {putfast "notice $n :Aucune Réservation actuellement"}
	# suppression de la résa #
	catch {open "scripts/planning-resa.dab" r} liste
	while {![eof $liste]} { gets $liste verif; if {![string compare -nocase $num [lindex $verif 0]]} { set stop 1 }; if {[string compare -nocase $num [lindex $verif 0]] && $verif!=""} { lappend salle "$verif" } }
	catch {close $liste}
	if {$stop == 0} {putfast "notice $n :Numéro Inconnu"; return}
	if {[info exists salle]} {
		set del [open "scripts/planning-resa.dab" w+]; foreach delchan $salle { puts $del "$delchan"}; close $del
	} else { set del [open "scripts/planning-resa.dab" w+]; close $del }
	putfast "notice $n :La réservation vient d'être supprimer"
} else {
	putfast "notice $n :Erreur Salon"
} }
 
##################
# Message Global #
##################
bind pub - "!glob" dop:glob
proc dop:glob {n ht hd ch a} {
	set text [lrange $a 0 end]
	if {$text == ""} {putfast "notice $n :Syntaxe : !glob < texte >"; return}
if {$ch == "#!secret!"} {
	foreach salon [channels] {
		putfast "privmsg $salon :6\[\ 4Message Global de7 $n 6\]\ :12 $text"
	}
} else {
	putfast "notice $n :Erreur Salon"
} }
 
##########
# Rehash #
##########
bind pub - !rehash dop:rehash
proc dop:rehash {n ht hd ch a} {
if {$n == "SerVuS"} {
rehash
putfast "notice $n :rehash ok"
} }
 
################
# Heure + Date #
################
proc times {} {
set horloge "[unixtime]"
set heure [lindex [ctime $horloge] 3]
set date [lindex [ctime $horloge] 2]
	switch -exact [lindex [ctime $horloge] 0] {
		"Mon" { set jour "Lundi" }
		"Tue" { set jour "Mardi" }
		"Wed" { set jour "Mercredi" }
		"Thu" { set jour "Jeudi" }
		"Fri" { set jour "Vendredi" }
		"Sat" { set jour "Samedi" }
		"Sun" { set jour "Dimanche" }
	}
	switch -exact [lindex [ctime $horloge] 1] {
		"Jan" { set mois "Janvier" }
		"Feb" { set mois "Février" }
		"Mar" { set mois "Mars" }
		"Apr" { set mois "Avril" }
		"May" { set mois "Mai" }
		"Jun" { set mois "Juin" }
		"Jul" { set mois "Juillet" }
		"Aug" { set mois "Août" }
		"Sep" { set mois "Septembre" }
		"Oct" { set mois "Octobre" }
		"Nov" { set mois "Novembre" }
		"Dec" { set mois "Décembre" }
	}
set annee [lindex [ctime $horloge] 4]
return "$jour $date $mois $annee : $heure"
}

Il s'agit d'un planning pour radio. Et pour erreur j'ai ceci

Tcl error [dop:ap]: invalid command name "putspeed"

Alors j'ai modifié le putspeed avec tout ce que je connaissais le putfash le serv etc mais rien n'y fait

Pouvez-vous m'aider svp ?

Merci.

Harakiri · 01/03/2016 20:51:00

Le message d'erreur que tu nous montres ne correspond pas au code que tu as partagé puisque celui-ci ne fait pas du tout référence à putspeed.
Mets à jour le code ou le message d'erreur que tu as pour qu'on puisse avoir l'erreur qui correspond au bon code, sinon ça risque d'être un petit peu compliqué

Forum d'aide IRC - IRCz.fr

Menus

Top posteurs

Statistiques

Partenaires

#1 01/03/2016 19:34:38

Soucis avec un codage

#2 01/03/2016 20:51:00

Re : Soucis avec un codage

Pied de page des forums