Subversion Repositories eFlore/Projets.eflore-projets

Rev

Rev 861 | Rev 863 | Go to most recent revision | Only display areas with differences | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

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