WebSVN – eFlore/Applications.cel – Diff – /branches/v1.9-echenilloir/jrest/tests/api.php


<?php
 
global $champs;
$champs = Array(
	'nom_sel' => 'Espèce',
	'nom_sel_nn' => 'Numéro nomenclatural',
	'nom_ret' => 'Nom retenu',
	'nom_ret_nn' => 'Numéro nomenclatural nom retenu',
	'nt' => 'Numéro taxonomique',
	'famille' => 'Famille',
	'nom_referentiel' => 'Referentiel taxonomique',
	'zone_geo' => 'Commune',
	'ce_zone_geo' => 'Identifiant Commune',
	'date_observation' => 'Date',
	'lieudit' => 'Lieu-dit',
	'station' => 'Station',
	'milieu' => 'Milieu',
	'commentaire' => 'Notes',
	'latitude' => 'Latitude',
	'longitude' => 'Longitude',
	'altitude' => 'Altitude',
	'geodatum' => 'Référentiel Géographique',
 
	'ordre' => 'Ordre',
	'id_observation' => 'Identifiant',
 
	'mots_cles_texte' => 'Mots Clés',
 
	'date_creation' => 'Date Création',
	'date_modification' => 'Date Modification',
 
	'transmission' => 'Transmis',
	'date_transmission' => 'Date Transmission',
	'abondance' => 'Abondance',
	'certitude' => 'Certitude',
	'phenologie' => 'Phénologie',
	'images' => 'Image(s)',
	'nom_commun' => 'Nom Commun',
 
	'observateur' => 'Observateur',
);
 
define('URLPREFIX', 'service-test:cel:');
 
function cel_get_obs() {
	$URL = DOMAIN . '/' . URLPREFIX . 'InventoryObservationList/' . USER;
	// 5000 (memory_limit)
	return json_decode(file_get_contents($URL . '/?limite=5000&numero_page=0'));
}
 
function cel_get_images() {
	$URL = DOMAIN . '/' . URLPREFIX . 'InventoryImageList/' . USER;
	return json_decode(file_get_contents($URL . '/?limite=100000&numero_page=0'));
}
 
function cel_delete_obs($obs) {
	$URL = DOMAIN . '/' . URLPREFIX . 'InventoryObservationList/' . USER;
	$ch = curl_init();
 
	//set the url, number of POST vars, POST data
	curl_setopt($ch,CURLOPT_URL, $URL . '/' . implode(',', $obs));
	curl_setopt($ch,CURLOPT_POSTFIELDS, array('action' => 'DELETE'));
	curl_setopt($ch,CURLOPT_RETURNTRANSFER, TRUE);
 
	if(DEBUG) @fwrite(STDERR, sprintf("curl -F action=DELETE '%s/%s'\n", $URL, implode(',', $obs)));
	//execute post
	$result = curl_exec($ch);
	curl_close($ch);
	return $result;
}
 
function cel_delete_image($img) {
	$URL = DOMAIN . '/' . URLPREFIX . 'InventoryImageList/' . USER;
	$ch = curl_init();
 
	//set the url, number of POST vars, POST data
	curl_setopt($ch,CURLOPT_URL, $URL . '/' . implode(',', $img));
	curl_setopt($ch,CURLOPT_POSTFIELDS, array('action' => 'DELETE'));
	curl_setopt($ch,CURLOPT_RETURNTRANSFER, TRUE);
	//execute post
	$result = curl_exec($ch);
	curl_close($ch);
	return $result;
}
 
 
function cel_delete_all_obs() {
    while( ($obs = cel_get_obs()) ) {
	$ordres = array_map(function($item) { return $item->ordre; }, $obs);
	// les chunks permettent d'éviter des REQUEST-URI too long (500 id * 4 digits + 500 (virgules)) < 4k
	while( $ordres_chunk = array_splice($ordres, 0, 500)) {
	    cel_delete_obs($ordres_chunk);
	}
    }
}
 
 
function cel_delete_all_images() {
	$img = cel_get_images();
	$ids = array_map(function($item) { return $item->id_image; }, $img);
	cel_delete_image($ids);
}
 
function cel_upload_image($file) {
	if(! file_exists($file)) return NULL;
	$URL = DOMAIN . '/' . URLPREFIX . 'InventoryImage';
 
	$ch = curl_init();
 
	//set the url, number of POST vars, POST data
	curl_setopt($ch,CURLOPT_URL, $URL);
	curl_setopt($ch,CURLOPT_POSTFIELDS, array(
		'file' => '@' . $file,
		'ce_utilisateur' => USER
	));
 
	//curl_setopt($ch,CURLOPT_RETURNTRANSFER, TRUE);
	//execute post
	if(DEBUG) @fwrite(STDERR, sprintf("curl -F file=@%s '%s'\n", $file, $URL));
 
	$result = curl_exec($ch);
	curl_close($ch);
	return $result;
}
 
function cel_link_images($user, $id_image, $id_obs) {
	$URL = DOMAIN . '/' . URLPREFIX . 'inventoryImageLink/';
	$ch = curl_init();
 
	//set the url, number of POST vars, POST data
	curl_setopt($ch,CURLOPT_URL, $URL);
	curl_setopt($ch,CURLOPT_POSTFIELDS, array(
		'id_image' => $id_obs,
		'id_observation' => $id_obs,
		'ce_utilisateur' => $user
	));
 
	curl_setopt($ch,CURLOPT_RETURNTRANSFER, TRUE);
	//execute post
	$result = curl_exec($ch);
	curl_close($ch);
	return $result;
}
 
 
function auth() {
	// TODO: CURLOPT_NETRC + Cel API support
	if(!defined('EMAIL') || !defined('PASS') || ! EMAIL || ! PASS) return FALSE;
	if(defined('COOKIE') && COOKIE) return TRUE;
	$URL = DOMAIN . '/' . URLPREFIX . 'User/' . EMAIL . '/' . PASS;
 
	$ch = curl_init();
 
	//set the url, number of POST vars, POST data
	curl_setopt($ch,CURLOPT_URL, $URL);
	curl_setopt($ch,CURLOPT_HEADER, true);
	curl_setopt($ch,CURLOPT_RETURNTRANSFER, TRUE);
 
	$result = curl_exec($ch);
	curl_close($ch);
	$sess = $id = array();
	preg_match('/.*PHPSESSID=(\w+)/', $result, $sess);
	preg_match('/"id_utilisateur":"(\d+)"/', $result, $id);
 
	if(DEBUG) @fwrite(STDERR, "curl \"".$URL ."\" : {$sess[1]} / {$id[1]}\n");
	if(isset($sess[1])) {
		define('COOKIE', $sess[1]);
		if(!defined('USER')) {
			if(!isset($id[1])) return FALSE;
			define('USER', $id[1]);
		}
		return TRUE;
	}
	return FALSE;
}
 
function genCSV($d = Array()) {
	$out = fopen("php://temp", 'r+');
	// don't filter-out unknown field (for testing)
	// $d = array_intersect_key($d, $GLOBALS['champs']);
	$head = array();
	foreach($d as $k => $v) {
		if(isset($GLOBALS['champs'][$k])) $head[$GLOBALS['champs'][$k]] = $v;
		else $head[$k] = $v;
	}
	fputcsv($out, array_keys($head) , ',', '"');
	fputcsv($out, array_values($head) , ',', '"');
	rewind($out);
	$csv = stream_get_contents($out);
	fclose($out);
	return $csv;
}
 
function import($d) {
	$URL = DOMAIN . '/' . URLPREFIX . 'ImportXLS';
	if(!is_file($d)) return FALSE;
	$ch = curl_init();
 
	// curl does not support setting filename="X.csv";type=application/octet-stream'
	// with plain POST variables
 
	curl_setopt($ch,CURLOPT_URL, $URL);
	curl_setopt($ch,CURLOPT_POSTFIELDS, array(
		'upload' => '@' . $d . ';filename=test.csv',
		'utilisateur' => USER
	));
 
	curl_setopt($ch,CURLOPT_RETURNTRANSFER, TRUE);
 
	if(DEBUG) fwrite(STDERR, "curl -F \"upload=@$d;filename=test.csv\" -F utilisateur=" . USER . " \"$URL\"\n");
 
	//execute post
	$result = curl_exec($ch);
	curl_close($ch);
	return $result;
}
 
function importXLS($d) {
	$URL = DOMAIN . '/' . URLPREFIX . 'ImportXLS';
	if(!is_file($d)) return FALSE;
	exec("csvtool -o /tmp/a.csv col 1- $d");
	exec(__DIR__ . "/bin/csv2xls -v 0 -f -o /tmp/a /tmp/a.csv &>/dev/null");
	if(DEBUG) fwrite(STDERR,
					 "csvtool -o /tmp/a.csv col 1- $d;\n" . 
					 __DIR__ . "/bin/csv2xls -v 0 -f -o /tmp/a /tmp/a.csv\n");
	$d = "/tmp/a.xls";
	if(!is_file($d)) { die('error: ' . __FILE__ . ':' . __LINE__); }
 
	$ch = curl_init();
 
	// curl does not support setting filename="X.csv";type=application/octet-stream'
	// with plain POST variables
 
	curl_setopt($ch,CURLOPT_URL, $URL);
	curl_setopt($ch,CURLOPT_POSTFIELDS, array(
		'upload' => '@' . $d . ';filename=test.xls',
		'utilisateur' => USER
	));
 
	curl_setopt($ch,CURLOPT_RETURNTRANSFER, TRUE);
 
	if(DEBUG) fwrite(STDERR, "curl -F \"upload=@$d;filename=test.xls\" -F utilisateur=" . USER . " \"$URL\"\n");
 
	//execute post
	$result = curl_exec($ch);
	curl_close($ch);
	return $result;
}
 
function export($cols = "standard,avance") {
	if(!defined('COOKIE')) return FALSE;
 
	$URL = DOMAIN . '/' . URLPREFIX . 'CelWidgetExport/export?';
	$URL .= http_build_query(array('colonnes' => $cols,
								   'id_utilisateur' => USER,
								   'format' => 'csv'));
	$ch = curl_init();
 
	curl_setopt($ch,CURLOPT_URL, $URL);
	curl_setopt($ch,CURLOPT_COOKIE, 'PHPSESSID=' . COOKIE);
 
	curl_setopt($ch,CURLOPT_RETURNTRANSFER, TRUE);
 
	if(DEBUG) fwrite(STDERR, "curl -b PHPSESSID=" . COOKIE . ' "' . $URL ."\"\n");
	//execute post
	$result = curl_exec($ch);
	curl_close($ch);
	return $result;
}
 
function exportXLS($cols = "standard,avance") {
	if(!defined('COOKIE')) return FALSE;
 
	$file = "/tmp/b.xls";
 
	$URL = DOMAIN . '/' . URLPREFIX . 'CelWidgetExport/export?';
	$URL .= http_build_query(array('colonnes' => $cols,
								   'id_utilisateur' => USER,
								   'format' => 'xls'));
	$ch = curl_init();
 
	curl_setopt($ch,CURLOPT_URL, $URL);
	curl_setopt($ch,CURLOPT_COOKIE, 'PHPSESSID=' . COOKIE);
 
	$fh = fopen($file, 'w'); 
	curl_setopt($ch,CURLOPT_FILE, $fh);
 
	if(DEBUG) fwrite(STDERR, "curl -o $file -b PHPSESSID=" . COOKIE . ' "' . $URL ."\"\n");
	//execute post
	curl_exec($ch);
 
	fflush($fh); 
	fclose($fh);
	curl_close($ch);
 
	// if(DEBUG) fwrite(STDERR, "xls2csv $file\n");
	// exec("xls2csv $file", $result, $ret);
	// return implode("\n", $result);
	if(DEBUG) fwrite(STDERR, __DIR__ . "/bin/xls2csv-separate-sheets.pl -i $file\n");
	exec(__DIR__ . "/bin/xls2csv-separate-sheets.pl -i $file &>/dev/null", $result, $ret);
	$newfile = substr($file, 0, -4) . '-Liste' . '.csv';
 
	// because xls2csv-separate-sheets.pl does latin9
	if(DEBUG) fwrite(STDERR, "iconv -f latin9 -t utf8 $newfile >| /tmp/.x; mv -f /tmp/.x $newfile\n");
	exec("iconv -f latin9 -t utf8 -o /tmp/.x $newfile; mv -f /tmp/.x $newfile");
	if($ret) die('error: ' . __FILE__ . ':' . __LINE__);
 
	return file_get_contents($newfile);
}
 
function getCSV_line($csv, $line) {
	$line = max(0, intval($line - 1)); // -1 à cause du header
 
	$out = fopen("php://temp", 'rw');
	fwrite($out, $csv);
	rewind($out);
 
	$head = champsLongToShort(fgetcsv($out));
	while ($line--) fgetcsv($out);
	$l = fgetcsv($out);
	fclose($out);
	if(!$l) return FALSE;
	// xls2csv-separate-sheets.pl supprime les trailing champs vides
	if(count($l) != count($head)) {
		$l += array_fill(count($l), count($head) - count($l), "");
	}
	return array_combine($head, $l);
}
 
 
function champsLongToShort($a) {
    if(! $a) return array();
	$r = array();
	$x = array_flip($GLOBALS['champs']);
	foreach($a as $k => $v) {
		if(isset($x[$v])) $r[$k] = $x[$v];
		else $r[$k] = -1;
	}
	return $r;
}
 
function champsLongToShort2($a) {
	$r = array();
	$x = array_flip($GLOBALS['champs']);
	foreach($a as $k => $v) {
		if(isset($x[$k])) $r[$x[$k]] = $v;
		else $r[$k] = $v;
	}
	return $r;
}

Rev 1935	Rev 1944
1	`<?php`	1	`<?php`
2		2
3	`global $champs;`	3	`global $champs;`
4	`$champs = Array(`	4	`$champs = Array(`
5	`'nom_sel' => 'Espèce',`	5	`'nom_sel' => 'Espèce',`
6	`'nom_sel_nn' => 'Numéro nomenclatural',`	6	`'nom_sel_nn' => 'Numéro nomenclatural',`
7	`'nom_ret' => 'Nom retenu',`	7	`'nom_ret' => 'Nom retenu',`
8	`'nom_ret_nn' => 'Numéro nomenclatural nom retenu',`	8	`'nom_ret_nn' => 'Numéro nomenclatural nom retenu',`
9	`'nt' => 'Numéro taxonomique',`	9	`'nt' => 'Numéro taxonomique',`
10	`'famille' => 'Famille',`	10	`'famille' => 'Famille',`
11	`'nom_referentiel' => 'Referentiel taxonomique',`	11	`'nom_referentiel' => 'Referentiel taxonomique',`
12	`'zone_geo' => 'Commune',`	12	`'zone_geo' => 'Commune',`
13	`'ce_zone_geo' => 'Identifiant Commune',`	13	`'ce_zone_geo' => 'Identifiant Commune',`
14	`'date_observation' => 'Date',`	14	`'date_observation' => 'Date',`
15	`'lieudit' => 'Lieu-dit',`	15	`'lieudit' => 'Lieu-dit',`
16	`'station' => 'Station',`	16	`'station' => 'Station',`
17	`'milieu' => 'Milieu',`	17	`'milieu' => 'Milieu',`
18	`'commentaire' => 'Notes',`	18	`'commentaire' => 'Notes',`
19	`'latitude' => 'Latitude',`	19	`'latitude' => 'Latitude',`
20	`'longitude' => 'Longitude',`	20	`'longitude' => 'Longitude',`
21	`'altitude' => 'Altitude',`	21	`'altitude' => 'Altitude',`
22	`'geodatum' => 'Référentiel Géographique',`	22	`'geodatum' => 'Référentiel Géographique',`
23		23
24	`'ordre' => 'Ordre',`	24	`'ordre' => 'Ordre',`
25	`'id_observation' => 'Identifiant',`	25	`'id_observation' => 'Identifiant',`
26		26
27	`'mots_cles_texte' => 'Mots Clés',`	27	`'mots_cles_texte' => 'Mots Clés',`
28		28
29	`'date_creation' => 'Date Création',`	29	`'date_creation' => 'Date Création',`
30	`'date_modification' => 'Date Modification',`	30	`'date_modification' => 'Date Modification',`
31		31
32	`'transmission' => 'Transmis',`	32	`'transmission' => 'Transmis',`
33	`'date_transmission' => 'Date Transmission',`	33	`'date_transmission' => 'Date Transmission',`
34	`'abondance' => 'Abondance',`	34	`'abondance' => 'Abondance',`
35	`'certitude' => 'Certitude',`	35	`'certitude' => 'Certitude',`
36	`'phenologie' => 'Phénologie',`	36	`'phenologie' => 'Phénologie',`
37	`'images' => 'Image(s)',`	37	`'images' => 'Image(s)',`
38	`'nom_commun' => 'Nom Commun',`	38	`'nom_commun' => 'Nom Commun',`
39		39
40	`'observateur' => 'Observateur',`	40	`'observateur' => 'Observateur',`
41	`);`	41	`);`
42		42
43	`define('URLPREFIX', 'service:cel:');`	43	`define('URLPREFIX', 'service-test:cel:');`
44		44
45	`function cel_get_obs() {`	45	`function cel_get_obs() {`
46	`$URL = DOMAIN . '/' . URLPREFIX . 'InventoryObservationList/' . USER;`	46	`$URL = DOMAIN . '/' . URLPREFIX . 'InventoryObservationList/' . USER;`
47	`// 5000 (memory_limit)`	47	`// 5000 (memory_limit)`
48	`return json_decode(file_get_contents($URL . '/?limite=5000&numero_page=0'));`	48	`return json_decode(file_get_contents($URL . '/?limite=5000&numero_page=0'));`
49	`}`	49	`}`
50		50
51	`function cel_get_images() {`	51	`function cel_get_images() {`
52	`$URL = DOMAIN . '/' . URLPREFIX . 'InventoryImageList/' . USER;`	52	`$URL = DOMAIN . '/' . URLPREFIX . 'InventoryImageList/' . USER;`
53	`return json_decode(file_get_contents($URL . '/?limite=100000&numero_page=0'));`	53	`return json_decode(file_get_contents($URL . '/?limite=100000&numero_page=0'));`
54	`}`	54	`}`
55		55
56	`function cel_delete_obs($obs) {`	56	`function cel_delete_obs($obs) {`
57	`$URL = DOMAIN . '/' . URLPREFIX . 'InventoryObservationList/' . USER;`	57	`$URL = DOMAIN . '/' . URLPREFIX . 'InventoryObservationList/' . USER;`
58	`$ch = curl_init();`	58	`$ch = curl_init();`
59		59
60	`//set the url, number of POST vars, POST data`	60	`//set the url, number of POST vars, POST data`
61	`curl_setopt($ch,CURLOPT_URL, $URL . '/' . implode(',', $obs));`	61	`curl_setopt($ch,CURLOPT_URL, $URL . '/' . implode(',', $obs));`
62	`curl_setopt($ch,CURLOPT_POSTFIELDS, array('action' => 'DELETE'));`	62	`curl_setopt($ch,CURLOPT_POSTFIELDS, array('action' => 'DELETE'));`
63	`curl_setopt($ch,CURLOPT_RETURNTRANSFER, TRUE);`	63	`curl_setopt($ch,CURLOPT_RETURNTRANSFER, TRUE);`
64		64
65	`if(DEBUG) @fwrite(STDERR, sprintf("curl -F action=DELETE '%s/%s'\n", $URL, implode(',', $obs)));`	65	`if(DEBUG) @fwrite(STDERR, sprintf("curl -F action=DELETE '%s/%s'\n", $URL, implode(',', $obs)));`
66	`//execute post`	66	`//execute post`
67	`$result = curl_exec($ch);`	67	`$result = curl_exec($ch);`
68	`curl_close($ch);`	68	`curl_close($ch);`
69	`return $result;`	69	`return $result;`
70	`}`	70	`}`
71		71
72	`function cel_delete_image($img) {`	72	`function cel_delete_image($img) {`
73	`$URL = DOMAIN . '/' . URLPREFIX . 'InventoryImageList/' . USER;`	73	`$URL = DOMAIN . '/' . URLPREFIX . 'InventoryImageList/' . USER;`
74	`$ch = curl_init();`	74	`$ch = curl_init();`
75		75
76	`//set the url, number of POST vars, POST data`	76	`//set the url, number of POST vars, POST data`
77	`curl_setopt($ch,CURLOPT_URL, $URL . '/' . implode(',', $img));`	77	`curl_setopt($ch,CURLOPT_URL, $URL . '/' . implode(',', $img));`
78	`curl_setopt($ch,CURLOPT_POSTFIELDS, array('action' => 'DELETE'));`	78	`curl_setopt($ch,CURLOPT_POSTFIELDS, array('action' => 'DELETE'));`
79	`curl_setopt($ch,CURLOPT_RETURNTRANSFER, TRUE);`	79	`curl_setopt($ch,CURLOPT_RETURNTRANSFER, TRUE);`
80	`//execute post`	80	`//execute post`
81	`$result = curl_exec($ch);`	81	`$result = curl_exec($ch);`
82	`curl_close($ch);`	82	`curl_close($ch);`
83	`return $result;`	83	`return $result;`
84	`}`	84	`}`
85		85
86		86
87	`function cel_delete_all_obs() {`	87	`function cel_delete_all_obs() {`
88	`while( ($obs = cel_get_obs()) ) {`	88	`while( ($obs = cel_get_obs()) ) {`
89	`$ordres = array_map(function($item) { return $item->ordre; }, $obs);`	89	`$ordres = array_map(function($item) { return $item->ordre; }, $obs);`
90	`// les chunks permettent d'éviter des REQUEST-URI too long (500 id * 4 digits + 500 (virgules)) < 4k`	90	`// les chunks permettent d'éviter des REQUEST-URI too long (500 id * 4 digits + 500 (virgules)) < 4k`
91	`while( $ordres_chunk = array_splice($ordres, 0, 500)) {`	91	`while( $ordres_chunk = array_splice($ordres, 0, 500)) {`
92	`cel_delete_obs($ordres_chunk);`	92	`cel_delete_obs($ordres_chunk);`
93	`}`	93	`}`
94	`}`	94	`}`
95	`}`	95	`}`
96		96
97		97
98	`function cel_delete_all_images() {`	98	`function cel_delete_all_images() {`
99	`$img = cel_get_images();`	99	`$img = cel_get_images();`
100	`$ids = array_map(function($item) { return $item->id_image; }, $img);`	100	`$ids = array_map(function($item) { return $item->id_image; }, $img);`
101	`cel_delete_image($ids);`	101	`cel_delete_image($ids);`
102	`}`	102	`}`
103		103
104	`function cel_upload_image($file) {`	104	`function cel_upload_image($file) {`
105	`if(! file_exists($file)) return NULL;`	105	`if(! file_exists($file)) return NULL;`
106	`$URL = DOMAIN . '/' . URLPREFIX . 'InventoryImage';`	106	`$URL = DOMAIN . '/' . URLPREFIX . 'InventoryImage';`
107		107
108	`$ch = curl_init();`	108	`$ch = curl_init();`
109		109
110	`//set the url, number of POST vars, POST data`	110	`//set the url, number of POST vars, POST data`
111	`curl_setopt($ch,CURLOPT_URL, $URL);`	111	`curl_setopt($ch,CURLOPT_URL, $URL);`
112	`curl_setopt($ch,CURLOPT_POSTFIELDS, array(`	112	`curl_setopt($ch,CURLOPT_POSTFIELDS, array(`
113	`'file' => '@' . $file,`	113	`'file' => '@' . $file,`
114	`'ce_utilisateur' => USER`	114	`'ce_utilisateur' => USER`
115	`));`	115	`));`
116		116
117	`//curl_setopt($ch,CURLOPT_RETURNTRANSFER, TRUE);`	117	`//curl_setopt($ch,CURLOPT_RETURNTRANSFER, TRUE);`
118	`//execute post`	118	`//execute post`
119	`if(DEBUG) @fwrite(STDERR, sprintf("curl -F file=@%s '%s'\n", $file, $URL));`	119	`if(DEBUG) @fwrite(STDERR, sprintf("curl -F file=@%s '%s'\n", $file, $URL));`
120		120
121	`$result = curl_exec($ch);`	121	`$result = curl_exec($ch);`
122	`curl_close($ch);`	122	`curl_close($ch);`
123	`return $result;`	123	`return $result;`
124	`}`	124	`}`
125		125
126	`function cel_link_images($user, $id_image, $id_obs) {`	126	`function cel_link_images($user, $id_image, $id_obs) {`
127	`$URL = DOMAIN . '/' . URLPREFIX . 'inventoryImageLink/';`	127	`$URL = DOMAIN . '/' . URLPREFIX . 'inventoryImageLink/';`
128	`$ch = curl_init();`	128	`$ch = curl_init();`
129		129
130	`//set the url, number of POST vars, POST data`	130	`//set the url, number of POST vars, POST data`
131	`curl_setopt($ch,CURLOPT_URL, $URL);`	131	`curl_setopt($ch,CURLOPT_URL, $URL);`
132	`curl_setopt($ch,CURLOPT_POSTFIELDS, array(`	132	`curl_setopt($ch,CURLOPT_POSTFIELDS, array(`
133	`'id_image' => $id_obs,`	133	`'id_image' => $id_obs,`
134	`'id_observation' => $id_obs,`	134	`'id_observation' => $id_obs,`
135	`'ce_utilisateur' => $user`	135	`'ce_utilisateur' => $user`
136	`));`	136	`));`
137		137
138	`curl_setopt($ch,CURLOPT_RETURNTRANSFER, TRUE);`	138	`curl_setopt($ch,CURLOPT_RETURNTRANSFER, TRUE);`
139	`//execute post`	139	`//execute post`
140	`$result = curl_exec($ch);`	140	`$result = curl_exec($ch);`
141	`curl_close($ch);`	141	`curl_close($ch);`
142	`return $result;`	142	`return $result;`
143	`}`	143	`}`
144		144
145		145
146	`function auth() {`	146	`function auth() {`
147	`// TODO: CURLOPT_NETRC + Cel API support`	147	`// TODO: CURLOPT_NETRC + Cel API support`
148	`if(!defined('EMAIL') \|\| !defined('PASS') \|\| ! EMAIL \|\| ! PASS) return FALSE;`	148	`if(!defined('EMAIL') \|\| !defined('PASS') \|\| ! EMAIL \|\| ! PASS) return FALSE;`
149	`if(defined('COOKIE') && COOKIE) return TRUE;`	149	`if(defined('COOKIE') && COOKIE) return TRUE;`
150	`$URL = DOMAIN . '/' . URLPREFIX . 'User/' . EMAIL . '/' . PASS;`	150	`$URL = DOMAIN . '/' . URLPREFIX . 'User/' . EMAIL . '/' . PASS;`
151		151
152	`$ch = curl_init();`	152	`$ch = curl_init();`
153		153
154	`//set the url, number of POST vars, POST data`	154	`//set the url, number of POST vars, POST data`
155	`curl_setopt($ch,CURLOPT_URL, $URL);`	155	`curl_setopt($ch,CURLOPT_URL, $URL);`
156	`curl_setopt($ch,CURLOPT_HEADER, true);`	156	`curl_setopt($ch,CURLOPT_HEADER, true);`
157	`curl_setopt($ch,CURLOPT_RETURNTRANSFER, TRUE);`	157	`curl_setopt($ch,CURLOPT_RETURNTRANSFER, TRUE);`
158		158
159	`$result = curl_exec($ch);`	159	`$result = curl_exec($ch);`
160	`curl_close($ch);`	160	`curl_close($ch);`
161	`$sess = $id = array();`	161	`$sess = $id = array();`
162	`preg_match('/.*PHPSESSID=(\w+)/', $result, $sess);`	162	`preg_match('/.*PHPSESSID=(\w+)/', $result, $sess);`
163	`preg_match('/"id_utilisateur":"(\d+)"/', $result, $id);`	163	`preg_match('/"id_utilisateur":"(\d+)"/', $result, $id);`
164		164
165	`if(DEBUG) @fwrite(STDERR, "curl \"".$URL ."\" : {$sess[1]} / {$id[1]}\n");`	165	`if(DEBUG) @fwrite(STDERR, "curl \"".$URL ."\" : {$sess[1]} / {$id[1]}\n");`
166	`if(isset($sess[1])) {`	166	`if(isset($sess[1])) {`
167	`define('COOKIE', $sess[1]);`	167	`define('COOKIE', $sess[1]);`
168	`if(!defined('USER')) {`	168	`if(!defined('USER')) {`
169	`if(!isset($id[1])) return FALSE;`	169	`if(!isset($id[1])) return FALSE;`
170	`define('USER', $id[1]);`	170	`define('USER', $id[1]);`
171	`}`	171	`}`
172	`return TRUE;`	172	`return TRUE;`
173	`}`	173	`}`
174	`return FALSE;`	174	`return FALSE;`
175	`}`	175	`}`
176		176
177	`function genCSV($d = Array()) {`	177	`function genCSV($d = Array()) {`
178	`$out = fopen("php://temp", 'r+');`	178	`$out = fopen("php://temp", 'r+');`
179	`// don't filter-out unknown field (for testing)`	179	`// don't filter-out unknown field (for testing)`
180	`// $d = array_intersect_key($d, $GLOBALS['champs']);`	180	`// $d = array_intersect_key($d, $GLOBALS['champs']);`
181	`$head = array();`	181	`$head = array();`
182	`foreach($d as $k => $v) {`	182	`foreach($d as $k => $v) {`
183	`if(isset($GLOBALS['champs'][$k])) $head[$GLOBALS['champs'][$k]] = $v;`	183	`if(isset($GLOBALS['champs'][$k])) $head[$GLOBALS['champs'][$k]] = $v;`
184	`else $head[$k] = $v;`	184	`else $head[$k] = $v;`
185	`}`	185	`}`
186	`fputcsv($out, array_keys($head) , ',', '"');`	186	`fputcsv($out, array_keys($head) , ',', '"');`
187	`fputcsv($out, array_values($head) , ',', '"');`	187	`fputcsv($out, array_values($head) , ',', '"');`
188	`rewind($out);`	188	`rewind($out);`
189	`$csv = stream_get_contents($out);`	189	`$csv = stream_get_contents($out);`
190	`fclose($out);`	190	`fclose($out);`
191	`return $csv;`	191	`return $csv;`
192	`}`	192	`}`
193		193
194	`function import($d) {`	194	`function import($d) {`
195	`$URL = DOMAIN . '/' . URLPREFIX . 'ImportXLS';`	195	`$URL = DOMAIN . '/' . URLPREFIX . 'ImportXLS';`
196	`if(!is_file($d)) return FALSE;`	196	`if(!is_file($d)) return FALSE;`
197	`$ch = curl_init();`	197	`$ch = curl_init();`
198		198
199	`// curl does not support setting filename="X.csv";type=application/octet-stream'`	199	`// curl does not support setting filename="X.csv";type=application/octet-stream'`
200	`// with plain POST variables`	200	`// with plain POST variables`
201		201
202	`curl_setopt($ch,CURLOPT_URL, $URL);`	202	`curl_setopt($ch,CURLOPT_URL, $URL);`
203	`curl_setopt($ch,CURLOPT_POSTFIELDS, array(`	203	`curl_setopt($ch,CURLOPT_POSTFIELDS, array(`
204	`'upload' => '@' . $d . ';filename=test.csv',`	204	`'upload' => '@' . $d . ';filename=test.csv',`
205	`'utilisateur' => USER`	205	`'utilisateur' => USER`
206	`));`	206	`));`
207		207
208	`curl_setopt($ch,CURLOPT_RETURNTRANSFER, TRUE);`	208	`curl_setopt($ch,CURLOPT_RETURNTRANSFER, TRUE);`
209		209
210	`if(DEBUG) fwrite(STDERR, "curl -F \"upload=@$d;filename=test.csv\" -F utilisateur=" . USER . " \"$URL\"\n");`	210	`if(DEBUG) fwrite(STDERR, "curl -F \"upload=@$d;filename=test.csv\" -F utilisateur=" . USER . " \"$URL\"\n");`
211		211
212	`//execute post`	212	`//execute post`
213	`$result = curl_exec($ch);`	213	`$result = curl_exec($ch);`
214	`curl_close($ch);`	214	`curl_close($ch);`
215	`return $result;`	215	`return $result;`
216	`}`	216	`}`
217		217
218	`function importXLS($d) {`	218	`function importXLS($d) {`
219	`$URL = DOMAIN . '/' . URLPREFIX . 'ImportXLS';`	219	`$URL = DOMAIN . '/' . URLPREFIX . 'ImportXLS';`
220	`if(!is_file($d)) return FALSE;`	220	`if(!is_file($d)) return FALSE;`
221	`exec("csvtool -o /tmp/a.csv col 1- $d");`	221	`exec("csvtool -o /tmp/a.csv col 1- $d");`
222	`exec(__DIR__ . "/bin/csv2xls -v 0 -f -o /tmp/a /tmp/a.csv &>/dev/null");`	222	`exec(__DIR__ . "/bin/csv2xls -v 0 -f -o /tmp/a /tmp/a.csv &>/dev/null");`
223	`if(DEBUG) fwrite(STDERR,`	223	`if(DEBUG) fwrite(STDERR,`
224	`"csvtool -o /tmp/a.csv col 1- $d;\n" .`	224	`"csvtool -o /tmp/a.csv col 1- $d;\n" .`
225	`__DIR__ . "/bin/csv2xls -v 0 -f -o /tmp/a /tmp/a.csv\n");`	225	`__DIR__ . "/bin/csv2xls -v 0 -f -o /tmp/a /tmp/a.csv\n");`
226	`$d = "/tmp/a.xls";`	226	`$d = "/tmp/a.xls";`
227	`if(!is_file($d)) { die('error: ' . __FILE__ . ':' . __LINE__); }`	227	`if(!is_file($d)) { die('error: ' . __FILE__ . ':' . __LINE__); }`
228		228
229	`$ch = curl_init();`	229	`$ch = curl_init();`
230		230
231	`// curl does not support setting filename="X.csv";type=application/octet-stream'`	231	`// curl does not support setting filename="X.csv";type=application/octet-stream'`
232	`// with plain POST variables`	232	`// with plain POST variables`
233		233
234	`curl_setopt($ch,CURLOPT_URL, $URL);`	234	`curl_setopt($ch,CURLOPT_URL, $URL);`
235	`curl_setopt($ch,CURLOPT_POSTFIELDS, array(`	235	`curl_setopt($ch,CURLOPT_POSTFIELDS, array(`
236	`'upload' => '@' . $d . ';filename=test.xls',`	236	`'upload' => '@' . $d . ';filename=test.xls',`
237	`'utilisateur' => USER`	237	`'utilisateur' => USER`
238	`));`	238	`));`
239		239
240	`curl_setopt($ch,CURLOPT_RETURNTRANSFER, TRUE);`	240	`curl_setopt($ch,CURLOPT_RETURNTRANSFER, TRUE);`
241		241
242	`if(DEBUG) fwrite(STDERR, "curl -F \"upload=@$d;filename=test.xls\" -F utilisateur=" . USER . " \"$URL\"\n");`	242	`if(DEBUG) fwrite(STDERR, "curl -F \"upload=@$d;filename=test.xls\" -F utilisateur=" . USER . " \"$URL\"\n");`
243		243
244	`//execute post`	244	`//execute post`
245	`$result = curl_exec($ch);`	245	`$result = curl_exec($ch);`
246	`curl_close($ch);`	246	`curl_close($ch);`
247	`return $result;`	247	`return $result;`
248	`}`	248	`}`
249		249
250	`function export($cols = "standard,avance") {`	250	`function export($cols = "standard,avance") {`
251	`if(!defined('COOKIE')) return FALSE;`	251	`if(!defined('COOKIE')) return FALSE;`
252		252
253	`$URL = DOMAIN . '/' . URLPREFIX . 'CelWidgetExport/export?';`	253	`$URL = DOMAIN . '/' . URLPREFIX . 'CelWidgetExport/export?';`
254	`$URL .= http_build_query(array('colonnes' => $cols,`	254	`$URL .= http_build_query(array('colonnes' => $cols,`
255	`'id_utilisateur' => USER,`	255	`'id_utilisateur' => USER,`
256	`'format' => 'csv'));`	256	`'format' => 'csv'));`
257	`$ch = curl_init();`	257	`$ch = curl_init();`
258		258
259	`curl_setopt($ch,CURLOPT_URL, $URL);`	259	`curl_setopt($ch,CURLOPT_URL, $URL);`
260	`curl_setopt($ch,CURLOPT_COOKIE, 'PHPSESSID=' . COOKIE);`	260	`curl_setopt($ch,CURLOPT_COOKIE, 'PHPSESSID=' . COOKIE);`
261		261
262	`curl_setopt($ch,CURLOPT_RETURNTRANSFER, TRUE);`	262	`curl_setopt($ch,CURLOPT_RETURNTRANSFER, TRUE);`
263		263
264	`if(DEBUG) fwrite(STDERR, "curl -b PHPSESSID=" . COOKIE . ' "' . $URL ."\"\n");`	264	`if(DEBUG) fwrite(STDERR, "curl -b PHPSESSID=" . COOKIE . ' "' . $URL ."\"\n");`
265	`//execute post`	265	`//execute post`
266	`$result = curl_exec($ch);`	266	`$result = curl_exec($ch);`
267	`curl_close($ch);`	267	`curl_close($ch);`
268	`return $result;`	268	`return $result;`
269	`}`	269	`}`
270		270
271	`function exportXLS($cols = "standard,avance") {`	271	`function exportXLS($cols = "standard,avance") {`
272	`if(!defined('COOKIE')) return FALSE;`	272	`if(!defined('COOKIE')) return FALSE;`
273		273
274	`$file = "/tmp/b.xls";`	274	`$file = "/tmp/b.xls";`
275		275
276	`$URL = DOMAIN . '/' . URLPREFIX . 'CelWidgetExport/export?';`	276	`$URL = DOMAIN . '/' . URLPREFIX . 'CelWidgetExport/export?';`
277	`$URL .= http_build_query(array('colonnes' => $cols,`	277	`$URL .= http_build_query(array('colonnes' => $cols,`
278	`'id_utilisateur' => USER,`	278	`'id_utilisateur' => USER,`
279	`'format' => 'xls'));`	279	`'format' => 'xls'));`
280	`$ch = curl_init();`	280	`$ch = curl_init();`
281		281
282	`curl_setopt($ch,CURLOPT_URL, $URL);`	282	`curl_setopt($ch,CURLOPT_URL, $URL);`
283	`curl_setopt($ch,CURLOPT_COOKIE, 'PHPSESSID=' . COOKIE);`	283	`curl_setopt($ch,CURLOPT_COOKIE, 'PHPSESSID=' . COOKIE);`
284		284
285	`$fh = fopen($file, 'w');`	285	`$fh = fopen($file, 'w');`
286	`curl_setopt($ch,CURLOPT_FILE, $fh);`	286	`curl_setopt($ch,CURLOPT_FILE, $fh);`
287		287
288	`if(DEBUG) fwrite(STDERR, "curl -o $file -b PHPSESSID=" . COOKIE . ' "' . $URL ."\"\n");`	288	`if(DEBUG) fwrite(STDERR, "curl -o $file -b PHPSESSID=" . COOKIE . ' "' . $URL ."\"\n");`
289	`//execute post`	289	`//execute post`
290	`curl_exec($ch);`	290	`curl_exec($ch);`
291		291
292	`fflush($fh);`	292	`fflush($fh);`
293	`fclose($fh);`	293	`fclose($fh);`
294	`curl_close($ch);`	294	`curl_close($ch);`
295		295
296	`// if(DEBUG) fwrite(STDERR, "xls2csv $file\n");`	296	`// if(DEBUG) fwrite(STDERR, "xls2csv $file\n");`
297	`// exec("xls2csv $file", $result, $ret);`	297	`// exec("xls2csv $file", $result, $ret);`
298	`// return implode("\n", $result);`	298	`// return implode("\n", $result);`
299	`if(DEBUG) fwrite(STDERR, __DIR__ . "/bin/xls2csv-separate-sheets.pl -i $file\n");`	299	`if(DEBUG) fwrite(STDERR, __DIR__ . "/bin/xls2csv-separate-sheets.pl -i $file\n");`
300	`exec(__DIR__ . "/bin/xls2csv-separate-sheets.pl -i $file &>/dev/null", $result, $ret);`	300	`exec(__DIR__ . "/bin/xls2csv-separate-sheets.pl -i $file &>/dev/null", $result, $ret);`
301	`$newfile = substr($file, 0, -4) . '-Liste' . '.csv';`	301	`$newfile = substr($file, 0, -4) . '-Liste' . '.csv';`
302		302
303	`// because xls2csv-separate-sheets.pl does latin9`	303	`// because xls2csv-separate-sheets.pl does latin9`
304	`if(DEBUG) fwrite(STDERR, "iconv -f latin9 -t utf8 $newfile >\| /tmp/.x; mv -f /tmp/.x $newfile\n");`	304	`if(DEBUG) fwrite(STDERR, "iconv -f latin9 -t utf8 $newfile >\| /tmp/.x; mv -f /tmp/.x $newfile\n");`
305	`exec("iconv -f latin9 -t utf8 -o /tmp/.x $newfile; mv -f /tmp/.x $newfile");`	305	`exec("iconv -f latin9 -t utf8 -o /tmp/.x $newfile; mv -f /tmp/.x $newfile");`
306	`if($ret) die('error: ' . __FILE__ . ':' . __LINE__);`	306	`if($ret) die('error: ' . __FILE__ . ':' . __LINE__);`
307		307
308	`return file_get_contents($newfile);`	308	`return file_get_contents($newfile);`
309	`}`	309	`}`
310		310
311	`function getCSV_line($csv, $line) {`	311	`function getCSV_line($csv, $line) {`
312	`$line = max(0, intval($line - 1)); // -1 à cause du header`	312	`$line = max(0, intval($line - 1)); // -1 à cause du header`
313		313
314	`$out = fopen("php://temp", 'rw');`	314	`$out = fopen("php://temp", 'rw');`
315	`fwrite($out, $csv);`	315	`fwrite($out, $csv);`
316	`rewind($out);`	316	`rewind($out);`
317		317
318	`$head = champsLongToShort(fgetcsv($out));`	318	`$head = champsLongToShort(fgetcsv($out));`
319	`while ($line--) fgetcsv($out);`	319	`while ($line--) fgetcsv($out);`
320	`$l = fgetcsv($out);`	320	`$l = fgetcsv($out);`
321	`fclose($out);`	321	`fclose($out);`
322	`if(!$l) return FALSE;`	322	`if(!$l) return FALSE;`
323	`// xls2csv-separate-sheets.pl supprime les trailing champs vides`	323	`// xls2csv-separate-sheets.pl supprime les trailing champs vides`
324	`if(count($l) != count($head)) {`	324	`if(count($l) != count($head)) {`
325	`$l += array_fill(count($l), count($head) - count($l), "");`	325	`$l += array_fill(count($l), count($head) - count($l), "");`
326	`}`	326	`}`
327	`return array_combine($head, $l);`	327	`return array_combine($head, $l);`
328	`}`	328	`}`
329		329
330		330
331	`function champsLongToShort($a) {`	331	`function champsLongToShort($a) {`
332	`if(! $a) return array();`	332	`if(! $a) return array();`
333	`$r = array();`	333	`$r = array();`
334	`$x = array_flip($GLOBALS['champs']);`	334	`$x = array_flip($GLOBALS['champs']);`
335	`foreach($a as $k => $v) {`	335	`foreach($a as $k => $v) {`
336	`if(isset($x[$v])) $r[$k] = $x[$v];`	336	`if(isset($x[$v])) $r[$k] = $x[$v];`
337	`else $r[$k] = -1;`	337	`else $r[$k] = -1;`
338	`}`	338	`}`
339	`return $r;`	339	`return $r;`
340	`}`	340	`}`
341		341
342	`function champsLongToShort2($a) {`	342	`function champsLongToShort2($a) {`
343	`$r = array();`	343	`$r = array();`
344	`$x = array_flip($GLOBALS['champs']);`	344	`$x = array_flip($GLOBALS['champs']);`
345	`foreach($a as $k => $v) {`	345	`foreach($a as $k => $v) {`
346	`if(isset($x[$k])) $r[$x[$k]] = $v;`	346	`if(isset($x[$k])) $r[$x[$k]] = $v;`
347	`else $r[$k] = $v;`	347	`else $r[$k] = $v;`
348	`}`	348	`}`
349	`return $r;`	349	`return $r;`
350	`}`	350	`}`

Subversion Repositories eFlore/Applications.cel

(root)/branches/v1.9-echenilloir/jrest/tests/api.php @ 2030 – Rev 1935 → 1944