Script TCL + SQL
#1
Bonjour,

J'ai tenté un petit script toutefois le résultat n'est pas fameux...

Code :
##############
# CONFIGURATION #
##############

# -> Login
set sql(login) ""
# -> Mot de passe
set sql(pass) ""
# -> Nom de la base de donnée
set sql(db) ""
# -> L'host a l'aquelle ce connecté
set sql(host) "localhost"
# -> Localisation de fichier mysql.sock
set sql(sock) "/var/run/mysqld/mysqld.sock"

###########
# PAQUETAGE #
###########

catch {package require mysqltcl}

#######
# CODE  #
#######

#########
# CONNECT #
#########
proc service:connect {} {
    set ::mysqlink [::mysql::connect -host $::sql(host) -user $::sql(login) -password $::sql(pass) -sock $::sql(sock)]
    ::mysql::use $::mysqlink $::sql(db)
}

###########
# DECONNECT #
###########

proc service:deconnect {} {
    ::mysql::close $::mysqlink; unset -nocomplain ::mysqlink    
}

########
# INFOS #
########

proc infos {artistes titres} {
   service:connect
   set query "SELECT idvideos, v_artistes, v_titres FROM v5_videos WHERE v_artistes LIKE '%$artistes%' OR v_titres LIKE '%$titres%'"
   set res [::mysql::sel $::mysqlink $query -flatlist]
   service:deconnect
   return $res
}

#Users with these flags can operate this function
set wdntwflags "h|h"

bind pub $wdntwflags !sound pub:wdntwcmd

proc pub:wdntwcmd {nick host hand chan arg} {
    set artistes [lindex $arg 0]
    set titres [lindex $arg 1]
    if{[infos $artistes $titres]}{
    putlog "$artistes => $titres";
    }else{
    putlog "Ce son n'existe pas";
    }
}

putlog "Script WDNTW SQL by KiBa loaded!"

En gros, je vais taper dans une table qui contient un certains nombres de musiques et j'aimerai en sortir le titres et l'artistes (pour le moment) en faisant un !sound Blink 182 par exemple

Voilà le résultat :

Code :
[13:56:46] <@KiBa> !sound Passenger
[13:56:47] <(VDMBot> [13:56:48] Tcl error [pub:wdntwcmd]: invalid command name "if{1 Gotye {Somebody That I Used To Know featuring Kimbra} 3 Booba {Kalash featuring Kaaris} 4 {Positive Flow} {Do What I Do featuring Omar} 5 Adele {Hometown Glory High Contrast Remix} 6 Beyonce {I Was Here} 7 {Mark Farina} {Dream Machine} 8 Jay-Z {Public Service Announcement Nba2K13 OST} 9 {Kid Ink} {Lowkey Poppin} 10 Bibio {Lovers Carvings Catz'n Dogz Remix} 11 {Angels And

Un petit coup de pouce siouplé Smile
Répondre Avertir


Messages dans ce sujet
Script TCL + SQL - par KiBa - 06/12/2013, 15:02
RE: Script TCL + SQL - par MenzAgitat - 06/12/2013, 15:16
RE: Script TCL + SQL - par KiBa - 06/12/2013, 15:21
RE: Script TCL + SQL - par CrazyCat - 06/12/2013, 15:59
RE: Script TCL + SQL - par KiBa - 06/12/2013, 16:13
RE: Script TCL + SQL - par CrazyCat - 06/12/2013, 17:10
RE: Script TCL + SQL - par KiBa - 09/12/2013, 14:49
RE: Script TCL + SQL - par KiBa - 11/12/2013, 17:13
RE: Script TCL + SQL - par BdS - 12/12/2013, 10:58
RE: Script TCL + SQL - par KiBa - 12/12/2013, 11:41
RE: Script TCL + SQL - par CrazyCat - 13/12/2013, 14:05
RE: Script TCL + SQL - par KiBa - 13/12/2013, 16:39
RE: Script TCL + SQL - par CrazyCat - 14/12/2013, 12:36
RE: Script TCL + SQL - par KiBa - 17/12/2013, 11:16
RE: Script TCL + SQL - par CrazyCat - 17/12/2013, 11:20
RE: Script TCL + SQL - par KiBa - 17/12/2013, 11:31
RE: Script TCL + SQL - par CrazyCat - 17/12/2013, 12:19
RE: Script TCL + SQL - par KiBa - 18/12/2013, 15:16
RE: Script TCL + SQL - par KiBa - 23/12/2013, 17:54
RE: Script TCL + SQL - par CrazyCat - 26/12/2013, 09:41
RE: Script TCL + SQL - par KiBa - 06/01/2014, 11:15
RE: Script TCL + SQL - par CrazyCat - 06/01/2014, 11:27
RE: Script TCL + SQL - par KiBa - 06/01/2014, 12:23

Atteindre :


Utilisateur(s) parcourant ce sujet : 1 visiteur(s)
Tchat 100% gratuit -Discutez en toute liberté