Script TCL + SQL

[CrazyCat]

Ben oui, c'est exactement ce que tu lui dis de faire.

Je reprends le code modifié et le commente:

tclcopier

proc pub:wdntwcmd {nick host hand chan arg} {
   # $arg est la liste des arguments qui suivent la commande (séparée par des espaces)
   set artistes [lindex $arg 0]
   # $artistes est donc le premier "mot" contenu dans $arg
   set titres [lindex $arg 1]
   # $titres est donc le second
   if { [llength [infos $artistes $titres]] > 0 } {
      putlog "$artistes => $titres";
   } else {
      putlog "Ce son n'existe pas";
   }
}

Comme tu veux pouvoir chercher un artiste ou un titre, je pense qu'il faut revoir ta requête et même les deux procédures:

tclcopier

proc infos {donnees} {
   service:connect
   set query "SELECT idvideos, v_artistes, v_titres FROM v5_videos WHERE CONCAT(v_artistes, '%', v_titres) LIKE '%$donnees%'"
   set res [::mysql::sel $::mysqlink $query -flatlist]
   service:deconnect
   return $res
}
 
proc pub:wdntwcmd {nick host hand chan arg} {
   set donnees [string map {" " %} [join $arg]]
   # on transforme les espaces en %
   set res [infos $donnees]
   if { [llength $res] > 0 } {
      putlog "Résultat : [join $res]";
   } else {
      putlog "Ce son n'existe pas";
   }
}