Your IP : 216.73.216.42
home/bourgleram/www/ecrire/exec/rechercher.php 0000705 00000011052 15252540253 0015477 0 ustar 00 <?php
/***************************************************************************\
* SPIP, Systeme de publication pour l'internet *
* *
* Copyright (c) 2001-2016 *
* Arnaud Martin, Antoine Pitrou, Philippe Riviere, Emmanuel Saint-James *
* *
* Ce programme est un logiciel libre distribue sous licence GNU/GPL. *
* Pour plus de details voir le fichier COPYING.txt ou l'aide en ligne. *
\***************************************************************************/
if (!defined('_ECRIRE_INC_VERSION')) return;
include_spip('inc/actions');
include_spip('inc/texte');
// http://doc.spip.org/@exec_rechercher_dist
function exec_rechercher_dist(){
$id = intval(_request('id'));
$exclus = intval(_request('exclus'));
$rac = spip_htmlentities(_request('rac'));
$type = _request('type');
$do = _request('do');
if (preg_match('/^\w*$/', $do))
$r = exec_rechercher_args($id, $type, $exclus, $rac, $do);
else $r = '';
ajax_retour($r);
}
// http://doc.spip.org/@exec_rechercher_args
function exec_rechercher_args($id, $type, $exclus, $rac, $do){
if (!$do) $do = 'aff';
$where = preg_split(",\s+,", $type);
if ($where){
foreach ($where as $k => $v){
$where[$k] = "'%" . substr(str_replace("%", "\%", sql_quote($v,'','string')), 1, -1) . "%'";
}
$where_titre = ("(titre LIKE " . join(" AND titre LIKE ", $where) . ")");
$where_desc = ("(descriptif LIKE " . join(" AND descriptif LIKE ", $where) . ")");
$where_id = ("(id_rubrique = " . intval($type) . ")");
} else {
$where_titre = " 1=2";
$where_desc = " 1=2";
$where_id = " 1=2";
}
if ($exclus){
include_spip('inc/rubriques');
$where_exclus = " AND " . sql_in('id_rubrique', calcul_branche_in($exclus), 'NOT');
} else $where_exclus = '';
$res = sql_select("id_rubrique, id_parent, titre", "spip_rubriques", "$where_id$where_exclus");
$points = $rub = array();
while ($row = sql_fetch($res)){
$id_rubrique = $row["id_rubrique"];
$rub[$id_rubrique]["titre"] = typo($row["titre"]);
$rub[$id_rubrique]["id_parent"] = $row["id_parent"];
$points[$id_rubrique] = $points[$id_rubrique]+3;
}
$res = sql_select("id_rubrique, id_parent, titre", "spip_rubriques", "$where_titre$where_exclus");
while ($row = sql_fetch($res)){
$id_rubrique = $row["id_rubrique"];
$rub[$id_rubrique]["titre"] = typo($row["titre"]);
$rub[$id_rubrique]["id_parent"] = $row["id_parent"];
if (isset($points[$id_rubrique]))
$points[$id_rubrique] += 2;
else $points[$id_rubrique] = 0;
}
$res = sql_select("id_rubrique, id_parent, titre", "spip_rubriques", "$where_desc$where_exclus");
while ($row = sql_fetch($res)){
$id_rubrique = $row["id_rubrique"];
$rub[$id_rubrique]["titre"] = typo($row["titre"]);
$rub[$id_rubrique]["id_parent"] = $row["id_parent"];
if (isset($points[$id_rubrique]))
$points[$id_rubrique] += 1;
else $points[$id_rubrique] = 0;
}
if ($points){
arsort($points);
$style = " style='background-image: url(" . chemin_image('secteur-12.png') . ")'";
foreach ($rub as $k => $v){
$rub[$k]['atts'] = ($v["id_parent"] ? $style : '')
. " class='petite-rubrique'";
}
}
return (proposer_item($points, $rub, $rac, $type, $do));
}
// Resultat de la recherche interactive demandee par la fonction JS
// onkey_rechercher qui testera s'il comporte une seule balise au premier niveau
// car cela qui indique qu'un seul resultat a ete trouve.
// ==> attention a composer le message d'erreur avec au moins 2 balises
// http://doc.spip.org/@proposer_item
function proposer_item($ids, $titles, $rac, $type, $do){
if (!$ids)
return "<br /><br /><div style='padding: 5px; color: red;'><b>"
. spip_htmlentities($type)
. "</b> : " . _T('avis_aucun_resultat') . "</div>";
$ret = '';
$info = generer_url_ecrire('informer', "type=rubrique&rac=$rac&id=");
$onClick = "aff_selection(this.firstChild.title,'$rac" . "_selection','$info', event)";
$ondbClick = "$do(this.firstChild.firstChild.nodeValue,this.firstChild.title,'selection_rubrique', 'id_parent');";
foreach ($ids as $id => $bof){
$titre = strtr(str_replace("'", "’", str_replace('"', """, textebrut($titles[$id]["titre"]))), "\n\r", " ");
$ret .= "<div class='highlight off'\nonclick=\"changerhighlight(this); "
. $onClick
. "\"\nondblclick=\""
. $ondbClick
. $onClick
. " \"><div"
. $titles[$id]["atts"]
. " title='$id'> "
. $titre
. "</div></div>";
}
return $ret;
}
?>
home/bourgleram/www/ecrire/inc/rechercher.php 0000705 00000022226 15252712201 0015323 0 ustar 00 <?php
/***************************************************************************\
* SPIP, Systeme de publication pour l'internet *
* *
* Copyright (c) 2001-2016 *
* Arnaud Martin, Antoine Pitrou, Philippe Riviere, Emmanuel Saint-James *
* *
* Ce programme est un logiciel libre distribue sous licence GNU/GPL. *
* Pour plus de details voir le fichier COPYING.txt ou l'aide en ligne. *
\***************************************************************************/
if (!defined('_ECRIRE_INC_VERSION')) return;
// Donne la liste des champs/tables ou l'on sait chercher/remplacer
// avec un poids pour le score
// http://doc.spip.org/@liste_des_champs
function liste_des_champs() {
static $liste=null;
if (is_null($liste)) {
$liste = array();
// recuperer les tables_objets_sql declarees
include_spip('base/objets');
$tables_objets = lister_tables_objets_sql();
foreach($tables_objets as $t=>$infos){
if ($infos['rechercher_champs']){
$liste[$infos['type']] = $infos['rechercher_champs'];
}
}
// puis passer dans le pipeline
$liste = pipeline('rechercher_liste_des_champs', $liste);
}
return $liste;
}
// Recherche des auteurs et mots-cles associes
// en ne regardant que le titre ou le nom
// http://doc.spip.org/@liste_des_jointures
function liste_des_jointures() {
static $liste=null;
if (is_null($liste)) {
$liste = array();
// recuperer les tables_objets_sql declarees
include_spip('base/objets');
$tables_objets = lister_tables_objets_sql();
foreach($tables_objets as $t=>$infos){
if ($infos['rechercher_jointures']){
$liste[$infos['type']] = $infos['rechercher_jointures'];
}
}
// puis passer dans le pipeline
$liste = pipeline('rechercher_liste_des_jointures', $liste);
}
return $liste;
}
function expression_recherche($recherche, $options) {
// ne calculer qu'une seule fois l'expression par hit
// (meme si utilisee dans plusieurs boucles)
static $expression = array();
$key = serialize(array($recherche, $options['preg_flags']));
if (isset($expression[$key]))
return $expression[$key];
$u = $GLOBALS['meta']['pcre_u'];
if ($u AND strpos($options['preg_flags'],$u)===false)
$options['preg_flags'] .= $u;
include_spip('inc/charsets');
$recherche = trim($recherche);
$is_preg = false;
if (substr($recherche, 0, 1) == '/' and substr($recherche, -1, 1) == '/' and strlen($recherche) > 2) {
// c'est une preg
$recherche_trans = translitteration($recherche);
$preg = $recherche_trans.$options['preg_flags'];
$is_preg = true;
}
else{
// s'il y a plusieurs mots il faut les chercher tous : oblige REGEXP
// sauf ceux de moins de 4 lettres (on supprime ainsi 'le', 'les', 'un',
// 'une', 'des' ...)
if (preg_match(",\s+,".$u, $recherche)){
$is_preg = true;
$recherche_inter = '|';
$recherche_mots = explode(' ', $recherche);
$min_long = defined('_RECHERCHE_MIN_CAR') ? _RECHERCHE_MIN_CAR : 4;
foreach ($recherche_mots as $mot) {
if (strlen($mot) >= $min_long) {
$recherche_inter .= $mot.' ';
}
}
// mais on cherche quand même l'expression complète, même si elle
// comporte des mots de moins de quatre lettres
$recherche = rtrim($recherche.preg_replace(',\s+,'.$u, '|', $recherche_inter), '|');
$recherche_trans = translitteration($recherche);
}
$preg = '/'.str_replace('/', '\\/', $recherche_trans).'/' . $options['preg_flags'];
}
// Si la chaine est inactive, on va utiliser LIKE pour aller plus vite
// ou si l'expression reguliere est invalide
if (!$is_preg
OR (@preg_match($preg,'')===FALSE) ) {
$methode = 'LIKE';
$u = $GLOBALS['meta']['pcre_u'];
// eviter les parentheses et autres caractères qui interferent avec pcre par la suite (dans le preg_match_all) s'il y a des reponses
$recherche = str_replace(
array('(',')','?','[', ']', '+', '*', '/'),
array('\(','\)','[?]', '\[', '\]', '\+', '\*', '\/'),
$recherche);
$recherche_trans = translitteration($recherche);
$recherche_mod = $recherche_trans;
// echapper les % et _
$q = str_replace(array('%','_'), array('\%', '\_'), trim($recherche));
// les expressions entre " " sont un mot a chercher tel quel
// -> on remplace les espaces par un _ et on enleve les guillemets
if (preg_match(',["][^"]+["],Uims',$q,$matches)){
foreach($matches as $match){
// corriger le like dans le $q
$word = preg_replace(",\s+,Uims","_",$match);
$word = trim($word,'"');
$q = str_replace($match,$word,$q);
// corriger la regexp
$word = preg_replace(",\s+,Uims","[\s]",$match);
$word = trim($word,'"');
$recherche_mod = str_replace($match,$word,$recherche_mod);
}
}
$q = sql_quote(
"%"
. preg_replace(",\s+,".$u, "%", $q)
. "%"
);
$preg = '/'.preg_replace(",\s+,".$u, ".+", trim($recherche_mod)).'/' . $options['preg_flags'];
} else {
$methode = 'REGEXP';
$q = sql_quote(trim($recherche, '/'));
}
// tous les caracteres transliterables de $q sont remplaces par un joker
// permet de matcher en SQL meme si on est sensible aux accents (SQLite)
$q_t = $q;
for($i = 0;$i<spip_strlen($q);$i++){
$char = spip_substr($q,$i,1);
if (!is_ascii($char)
AND $char_t = translitteration($char)
AND $char_t !== $char){
$q_t = str_replace($char,$is_preg?".":"_", $q_t);
}
}
$q = $q_t;
// fix : SQLite 3 est sensible aux accents, on jokerise les caracteres
// les plus frequents qui peuvent etre accentues
// (oui c'est tres dicustable...)
if (isset($GLOBALS['connexions'][$options['serveur']?$options['serveur']:0]['type'])
AND strncmp($GLOBALS['connexions'][$options['serveur']?$options['serveur']:0]['type'],'sqlite',6)==0){
$q_t = strtr($q,"aeuioc",$is_preg?"......":"______");
// si il reste au moins un char significatif...
if (preg_match(",[^'%_.],",$q_t))
$q = $q_t;
}
return $expression[$key] = array($methode, $q, $preg);
}
// Effectue une recherche sur toutes les tables de la base de donnees
// options :
// - toutvoir pour eviter autoriser(voir)
// - flags pour eviter les flags regexp par defaut (UimsS)
// - champs pour retourner les champs concernes
// - score pour retourner un score
// On peut passer les tables, ou une chaine listant les tables souhaitees
// http://doc.spip.org/@recherche_en_base
function recherche_en_base($recherche='', $tables=NULL, $options=array(), $serveur='') {
include_spip('base/abstract_sql');
if (!is_array($tables)) {
$liste = liste_des_champs();
if (is_string($tables)
AND $tables != '') {
$toutes = array();
foreach(explode(',', $tables) as $t)
if (isset($liste[$t]))
$toutes[$t] = $liste[$t];
$tables = $toutes;
unset($toutes);
} else
$tables = $liste;
}
if (!strlen($recherche) OR !count($tables))
return array();
include_spip('inc/autoriser');
// options par defaut
$options = array_merge(array(
'preg_flags' => 'UimsS',
'toutvoir' => false,
'champs' => false,
'score' => false,
'matches' => false,
'jointures' => false,
'serveur' => $serveur
),
$options
);
$results = array();
// Utiliser l'iterateur (DATA:recherche)
// pour recuperer les couples (id_objet, score)
// Le resultat est au format {
// id1 = { 'score' => x, attrs => { } },
// id2 = { 'score' => x, attrs => { } },
// }
include_spip('inc/memoization');
foreach ($tables as $table => $champs) {
# lock via memoization, si dispo
if (function_exists('cache_lock'))
cache_lock($lock = 'recherche '.$table.' '.$recherche);
spip_timer('rech');
// TODO: ici plutot charger un iterateur via l'API iterateurs
include_spip('inc/recherche_to_array');
$to_array = charger_fonction('recherche_to_array', 'inc');
$results[$table] = $to_array($recherche,
array_merge($options, array('table' => $table, 'champs' => $champs))
);
##var_dump($results[$table]);
spip_log("recherche $table ($recherche) : ".count($results[$table])." resultats ".spip_timer('rech'),'recherche');
if (isset($lock))
cache_unlock($lock);
}
return $results;
}
// Effectue une recherche sur toutes les tables de la base de donnees
// http://doc.spip.org/@remplace_en_base
function remplace_en_base($recherche='', $remplace=NULL, $tables=NULL, $options=array()) {
include_spip('inc/modifier');
// options par defaut
$options = array_merge(array(
'preg_flags' => 'UimsS',
'toutmodifier' => false
),
$options
);
$options['champs'] = true;
if (!is_array($tables))
$tables = liste_des_champs();
$results = recherche_en_base($recherche, $tables, $options);
$preg = '/'.str_replace('/', '\\/', $recherche).'/' . $options['preg_flags'];
foreach ($results as $table => $r) {
$_id_table = id_table_objet($table);
foreach ($r as $id => $x) {
if ($options['toutmodifier']
OR autoriser('modifier', $table, $id)) {
$modifs = array();
foreach ($x['champs'] as $key => $val) {
if ($key == $_id_table) next;
$repl = preg_replace($preg, $remplace, $val);
if ($repl <> $val)
$modifs[$key] = $repl;
}
if ($modifs)
objet_modifier_champs($table, $id,
array(
'champs' => array_keys($modifs),
),
$modifs);
}
}
}
}
?>