WebSVN – eFlore/Projets.eflore-projets – Diff – /branches/v5.4-arboretum/services/modules/0.1/coste/Textes.php


<?php
/*
 * @copyright 2013 Tela Botanica (accueil@tela-botanica.org)
 * @author Raphaël Droz <raphael@tela-botanica.org>
 * @license GPL v3 <http://www.gnu.org/licenses/gpl.txt>
 * @license CECILL v2 <http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt>
 *
 * pattern: /service:eflore:0.1/coste/textes/bdtfx.nn:182,631
 * params: txt.format=(htm|txt) ,  retour.champs=(titre,texte,...) , retour.format=(min|max), ...
 *
 * Ce webservice est censé pouvoir:
 * 1) retourner des informations (choisies) à propos d'un ou plusieurs taxon(s) donné(s)
 *	  (à partir de son numéro nomenclatural
 * 2) retourner des informations (choisies) à propos de taxons recherchés
 *	  (à partir de divers critères)
 *
 * TODO: masque.titre => masque.tag
 * TODO: clarifier l'attribut "tag" retourné (tag de la description ou des clefs de détermination)
 *
 */
 
// affecte le nombre d'ids autorisés dans le dernier segment d'URL
// *et* la valeur maximale autorisée pour navigation.limite.
define('_COSTE_TEXTE_MAX_RESULT_LIMIT', 500);
 
// simplifie et accélère la sanitization de l'input:
// SELECT MAX(num_nom) FROM coste_v2_00;
define('_COSTE_TEXTE_MAX_COSTE_NN', 7015 + 1000);
// SELECT MAX(num_nom) FROM bdtfx_v1_02;
define('_COSTE_TEXTE_MAX_BDTFX_NN', 103386 + 10000);
 
/*restore_error_handler();
  error_reporting(E_ALL);*/
class Textes {
	// paramètres autorisés
	static $allow_params = array(
		'txt.format', 'retour.format', 'retour.champs',
		'recherche',
		'masque.ns', 'masque.txt', 'masque.page', 'masque.tome', 'masque.famille',
		'masque.titre', // masque sur titre de la page wiki correspondante (page "clef" OR page "description")
		'navigation.depart', 'navigation.limite');
	// et valeurs par défaut
	static $default_params = array('txt.format' => 'txt', 'retour.format' => 'max', 'recherche' => 'stricte',
								   'retour.champs' => 'titre,texte,determination,tag',
								   'navigation.depart' => 0, 'navigation.limite' => 50);
 
	// les champs de base de coste_v2_00
	// mysql -N tb_eflore<<<"SHOW FIELDS FROM coste_v2_00"|egrep -v 'page_'|awk '{print $1}'|xargs -i -n1 printf "'%s' => 'c.%s',\n" {} {}
	static $allow_champs = array(
		'coste:nn' => 'c.num_nom',
		'bdtfx:nn' => 'IF(c.flore_bdtfx_nn = "",NULL,c.flore_bdtfx_nn)',
		'bdtfx:nt' => 'c.flore_bdtfx_nt',
		'num_nom' => 'c.num_nom',
		'num_nom_retenu' => 'c.num_nom_retenu',
		'num_tax_sup' => 'c.num_tax_sup',
		'rang' => 'c.rang',
		'nom_sci' => 'c.nom_sci',
		'nom_supra_generique' => 'c.nom_supra_generique',
		'genre' => 'c.genre',
		'epithete_infra_generique' => 'c.epithete_infra_generique',
		'epithete_sp' => 'c.epithete_sp',
		'type_epithete' => 'c.type_epithete',
		'epithete_infra_sp' => 'c.epithete_infra_sp',
		'cultivar_groupe' => 'c.cultivar_groupe',
		'cultivar' => 'c.cultivar',
		'nom_commercial' => 'c.nom_commercial',
		'auteur' => 'c.auteur',
		'annee' => 'c.annee',
		'biblio_origine' => 'c.biblio_origine',
		'notes' => 'c.notes',
		'nom_addendum' => 'c.nom_addendum',
		'nom_francais' => 'c.nom_francais',
		'nom_coste' => 'c.nom_coste',
		'auteur_coste' => 'c.auteur_coste',
		'biblio_coste' => 'c.biblio_coste',
		'num_nom_coste' => 'c.num_nom_coste',
		'num_nom_retenu_coste' => 'c.num_nom_retenu_coste',
		'num_tax_sup_coste' => 'c.num_tax_sup_coste',
		'synonymie_coste' => 'c.synonymie_coste',
		'tome' => 'c.tome',
		'page' => 'c.page',
		'nbre_taxons' => 'c.nbre_taxons',
		'flore_bdtfx_nn' => 'c.flore_bdtfx_nn',
		'flore_bdtfx_nt' => 'c.flore_bdtfx_nt',
		'image' => 'c.image',
		'image_auteur' => 'c.image_auteur',
		'nom_sci_html' => 'c.nom_sci_html',
 
		// handly duplicate (redirigé vers nom_sci ou nom_sci_html selon que txt.format vaut "txt" ou "htm"
		'titre' => 'c.nom_sci',
 
		// champs spécifiques (et étrangères)
		'texte' => 'dsc.body',
		'determination' => 'cle.body',
		'tag' => 'dsc.tag',
		'famille' => 'b.famille', // cf sqlAddJoins()
		'*' => 'XXX' // spécial
	);
 
	// les champs suivants disparaissent de la liste utilisée pour former la requête SQL
	// (ils sont exclue lorsque '*' est utilisée, ce sont généralement des synonymes)
	static $special_champs = array('nom_sci_html', 'nom_sci', '*', 'flore_bdtfx_nn', 'flore_bdtfx_nt', 'num_nom');
 
	// ces champs sont toujours dans les résultats (cf sqlSelectFields()
	static $champs_obligatoires = array('coste:nn', 'bdtfx:nn');
 
 
	// le pattern utilisé pour la recherche dite "floue"
	static $soundex_scheme = '(%1$s LIKE %2$s OR SOUNDEX(%1$s) = SOUNDEX(%2$s) OR SOUNDEX(REVERSE(%1$s)) = SOUNDEX(REVERSE(%2$s)))';
 
	// contrainte du point d'entrée d'API webservice Tela lors d'un GET
	public function consulter($ressources, $parametres, $db = NULL) {
		if(!$db) {
			// http_response_code(500);
			throw new Exception('no DB', 500);
		}
 
		// parser la requête et filtrer les paramètres valides
		// en cas d'accès HTTP
		if(array_key_exists('QUERY_STRING', $_SERVER)) {
			self::requestParse($uri, $params);
		}
		// en cas d'accès phpunit
		else {
			$uri = $ressources;
		}
 
		// renvoie du plain/text d'aide (cf fin de programme)
		if(count($uri) == 1 && $uri[0] == 'aide') return self::aide();
 
 
		if(is_null($parametres)) $parametres = Array();
		$params = self::requestFilterParams($parametres);
		// les contraintes liées aux ids (passés comme composants d'URL)
		// sont ajoutées aux params [sans être accepté comme paramètre d'URL]
		$params['_ids'] = self::requestFilterIds($uri);
 
		// XXX: temporaires, passage de $db aux fonctions
		// de toolkits
		$req = self::getCosteInfo($params, $db);
 
		$res = $db->recupererTous($req);
		$err = mysql_error();
		if(!$res && $err) {
			// http_response_code(400);
			// if(defined('DEBUG') && DEBUG) header("X-Debug: $req");
			throw new Exception('not found', 400);
		}
 
		// rapide formatage des résultats:
		$matches = 0;
 
		if($res) {
			// nombre de matches (sans LIMIT) utilisé pour l'en-tête
			$matches = $db->recuperer('SELECT FOUND_ROWS() AS total');
			$matches = intval($matches['total']);
		}
 
		// reformate les résultats pour les indexer par coste:nn
		$res2 = array();
		foreach($res as $v) {
			$res2[$v['coste:nn']] = $v;
		}
 
		// l'appelant s'occupera du json_encode()
		// même si ça démange d'exit'er ici
		header("Content-Type: application/json; charset=utf-8");
		return array('entete' => array('depart' => $params['navigation.depart'],
									   'limite' => $params['navigation.limite'],
									   'total' => count($res2),
									   'match' => $matches),
					 'resultats' => $res2);
 
	}
 
 
	// la fonction centrale: récupère les infos à partir de paramètres
	// et une optionnelle contrainte sur coste:nn ou bdtfx:nn
	static function getCosteInfo(array $params, $db) {
		// contraintes (WHERE):
		$constraints = self::sqlAddConstraint($params, $db);
		// XXX: que faire en l'absence de contrainte ? pour l'instant : "WHERE 1"
 
		// champs:
		$champs_valides_non_formattes = NULL;
		$champs_valides = self::sqlSelectFields($params, $champs_valides_non_formattes);
 
		// joins:
		$other_join = self::sqlAddJoins($params, $champs_valides_non_formattes);
 
		$req = sprintf(<<<EOF
SELECT SQL_CALC_FOUND_ROWS  %s
FROM tb_eflore.coste_v2_00 c
LEFT JOIN tela_prod_wikini.florecoste_pages dsc ON c.page_wiki_dsc = dsc.tag AND dsc.latest = 'Y'
LEFT JOIN tela_prod_wikini.florecoste_pages cle ON c.page_wiki_cle = cle.tag AND cle.latest = 'Y'
%s
WHERE %s ORDER BY c.num_nom LIMIT %u, %u -- %s
EOF
					   ,
					   $champs_valides, // dans le SELECT (parmi champs coste_v2_00)
					   // autre join, si nécessaire
					   $other_join ? $other_join : '',
					   // where
					   $constraints ? implode(' AND ', $constraints) : '1',
 
					   // limit
					   $params['navigation.depart'],
					   $params['navigation.limite'],
					   __FILE__ . ':' . __LINE__);
		
		return $req;
	}
 
 
 
 
	// SQL helpers
	// le préfix de coste_v2_00 est "c"
	// le préfix de florecoste_pages sur la description est est "dsc"
	// le préfix de florecoste_pages sur la clef de détermination est est "cle"
	static function sqlAddConstraint($params, $db) {
		$stack = array();
		if(!empty($params['masque.ns'])) {
			if($params['recherche'] == 'etendue')
				$stack[] = 'c.nom_sci LIKE ' . $db->proteger('%' . trim($params['masque.ns']) . '%');
			elseif($params['recherche'] == 'floue')
				$stack[] = sprintf(self::$soundex_scheme,
								   'c.nom_sci',
								   $db->proteger('%' . trim($params['masque.ns']) . '%'));
			else
				$stack[] = 'c.nom_sci = ' . $db->proteger(trim($params['masque.ns']));
		}
 
		// le masque sur texte est toujours un LIKE() "étendue", sauf si "floue" spécifié
		if(!empty($params['masque.txt'])) {
			if($params['recherche'] == 'floue') {
				$stack[] = sprintf(self::$soundex_scheme,
								   'dsc.body',
								   $db->proteger('%' . trim($params['masque.txt']) . '%'));
			}
			else {
				$stack[] = 'dsc.body LIKE ' . $db->proteger('%' . trim($params['masque.txt']) . '%');
			}
		}
 
		if(!empty($params['masque.titre'])) {
			if($params['recherche'] == 'stricte') {
				$stack[] = sprintf('(dsc.tag = %1$s OR cle.tag = %1$s)',
								   $db->proteger(trim($params['masque.titre'])));
			}
			else {
				$stack[] = sprintf('(dsc.tag LIKE %1$s OR cle.tag LIKE %1$s)',
								   $db->proteger('%' .  trim($params['masque.titre']) . '%'));
			}
		}
 
		if(array_key_exists('masque.famille', $params)) {
			$stack[] = 'b.famille LIKE ' . $db->proteger(trim($params['masque.famille']));
		}
 
		if(array_key_exists('masque.page', $params)) {
			$stack[] = 'c.page = ' . intval($params['masque.page']);
		}
 
		if(array_key_exists('masque.tome', $params)) {
			$stack[] = 'c.tome = ' . intval($params['masque.tome']);
		}
 
		// ajout de la contrainte sur coste:nn ou bdtfx:nn si un composant d'URL supplémentaire
		// comportant un #id existe, cf self::requestFilterIds()
		$o_stack = array();
		if(array_key_exists('_ids', $params) && $params['_ids']) {
			if($params['_ids']['coste']) {
				$o_stack[] = sprintf("c.num_nom IN (%s)", implode(',', $params['_ids']['coste']));
			}
			if($params['_ids']['bdtfx']) {
				$o_stack[] = sprintf("c.flore_bdtfx_nn IN (%s)", implode(',', $params['_ids']['bdtfx']));
			}
		}
		if($o_stack) $stack[] = '(' . implode(' OR ', $o_stack) . ')';
 
		return $stack;
	}
 
 
	// $unmerged contient la même liste de champs que celle renvoyée
	// à la différence que celle-ci n'est pas reformatée et s'avère donc
	// utilisable plus aisément dans sqlAddJoins() qui peut en avoir besoin
	static function sqlSelectFields($params, &$unmerged) {
		$champs = $params['retour.champs'];
		// champs coste_v2_00
		$c = self::addSQLToFieldSynonym(explode(',', $champs));
		if(isset($c['*'])) {
			$t = array_diff_key(self::$allow_champs, array_flip(self::$special_champs));
		}
		else {
			// just loop below
			$t = $c;
		}
 
		// si aucun des champs fournis n'est valide
		// on se rappelle nous-même après avoir réinitialisé retour.champs
		// avec les champs par défaut
		if(!$t) {
			$params['retour.champs'] = self::$default_params['retour.champs'];
			return self::sqlSelectFields($params);
		}
 
		if(array_key_exists('titre', $t))
			$t['titre'] = $params['txt.format'] == 'txt' ? 'c.nom_sci' : 'c.nom_sci_html';
 
		// champs obligatoires:
		$t = array_merge($t, self::addSQLToFieldSynonym(self::$champs_obligatoires));
		$unmerged = $t;
 
		// XXX: PHP-5.3
		$ret = array();
		foreach($t as $k => $v) {
			if(strpos($k, ':') !== FALSE) {
				$ret[] = "$v AS \"$k\"";
			} else {
				$ret[] = "$v AS $k";
			}
		}
		return implode(',',$ret);
	}
 
	static function sqlAddJoins($params, $champs) {
		$j = '';
		// ces tests doivent correspondre aux champs générés par sqlSelectFields()
		// ou contraintes générées par sqlAddConstraint()
		if(array_key_exists('masque.famille', $params) ||
		   array_key_exists('famille', $champs)) {
			$j .= 'LEFT JOIN tb_eflore.bdtfx_v1_02 b ON c.flore_bdtfx_nn = b.num_nom';
		}
 
		return $j;
	}
 
	// d'un tableau de type array("coste:nn", "type_epithete")
	// retourne
	// un tableau de type array("coste:nn" => "c.num_nom", "type_epithete" => "c.type_epithete")
	// basé sur self::$allow_champs
	static function addSQLToFieldSynonym(Array $syno) {
		return array_intersect_key(self::$allow_champs, array_flip($syno));
	}
 
	// request handler
	static function requestParse(&$ressource, &$params) {
		$uri = explode('/', $_SERVER['REDIRECT_URL']);
		if(!empty($_SERVER['QUERY_STRING']))
			parse_str($_SERVER['REDIRECT_QUERY_STRING'], $params);
		$ressource = array_slice($uri, array_search('textes', $uri) + 1, 3);
	}
 
	// supprime l'index du tableau des paramètres si sa valeur ne correspond pas
	// au spectre passé par $values.
	static function unsetIfInvalid(&$var, $index, $values) {
		if(array_key_exists($index, $var) && !in_array($var[$index], $values))
			unset($var[$index]);
	}
 
	static function requestFilterParams(Array $params) {
		$p = array_intersect_key($params, array_flip(self::$allow_params));
		self::unsetIfInvalid($p, 'txt.format', array('txt', 'htm'));
		self::unsetIfInvalid($p, 'retour.format', array('min','max'));
		self::unsetIfInvalid($p, 'recherche', array('stricte','etendue','floue'));
 
		if(isset($params['masque.ns'])) $p['masque.ns'] = trim($params['masque.ns']);
		if(isset($params['masque.texte'])) $p['masque.texte'] = trim($params['masque.texte']);
 
		if(isset($params['masque.famille'])) {
			// mysql -N<<<"SELECT DISTINCT famille FROM bdtfx_v1_02;"|sed -r "s/(.)/\1\n/g"|sort -u|tr -d "\n"
			$p['masque.famille'] = preg_replace('/[^a-zA-Z %_]/', '', iconv("UTF-8",
																			"ASCII//TRANSLIT",
																			$params['masque.famille']));
		}
 
		// TODO: use filter_input(INPUT_GET);
		// renvoie FALSE ou NULL si absent ou invalide
		$p['navigation.limite'] = filter_var(@$params['navigation.limite'],
												  FILTER_VALIDATE_INT,
												  array('options' => array('default' => NULL,
																		   'min_range' => 1,
																		   'max_range' => _COSTE_TEXTE_MAX_RESULT_LIMIT)));
		$p['navigation.depart'] = filter_var(@$params['navigation.depart'],
												  FILTER_VALIDATE_INT,
												  array('options' => array('default' => NULL,
																		   'min_range' => 0,
																		   'max_range' => _COSTE_TEXTE_MAX_COSTE_NN)));
 
		// on filtre les NULL, FALSE et '', mais pas les 0, d'où le callback()
		// TODO: PHP-5.3
		$p = array_filter($p, create_function('$a','return !in_array($a, array("",false,null),true);'));
		$p = array_merge(self::$default_params, $p);
 
		return $p;
	}
 
	static function requestFilterIds($uri) {
		if(count($uri) != 1) return NULL;
 
		// getNN* renvoient le num_nom passé comme segment d'URI:
		// - soit un id selon coste (num_nom dans coste_v2_00)
		// - soit un id selon bdtfx (num_nom dans bdtfx_v1_02)
		// ou bien l'extrait du pattern bdtfx.nn:(#id)
		$ids_coste = array_filter(array_map(array(__CLASS__, 'getNNCoste'), explode(',', $uri[0])));
		$ids_bdtfx = array_filter(array_map(array(__CLASS__, 'getNNBdtfx'), explode(',', $uri[0])));
 
		// en cas d'échec (tous les id sont invalides), bail-out
		if(!$ids_bdtfx && !$ids_coste) {
			// http_response_code(500);
			throw new Exception('not supported', 500);
		}
 
		return array(
			'coste' => array_slice($ids_coste, 0, intval(_COSTE_TEXTE_MAX_RESULT_LIMIT/2) ),
			'bdtfx' => array_slice($ids_bdtfx, 0, intval(_COSTE_TEXTE_MAX_RESULT_LIMIT/2) )
		);
	}
 
	static function aide() {
		header("Content-Type: text/plain; charset=utf-8");
		return sprintf("
Service coste/textes:
Retourne des informations (choisies) à propos d'un taxon donné (à partir de son numéro nomenclatural
Retourne des informations (choisies) à propos de taxons recherchés (à partir de divers critères)
 
Les résultats sont indexés. La clef par défaut est le num_nom d'après coste (attribut \"coste:nn\")
Usage:
			coste/textes/<liste-num_nom>?<params>
* <liste-num_nom> étant une liste de numéros nomenclaturaux de taxons séparés par des virgules au format:
 - <#id>: un numéro nomenclatural dans la base coste
 - <bdtfx.nn:#id>: un numéro nomenclatural dans la base bdtfx
* retour.champs une liste de champs séparés par des virgules parmi *,%s
* les paramètres acceptés sont les suivants: %s
* les champs retournés par défaut sont les suivants: %s
* le paramètre \"recherche\" affecte les masques \"ns\" et \"texte\"
* le paramètre \"famille\" est traité via LIKE et accepte les caractères '_' et '%'
* le paramètre \"retour.format\" est inutilisé pour l'instant",
					   implode(',', array_keys(self::$allow_champs)),
					   implode(',', self::$allow_params),
					   self::$default_params['retour.champs']
		);
	}
 
	static function getNNCoste($refnn) {
		if(is_numeric($refnn)) {
			$t = intval($refnn);
 
			if($t >= 1 && $t < _COSTE_TEXTE_MAX_COSTE_NN) return $t;
		}
		return FALSE;
	}
 
	static function getNNBdtfx($refnn) {
		if(strpos($refnn, 'bdtfx.nn:') !== 0) return FALSE;
		$t = intval(str_replace('bdtfx.nn:', '', $refnn));
		if($t >= 1 && $t < _COSTE_TEXTE_MAX_BDTFX_NN) return $t;
		return FALSE;
	}
}

Rev 859	Rev 861
1	`<?php`	1	`<?php`
2	`/*`	2	`/*`
3	`* @copyright 2013 Tela Botanica (accueil@tela-botanica.org)`	3	`* @copyright 2013 Tela Botanica (accueil@tela-botanica.org)`
4	`* @author Raphaël Droz <raphael@tela-botanica.org>`	4	`* @author Raphaël Droz <raphael@tela-botanica.org>`
5	`* @license GPL v3 <http://www.gnu.org/licenses/gpl.txt>`	5	`* @license GPL v3 <http://www.gnu.org/licenses/gpl.txt>`
6	`* @license CECILL v2 <http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt>`	6	`* @license CECILL v2 <http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt>`
7	`*`	7	`*`
8	`* pattern: /service:eflore:0.1/coste/textes/bdtfx.nn:182,631`	8	`* pattern: /service:eflore:0.1/coste/textes/bdtfx.nn:182,631`
9	`* params: txt.format=(htm\|txt) , retour.champs=(titre,texte,...) , retour.format=(min\|max), ...`	9	`* params: txt.format=(htm\|txt) , retour.champs=(titre,texte,...) , retour.format=(min\|max), ...`
10	`*`	10	`*`
11	`* Ce webservice est censé pouvoir:`	11	`* Ce webservice est censé pouvoir:`
12	`* 1) retourner des informations (choisies) à propos d'un ou plusieurs taxon(s) donné(s)`	12	`* 1) retourner des informations (choisies) à propos d'un ou plusieurs taxon(s) donné(s)`
13	`* (à partir de son numéro nomenclatural`	13	`* (à partir de son numéro nomenclatural`
14	`* 2) retourner des informations (choisies) à propos de taxons recherchés`	14	`* 2) retourner des informations (choisies) à propos de taxons recherchés`
15	`* (à partir de divers critères)`	15	`* (à partir de divers critères)`
16	`*`	16	`*`
17	`* TODO: masque.titre => masque.tag`	17	`* TODO: masque.titre => masque.tag`
18	`* TODO: clarifier l'attribut "tag" retourné (tag de la description ou des clefs de détermination)`	18	`* TODO: clarifier l'attribut "tag" retourné (tag de la description ou des clefs de détermination)`
19	`*`	19	`*`
20	`*/`	20	`*/`
21		21
22	`// affecte le nombre d'ids autorisés dans le dernier segment d'URL`	22	`// affecte le nombre d'ids autorisés dans le dernier segment d'URL`
23	`// et la valeur maximale autorisée pour navigation.limite.`	23	`// et la valeur maximale autorisée pour navigation.limite.`
24	`define('_COSTE_TEXTE_MAX_RESULT_LIMIT', 500);`	24	`define('_COSTE_TEXTE_MAX_RESULT_LIMIT', 500);`
25		25
26	`// simplifie et accélère la sanitization de l'input:`	26	`// simplifie et accélère la sanitization de l'input:`
27	`// SELECT MAX(num_nom) FROM coste_v2_00;`	27	`// SELECT MAX(num_nom) FROM coste_v2_00;`
28	`define('_COSTE_TEXTE_MAX_NUM_NOM', 7015 + 1000);`	28	`define('_COSTE_TEXTE_MAX_COSTE_NN', 7015 + 1000);`
-		29	`// SELECT MAX(num_nom) FROM bdtfx_v1_02;`
-		30	`define('_COSTE_TEXTE_MAX_BDTFX_NN', 103386 + 10000);`
29		31
30	`/*restore_error_handler();`	32	`/*restore_error_handler();`
31	`error_reporting(E_ALL);*/`	33	`error_reporting(E_ALL);*/`
32	`class Textes {`	34	`class Textes {`
33	`// paramètres autorisés`	35	`// paramètres autorisés`
34	`static $allow_params = array(`	36	`static $allow_params = array(`
35	`'txt.format', 'retour.format', 'retour.champs',`	37	`'txt.format', 'retour.format', 'retour.champs',`
36	`'recherche',`	38	`'recherche',`
37	`'masque.ns', 'masque.txt', 'masque.page', 'masque.tome', 'masque.famille',`	39	`'masque.ns', 'masque.txt', 'masque.page', 'masque.tome', 'masque.famille',`
38	`'masque.titre', // masque sur titre de la page wiki correspondante (page "clef" OR page "description")`	40	`'masque.titre', // masque sur titre de la page wiki correspondante (page "clef" OR page "description")`
39	`'navigation.depart', 'navigation.limite');`	41	`'navigation.depart', 'navigation.limite');`
40	`// et valeurs par défaut`	42	`// et valeurs par défaut`
41	`static $default_params = array('txt.format' => 'txt', 'retour.format' => 'max', 'recherche' => 'stricte',`	43	`static $default_params = array('txt.format' => 'txt', 'retour.format' => 'max', 'recherche' => 'stricte',`
42	`'retour.champs' => 'titre,texte,determination,tag',`	44	`'retour.champs' => 'titre,texte,determination,tag',`
43	`'navigation.depart' => 0, 'navigation.limite' => 50);`	45	`'navigation.depart' => 0, 'navigation.limite' => 50);`
44		46
45	`// les champs de base de coste_v2_00`	47	`// les champs de base de coste_v2_00`
46	`// mysql -N tb_eflore<<<"SHOW FIELDS FROM coste_v2_00"\|egrep -v 'page_'\|awk '{print $1}'\|xargs -i -n1 printf "'%s' => 'c.%s',\n" {} {}`	48	`// mysql -N tb_eflore<<<"SHOW FIELDS FROM coste_v2_00"\|egrep -v 'page_'\|awk '{print $1}'\|xargs -i -n1 printf "'%s' => 'c.%s',\n" {} {}`
47	`static $allow_champs = array(`	49	`static $allow_champs = array(`
-		50	`'coste:nn' => 'c.num_nom',`
-		51	`'bdtfx:nn' => 'IF(c.flore_bdtfx_nn = "",NULL,c.flore_bdtfx_nn)',`
-		52	`'bdtfx:nt' => 'c.flore_bdtfx_nt',`
48	`'num_nom' => 'c.num_nom',`	53	`'num_nom' => 'c.num_nom',`
49	`'num_nom_retenu' => 'c.num_nom_retenu',`	54	`'num_nom_retenu' => 'c.num_nom_retenu',`
50	`'num_tax_sup' => 'c.num_tax_sup',`	55	`'num_tax_sup' => 'c.num_tax_sup',`
51	`'rang' => 'c.rang',`	56	`'rang' => 'c.rang',`
52	`'nom_sci' => 'c.nom_sci',`	57	`'nom_sci' => 'c.nom_sci',`
53	`'nom_supra_generique' => 'c.nom_supra_generique',`	58	`'nom_supra_generique' => 'c.nom_supra_generique',`
54	`'genre' => 'c.genre',`	59	`'genre' => 'c.genre',`
55	`'epithete_infra_generique' => 'c.epithete_infra_generique',`	60	`'epithete_infra_generique' => 'c.epithete_infra_generique',`
56	`'epithete_sp' => 'c.epithete_sp',`	61	`'epithete_sp' => 'c.epithete_sp',`
57	`'type_epithete' => 'c.type_epithete',`	62	`'type_epithete' => 'c.type_epithete',`
58	`'epithete_infra_sp' => 'c.epithete_infra_sp',`	63	`'epithete_infra_sp' => 'c.epithete_infra_sp',`
59	`'cultivar_groupe' => 'c.cultivar_groupe',`	64	`'cultivar_groupe' => 'c.cultivar_groupe',`
60	`'cultivar' => 'c.cultivar',`	65	`'cultivar' => 'c.cultivar',`
61	`'nom_commercial' => 'c.nom_commercial',`	66	`'nom_commercial' => 'c.nom_commercial',`
62	`'auteur' => 'c.auteur',`	67	`'auteur' => 'c.auteur',`
63	`'annee' => 'c.annee',`	68	`'annee' => 'c.annee',`
64	`'biblio_origine' => 'c.biblio_origine',`	69	`'biblio_origine' => 'c.biblio_origine',`
65	`'notes' => 'c.notes',`	70	`'notes' => 'c.notes',`
66	`'nom_addendum' => 'c.nom_addendum',`	71	`'nom_addendum' => 'c.nom_addendum',`
67	`'nom_francais' => 'c.nom_francais',`	72	`'nom_francais' => 'c.nom_francais',`
68	`'nom_coste' => 'c.nom_coste',`	73	`'nom_coste' => 'c.nom_coste',`
69	`'auteur_coste' => 'c.auteur_coste',`	74	`'auteur_coste' => 'c.auteur_coste',`
70	`'biblio_coste' => 'c.biblio_coste',`	75	`'biblio_coste' => 'c.biblio_coste',`
71	`'num_nom_coste' => 'c.num_nom_coste',`	76	`'num_nom_coste' => 'c.num_nom_coste',`
72	`'num_nom_retenu_coste' => 'c.num_nom_retenu_coste',`	77	`'num_nom_retenu_coste' => 'c.num_nom_retenu_coste',`
73	`'num_tax_sup_coste' => 'c.num_tax_sup_coste',`	78	`'num_tax_sup_coste' => 'c.num_tax_sup_coste',`
74	`'synonymie_coste' => 'c.synonymie_coste',`	79	`'synonymie_coste' => 'c.synonymie_coste',`
75	`'tome' => 'c.tome',`	80	`'tome' => 'c.tome',`
76	`'page' => 'c.page',`	81	`'page' => 'c.page',`
77	`'nbre_taxons' => 'c.nbre_taxons',`	82	`'nbre_taxons' => 'c.nbre_taxons',`
78	`'flore_bdtfx_nn' => 'c.flore_bdtfx_nn',`	83	`'flore_bdtfx_nn' => 'c.flore_bdtfx_nn',`
79	`'flore_bdtfx_nt' => 'c.flore_bdtfx_nt',`	84	`'flore_bdtfx_nt' => 'c.flore_bdtfx_nt',`
80	`'image' => 'c.image',`	85	`'image' => 'c.image',`
81	`'image_auteur' => 'c.image_auteur',`	86	`'image_auteur' => 'c.image_auteur',`
82	`'nom_sci_html' => 'c.nom_sci_html',`	87	`'nom_sci_html' => 'c.nom_sci_html',`
83		88
84	`// handly duplicate (redirigé vers nom_sci ou nom_sci_html selon que txt.format vaut "txt" ou "htm"`	89	`// handly duplicate (redirigé vers nom_sci ou nom_sci_html selon que txt.format vaut "txt" ou "htm"`
85	`'titre' => 'c.nom_sci',`	90	`'titre' => 'c.nom_sci',`
86		91
87	`// champs spécifiques (et étrangères)`	92	`// champs spécifiques (et étrangères)`
88	`'texte' => 'dsc.body',`	93	`'texte' => 'dsc.body',`
89	`'determination' => 'cle.body',`	94	`'determination' => 'cle.body',`
90	`'tag' => 'dsc.tag',`	95	`'tag' => 'dsc.tag',`
91	`'famille' => 'b.famille', // cf sqlAddJoins()`	96	`'famille' => 'b.famille', // cf sqlAddJoins()`
92	`'*' => 'XXX' // spécial`	97	`'*' => 'XXX' // spécial`
93	`);`	98	`);`
94		99
95	`// les champs suivants disparaissent de la liste utilisée pour former la requête SQL`	100	`// les champs suivants disparaissent de la liste utilisée pour former la requête SQL`
-		101	`// (ils sont exclue lorsque '*' est utilisée, ce sont généralement des synonymes)`
96	`static $special_champs = array('nom_sci_html', 'nom_sci', '*');`	102	`static $special_champs = array('nom_sci_html', 'nom_sci', '*', 'flore_bdtfx_nn', 'flore_bdtfx_nt', 'num_nom');`
-		103
-		104	`// ces champs sont toujours dans les résultats (cf sqlSelectFields()`
-		105	`static $champs_obligatoires = array('coste:nn', 'bdtfx:nn');`
-		106
-		107
97	`// le pattern utilisé pour la recherche dite "floue"`	108	`// le pattern utilisé pour la recherche dite "floue"`
98	`static $soundex_scheme = '(%1$s LIKE %2$s OR SOUNDEX(%1$s) = SOUNDEX(%2$s) OR SOUNDEX(REVERSE(%1$s)) = SOUNDEX(REVERSE(%2$s)))';`	109	`static $soundex_scheme = '(%1$s LIKE %2$s OR SOUNDEX(%1$s) = SOUNDEX(%2$s) OR SOUNDEX(REVERSE(%1$s)) = SOUNDEX(REVERSE(%2$s)))';`
99		110
100	`// contrainte du point d'entrée d'API webservice Tela lors d'un GET`	111	`// contrainte du point d'entrée d'API webservice Tela lors d'un GET`
101	`public function consulter($ressources, $parametres, $db = NULL) {`	112	`public function consulter($ressources, $parametres, $db = NULL) {`
102	`if(!$db) {`	113	`if(!$db) {`
103	`// http_response_code(500);`	114	`// http_response_code(500);`
104	`throw new Exception('no DB', 500);`	115	`throw new Exception('no DB', 500);`
105	`}`	116	`}`
106		117
107	`// parser la requête et filtrer les paramètres valides`	118	`// parser la requête et filtrer les paramètres valides`
108	`// en cas d'accès HTTP`	119	`// en cas d'accès HTTP`
109	`if(array_key_exists('QUERY_STRING', $_SERVER)) {`	120	`if(array_key_exists('QUERY_STRING', $_SERVER)) {`
110	`self::requestParse($uri, $params);`	121	`self::requestParse($uri, $params);`
111	`}`	122	`}`
112	`// en cas d'accès phpunit`	123	`// en cas d'accès phpunit`
113	`else {`	124	`else {`
114	`$uri = $ressources;`	125	`$uri = $ressources;`
115	`}`	126	`}`
116		127
117	`// renvoie du plain/text d'aide (cf fin de programme)`	128	`// renvoie du plain/text d'aide (cf fin de programme)`
118	`if(count($uri) == 1 && $uri[0] == 'aide') return self::aide();`	129	`if(count($uri) == 1 && $uri[0] == 'aide') return self::aide();`
119		130
120		131
121	`if(is_null($parametres)) $parametres = Array();`	132	`if(is_null($parametres)) $parametres = Array();`
122	`$params = self::requestFilterParams($parametres);`	133	`$params = self::requestFilterParams($parametres);`
123	`// les contraintes liées aux ids (passés comme composants d'URL)`	134	`// les contraintes liées aux ids (passés comme composants d'URL)`
124	`// sont ajoutées aux params [sans être accepté comme paramètre d'URL]`	135	`// sont ajoutées aux params [sans être accepté comme paramètre d'URL]`
125	`$params['_ids'] = self::requestFilterIds($uri);`	136	`$params['_ids'] = self::requestFilterIds($uri);`
126		137
127	`// XXX: temporaires, passage de $db aux fonctions`	138	`// XXX: temporaires, passage de $db aux fonctions`
128	`// de toolkits`	139	`// de toolkits`
129	`$req = self::getCosteInfo($params, $db);`	140	`$req = self::getCosteInfo($params, $db);`
130		141
131	`$res = $db->recupererTous($req);`	142	`$res = $db->recupererTous($req);`
132	`$err = mysql_error();`	143	`$err = mysql_error();`
133	`if(!$res && $err) {`	144	`if(!$res && $err) {`
134	`// http_response_code(400);`	145	`// http_response_code(400);`
135	`// if(defined('DEBUG') && DEBUG) header("X-Debug: $req");`	146	`// if(defined('DEBUG') && DEBUG) header("X-Debug: $req");`
136	`throw new Exception('not found', 400);`	147	`throw new Exception('not found', 400);`
137	`}`	148	`}`
138		149
139	`// rapide formatage des résultats:`	150	`// rapide formatage des résultats:`
140	`$matches = 0;`	151	`$matches = 0;`
141		152
142	`if($res) {`	153	`if($res) {`
143	`// nombre de matches (sans LIMIT) utilisé pour l'en-tête`	154	`// nombre de matches (sans LIMIT) utilisé pour l'en-tête`
144	`$matches = $db->recuperer('SELECT FOUND_ROWS() AS total');`	155	`$matches = $db->recuperer('SELECT FOUND_ROWS() AS total');`
145	`$matches = intval($matches['total']);`	156	`$matches = intval($matches['total']);`
146	`}`	157	`}`
147		158
148	`// reformate les résultats pour les indexer par num_nom`	159	`// reformate les résultats pour les indexer par coste:nn`
149	`$res2 = array();`	160	`$res2 = array();`
150	`foreach($res as $v) {`	161	`foreach($res as $v) {`
151	`$res2[$v['num_nom']] = $v;`	162	`$res2[$v['coste:nn']] = $v;`
152	`}`	163	`}`
153		164
154	`// l'appelant s'occupera du json_encode()`	165	`// l'appelant s'occupera du json_encode()`
155	`// même si ça démange d'exit'er ici`	166	`// même si ça démange d'exit'er ici`
156	`header("Content-Type: application/json; charset=utf-8");`	167	`header("Content-Type: application/json; charset=utf-8");`
157	`return array('entete' => array('depart' => $params['navigation.depart'],`	168	`return array('entete' => array('depart' => $params['navigation.depart'],`
158	`'limite' => $params['navigation.limite'],`	169	`'limite' => $params['navigation.limite'],`
159	`'total' => count($res2),`	170	`'total' => count($res2),`
160	`'match' => $matches),`	171	`'match' => $matches),`
161	`'resultats' => $res2);`	172	`'resultats' => $res2);`
162		173
163	`}`	174	`}`
164		175
165		176
166	`// la fonction central: récupère les infos à partir de paramètres`	177	`// la fonction centrale: récupère les infos à partir de paramètres`
167	`// et une optionnel contrainte de num_nom`	178	`// et une optionnelle contrainte sur coste:nn ou bdtfx:nn`
168	`static function getCosteInfo(array $params, $db) {`	179	`static function getCosteInfo(array $params, $db) {`
169	`// contraintes (WHERE):`	180	`// contraintes (WHERE):`
170	`$constraints = self::sqlAddConstraint($params, $db);`	181	`$constraints = self::sqlAddConstraint($params, $db);`
171	`// XXX: que faire en l'absence de contrainte ? pour l'instant : "WHERE 1"`	182	`// XXX: que faire en l'absence de contrainte ? pour l'instant : "WHERE 1"`
172		183
173	`// champs:`	184	`// champs:`
174	`$champs_valides_non_formattes = NULL;`	185	`$champs_valides_non_formattes = NULL;`
175	`$champs_valides = self::sqlSelectFields($params, $champs_valides_non_formattes);`	186	`$champs_valides = self::sqlSelectFields($params, $champs_valides_non_formattes);`
176		187
177	`// joins:`	188	`// joins:`
178	`$other_join = self::sqlAddJoins($params, $champs_valides_non_formattes);`	189	`$other_join = self::sqlAddJoins($params, $champs_valides_non_formattes);`
179		-
180	`$req = sprintf(<<<EOF`	190	`$req = sprintf(<<<EOF`
181	`SELECT SQL_CALC_FOUND_ROWS c.num_nom, %s`	191	`SELECT SQL_CALC_FOUND_ROWS %s`
182	`FROM tb_eflore.coste_v2_00 c`	192	`FROM tb_eflore.coste_v2_00 c`
183	`LEFT JOIN tela_prod_wikini.florecoste_pages dsc ON c.page_wiki_dsc = dsc.tag AND dsc.latest = 'Y'`	193	`LEFT JOIN tela_prod_wikini.florecoste_pages dsc ON c.page_wiki_dsc = dsc.tag AND dsc.latest = 'Y'`
184	`LEFT JOIN tela_prod_wikini.florecoste_pages cle ON c.page_wiki_cle = cle.tag AND cle.latest = 'Y'`	194	`LEFT JOIN tela_prod_wikini.florecoste_pages cle ON c.page_wiki_cle = cle.tag AND cle.latest = 'Y'`
185	`%s`	195	`%s`
186	`WHERE %s ORDER BY c.num_nom LIMIT %u, %u -- %s`	196	`WHERE %s ORDER BY c.num_nom LIMIT %u, %u -- %s`
187	`EOF`	197	`EOF`
188	`,`	198	`,`
189	`$champs_valides, // dans le SELECT (parmi champs coste_v2_00)`	199	`$champs_valides, // dans le SELECT (parmi champs coste_v2_00)`
190	`// autre join, si nécessaire`	200	`// autre join, si nécessaire`
191	`$other_join ? $other_join : '',`	201	`$other_join ? $other_join : '',`
192	`// where`	202	`// where`
193	`$constraints ? implode(' AND ', $constraints) : '1',`	203	`$constraints ? implode(' AND ', $constraints) : '1',`
194		204
195	`// limit`	205	`// limit`
196	`$params['navigation.depart'],`	206	`$params['navigation.depart'],`
197	`$params['navigation.limite'],`	207	`$params['navigation.limite'],`
198	`__FILE__ . ':' . __LINE__);`	208	`__FILE__ . ':' . __LINE__);`
199		209
200	`return $req;`	210	`return $req;`
201	`}`	211	`}`
202		212
203		213
204		214
205		215
206	`// SQL helpers`	216	`// SQL helpers`
207	`// le préfix de coste_v2_00 est "c"`	217	`// le préfix de coste_v2_00 est "c"`
208	`// le préfix de florecoste_pages sur la description est est "dsc"`	218	`// le préfix de florecoste_pages sur la description est est "dsc"`
209	`// le préfix de florecoste_pages sur la clef de détermination est est "cle"`	219	`// le préfix de florecoste_pages sur la clef de détermination est est "cle"`
210	`static function sqlAddConstraint($params, $db) {`	220	`static function sqlAddConstraint($params, $db) {`
211	`$stack = array();`	221	`$stack = array();`
212	`if(!empty($params['masque.ns'])) {`	222	`if(!empty($params['masque.ns'])) {`
213	`if($params['recherche'] == 'etendue')`	223	`if($params['recherche'] == 'etendue')`
214	`$stack[] = 'c.nom_sci LIKE ' . $db->proteger('%' . trim($params['masque.ns']) . '%');`	224	`$stack[] = 'c.nom_sci LIKE ' . $db->proteger('%' . trim($params['masque.ns']) . '%');`
215	`elseif($params['recherche'] == 'floue')`	225	`elseif($params['recherche'] == 'floue')`
216	`$stack[] = sprintf(self::$soundex_scheme,`	226	`$stack[] = sprintf(self::$soundex_scheme,`
217	`'c.nom_sci',`	227	`'c.nom_sci',`
218	`$db->proteger('%' . trim($params['masque.ns']) . '%'));`	228	`$db->proteger('%' . trim($params['masque.ns']) . '%'));`
219	`else`	229	`else`
220	`$stack[] = 'c.nom_sci = ' . $db->proteger(trim($params['masque.ns']));`	230	`$stack[] = 'c.nom_sci = ' . $db->proteger(trim($params['masque.ns']));`
221	`}`	231	`}`
222		232
223	`// le masque sur texte est toujours un LIKE() "étendue", sauf si "floue" spécifié`	233	`// le masque sur texte est toujours un LIKE() "étendue", sauf si "floue" spécifié`
224	`if(!empty($params['masque.txt'])) {`	234	`if(!empty($params['masque.txt'])) {`
225	`if($params['recherche'] == 'floue') {`	235	`if($params['recherche'] == 'floue') {`
226	`$stack[] = sprintf(self::$soundex_scheme,`	236	`$stack[] = sprintf(self::$soundex_scheme,`
227	`'dsc.body',`	237	`'dsc.body',`
228	`$db->proteger('%' . trim($params['masque.txt']) . '%'));`	238	`$db->proteger('%' . trim($params['masque.txt']) . '%'));`
229	`}`	239	`}`
230	`else {`	240	`else {`
231	`$stack[] = 'dsc.body LIKE ' . $db->proteger('%' . trim($params['masque.txt']) . '%');`	241	`$stack[] = 'dsc.body LIKE ' . $db->proteger('%' . trim($params['masque.txt']) . '%');`
232	`}`	242	`}`
233	`}`	243	`}`
234		244
235	`if(!empty($params['masque.titre'])) {`	245	`if(!empty($params['masque.titre'])) {`
236	`if($params['recherche'] == 'stricte') {`	246	`if($params['recherche'] == 'stricte') {`
237	`$stack[] = sprintf('(dsc.tag = %1$s OR cle.tag = %1$s)',`	247	`$stack[] = sprintf('(dsc.tag = %1$s OR cle.tag = %1$s)',`
238	`$db->proteger(trim($params['masque.titre'])));`	248	`$db->proteger(trim($params['masque.titre'])));`
239	`}`	249	`}`
240	`else {`	250	`else {`
241	`$stack[] = sprintf('(dsc.tag LIKE %1$s OR cle.tag LIKE %1$s)',`	251	`$stack[] = sprintf('(dsc.tag LIKE %1$s OR cle.tag LIKE %1$s)',`
242	`$db->proteger('%' . trim($params['masque.titre']) . '%'));`	252	`$db->proteger('%' . trim($params['masque.titre']) . '%'));`
243	`}`	253	`}`
244	`}`	254	`}`
245		255
246	`if(array_key_exists('masque.famille', $params)) {`	256	`if(array_key_exists('masque.famille', $params)) {`
247	`$stack[] = 'b.famille LIKE ' . $db->proteger(trim($params['masque.famille']));`	257	`$stack[] = 'b.famille LIKE ' . $db->proteger(trim($params['masque.famille']));`
248	`}`	258	`}`
249		259
250	`if(array_key_exists('masque.page', $params)) {`	260	`if(array_key_exists('masque.page', $params)) {`
251	`$stack[] = 'c.page = ' . intval($params['masque.page']);`	261	`$stack[] = 'c.page = ' . intval($params['masque.page']);`
252	`}`	262	`}`
253		263
254	`if(array_key_exists('masque.tome', $params)) {`	264	`if(array_key_exists('masque.tome', $params)) {`
255	`$stack[] = 'c.tome = ' . intval($params['masque.tome']);`	265	`$stack[] = 'c.tome = ' . intval($params['masque.tome']);`
256	`}`	266	`}`
257		267
258	`// ajout de la contrainte sur num_nom si un composant d'URL supplémentaire`	268	`// ajout de la contrainte sur coste:nn ou bdtfx:nn si un composant d'URL supplémentaire`
-		269	`// comportant un #id existe, cf self::requestFilterIds()`
259	`// comportant un #id existe, cf self::requestFilterIds()`	270	`$o_stack = array();`
-		271	`if(array_key_exists('_ids', $params) && $params['_ids']) {`
260	`if(array_key_exists('_ids', $params) && $params['_ids']) {`	272	`if($params['_ids']['coste']) {`
-		273	`$o_stack[] = sprintf("c.num_nom IN (%s)", implode(',', $params['_ids']['coste']));`
-		274	`}`
-		275	`if($params['_ids']['bdtfx']) {`
-		276	`$o_stack[] = sprintf("c.flore_bdtfx_nn IN (%s)", implode(',', $params['_ids']['bdtfx']));`
261	`$stack[] = sprintf("c.num_nom IN (%s)", implode(',', $params['_ids']));`	277	`}`
-		278	`}`
262	`}`	279	`if($o_stack) $stack[] = '(' . implode(' OR ', $o_stack) . ')';`
263		280
264	`return $stack;`	281	`return $stack;`
265	`}`	282	`}`
266		283
267		284
268	`// $unmerged contient la même liste de champs que celle renvoyée`	285	`// $unmerged contient la même liste de champs que celle renvoyée`
269	`// à la différence que celle-ci n'est pas reformatée et s'avère donc`	286	`// à la différence que celle-ci n'est pas reformatée et s'avère donc`
270	`// utilisable plus aisément dans sqlAddJoins() qui peut en avoir besoin`	287	`// utilisable plus aisément dans sqlAddJoins() qui peut en avoir besoin`
271	`static function sqlSelectFields($params, &$unmerged) {`	288	`static function sqlSelectFields($params, &$unmerged) {`
272	`$champs = $params['retour.champs'];`	289	`$champs = $params['retour.champs'];`
273	`// champs coste_v2_00`	290	`// champs coste_v2_00`
274	`$c = array_intersect_key(self::$allow_champs, array_flip(explode(',', $champs)));`	291	`$c = self::addSQLToFieldSynonym(explode(',', $champs));`
275	`if(isset($c['*'])) {`	292	`if(isset($c['*'])) {`
276	`$t = array_diff_key(self::$allow_champs, array_flip(self::$special_champs));`	293	`$t = array_diff_key(self::$allow_champs, array_flip(self::$special_champs));`
277	`}`	294	`}`
278	`else {`	295	`else {`
279	`// just loop below`	296	`// just loop below`
280	`$t = $c;`	297	`$t = $c;`
281	`}`	298	`}`
282		299
283	`// si aucun des champs fournis n'est valide`	300	`// si aucun des champs fournis n'est valide`
284	`// on se rappelle nous-même après avoir réinitialisé retour.champs`	301	`// on se rappelle nous-même après avoir réinitialisé retour.champs`
285	`// avec les champs par défaut`	302	`// avec les champs par défaut`
286	`if(!$t) {`	303	`if(!$t) {`
287	`$params['retour.champs'] = self::$default_params['retour.champs'];`	304	`$params['retour.champs'] = self::$default_params['retour.champs'];`
288	`return self::sqlSelectFields($params);`	305	`return self::sqlSelectFields($params);`
289	`}`	306	`}`
290		307
291	`if(array_key_exists('titre', $t))`	308	`if(array_key_exists('titre', $t))`
292	`$t['titre'] = $params['txt.format'] == 'txt' ? 'c.nom_sci' : 'c.nom_sci_html';`	309	`$t['titre'] = $params['txt.format'] == 'txt' ? 'c.nom_sci' : 'c.nom_sci_html';`
-		310
-		311	`// champs obligatoires:`
293		312	`$t = array_merge($t, self::addSQLToFieldSynonym(self::$champs_obligatoires));`
294	`$unmerged = $t;`	313	`$unmerged = $t;`
295		314
296	`// XXX: PHP-5.3`	315	`// XXX: PHP-5.3`
297	`$ret = array();`	316	`$ret = array();`
298	`foreach($t as $k => $v) {`	317	`foreach($t as $k => $v) {`
-		318	`if(strpos($k, ':') !== FALSE) {`
-		319	`$ret[] = "$v AS \"$k\"";`
-		320	`} else {`
299	`$ret[] = "$v AS $k";`	321	`$ret[] = "$v AS $k";`
-		322	`}`
300	`}`	323	`}`
301	`return implode(',',$ret);`	324	`return implode(',',$ret);`
302	`}`	325	`}`
303		326
304	`static function sqlAddJoins($params, $champs) {`	327	`static function sqlAddJoins($params, $champs) {`
305	`$j = '';`	328	`$j = '';`
306	`// ces tests doivent correspondre aux champs générés par sqlSelectFields()`	329	`// ces tests doivent correspondre aux champs générés par sqlSelectFields()`
307	`// ou contraintes générées par sqlAddConstraint()`	330	`// ou contraintes générées par sqlAddConstraint()`
308	`if(array_key_exists('masque.famille', $params) \|\|`	331	`if(array_key_exists('masque.famille', $params) \|\|`
309	`array_key_exists('famille', $champs)) {`	332	`array_key_exists('famille', $champs)) {`
310	`$j .= 'LEFT JOIN tb_eflore.bdtfx_v1_02 b ON c.num_nom = b.num_nom';`	333	`$j .= 'LEFT JOIN tb_eflore.bdtfx_v1_02 b ON c.flore_bdtfx_nn = b.num_nom';`
311	`}`	334	`}`
312		335
313	`return $j;`	336	`return $j;`
314	`}`	337	`}`
-		338
-		339	`// d'un tableau de type array("coste:nn", "type_epithete")`
-		340	`// retourne`
-		341	`// un tableau de type array("coste:nn" => "c.num_nom", "type_epithete" => "c.type_epithete")`
-		342	`// basé sur self::$allow_champs`
-		343	`static function addSQLToFieldSynonym(Array $syno) {`
-		344	`return array_intersect_key(self::$allow_champs, array_flip($syno));`
-		345	`}`
315		346
316	`// request handler`	347	`// request handler`
317	`static function requestParse(&$ressource, &$params) {`	348	`static function requestParse(&$ressource, &$params) {`
318	`$uri = explode('/', $_SERVER['REDIRECT_URL']);`	349	`$uri = explode('/', $_SERVER['REDIRECT_URL']);`
319	`if(!empty($_SERVER['QUERY_STRING']))`	350	`if(!empty($_SERVER['QUERY_STRING']))`
320	`parse_str($_SERVER['REDIRECT_QUERY_STRING'], $params);`	351	`parse_str($_SERVER['REDIRECT_QUERY_STRING'], $params);`
321	`$ressource = array_slice($uri, array_search('textes', $uri) + 1, 3);`	352	`$ressource = array_slice($uri, array_search('textes', $uri) + 1, 3);`
322	`}`	353	`}`
323		354
324	`// supprime l'index du tableau des paramètres si sa valeur ne correspond pas`	355	`// supprime l'index du tableau des paramètres si sa valeur ne correspond pas`
325	`// au spectre passé par $values.`	356	`// au spectre passé par $values.`
326	`static function unsetIfInvalid(&$var, $index, $values) {`	357	`static function unsetIfInvalid(&$var, $index, $values) {`
327	`if(array_key_exists($index, $var) && !in_array($var[$index], $values))`	358	`if(array_key_exists($index, $var) && !in_array($var[$index], $values))`
328	`unset($var[$index]);`	359	`unset($var[$index]);`
329	`}`	360	`}`
330		361
331	`static function requestFilterParams(Array $params) {`	362	`static function requestFilterParams(Array $params) {`
332	`$p = array_intersect_key($params, array_flip(self::$allow_params));`	363	`$p = array_intersect_key($params, array_flip(self::$allow_params));`
333	`self::unsetIfInvalid($p, 'txt.format', array('txt', 'htm'));`	364	`self::unsetIfInvalid($p, 'txt.format', array('txt', 'htm'));`
334	`self::unsetIfInvalid($p, 'retour.format', array('min','max'));`	365	`self::unsetIfInvalid($p, 'retour.format', array('min','max'));`
335	`self::unsetIfInvalid($p, 'recherche', array('stricte','etendue','floue'));`	366	`self::unsetIfInvalid($p, 'recherche', array('stricte','etendue','floue'));`
336		367
337	`if(isset($params['masque.ns'])) $p['masque.ns'] = trim($params['masque.ns']);`	368	`if(isset($params['masque.ns'])) $p['masque.ns'] = trim($params['masque.ns']);`
338	`if(isset($params['masque.texte'])) $p['masque.texte'] = trim($params['masque.texte']);`	369	`if(isset($params['masque.texte'])) $p['masque.texte'] = trim($params['masque.texte']);`
339		370
340	`if(isset($params['masque.famille'])) {`	371	`if(isset($params['masque.famille'])) {`
341	`// mysql -N<<<"SELECT DISTINCT famille FROM bdtfx_v1_02;"\|sed -r "s/(.)/\1\n/g"\|sort -u\|tr -d "\n"`	372	`// mysql -N<<<"SELECT DISTINCT famille FROM bdtfx_v1_02;"\|sed -r "s/(.)/\1\n/g"\|sort -u\|tr -d "\n"`
342	`$p['masque.famille'] = preg_replace('/[^a-zA-Z %_]/', '', iconv("UTF-8",`	373	`$p['masque.famille'] = preg_replace('/[^a-zA-Z %_]/', '', iconv("UTF-8",`
343	`"ASCII//TRANSLIT",`	374	`"ASCII//TRANSLIT",`
344	`$params['masque.famille']));`	375	`$params['masque.famille']));`
345	`}`	376	`}`
346		377
347	`// TODO: use filter_input(INPUT_GET);`	378	`// TODO: use filter_input(INPUT_GET);`
348	`// renvoie FALSE ou NULL si absent ou invalide`	379	`// renvoie FALSE ou NULL si absent ou invalide`
349	`$p['navigation.limite'] = filter_var(@$params['navigation.limite'],`	380	`$p['navigation.limite'] = filter_var(@$params['navigation.limite'],`
350	`FILTER_VALIDATE_INT,`	381	`FILTER_VALIDATE_INT,`
351	`array('options' => array('default' => NULL,`	382	`array('options' => array('default' => NULL,`
352	`'min_range' => 1,`	383	`'min_range' => 1,`
353	`'max_range' => _COSTE_TEXTE_MAX_RESULT_LIMIT)));`	384	`'max_range' => _COSTE_TEXTE_MAX_RESULT_LIMIT)));`
354	`$p['navigation.depart'] = filter_var(@$params['navigation.depart'],`	385	`$p['navigation.depart'] = filter_var(@$params['navigation.depart'],`
355	`FILTER_VALIDATE_INT,`	386	`FILTER_VALIDATE_INT,`
356	`array('options' => array('default' => NULL,`	387	`array('options' => array('default' => NULL,`
357	`'min_range' => 0,`	388	`'min_range' => 0,`
358	`'max_range' => _COSTE_TEXTE_MAX_NUM_NOM)));`	389	`'max_range' => _COSTE_TEXTE_MAX_COSTE_NN)));`
359		390
360	`// on filtre les NULL, FALSE et '', mais pas les 0, d'où le callback()`	391	`// on filtre les NULL, FALSE et '', mais pas les 0, d'où le callback()`
361	`// TODO: PHP-5.3`	392	`// TODO: PHP-5.3`
362	`$p = array_filter($p, create_function('$a','return !in_array($a, array("",false,null),true);'));`	393	`$p = array_filter($p, create_function('$a','return !in_array($a, array("",false,null),true);'));`
363	`$p = array_merge(self::$default_params, $p);`	394	`$p = array_merge(self::$default_params, $p);`
364		395
365	`return $p;`	396	`return $p;`
366	`}`	397	`}`
367		398
368	`static function requestFilterIds($uri) {`	399	`static function requestFilterIds($uri) {`
369	`if(count($uri) != 1) return NULL;`	400	`if(count($uri) != 1) return NULL;`
370		401
-		402	`// getNN* renvoient le num_nom passé comme segment d'URI:`
-		403	`// - soit un id selon coste (num_nom dans coste_v2_00)`
371	`// getNN renvoie le num_nom passé comme segment d'URI`	404	`// - soit un id selon bdtfx (num_nom dans bdtfx_v1_02)`
-		405	`// ou bien l'extrait du pattern bdtfx.nn:(#id)`
372	`// ou bien l'extrait du pattern bdtfx.nn:(#id)`	406	`$ids_coste = array_filter(array_map(array(__CLASS__, 'getNNCoste'), explode(',', $uri[0])));`
373	`$ids = array_filter(array_map(array(__CLASS__, 'getNN'), explode(',', $uri[0])));`	407	`$ids_bdtfx = array_filter(array_map(array(__CLASS__, 'getNNBdtfx'), explode(',', $uri[0])));`
374		408
375	`// en cas d'échec (tous les id sont invalides), bail-out`	409	`// en cas d'échec (tous les id sont invalides), bail-out`
376	`if(!$ids) {`	410	`if(!$ids_bdtfx && !$ids_coste) {`
377	`// http_response_code(500);`	411	`// http_response_code(500);`
378	`throw new Exception('not supported', 500);`	412	`throw new Exception('not supported', 500);`
379	`}`	413	`}`
-		414
-		415	`return array(`
380		416	`'coste' => array_slice($ids_coste, 0, intval(_COSTE_TEXTE_MAX_RESULT_LIMIT/2) ),`
-		417	`'bdtfx' => array_slice($ids_bdtfx, 0, intval(_COSTE_TEXTE_MAX_RESULT_LIMIT/2) )`
381	`return array_slice($ids, 0, _COSTE_TEXTE_MAX_RESULT_LIMIT);`	418	`);`
382	`}`	419	`}`
383		420
384	`static function aide() {`	421	`static function aide() {`
385	`header("Content-Type: text/plain; charset=utf-8");`	422	`header("Content-Type: text/plain; charset=utf-8");`
386	`return sprintf("`	423	`return sprintf("`
387	`Service coste/textes:`	424	`Service coste/textes:`
388	`Retourne des informations (choisies) à propos d'un taxon donné (à partir de son numéro nomenclatural`	425	`Retourne des informations (choisies) à propos d'un taxon donné (à partir de son numéro nomenclatural`
389	`Retourne des informations (choisies) à propos de taxons recherchés (à partir de divers critères)`	426	`Retourne des informations (choisies) à propos de taxons recherchés (à partir de divers critères)`
390		-
-		427	`Les résultats sont indexés. La clef par défaut est le num_nom d'après coste (attribut \"coste:nn\")`
391	`Usage:`	428	`Usage:`
392	`coste/textes/<liste-num_nom>?<params>`	429	`coste/textes/<liste-num_nom>?<params>`
393	`* <liste-num_nom> étant une liste de numéros nomenclaturaux de taxons bdtfx séparés par des virgules`	430	`* <liste-num_nom> étant une liste de numéros nomenclaturaux de taxons séparés par des virgules au format:`
394	`au format <#id> ou <bdtfx.nn:#id>`	431	`- <#id>: un numéro nomenclatural dans la base coste`
-		432	`- <bdtfx.nn:#id>: un numéro nomenclatural dans la base bdtfx`
395	`* retour.champs une liste de champs séparés par des virgules parmi *,%s`	433	`* retour.champs une liste de champs séparés par des virgules parmi *,%s`
396	`* les paramètres acceptés sont les suivants: %s`	434	`* les paramètres acceptés sont les suivants: %s`
397	`* les champs retournés par défaut sont les suivants: %s`	435	`* les champs retournés par défaut sont les suivants: %s`
398	`* le paramètre \"recherche\" affecte les masques \"ns\" et \"texte\"`	436	`* le paramètre \"recherche\" affecte les masques \"ns\" et \"texte\"`
399	`* le paramètre \"famille\" est traité via LIKE et accepte les caractères '_' et '%'`	437	`* le paramètre \"famille\" est traité via LIKE et accepte les caractères '_' et '%'`
400	`* le paramètre \"retour.format\" est inutilisé pour l'instant",`	438	`* le paramètre \"retour.format\" est inutilisé pour l'instant",`
401	`implode(',', array_keys(self::$allow_champs)),`	439	`implode(',', array_keys(self::$allow_champs)),`
402	`implode(',', self::$allow_params),`	440	`implode(',', self::$allow_params),`
403	`self::$default_params['retour.champs']`	441	`self::$default_params['retour.champs']`
404	`);`	442	`);`
405	`}`	443	`}`
406		444
407	`static function getNN($refnn) {`	445	`static function getNNCoste($refnn) {`
408	`if(is_numeric($refnn)) {`	446	`if(is_numeric($refnn)) {`
409	`$t = intval($refnn);`	447	`$t = intval($refnn);`
410	`if($t >= 1 && $t < _COSTE_TEXTE_MAX_NUM_NOM) return $t;`	-
411	`return FALSE;`	448	`if($t >= 1 && $t < _COSTE_TEXTE_MAX_COSTE_NN) return $t;`
-		449	`}`
-		450	`return FALSE;`
-		451	`}`
-		452
412	`}`	453	`static function getNNBdtfx($refnn) {`
413	`if(strpos($refnn, 'bdtfx.nn:') !== 0) return FALSE;`	454	`if(strpos($refnn, 'bdtfx.nn:') !== 0) return FALSE;`
-		455	`$t = intval(str_replace('bdtfx.nn:', '', $refnn));`
-		456	`if($t >= 1 && $t < _COSTE_TEXTE_MAX_BDTFX_NN) return $t;`
414	`return intval(str_replace('bdtfx.nn:', '', $refnn));`	457	`return FALSE;`
415	`}`	458	`}`
416	`}`	459	`}`

Subversion Repositories eFlore/Projets.eflore-projets

(root)/branches/v5.4-arboretum/services/modules/0.1/coste/Textes.php @ 1011 – Rev 859 → 861