Script TCL + SQL

[CrazyCat]

Tu n'avais pas mis le code complet, et là ton erreur est plus que flagrante.
Voici la procédure pub:wdntwcmd corrigée:

tclcopier

proc pub:wdntwcmd {nick host hand chan arg} {
        global wdntw botnick
    set donnees [string_filter [string map {" " %} [join $arg]]]
    # on transforme les espaces en %
    if { [llength [split $arg]] == 0 } { 
      putserv "NOTICE $nick : Merci de préciser ta recherche. Exemple : !sound *artistes ou titres*" 
      return 0 
    }
 
    if ![matchattr $nick $wdntw(ignflags) $chan] {
       if {[wdntw:flood $nick $host]} {
          return 0
       }
    }
    set res [infos $donnees]
	if { [llength $res] > 0 } {
		foreach {artiste titre nom urlmenu} $res {
			set minartistes [string_filter $artiste]
			set mintitres [string_filter $titre]
			#putlog "Résultat : [join $res]";
			putlog "$artiste - $titres : http://www.wdntw.com/$urlmenu/$minartistes/$mintitres";
		}
    } else {
		putserv "NOTICE $nick : Désolé mais ce son n'existe pas dans ma base de données.";
    }
}

Je te laisse voir les différences avec ce que tu faisais, et poser les questions si tu ne comprends pas tes erreurs