Script TCL + SQL

[KiBa]

Yes BdS merci !

Bon donc j'avance correctement

Code PHP :

bind pub $wdntwflags !sound pub:wdntwcmd

proc pub:wdntwcmd {nick host hand chan arg} {
    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 
    }
    set res [infos $donnees]
    set artistes [lindex $res 0]
    set titres [lindex $res 1]
    set urlmenu [lindex $res 3]
    set minartistes [string_filter [lindex $res 0]]
    set mintitres [string_filter [lindex $res 1]]
    if { [llength $res] > 0 } {
      #putlog "Résultat : [join $res]";
      putlog "$artistes - $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.";
    }
}

proc string_filter {str} {
    set str [string map -nocase {
        " "        "-"        "_"        "-"        "&"        "-"        "/"        "-"
        "."        "-"        "("        "-"        ")"        "-"        "'"        ""
        ","        ""        "è"        "e"        "é"        "e"
    } $str]

    regsub -all {<br />} $str " " str
    regsub -all {<[^>]+>} $str "" str
    regsub -all {\n} $str " " str

    set str [encoding convertfrom utf-8 $str]
    set str [string tolower $str]
    return $str
} 


Je pense qu'il y a des optimisations bien sur...

En revanche je n'arrive à retourner qu'un résultat pour mes recherches... Il faut que je fasse une boucle ?

Merci pour vos réponses