Mise en forme de code: pensez à utiliser les balises [ tcl ] et [ /tcl ] (sans les espaces bien sûr) autour de vos codes tcl afin d'avoir un meilleur rendu et une coloration syntaxique. x


Script TCL + SQL
#16
Je l'ai mis sur mon premier post Crazy, non ?

PHP 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"/path/to/mysqld.sock"

# Anti flood sur les commandes du Bot x:y (x=nombre de fois, y=secondes) :
set wdntw(flood3:5

# Ignorer l'utilisateur après son flood (0=non, 1=oui) :
set wdntw(ignore1

# Si oui, combien de temps (en minutes) :
set wdntw(ignoretime1

# Laisser faire les utilisateurs ayant certains flags :
set wdntw(ignflags"h|h"
 
###########
# 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 {donnees} {
   
service:connect
   set query 
"SELECT v_artistes, v_titres, m_nom, m_link FROM v5_videos, v5_menus WHERE CONCAT(v_artistes, '%', v_titres) LIKE '%$donnees%' AND menus_id = idmenus"
   
set res [::mysql::sel $::mysqlink $query -flatlist]
   
service:deconnect
   
return $res
}

bind pub $wdntw(ignflags) !sound pub:wdntwcmd

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]] == } { 
      
putserv "NOTICE $nick : Merci de préciser ta recherche. Exemple : !sound *artistes ou titres*" 
      
return 
    
}

    if ![
matchattr $nick $wdntw(ignflags$chan] {
       if {[
wdntw:flood $nick $host]} {
          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]]
    
    foreach {
artistes titres urlmenu minartistes mintitres$res {
    if { [
llength $res] > } {
        
#putlog "Résultat : [join $res]";
        
putlog "$artistes - $titres : http://www.wdntw.com/$urlmenu/$minartistes/$mintitres";
        
#putserv "PRIVMSG $chan : $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
}

proc wdntw:flood:init {} {
    global 
wdntw wdntwflood
    set wdntw
(floodnum) [lindex [split $wdntw(flood) :] 0]
    
set wdntw(floodtime) [lindex [split $wdntw(flood) :] 1]
    
set i [expr $wdntw(floodnum) - 1]
    while {
$i >= 0} {
       
set wdntwflood($i0
       incr i 
-1
    
}
}
wdntw:flood:init

proc wdntw
:flood {nick host} {
    global 
wdntw wdntwflood botnick
    
if {$wdntw(floodnum) == 0} {
       return 
0
    
}
    
set i [expr $wdntw(floodnum) - 1]
    while {
$i >= 1} {
       
set wdntwflood($i$wdntwflood([expr $i 1])
       
incr i -1
    
}
    
set wdntwflood(0) [unixtime]
    if {[
expr [unixtime] - $wdntwflood([expr $wdntw(floodnum) - 1])] <= $wdntw(floodtime)} {
    if {
$wdntw(ignore)} {
      
newignore [join [maskhost *!*[string trimleft $host ~]]] $botnick "Flood" $wdntw(ignoretime)
    }
    return 
1
    
} {
    return 
0
    
}
}

putlog "Script WDNTW SQL by KiBa loaded!" 

Voilà la dernière version !
#17
Tu n'avais pas mis le code complet, et là ton erreur est plus que flagrante.
Voici la procédure pub:wdntwcmd corrigée:

tcl
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
irc.zeolia.net - Offrez-moi un café
Merci de ne pas demander d'aide en MP
Away
#18
Merci beaucoup Crazy, je vais tenter de rajouter quelques commandes, une fois que le script sera bon, je le rajouterai ici ;)
#19
J'ai essayé de rajouter un compteur pour mettre une restriction si le résultat retourne plus de 5 réponses... sans succès

PHP 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"

# Anti flood sur les commandes du Bot x:y (x=nombre de fois, y=secondes) :
set wdntw(flood3:5

# Ignorer l'utilisateur après son flood (0=non, 1=oui) :
set wdntw(ignore1

# Si oui, combien de temps (en minutes) :
set wdntw(ignoretime1

# Laisser faire les utilisateurs ayant certains flags :
set wdntw(ignflags"-|-"
 
#Compteur de résultats
set wdntw(maxres5

###########
# 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 {donnees} {
   
service:connect
   set query 
"SELECT v_artistes, v_titres, m_nom, m_link FROM v5_videos, v5_menus WHERE CONCAT(v_artistes, '%', v_titres) LIKE '%$donnees%' AND menus_id = idmenus"
   
set res [::mysql::sel $::mysqlink $query -flatlist]
   
service:deconnect
   
return $res
}

bind pub $wdntw(ignflags) !sound pub:wdntwcmd

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]] == } { 
      
putserv "NOTICE $nick : Merci de préciser ta recherche. Exemple : !sound *artistes ou titres*" 
      
return 
    
}
 
    if ![
matchattr $nick $wdntw(ignflags$chan] {
       if {[
wdntw:flood $nick $host]} {
          return 
0
       
}
    }
    
    
set gotres 0
    set res 
[infos $donnees]
   if { [
llength $res] > } {
      foreach {
artiste titre nom urlmenu$res {
         
set minartistes [string_filter $artiste]
         
set mintitres [string_filter $titre]
         
putlog  "$gotres";
         
#putlog "Résultat : [join $res]";
         #putlog "$artiste - $titre : http://www.wdntw.com/$urlmenu/$minartistes/$mintitres";
         
putserv "PRIVMSG $chan : $artiste - $titre : http://www.wdntw.com/$urlmenu/$minartistes/$mintitres";
         
incr gotres 
      
}
    } 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
}

proc wdntw:flood:init {} {
    global 
wdntw wdntwflood
    set wdntw
(floodnum) [lindex [split $wdntw(flood) :] 0]
    
set wdntw(floodtime) [lindex [split $wdntw(flood) :] 1]
    
set i [expr $wdntw(floodnum) - 1]
    while {
$i >= 0} {
       
set wdntwflood($i0
       incr i 
-1
    
}
}
wdntw:flood:init

proc wdntw
:flood {nick host} {
    global 
wdntw wdntwflood botnick
    
if {$wdntw(floodnum) == 0} {
       return 
0
    
}
    
set i [expr $wdntw(floodnum) - 1]
    while {
$i >= 1} {
       
set wdntwflood($i$wdntwflood([expr $i 1])
       
incr i -1
    
}
    
set wdntwflood(0) [unixtime]
    if {[
expr [unixtime] - $wdntwflood([expr $wdntw(floodnum) - 1])] <= $wdntw(floodtime)} {
    if {
$wdntw(ignore)} {
      
newignore [join [maskhost *!*[string trimleft $host ~]]] $botnick "Flood" $wdntw(ignoretime)
    }
    return 
1
    
} {
    return 
0
    
}
}

putlog "Script WDNTW SQL by KiBa loaded!" 

J'ai essayé d'intégrer un truc dans ce genre là :

PHP Code:
if { $gotres } { 
      if { 
$gotres $wdntw(maxres) } { 
         
set max $wdntw(maxres
         
incr max -
         set res 
[lrange $res end-$max end
      }
#ma bouche foreach
if { $gotres $wdntw(maxres) } {
putmsg $channel "$wdntw(maxres) résultats affichés sur $gotres trouvés"


Mais sans succès
#20
Lorsque tu dis que tu veux mettre une restriction, c'est bloquer totalement lorsqu'il y a plus de 5 résultats ou n'afficher que les 5 premiers ?
irc.zeolia.net - Offrez-moi un café
Merci de ne pas demander d'aide en MP
Away
#21
Hello Crazy et bonne année bien évidemment !

J'entends d'afficher que les 5 premiers résultats en effet !

Merci :)
#22
Ben ajoute un LIMIT 5 OFFSET 0 à la fin de ta requête.
irc.zeolia.net - Offrez-moi un café
Merci de ne pas demander d'aide en MP
Away
#23
Ah oui... aussi simple, je me suis compliqué la tâche a essayé de faire une règle... Merci Crazy !


Forum Jump:


Users browsing this thread: 1 Guest(s)