zoo_service_loader.c @ 857

Last change on this file since 857 was 541, checked in by david, 10 years ago
fix indent
Property svn:eol-style set to `native` Property svn:mime-type set to `text/x-csrc`
File size: 123.9 KB

Line
1	/**
2	* Author : Gérald FENOY
3	*
4	* Copyright 2008-2013 GeoLabs SARL. All rights reserved.
5	*
6	* Permission is hereby granted, free of charge, to any person obtaining a copy
7	* of this software and associated documentation files (the "Software"), to deal
8	* in the Software without restriction, including without limitation the rights
9	* to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
10	* copies of the Software, and to permit persons to whom the Software is
11	* furnished to do so, subject to the following conditions:
12	*
13	* The above copyright notice and this permission notice shall be included in
14	* all copies or substantial portions of the Software.
15	*
16	* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
17	* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
18	* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
19	* AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
20	* LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
21	* OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
22	* THE SOFTWARE.
23	*/
24
25	#define length(x) (sizeof(x) / sizeof(x[0]))
26
27	extern "C" int yylex ();
28	extern "C" int crlex ();
29
30	#include "cgic.h"
31
32	extern "C"
33	{
34	#include <libxml/tree.h>
35	#include <libxml/xmlmemory.h>
36	#include <libxml/parser.h>
37	#include <libxml/xpath.h>
38	#include <libxml/xpathInternals.h>
39	}
40
41	#include "ulinet.h"
42
43	#include <libintl.h>
44	#include <locale.h>
45	#include <string.h>
46
47	#include "service.h"
48
49	#include "service_internal.h"
50
51	#ifdef USE_PYTHON
52	#include "service_internal_python.h"
53	#endif
54
55	#ifdef USE_JAVA
56	#include "service_internal_java.h"
57	#endif
58
59	#ifdef USE_PHP
60	#include "service_internal_php.h"
61	#endif
62
63	#ifdef USE_JS
64	#include "service_internal_js.h"
65	#endif
66
67	#ifdef USE_RUBY
68	#include "service_internal_ruby.h"
69	#endif
70
71	#ifdef USE_PERL
72	#include "service_internal_perl.h"
73	#endif
74
75	#include <dirent.h>
76	#include <signal.h>
77	#include <unistd.h>
78	#ifndef WIN32
79	#include <dlfcn.h>
80	#include <libgen.h>
81	#else
82	#include <windows.h>
83	#include <direct.h>
84	#include <sys/types.h>
85	#include <sys/stat.h>
86	#include <unistd.h>
87	#define pid_t int;
88	#endif
89	#include <fcntl.h>
90	#include <time.h>
91	#include <stdarg.h>
92
93	#ifdef WIN32
94	extern "C"
95	{
96	__declspec (dllexport) char strcasestr (char const a, char const *b)
97	#ifndef USE_MS
98	{
99	char *x = zStrdup (a);
100	char *y = zStrdup (b);
101
102	x = _strlwr (x);
103	y = _strlwr (y);
104	char *pos = strstr (x, y);
105	char ret = pos == NULL ? NULL : (char ) (a + (pos - x));
106	free (x);
107	free (y);
108	return ret;
109	};
110	#else
111	;
112	#endif
113	}
114	#endif
115
116	#define _(String) dgettext ("zoo-kernel",String)
117	#define __(String) dgettext ("zoo-service",String)
118
119	extern int getServiceFromFile (maps , const char , service **);
120
121	int
122	readServiceFile (maps * conf, char file, service * service, char *name)
123	{
124	int t = getServiceFromFile (conf, file, service);
125	#ifdef YAML
126	if (t < 0)
127	{
128	t = getServiceFromYAML (conf, file, service, name);
129	}
130	#endif
131	return t;
132	}
133
134	void
135	translateChar (char *str, char toReplace, char toReplaceBy)
136	{
137	int i = 0, len = strlen (str);
138	for (i = 0; i < len; i++)
139	{
140	if (str[i] == toReplace)
141	str[i] = toReplaceBy;
142	}
143	}
144
145	/**
146	* Create (or append to) an array valued maps
147	* value = "["",""]"
148	*/
149	int
150	appendMapsToMaps (maps * m, maps * mo, maps * mi, elements * elem)
151	{
152	maps *tmpMaps = getMaps (mo, mi->name);
153	map *tmap = getMapType (tmpMaps->content);
154	elements *el = getElements (elem, mi->name);
155	int hasEl = 1;
156	if (el == NULL)
157	hasEl = -1;
158	if (tmap == NULL)
159	{
160	if (hasEl > 0)
161	tmap = getMapType (el->defaults->content);
162	}
163
164	map *testMap = NULL;
165	if (hasEl > 0)
166	{
167	testMap = getMap (el->content, "maxOccurs");
168	}
169	else
170	{
171	testMap = createMap ("maxOccurs", "unbounded");
172	}
173
174	if (testMap != NULL)
175	{
176	if (strncasecmp (testMap->value, "unbounded", 9) != 0
177	&& atoi (testMap->value) > 1)
178	{
179	if (addMapsArrayToMaps (&mo, mi, tmap->name) < 0)
180	{
181	char emsg[1024];
182	sprintf (emsg,
183	_
184	("You set maximum occurences for <%s> as %i but you tried to use it more than the limit you set. Please correct your ZCFG file or your request."),
185	mi->name, atoi (testMap->value));
186	errorException (m, emsg, "InternalError", NULL);
187	return -1;
188	}
189	}
190	else
191	{
192	if (strncasecmp (testMap->value, "unbounded", 9) == 0)
193	{
194	if (hasEl < 0)
195	{
196	freeMap (&testMap);
197	free (testMap);
198	}
199	if (addMapsArrayToMaps (&mo, mi, tmap->name) < 0)
200	{
201	char emsg[1024];
202	map *tmpMap = getMap (mi->content, "length");
203	sprintf (emsg,
204	_
205	("ZOO-Kernel was unable to load your data for %s position %s."),
206	mi->name, tmpMap->value);
207	errorException (m, emsg, "InternalError", NULL);
208	return -1;
209	}
210	}
211	else
212	{
213	char emsg[1024];
214	sprintf (emsg,
215	_
216	("You set maximum occurences for <%s> to one but you tried to use it more than once. Please correct your ZCFG file or your request."),
217	mi->name);
218	errorException (m, emsg, "InternalError", NULL);
219	return -1;
220	}
221	}
222	}
223	return 0;
224	}
225
226	int
227	recursReaddirF (maps * m, xmlNodePtr n, char conf_dir, char prefix,
228	int saved_stdout, int level, void (func) (maps *, xmlNodePtr,
229	service *))
230	{
231	struct dirent *dp;
232	int scount = 0;
233
234	if (conf_dir == NULL)
235	return 1;
236	DIR *dirp = opendir (conf_dir);
237	if (dirp == NULL)
238	{
239	if (level > 0)
240	return 1;
241	else
242	return -1;
243	}
244	char tmp1[25];
245	sprintf (tmp1, "sprefix_%d", level);
246	char levels[17];
247	sprintf (levels, "%d", level);
248	setMapInMaps (m, "lenv", "level", levels);
249	while ((dp = readdir (dirp)) != NULL)
250	if ((dp->d_type == DT_DIR \|\| dp->d_type == DT_LNK) && dp->d_name[0] != '.'
251	&& strstr (dp->d_name, ".") == NULL)
252	{
253
254	char *tmp =
255	(char ) malloc ((strlen (conf_dir) + strlen (dp->d_name) + 2)
256	sizeof (char));
257	sprintf (tmp, "%s/%s", conf_dir, dp->d_name);
258
259	if (prefix != NULL)
260	{
261	prefix = NULL;
262	}
263	prefix = (char ) malloc ((strlen (dp->d_name) + 2) sizeof (char));
264	sprintf (prefix, "%s.", dp->d_name);
265
266	//map* tmpMap=getMapFromMaps(m,"lenv",tmp1);
267
268	int res;
269	if (prefix != NULL)
270	{
271	setMapInMaps (m, "lenv", tmp1, prefix);
272	char levels1[17];
273	sprintf (levels1, "%d", level + 1);
274	setMapInMaps (m, "lenv", "level", levels1);
275	res =
276	recursReaddirF (m, n, tmp, prefix, saved_stdout, level + 1,
277	func);
278	sprintf (levels1, "%d", level);
279	setMapInMaps (m, "lenv", "level", levels1);
280	free (prefix);
281	prefix = NULL;
282	}
283	else
284	res = -1;
285	free (tmp);
286	if (res < 0)
287	{
288	return res;
289	}
290	}
291	else
292	{
293	if (dp->d_name[0] != '.' && strstr (dp->d_name, ".zcfg") != 0)
294	{
295	int t;
296	char tmps1[1024];
297	memset (tmps1, 0, 1024);
298	snprintf (tmps1, 1024, "%s/%s", conf_dir, dp->d_name);
299	service s1 = (service ) malloc (SERVICE_SIZE);
300	if (s1 == NULL)
301	{
302	dup2 (saved_stdout, fileno (stdout));
303	errorException (m, _("Unable to allocate memory."),
304	"InternalError", NULL);
305	return -1;
306	}
307	#ifdef DEBUG
308	fprintf (stderr, "#################\n%s\n#################\n",
309	tmps1);
310	#endif
311	char *tmpsn = zStrdup (dp->d_name);
312	tmpsn[strlen (tmpsn) - 5] = 0;
313	t = readServiceFile (m, tmps1, &s1, tmpsn);
314	free (tmpsn);
315	if (t < 0)
316	{
317	map *tmp00 = getMapFromMaps (m, "lenv", "message");
318	char tmp01[1024];
319	if (tmp00 != NULL)
320	sprintf (tmp01, _("Unable to parse the ZCFG file: %s (%s)"),
321	dp->d_name, tmp00->value);
322	else
323	sprintf (tmp01, _("Unable to parse the ZCFG file: %s."),
324	dp->d_name);
325	dup2 (saved_stdout, fileno (stdout));
326	errorException (m, tmp01, "InternalError", NULL);
327	return -1;
328	}
329	#ifdef DEBUG
330	dumpService (s1);
331	fflush (stdout);
332	fflush (stderr);
333	#endif
334	func (m, n, s1);
335	freeService (&s1);
336	free (s1);
337	scount++;
338	}
339	}
340	(void) closedir (dirp);
341	return 1;
342	}
343
344	xmlXPathObjectPtr
345	extractFromDoc (xmlDocPtr doc, const char *search)
346	{
347	xmlXPathContextPtr xpathCtx;
348	xmlXPathObjectPtr xpathObj;
349	xpathCtx = xmlXPathNewContext (doc);
350	xpathObj = xmlXPathEvalExpression (BAD_CAST search, xpathCtx);
351	xmlXPathFreeContext (xpathCtx);
352	return xpathObj;
353	}
354
355	void
356	donothing (int sig)
357	{
358	#ifdef DEBUG
359	fprintf (stderr, "Signal %d after the ZOO-Kernel returned result !\n", sig);
360	#endif
361	exit (0);
362	}
363
364	void
365	sig_handler (int sig)
366	{
367	char tmp[100];
368	const char *ssig;
369	switch (sig)
370	{
371	case SIGSEGV:
372	ssig = "SIGSEGV";
373	break;
374	case SIGTERM:
375	ssig = "SIGTERM";
376	break;
377	case SIGINT:
378	ssig = "SIGINT";
379	break;
380	case SIGILL:
381	ssig = "SIGILL";
382	break;
383	case SIGFPE:
384	ssig = "SIGFPE";
385	break;
386	case SIGABRT:
387	ssig = "SIGABRT";
388	break;
389	default:
390	ssig = "UNKNOWN";
391	break;
392	}
393	sprintf (tmp,
394	_
395	("ZOO Kernel failed to process your request receiving signal %d = %s"),
396	sig, ssig);
397	errorException (NULL, tmp, "InternalError", NULL);
398	#ifdef DEBUG
399	fprintf (stderr, "Not this time!\n");
400	#endif
401	exit (0);
402	}
403
404	void
405	loadServiceAndRun (maps ** myMap, service * s1, map * request_inputs,
406	maps inputs, maps ioutputs, int *eres)
407	{
408	char tmps1[1024];
409	char ntmp[1024];
410	maps m = myMap;
411	maps request_output_real_format = ioutputs;
412	maps request_input_real_format = inputs;
413	/**
414	* Extract serviceType to know what kind of service should be loaded
415	*/
416	map *r_inputs = NULL;
417	#ifndef WIN32
418	getcwd (ntmp, 1024);
419	#else
420	_getcwd (ntmp, 1024);
421	#endif
422	r_inputs = getMap (s1->content, "serviceType");
423	#ifdef DEBUG
424	fprintf (stderr, "LOAD A %s SERVICE PROVIDER \n", r_inputs->value);
425	fflush (stderr);
426	#endif
427	if (strlen (r_inputs->value) == 1
428	&& strncasecmp (r_inputs->value, "C", 1) == 0)
429	{
430	r_inputs = getMap (request_inputs, "metapath");
431	if (r_inputs != NULL)
432	sprintf (tmps1, "%s/%s", ntmp, r_inputs->value);
433	else
434	sprintf (tmps1, "%s/", ntmp);
435	char *altPath = zStrdup (tmps1);
436	r_inputs = getMap (s1->content, "ServiceProvider");
437	sprintf (tmps1, "%s/%s", altPath, r_inputs->value);
438	free (altPath);
439	#ifdef DEBUG
440	fprintf (stderr, "Trying to load %s\n", tmps1);
441	#endif
442	#ifdef WIN32
443	HINSTANCE so =
444	LoadLibraryEx (tmps1, NULL, LOAD_WITH_ALTERED_SEARCH_PATH);
445	#else
446	void *so = dlopen (tmps1, RTLD_LAZY);
447	#endif
448	#ifdef WIN32
449	DWORD errstr;
450	errstr = GetLastError ();
451	#else
452	char *errstr;
453	errstr = dlerror ();
454	#endif
455	#ifdef DEBUG
456	fprintf (stderr, "%s loaded (%d) \n", tmps1, errstr);
457	#endif
458	if (so != NULL)
459	{
460	#ifdef DEBUG
461	fprintf (stderr, "Library loaded %s \n", errstr);
462	fprintf (stderr, "Service Shared Object = %s\n", r_inputs->value);
463	#endif
464	r_inputs = getMap (s1->content, "serviceType");
465	#ifdef DEBUG
466	dumpMap (r_inputs);
467	fprintf (stderr, "%s\n", r_inputs->value);
468	fflush (stderr);
469	#endif
470	if (strncasecmp (r_inputs->value, "C-FORTRAN", 9) == 0)
471	{
472	r_inputs = getMap (request_inputs, "Identifier");
473	char fname[1024];
474	sprintf (fname, "%s_", r_inputs->value);
475	#ifdef DEBUG
476	fprintf (stderr, "Try to load function %s\n", fname);
477	#endif
478	#ifdef WIN32
479	typedef int (CALLBACK * execute_t) (char *, char *,
480	char ***);
481	execute_t execute = (execute_t) GetProcAddress (so, fname);
482	#else
483	typedef int (execute_t) (char , char , char **);
484	execute_t execute = (execute_t) dlsym (so, fname);
485	#endif
486	#ifdef DEBUG
487	#ifdef WIN32
488	errstr = GetLastError ();
489	#else
490	errstr = dlerror ();
491	#endif
492	fprintf (stderr, "Function loaded %s\n", errstr);
493	#endif
494
495	char main_conf[10][30][1024];
496	char inputs[10][30][1024];
497	char outputs[10][30][1024];
498	for (int i = 0; i < 10; i++)
499	{
500	for (int j = 0; j < 30; j++)
501	{
502	memset (main_conf[i][j], 0, 1024);
503	memset (inputs[i][j], 0, 1024);
504	memset (outputs[i][j], 0, 1024);
505	}
506	}
507	mapsToCharXXX (m, (char ***) main_conf);
508	mapsToCharXXX (request_input_real_format, (char ***) inputs);
509	mapsToCharXXX (request_output_real_format, (char ***) outputs);
510	*eres =
511	execute ((char *) &main_conf[0], (char *) &inputs[0],
512	(char ***) &outputs[0]);
513	#ifdef DEBUG
514	fprintf (stderr, "Function run successfully \n");
515	#endif
516	charxxxToMaps ((char ***) &outputs[0],
517	&request_output_real_format);
518	}
519	else
520	{
521	#ifdef DEBUG
522	#ifdef WIN32
523	errstr = GetLastError ();
524	fprintf (stderr, "Function %s failed to load because of %d\n",
525	r_inputs->value, errstr);
526	#endif
527	#endif
528	r_inputs = getMapFromMaps (m, "lenv", "Identifier");
529	#ifdef DEBUG
530	fprintf (stderr, "Try to load function %s\n", r_inputs->value);
531	#endif
532	typedef int (execute_t) (maps , maps , maps *);
533	#ifdef WIN32
534	execute_t execute =
535	(execute_t) GetProcAddress (so, r_inputs->value);
536	#else
537	execute_t execute = (execute_t) dlsym (so, r_inputs->value);
538	#endif
539
540	if (execute == NULL)
541	{
542	#ifdef WIN32
543	errstr = GetLastError ();
544	#else
545	errstr = dlerror ();
546	#endif
547	char *tmpMsg =
548	(char *) malloc (2048 + strlen (r_inputs->value));
549	sprintf (tmpMsg,
550	_
551	("Error occured while running the %s function: %s"),
552	r_inputs->value, errstr);
553	errorException (m, tmpMsg, "InternalError", NULL);
554	free (tmpMsg);
555	#ifdef DEBUG
556	fprintf (stderr, "Function %s error %s\n", r_inputs->value,
557	errstr);
558	#endif
559	*eres = -1;
560	return;
561	}
562
563	#ifdef DEBUG
564	#ifdef WIN32
565	errstr = GetLastError ();
566	#else
567	errstr = dlerror ();
568	#endif
569	fprintf (stderr, "Function loaded %s\n", errstr);
570	#endif
571
572	#ifdef DEBUG
573	fprintf (stderr, "Now run the function \n");
574	fflush (stderr);
575	#endif
576	*eres =
577	execute (&m, &request_input_real_format,
578	&request_output_real_format);
579	#ifdef DEBUG
580	fprintf (stderr, "Function loaded and returned %d\n", eres);
581	fflush (stderr);
582	#endif
583	}
584	#ifdef WIN32
585	*ioutputs = dupMaps (&request_output_real_format);
586	FreeLibrary (so);
587	#else
588	dlclose (so);
589	#endif
590	}
591	else
592	{
593	/**
594	* Unable to load the specified shared library
595	*/
596	char tmps[1024];
597	#ifdef WIN32
598	DWORD errstr = GetLastError ();
599	#else
600	char *errstr = dlerror ();
601	#endif
602	sprintf (tmps, _("C Library can't be loaded %s"), errstr);
603	map *tmps1 = createMap ("text", tmps);
604	printExceptionReportResponse (m, tmps1);
605	*eres = -1;
606	freeMap (&tmps1);
607	free (tmps1);
608	}
609	}
610	else
611	#ifdef USE_PYTHON
612	if (strncasecmp (r_inputs->value, "PYTHON", 6) == 0)
613	{
614	*eres =
615	zoo_python_support (&m, request_inputs, s1,
616	&request_input_real_format,
617	&request_output_real_format);
618	}
619	else
620	#endif
621
622	#ifdef USE_JAVA
623	if (strncasecmp (r_inputs->value, "JAVA", 4) == 0)
624	{
625	*eres =
626	zoo_java_support (&m, request_inputs, s1, &request_input_real_format,
627	&request_output_real_format);
628	}
629	else
630	#endif
631
632	#ifdef USE_PHP
633	if (strncasecmp (r_inputs->value, "PHP", 3) == 0)
634	{
635	*eres =
636	zoo_php_support (&m, request_inputs, s1, &request_input_real_format,
637	&request_output_real_format);
638	}
639	else
640	#endif
641
642
643	#ifdef USE_PERL
644	if (strncasecmp (r_inputs->value, "PERL", 4) == 0)
645	{
646	*eres =
647	zoo_perl_support (&m, request_inputs, s1, &request_input_real_format,
648	&request_output_real_format);
649	}
650	else
651	#endif
652
653	#ifdef USE_JS
654	if (strncasecmp (r_inputs->value, "JS", 2) == 0)
655	{
656	*eres =
657	zoo_js_support (&m, request_inputs, s1, &request_input_real_format,
658	&request_output_real_format);
659	}
660	else
661	#endif
662
663	#ifdef USE_RUBY
664	if (strncasecmp (r_inputs->value, "Ruby", 4) == 0)
665	{
666	*eres =
667	zoo_ruby_support (&m, request_inputs, s1, &request_input_real_format,
668	&request_output_real_format);
669	}
670	else
671	#endif
672
673	{
674	char tmpv[1024];
675	sprintf (tmpv,
676	_
677	("Programming Language (%s) set in ZCFG file is not currently supported by ZOO Kernel.\n"),
678	r_inputs->value);
679	map *tmps = createMap ("text", tmpv);
680	printExceptionReportResponse (m, tmps);
681	*eres = -1;
682	}
683	*myMap = m;
684	*ioutputs = request_output_real_format;
685	}
686
687
688	#ifdef WIN32
689	/**
690	* createProcess function: create a new process after setting some env variables
691	*/
692	void
693	createProcess (maps * m, map * request_inputs, service * s1, char *opts,
694	int cpid, maps * inputs, maps * outputs)
695	{
696	STARTUPINFO si;
697	PROCESS_INFORMATION pi;
698	ZeroMemory (&si, sizeof (si));
699	si.cb = sizeof (si);
700	ZeroMemory (&pi, sizeof (pi));
701	char tmp = (char ) malloc ((1024 + cgiContentLength) * sizeof (char));
702	char tmpq = (char ) malloc ((1024 + cgiContentLength) * sizeof (char));
703	map *req = getMap (request_inputs, "request");
704	map *id = getMap (request_inputs, "identifier");
705	map *di = getMap (request_inputs, "DataInputs");
706
707	char *dataInputsKVP = getMapsAsKVP (inputs, cgiContentLength, 0);
708	char *dataOutputsKVP = getMapsAsKVP (outputs, cgiContentLength, 1);
709	#ifdef DEBUG
710	fprintf (stderr, "DATAINPUTSKVP %s\n", dataInputsKVP);
711	fprintf (stderr, "DATAOUTPUTSKVP %s\n", dataOutputsKVP);
712	#endif
713	map *sid = getMapFromMaps (m, "lenv", "sid");
714	map *r_inputs = getMapFromMaps (m, "main", "tmpPath");
715	map *r_inputs1 = getMap (request_inputs, "metapath");
716	int hasIn = -1;
717	if (r_inputs1 == NULL)
718	{
719	r_inputs1 = createMap ("metapath", "");
720	hasIn = 1;
721	}
722	map *r_inputs2 = getMap (request_inputs, "ResponseDocument");
723	if (r_inputs2 == NULL)
724	r_inputs2 = getMap (request_inputs, "RawDataOutput");
725	map *tmpPath = getMapFromMaps (m, "lenv", "cwd");
726
727	map *tmpReq = getMap (request_inputs, "xrequest");
728	if (r_inputs2 != NULL)
729	{
730	sprintf (tmp,
731	"\"metapath=%s&request=%s&service=WPS&version=1.0.0&Identifier=%s&DataInputs=%s&%s=%s&cgiSid=%s\"",
732	r_inputs1->value, req->value, id->value, dataInputsKVP,
733	r_inputs2->name, dataOutputsKVP, sid->value);
734	sprintf (tmpq,
735	"metapath=%s&request=%s&service=WPS&version=1.0.0&Identifier=%s&DataInputs=%s&%s=%s",
736	r_inputs1->value, req->value, id->value, dataInputsKVP,
737	r_inputs2->name, dataOutputsKVP);
738	}
739	else
740	{
741	sprintf (tmp,
742	"\"metapath=%s&request=%s&service=WPS&version=1.0.0&Identifier=%s&DataInputs=%s&cgiSid=%s\"",
743	r_inputs1->value, req->value, id->value, dataInputsKVP,
744	sid->value);
745	sprintf (tmpq,
746	"metapath=%s&request=%s&service=WPS&version=1.0.0&Identifier=%s&DataInputs=%s",
747	r_inputs1->value, req->value, id->value, dataInputsKVP,
748	sid->value);
749	}
750
751	if (hasIn > 0)
752	{
753	freeMap (&r_inputs1);
754	free (r_inputs1);
755	}
756	char *tmp1 = zStrdup (tmp);
757	sprintf (tmp, "\"zoo_loader.cgi\" %s \"%s\"", tmp1, sid->value);
758
759	free (dataInputsKVP);
760	free (dataOutputsKVP);
761	#ifdef DEBUG
762	fprintf (stderr, "REQUEST IS : %s \n", tmp);
763	#endif
764	SetEnvironmentVariable ("CGISID", TEXT (sid->value));
765	SetEnvironmentVariable ("QUERY_STRING", TEXT (tmpq));
766	char clen[1000];
767	sprintf (clen, "%d", strlen (tmpq));
768	SetEnvironmentVariable ("CONTENT_LENGTH", TEXT (clen));
769
770	if (!CreateProcess (NULL, // No module name (use command line)
771	TEXT (tmp), // Command line
772	NULL, // Process handle not inheritable
773	NULL, // Thread handle not inheritable
774	FALSE, // Set handle inheritance to FALSE
775	CREATE_NO_WINDOW, // Apache won't wait until the end
776	NULL, // Use parent's environment block
777	NULL, // Use parent's starting directory
778	&si, // Pointer to STARTUPINFO struct
779	&pi) // Pointer to PROCESS_INFORMATION struct
780	)
781	{
782	#ifdef DEBUG
783	fprintf (stderr, "CreateProcess failed (%d).\n", GetLastError ());
784	#endif
785	return;
786	}
787	else
788	{
789	#ifdef DEBUG
790	fprintf (stderr, "CreateProcess successfull (%d).\n\n\n\n",
791	GetLastError ());
792	#endif
793	}
794	CloseHandle (pi.hProcess);
795	CloseHandle (pi.hThread);
796	#ifdef DEBUG
797	fprintf (stderr, "CreateProcess finished !\n");
798	#endif
799	}
800	#endif
801
802	int
803	runRequest (map ** inputs)
804	{
805
806	#ifndef USE_GDB
807	signal (SIGCHLD, SIG_IGN);
808	signal (SIGSEGV, sig_handler);
809	signal (SIGTERM, sig_handler);
810	signal (SIGINT, sig_handler);
811	signal (SIGILL, sig_handler);
812	signal (SIGFPE, sig_handler);
813	signal (SIGABRT, sig_handler);
814	#endif
815
816	map *r_inputs = NULL;
817	map request_inputs = inputs;
818	maps *m = NULL;
819	char *REQUEST = NULL;
820	/**
821	* Parsing service specfic configuration file
822	*/
823	m = (maps *) malloc (MAPS_SIZE);
824	if (m == NULL)
825	{
826	return errorException (m, _("Unable to allocate memory."),
827	"InternalError", NULL);
828	}
829	char ntmp[1024];
830	#ifndef WIN32
831	getcwd (ntmp, 1024);
832	#else
833	_getcwd (ntmp, 1024);
834	#endif
835	r_inputs = getMapOrFill (&request_inputs, "metapath", "");
836
837
838	char conf_file[10240];
839	snprintf (conf_file, 10240, "%s/%s/main.cfg", ntmp, r_inputs->value);
840	if (conf_read (conf_file, m) == 2)
841	{
842	errorException (NULL, _("Unable to load the main.cfg file."),
843	"InternalError", NULL);
844	free (m);
845	return 1;
846	}
847	#ifdef DEBUG
848	fprintf (stderr, "***** BEGIN MAPS\n");
849	dumpMaps (m);
850	fprintf (stderr, "***** END MAPS\n");
851	#endif
852
853	map *getPath = getMapFromMaps (m, "main", "gettextPath");
854	if (getPath != NULL)
855	{
856	bindtextdomain ("zoo-kernel", getPath->value);
857	bindtextdomain ("zoo-services", getPath->value);
858	}
859	else
860	{
861	bindtextdomain ("zoo-kernel", "/usr/share/locale/");
862	bindtextdomain ("zoo-services", "/usr/share/locale/");
863	}
864
865
866	/**
867	* Manage our own error log file (usefull to separate standard apache debug
868	* messages from the ZOO-Kernel ones but also for IIS users to avoid wrong
869	* headers messages returned by the CGI due to wrong redirection of stderr)
870	*/
871	FILE *fstde = NULL;
872	map *fstdem = getMapFromMaps (m, "main", "logPath");
873	if (fstdem != NULL)
874	fstde = freopen (fstdem->value, "a+", stderr);
875
876	r_inputs = getMap (request_inputs, "language");
877	if (r_inputs == NULL)
878	r_inputs = getMapFromMaps (m, "main", "language");
879	if (r_inputs != NULL)
880	{
881	if (isValidLang (m, r_inputs->value) < 0)
882	{
883	char tmp[1024];
884	sprintf (tmp,
885	_
886	("The value %s is not supported for the <language> parameter"),
887	r_inputs->value);
888	errorException (m, tmp, "InvalidParameterValue", "language");
889	freeMaps (&m);
890	free (m);
891	free (REQUEST);
892	return 1;
893
894	}
895	char *tmp = zStrdup (r_inputs->value);
896	setMapInMaps (m, "main", "language", tmp);
897	#ifdef DEB
898	char tmp2[12];
899	sprintf (tmp2, "%s.utf-8", tmp);
900	translateChar (tmp2, '-', '_');
901	setlocale (LC_ALL, tmp2);
902	#else
903	translateChar (tmp, '-', '_');
904	setlocale (LC_ALL, tmp);
905	#endif
906	#ifndef WIN32
907	setenv ("LC_ALL", tmp, 1);
908	#else
909	char tmp1[12];
910	sprintf (tmp1, "LC_ALL=%s", tmp);
911	putenv (tmp1);
912	#endif
913	free (tmp);
914	}
915	else
916	{
917	setlocale (LC_ALL, "en_US");
918	#ifndef WIN32
919	setenv ("LC_ALL", "en_US", 1);
920	#else
921	char tmp1[12];
922	sprintf (tmp1, "LC_ALL=en_US");
923	putenv (tmp1);
924	#endif
925	setMapInMaps (m, "main", "language", "en-US");
926	}
927	setlocale (LC_NUMERIC, "en_US");
928	bind_textdomain_codeset ("zoo-kernel", "UTF-8");
929	textdomain ("zoo-kernel");
930	bind_textdomain_codeset ("zoo-services", "UTF-8");
931	textdomain ("zoo-services");
932
933	map *lsoap = getMap (request_inputs, "soap");
934	if (lsoap != NULL && strcasecmp (lsoap->value, "true") == 0)
935	setMapInMaps (m, "main", "isSoap", "true");
936	else
937	setMapInMaps (m, "main", "isSoap", "false");
938
939	if (strlen (cgiServerName) > 0)
940	{
941	char tmpUrl[1024];
942	if (strncmp (cgiServerPort, "80", 2) == 0)
943	{
944	sprintf (tmpUrl, "http://%s%s", cgiServerName, cgiScriptName);
945	}
946	else
947	{
948	sprintf (tmpUrl, "http://%s:%s%s", cgiServerName, cgiServerPort,
949	cgiScriptName);
950	}
951	#ifdef DEBUG
952	fprintf (stderr, "* %s *\n", tmpUrl);
953	#endif
954	setMapInMaps (m, "main", "serverAddress", tmpUrl);
955	}
956
957	/**
958	* Check for minimum inputs
959	*/
960	r_inputs = getMap (request_inputs, "Request");
961	if (request_inputs == NULL \|\| r_inputs == NULL)
962	{
963	errorException (m, _("Parameter <request> was not specified"),
964	"MissingParameterValue", "request");
965	if (count (request_inputs) == 1)
966	{
967	freeMap (&request_inputs);
968	free (request_inputs);
969	}
970	freeMaps (&m);
971	free (m);
972	return 1;
973	}
974	else
975	{
976	REQUEST = zStrdup (r_inputs->value);
977	if (strncasecmp (r_inputs->value, "GetCapabilities", 15) != 0
978	&& strncasecmp (r_inputs->value, "DescribeProcess", 15) != 0
979	&& strncasecmp (r_inputs->value, "Execute", 7) != 0)
980	{
981	errorException (m,
982	_
983	("Unenderstood <request> value. Please check that it was set to GetCapabilities, DescribeProcess or Execute."),
984	"OperationNotSupported", r_inputs->value);
985	freeMaps (&m);
986	free (m);
987	free (REQUEST);
988	return 1;
989	}
990	}
991	r_inputs = NULL;
992	r_inputs = getMap (request_inputs, "Service");
993	if (r_inputs == NULLMAP)
994	{
995	errorException (m, _("Parameter <service> was not specified"),
996	"MissingParameterValue", "service");
997	freeMaps (&m);
998	free (m);
999	free (REQUEST);
1000	return 1;
1001	}
1002	else
1003	{
1004	if (strcasecmp (r_inputs->value, "WPS") != 0)
1005	{
1006	errorException (m,
1007	_
1008	("Unenderstood <service> value, WPS is the only acceptable value."),
1009	"InvalidParameterValue", "service");
1010	freeMaps (&m);
1011	free (m);
1012	free (REQUEST);
1013	return 1;
1014	}
1015	}
1016	if (strncasecmp (REQUEST, "GetCapabilities", 15) != 0)
1017	{
1018	r_inputs = getMap (request_inputs, "Version");
1019	if (r_inputs == NULL)
1020	{
1021	errorException (m, _("Parameter <version> was not specified"),
1022	"MissingParameterValue", "version");
1023	freeMaps (&m);
1024	free (m);
1025	free (REQUEST);
1026	return 1;
1027	}
1028	else
1029	{
1030	if (strcasecmp (r_inputs->value, "1.0.0") != 0)
1031	{
1032	errorException (m,
1033	_
1034	("Unenderstood <version> value, 1.0.0 is the only acceptable value."),
1035	"InvalidParameterValue", "service");
1036	freeMaps (&m);
1037	free (m);
1038	free (REQUEST);
1039	return 1;
1040	}
1041	}
1042	}
1043	else
1044	{
1045	r_inputs = getMap (request_inputs, "AcceptVersions");
1046	if (r_inputs != NULL)
1047	{
1048	if (strncmp (r_inputs->value, "1.0.0", 5) != 0)
1049	{
1050	errorException (m,
1051	_
1052	("Unenderstood <AcceptVersions> value, 1.0.0 is the only acceptable value."),
1053	"VersionNegotiationFailed", NULL);
1054	freeMaps (&m);
1055	free (m);
1056	free (REQUEST);
1057	return 1;
1058	}
1059	}
1060	}
1061
1062	r_inputs = getMap (request_inputs, "serviceprovider");
1063	if (r_inputs == NULL)
1064	{
1065	addToMap (request_inputs, "serviceprovider", "");
1066	}
1067
1068	maps *request_output_real_format = NULL;
1069	map *tmpm = getMapFromMaps (m, "main", "serverAddress");
1070	if (tmpm != NULL)
1071	SERVICE_URL = zStrdup (tmpm->value);
1072	else
1073	SERVICE_URL = zStrdup (DEFAULT_SERVICE_URL);
1074
1075	service *s1;
1076	int scount = 0;
1077	#ifdef DEBUG
1078	dumpMap (r_inputs);
1079	#endif
1080	char conf_dir[1024];
1081	int t;
1082	char tmps1[1024];
1083
1084	r_inputs = NULL;
1085	r_inputs = getMap (request_inputs, "metapath");
1086	if (r_inputs != NULL)
1087	snprintf (conf_dir, 1024, "%s/%s", ntmp, r_inputs->value);
1088	else
1089	snprintf (conf_dir, 1024, "%s", ntmp);
1090
1091	if (strncasecmp (REQUEST, "GetCapabilities", 15) == 0)
1092	{
1093	#ifdef DEBUG
1094	dumpMap (r_inputs);
1095	#endif
1096	xmlDocPtr doc = xmlNewDoc (BAD_CAST "1.0");
1097	r_inputs = NULL;
1098	r_inputs = getMap (request_inputs, "ServiceProvider");
1099	xmlNodePtr n;
1100	if (r_inputs != NULL)
1101	n = printGetCapabilitiesHeader (doc, r_inputs->value, m);
1102	else
1103	n = printGetCapabilitiesHeader (doc, "", m);
1104	/**
1105	* Here we need to close stdout to ensure that not supported chars
1106	* has been found in the zcfg and then printed on stdout
1107	*/
1108	int saved_stdout = dup (fileno (stdout));
1109	dup2 (fileno (stderr), fileno (stdout));
1110	if (int res =
1111	recursReaddirF (m, n, conf_dir, NULL, saved_stdout, 0,
1112	printGetCapabilitiesForProcess) < 0)
1113	{
1114	freeMaps (&m);
1115	free (m);
1116	free (REQUEST);
1117	free (SERVICE_URL);
1118	fflush (stdout);
1119	return res;
1120	}
1121	dup2 (saved_stdout, fileno (stdout));
1122	printDocument (m, doc, getpid ());
1123	freeMaps (&m);
1124	free (m);
1125	free (REQUEST);
1126	free (SERVICE_URL);
1127	fflush (stdout);
1128	return 0;
1129	}
1130	else
1131	{
1132	r_inputs = getMap (request_inputs, "Identifier");
1133	if (r_inputs == NULL
1134	\|\| strlen (r_inputs->name) == 0 \|\| strlen (r_inputs->value) == 0)
1135	{
1136	errorException (m, _("Mandatory <identifier> was not specified"),
1137	"MissingParameterValue", "identifier");
1138	freeMaps (&m);
1139	free (m);
1140	free (REQUEST);
1141	free (SERVICE_URL);
1142	return 0;
1143	}
1144
1145	struct dirent *dp;
1146	DIR *dirp = opendir (conf_dir);
1147	if (dirp == NULL)
1148	{
1149	errorException (m, _("The specified path path doesn't exist."),
1150	"InvalidParameterValue", conf_dir);
1151	freeMaps (&m);
1152	free (m);
1153	free (REQUEST);
1154	free (SERVICE_URL);
1155	return 0;
1156	}
1157	if (strncasecmp (REQUEST, "DescribeProcess", 15) == 0)
1158	{
1159	/**
1160	* Loop over Identifier list
1161	*/
1162	xmlDocPtr doc = xmlNewDoc (BAD_CAST "1.0");
1163	r_inputs = NULL;
1164	r_inputs = getMap (request_inputs, "ServiceProvider");
1165
1166	xmlNodePtr n;
1167	if (r_inputs != NULL)
1168	n = printDescribeProcessHeader (doc, r_inputs->value, m);
1169	else
1170	n = printDescribeProcessHeader (doc, "", m);
1171
1172	r_inputs = getMap (request_inputs, "Identifier");
1173
1174	char *orig = zStrdup (r_inputs->value);
1175
1176	int saved_stdout = dup (fileno (stdout));
1177	dup2 (fileno (stderr), fileno (stdout));
1178	if (strcasecmp ("all", orig) == 0)
1179	{
1180	if (int res =
1181	recursReaddirF (m, n, conf_dir, NULL, saved_stdout, 0,
1182	printDescribeProcessForProcess) < 0)
1183	return res;
1184	}
1185	else
1186	{
1187	char *saveptr;
1188	char *tmps = strtok_r (orig, ",", &saveptr);
1189
1190	char buff[256];
1191	char buff1[1024];
1192	while (tmps != NULL)
1193	{
1194	int hasVal = -1;
1195	char *corig = zStrdup (tmps);
1196	if (strstr (corig, ".") != NULL)
1197	{
1198
1199	parseIdentifier (m, conf_dir, corig, buff1);
1200	map *tmpMap = getMapFromMaps (m, "lenv", "metapath");
1201	if (tmpMap != NULL)
1202	addToMap (request_inputs, "metapath", tmpMap->value);
1203	map *tmpMapI = getMapFromMaps (m, "lenv", "Identifier");
1204
1205	s1 = (service *) malloc (SERVICE_SIZE);
1206	t = readServiceFile (m, buff1, &s1, tmpMapI->value);
1207	if (t < 0)
1208	{
1209	map *tmp00 = getMapFromMaps (m, "lenv", "message");
1210	char tmp01[1024];
1211	if (tmp00 != NULL)
1212	sprintf (tmp01,
1213	_
1214	("Unable to parse the ZCFG file for the following ZOO-Service: %s. Message: %s"),
1215	tmps, tmp00->value);
1216	else
1217	sprintf (tmp01,
1218	_
1219	("Unable to parse the ZCFG file for the following ZOO-Service: %s."),
1220	tmps);
1221	dup2 (saved_stdout, fileno (stdout));
1222	errorException (m, tmp01, "InvalidParameterValue",
1223	"identifier");
1224	freeMaps (&m);
1225	free (m);
1226	free (REQUEST);
1227	free (corig);
1228	free (orig);
1229	free (SERVICE_URL);
1230	free (s1);
1231	closedir (dirp);
1232	xmlFreeDoc (doc);
1233	xmlCleanupParser ();
1234	zooXmlCleanupNs ();
1235	return 1;
1236	}
1237	#ifdef DEBUG
1238	dumpService (s1);
1239	#endif
1240	printDescribeProcessForProcess (m, n, s1);
1241	freeService (&s1);
1242	free (s1);
1243	s1 = NULL;
1244	scount++;
1245	hasVal = 1;
1246	setMapInMaps (m, "lenv", "level", "0");
1247	}
1248	else
1249	{
1250	memset (buff, 0, 256);
1251	snprintf (buff, 256, "%s.zcfg", corig);
1252	memset (buff1, 0, 1024);
1253	#ifdef DEBUG
1254	printf ("\n#######%s\n########\n", buff);
1255	#endif
1256	while ((dp = readdir (dirp)) != NULL)
1257	{
1258	if (strcasecmp (dp->d_name, buff) == 0)
1259	{
1260	memset (buff1, 0, 1024);
1261	snprintf (buff1, 1024, "%s/%s", conf_dir,
1262	dp->d_name);
1263	s1 = (service *) malloc (SERVICE_SIZE);
1264	if (s1 == NULL)
1265	{
1266	dup2 (saved_stdout, fileno (stdout));
1267	return errorException (m,
1268	_
1269	("Unable to allocate memory."),
1270	"InternalError",
1271	NULL);
1272	}
1273	#ifdef DEBUG
1274	printf
1275	("#################\n(%s) %s\n#################\n",
1276	r_inputs->value, buff1);
1277	#endif
1278	char *tmp0 = zStrdup (dp->d_name);
1279	tmp0[strlen (tmp0) - 5] = 0;
1280	t = readServiceFile (m, buff1, &s1, tmp0);
1281	free (tmp0);
1282	if (t < 0)
1283	{
1284	map *tmp00 =
1285	getMapFromMaps (m, "lenv", "message");
1286	char tmp01[1024];
1287	if (tmp00 != NULL)
1288	sprintf (tmp01,
1289	_
1290	("Unable to parse the ZCFG file: %s (%s)"),
1291	dp->d_name, tmp00->value);
1292	else
1293	sprintf (tmp01,
1294	_
1295	("Unable to parse the ZCFG file: %s."),
1296	dp->d_name);
1297	dup2 (saved_stdout, fileno (stdout));
1298	errorException (m, tmp01, "InternalError",
1299	NULL);
1300	freeMaps (&m);
1301	free (m);
1302	free (orig);
1303	free (REQUEST);
1304	closedir (dirp);
1305	xmlFreeDoc (doc);
1306	xmlCleanupParser ();
1307	zooXmlCleanupNs ();
1308	return 1;
1309	}
1310	#ifdef DEBUG
1311	dumpService (s1);
1312	#endif
1313	printDescribeProcessForProcess (m, n, s1);
1314	freeService (&s1);
1315	free (s1);
1316	s1 = NULL;
1317	scount++;
1318	hasVal = 1;
1319	}
1320	}
1321	}
1322	if (hasVal < 0)
1323	{
1324	map *tmp00 = getMapFromMaps (m, "lenv", "message");
1325	char tmp01[1024];
1326	if (tmp00 != NULL)
1327	sprintf (tmp01,
1328	_("Unable to parse the ZCFG file: %s (%s)"),
1329	buff, tmp00->value);
1330	else
1331	sprintf (tmp01,
1332	_("Unable to parse the ZCFG file: %s."),
1333	buff);
1334	dup2 (saved_stdout, fileno (stdout));
1335	errorException (m, tmp01, "InvalidParameterValue",
1336	"Identifier");
1337	freeMaps (&m);
1338	free (m);
1339	free (orig);
1340	free (REQUEST);
1341	closedir (dirp);
1342	xmlFreeDoc (doc);
1343	xmlCleanupParser ();
1344	zooXmlCleanupNs ();
1345	return 1;
1346	}
1347	rewinddir (dirp);
1348	tmps = strtok_r (NULL, ",", &saveptr);
1349	if (corig != NULL)
1350	free (corig);
1351	}
1352	}
1353	closedir (dirp);
1354	fflush (stdout);
1355	dup2 (saved_stdout, fileno (stdout));
1356	free (orig);
1357	printDocument (m, doc, getpid ());
1358	freeMaps (&m);
1359	free (m);
1360	free (REQUEST);
1361	free (SERVICE_URL);
1362	fflush (stdout);
1363	return 0;
1364	}
1365	else if (strncasecmp (REQUEST, "Execute", strlen (REQUEST)) != 0)
1366	{
1367	errorException (m,
1368	_
1369	("Unenderstood <request> value. Please check that it was set to GetCapabilities, DescribeProcess or Execute."),
1370	"InvalidParameterValue", "request");
1371	#ifdef DEBUG
1372	fprintf (stderr, "No request found %s", REQUEST);
1373	#endif
1374	closedir (dirp);
1375	freeMaps (&m);
1376	free (m);
1377	free (REQUEST);
1378	free (SERVICE_URL);
1379	fflush (stdout);
1380	return 0;
1381	}
1382	closedir (dirp);
1383	}
1384
1385	s1 = NULL;
1386	s1 = (service *) malloc (SERVICE_SIZE);
1387	if (s1 == NULL)
1388	{
1389	freeMaps (&m);
1390	free (m);
1391	free (REQUEST);
1392	free (SERVICE_URL);
1393	return errorException (m, _("Unable to allocate memory."),
1394	"InternalError", NULL);
1395	}
1396	r_inputs = getMap (request_inputs, "MetaPath");
1397	if (r_inputs != NULL)
1398	snprintf (tmps1, 1024, "%s/%s", ntmp, r_inputs->value);
1399	else
1400	snprintf (tmps1, 1024, "%s/", ntmp);
1401	r_inputs = getMap (request_inputs, "Identifier");
1402	char *ttmp = zStrdup (tmps1);
1403	snprintf (tmps1, 1024, "%s/%s.zcfg", ttmp, r_inputs->value);
1404	free (ttmp);
1405	#ifdef DEBUG
1406	fprintf (stderr, "Trying to load %s\n", tmps1);
1407	#endif
1408	if (strstr (r_inputs->value, ".") != NULL)
1409	{
1410	char *identifier = zStrdup (r_inputs->value);
1411	parseIdentifier (m, conf_dir, identifier, tmps1);
1412	map *tmpMap = getMapFromMaps (m, "lenv", "metapath");
1413	if (tmpMap != NULL)
1414	addToMap (request_inputs, "metapath", tmpMap->value);
1415	free (identifier);
1416	}
1417	else
1418	{
1419	setMapInMaps (m, "lenv", "Identifier", r_inputs->value);
1420	setMapInMaps (m, "lenv", "oIdentifier", r_inputs->value);
1421	}
1422
1423	r_inputs = getMapFromMaps (m, "lenv", "Identifier");
1424	int saved_stdout = dup (fileno (stdout));
1425	dup2 (fileno (stderr), fileno (stdout));
1426	t = readServiceFile (m, tmps1, &s1, r_inputs->value);
1427	fflush (stdout);
1428	dup2 (saved_stdout, fileno (stdout));
1429	if (t < 0)
1430	{
1431	char tmpMsg = (char ) malloc (2048 + strlen (r_inputs->value));
1432	sprintf (tmpMsg,
1433	_
1434	("The value for <indetifier> seems to be wrong (%s). Please, ensure that the process exist using the GetCapabilities request."),
1435	r_inputs->value);
1436	errorException (m, tmpMsg, "InvalidParameterValue", "identifier");
1437	free (tmpMsg);
1438	free (s1);
1439	freeMaps (&m);
1440	free (m);
1441	free (REQUEST);
1442	free (SERVICE_URL);
1443	return 0;
1444	}
1445	close (saved_stdout);
1446
1447	#ifdef DEBUG
1448	dumpService (s1);
1449	#endif
1450	int j;
1451
1452
1453	/**
1454	* Create the input and output maps data structure
1455	*/
1456	int i = 0;
1457	HINTERNET hInternet;
1458	HINTERNET res;
1459	hInternet = InternetOpen (
1460	#ifndef WIN32
1461	(LPCTSTR)
1462	#endif
1463	"ZooWPSClient\0",
1464	INTERNET_OPEN_TYPE_PRECONFIG, NULL, NULL, 0);
1465
1466	#ifndef WIN32
1467	if (!CHECK_INET_HANDLE (hInternet))
1468	fprintf (stderr, "WARNING : hInternet handle failed to initialize");
1469	#endif
1470	maps *request_input_real_format = NULL;
1471	maps *tmpmaps = request_input_real_format;
1472	map *postRequest = NULL;
1473	postRequest = getMap (request_inputs, "xrequest");
1474	if (postRequest == NULLMAP)
1475	{
1476	/**
1477	* Parsing outputs provided as KVP
1478	*/
1479	r_inputs = NULL;
1480	#ifdef DEBUG
1481	fprintf (stderr, "OUTPUT Parsing ... \n");
1482	#endif
1483	r_inputs = getMap (request_inputs, "ResponseDocument");
1484	if (r_inputs == NULL)
1485	r_inputs = getMap (request_inputs, "RawDataOutput");
1486
1487	#ifdef DEBUG
1488	fprintf (stderr, "OUTPUT Parsing ... \n");
1489	#endif
1490	if (r_inputs != NULL)
1491	{
1492	#ifdef DEBUG
1493	fprintf (stderr, "OUTPUT Parsing start now ... \n");
1494	#endif
1495	char cursor_output[10240];
1496	char *cotmp = zStrdup (r_inputs->value);
1497	snprintf (cursor_output, 10240, "%s", cotmp);
1498	free (cotmp);
1499	j = 0;
1500
1501	/**
1502	* Put each Output into the outputs_as_text array
1503	*/
1504	char *pToken;
1505	maps *tmp_output = NULL;
1506	#ifdef DEBUG
1507	fprintf (stderr, "OUTPUT [%s]\n", cursor_output);
1508	#endif
1509	pToken = strtok (cursor_output, ";");
1510	char outputs_as_text = (char ) malloc (128 * sizeof (char *));
1511	if (outputs_as_text == NULL)
1512	{
1513	return errorException (m, _("Unable to allocate memory"),
1514	"InternalError", NULL);
1515	}
1516	i = 0;
1517	while (pToken != NULL)
1518	{
1519	#ifdef DEBUG
1520	fprintf (stderr, "*%s*\n", pToken);
1521	fflush (stderr);
1522	fprintf (stderr, "*%s*\n", pToken);
1523	#endif
1524	outputs_as_text[i] =
1525	(char ) malloc ((strlen (pToken) + 1) sizeof (char));
1526	if (outputs_as_text[i] == NULL)
1527	{
1528	return errorException (m, _("Unable to allocate memory"),
1529	"InternalError", NULL);
1530	}
1531	snprintf (outputs_as_text[i], strlen (pToken) + 1, "%s",
1532	pToken);
1533	pToken = strtok (NULL, ";");
1534	i++;
1535	}
1536	for (j = 0; j < i; j++)
1537	{
1538	char *tmp = zStrdup (outputs_as_text[j]);
1539	free (outputs_as_text[j]);
1540	char *tmpc;
1541	tmpc = strtok (tmp, "@");
1542	int k = 0;
1543	while (tmpc != NULL)
1544	{
1545	if (k == 0)
1546	{
1547	if (tmp_output == NULL)
1548	{
1549	tmp_output = (maps *) malloc (MAPS_SIZE);
1550	if (tmp_output == NULL)
1551	{
1552	return errorException (m,
1553	_
1554	("Unable to allocate memory."),
1555	"InternalError", NULL);
1556	}
1557	tmp_output->name = zStrdup (tmpc);
1558	tmp_output->content = NULL;
1559	tmp_output->next = NULL;
1560	}
1561	}
1562	else
1563	{
1564	char *tmpv = strstr (tmpc, "=");
1565	char tmpn[256];
1566	memset (tmpn, 0, 256);
1567	strncpy (tmpn, tmpc,
1568	(strlen (tmpc) -
1569	strlen (tmpv)) * sizeof (char));
1570	tmpn[strlen (tmpc) - strlen (tmpv)] = 0;
1571	#ifdef DEBUG
1572	fprintf (stderr, "OUTPUT DEF [%s]=[%s]\n", tmpn,
1573	tmpv + 1);
1574	#endif
1575	if (tmp_output->content == NULL)
1576	{
1577	tmp_output->content = createMap (tmpn, tmpv + 1);
1578	tmp_output->content->next = NULL;
1579	}
1580	else
1581	addToMap (tmp_output->content, tmpn, tmpv + 1);
1582	}
1583	k++;
1584	#ifdef DEBUG
1585	fprintf (stderr, "*%s*\n", tmpc);
1586	#endif
1587	tmpc = strtok (NULL, "@");
1588	}
1589	if (request_output_real_format == NULL)
1590	request_output_real_format = dupMaps (&tmp_output);
1591	else
1592	addMapsToMaps (&request_output_real_format, tmp_output);
1593	freeMaps (&tmp_output);
1594	free (tmp_output);
1595	tmp_output = NULL;
1596	#ifdef DEBUG
1597	dumpMaps (tmp_output);
1598	fflush (stderr);
1599	#endif
1600	free (tmp);
1601	}
1602	free (outputs_as_text);
1603	}
1604
1605
1606	/**
1607	* Parsing inputs provided as KVP
1608	*/
1609	r_inputs = getMap (request_inputs, "DataInputs");
1610	#ifdef DEBUG
1611	fprintf (stderr, "DATA INPUTS [%s]\n", r_inputs->value);
1612	#endif
1613	char cursor_input[40960];
1614	if (r_inputs != NULL)
1615	snprintf (cursor_input, 40960, "%s", r_inputs->value);
1616	else
1617	{
1618	errorException (m, _("Parameter <DataInputs> was not specified"),
1619	"MissingParameterValue", "DataInputs");
1620	freeMaps (&m);
1621	free (m);
1622	free (REQUEST);
1623	free (SERVICE_URL);
1624	InternetCloseHandle (&hInternet);
1625	freeService (&s1);
1626	free (s1);
1627	return 0;
1628	}
1629	j = 0;
1630
1631	/**
1632	* Put each DataInputs into the inputs_as_text array
1633	*/
1634	char *tmp1 = zStrdup (cursor_input);
1635	char *pToken;
1636	pToken = strtok (cursor_input, ";");
1637	if (pToken != NULL && strncasecmp (pToken, tmp1, strlen (tmp1)) == 0)
1638	{
1639	char *tmp2 = url_decode (tmp1);
1640	snprintf (cursor_input, (strlen (tmp2) + 1) * sizeof (char), "%s",
1641	tmp2);
1642	free (tmp2);
1643	pToken = strtok (cursor_input, ";");
1644	}
1645	free (tmp1);
1646
1647	char inputs_as_text = (char ) malloc (100 * sizeof (char *));
1648	if (inputs_as_text == NULL)
1649	{
1650	return errorException (m, _("Unable to allocate memory."),
1651	"InternalError", NULL);
1652	}
1653	i = 0;
1654	while (pToken != NULL)
1655	{
1656	#ifdef DEBUG
1657	fprintf (stderr, "*%s*\n", pToken);
1658	#endif
1659	fflush (stderr);
1660	#ifdef DEBUG
1661	fprintf (stderr, "*%s*\n", pToken);
1662	#endif
1663	inputs_as_text[i] =
1664	(char ) malloc ((strlen (pToken) + 1) sizeof (char));
1665	snprintf (inputs_as_text[i], strlen (pToken) + 1, "%s", pToken);
1666	if (inputs_as_text[i] == NULL)
1667	{
1668	return errorException (m, _("Unable to allocate memory."),
1669	"InternalError", NULL);
1670	}
1671	pToken = strtok (NULL, ";");
1672	i++;
1673	}
1674
1675	for (j = 0; j < i; j++)
1676	{
1677	char *tmp = zStrdup (inputs_as_text[j]);
1678	free (inputs_as_text[j]);
1679	char *tmpc;
1680	tmpc = strtok (tmp, "@");
1681	while (tmpc != NULL)
1682	{
1683	#ifdef DEBUG
1684	fprintf (stderr, "*\n%s**\n", tmpc);
1685	#endif
1686	char *tmpv = strstr (tmpc, "=");
1687	char tmpn[256];
1688	memset (tmpn, 0, 256);
1689	if (tmpv != NULL)
1690	{
1691	strncpy (tmpn, tmpc,
1692	(strlen (tmpc) - strlen (tmpv)) * sizeof (char));
1693	tmpn[strlen (tmpc) - strlen (tmpv)] = 0;
1694	}
1695	else
1696	{
1697	strncpy (tmpn, tmpc, strlen (tmpc) * sizeof (char));
1698	tmpn[strlen (tmpc)] = 0;
1699	}
1700	#ifdef DEBUG
1701	fprintf (stderr, "*\n* %s = %s ***\n", tmpn, tmpv + 1);
1702	#endif
1703	if (tmpmaps == NULL)
1704	{
1705	tmpmaps = (maps *) malloc (MAPS_SIZE);
1706	if (tmpmaps == NULL)
1707	{
1708	return errorException (m,
1709	_("Unable to allocate memory."),
1710	"InternalError", NULL);
1711	}
1712	tmpmaps->name = zStrdup (tmpn);
1713	if (tmpv != NULL)
1714	{
1715	char *tmpvf = url_decode (tmpv + 1);
1716	tmpmaps->content = createMap ("value", tmpvf);
1717	free (tmpvf);
1718	}
1719	else
1720	tmpmaps->content = createMap ("value", "Reference");
1721	tmpmaps->next = NULL;
1722	}
1723	tmpc = strtok (NULL, "@");
1724	while (tmpc != NULL)
1725	{
1726	#ifdef DEBUG
1727	fprintf (stderr, "* KVP NON URL-ENCODED \n%s**\n",
1728	tmpc);
1729	#endif
1730	char *tmpv1 = strstr (tmpc, "=");
1731	#ifdef DEBUG
1732	fprintf (stderr, "* VALUE NON URL-ENCODED \n%s**\n",
1733	tmpv1 + 1);
1734	#endif
1735	char tmpn1[1024];
1736	memset (tmpn1, 0, 1024);
1737	if (tmpv1 != NULL)
1738	{
1739	strncpy (tmpn1, tmpc, strlen (tmpc) - strlen (tmpv1));
1740	tmpn1[strlen (tmpc) - strlen (tmpv1)] = 0;
1741	addToMap (tmpmaps->content, tmpn1, tmpv1 + 1);
1742	}
1743	else
1744	{
1745	strncpy (tmpn1, tmpc, strlen (tmpc));
1746	tmpn1[strlen (tmpc)] = 0;
1747	map *lmap = getLastMap (tmpmaps->content);
1748	char *tmpValue =
1749	(char ) malloc ((strlen (tmpv) + strlen (tmpc) + 1)
1750	sizeof (char));
1751	sprintf (tmpValue, "%s@%s", tmpv + 1, tmpc);
1752	free (lmap->value);
1753	lmap->value = zStrdup (tmpValue);
1754	free (tmpValue);
1755	tmpc = strtok (NULL, "@");
1756	continue;
1757	}
1758	#ifdef DEBUG
1759	fprintf (stderr, "* NAME NON URL-ENCODED \n%s**\n",
1760	tmpn1);
1761	fprintf (stderr, "* VALUE NON URL-ENCODED \n%s**\n",
1762	tmpv1 + 1);
1763	#endif
1764	if (strcmp (tmpn1, "xlink:href") != 0)
1765	addToMap (tmpmaps->content, tmpn1, tmpv1 + 1);
1766	else if (tmpv1 != NULL)
1767	{
1768	char *tmpx2 = url_decode (tmpv1 + 1);
1769	if (strncasecmp (tmpx2, "http://", 7) != 0 &&
1770	strncasecmp (tmpx2, "ftp://", 6) != 0 &&
1771	strncasecmp (tmpx2, "https://", 8) != 0)
1772	{
1773	char emsg[1024];
1774	sprintf (emsg,
1775	_
1776	("Unable to find a valid protocol to download the remote file %s"),
1777	tmpv1 + 1);
1778	errorException (m, emsg, "InternalError", NULL);
1779	freeMaps (&m);
1780	free (m);
1781	free (REQUEST);
1782	free (SERVICE_URL);
1783	InternetCloseHandle (&hInternet);
1784	freeService (&s1);
1785	free (s1);
1786	return 0;
1787	}
1788	#ifdef DEBUG
1789	fprintf (stderr,
1790	"REQUIRE TO DOWNLOAD A FILE FROM A SERVER : url(%s)\n",
1791	tmpv1 + 1);
1792	#endif
1793	addToMap (tmpmaps->content, tmpn1, tmpx2);
1794	#ifndef WIN32
1795	if (CHECK_INET_HANDLE (hInternet))
1796	#endif
1797	{
1798	if (loadRemoteFile
1799	(&m, &tmpmaps->content, &hInternet, tmpx2) < 0)
1800	{
1801	freeMaps (&m);
1802	free (m);
1803	free (REQUEST);
1804	free (SERVICE_URL);
1805	InternetCloseHandle (&hInternet);
1806	freeService (&s1);
1807	free (s1);
1808	return 0;
1809	}
1810	}
1811	free (tmpx2);
1812	addToMap (tmpmaps->content, "Reference", tmpv1 + 1);
1813	}
1814	tmpc = strtok (NULL, "@");
1815	}
1816	#ifdef DEBUG
1817	dumpMaps (tmpmaps);
1818	fflush (stderr);
1819	#endif
1820	if (request_input_real_format == NULL)
1821	request_input_real_format = dupMaps (&tmpmaps);
1822	else
1823	{
1824	maps *testPresence =
1825	getMaps (request_input_real_format, tmpmaps->name);
1826	if (testPresence != NULL)
1827	{
1828	elements *elem =
1829	getElements (s1->inputs, tmpmaps->name);
1830	if (elem != NULL)
1831	{
1832	if (appendMapsToMaps
1833	(m, request_input_real_format, tmpmaps,
1834	elem) < 0)
1835	{
1836	freeMaps (&m);
1837	free (m);
1838	free (REQUEST);
1839	free (SERVICE_URL);
1840	InternetCloseHandle (&hInternet);
1841	freeService (&s1);
1842	free (s1);
1843	return 0;
1844	}
1845	}
1846	}
1847	else
1848	addMapsToMaps (&request_input_real_format, tmpmaps);
1849	}
1850	freeMaps (&tmpmaps);
1851	free (tmpmaps);
1852	tmpmaps = NULL;
1853	free (tmp);
1854	}
1855	}
1856	free (inputs_as_text);
1857	}
1858	else
1859	{
1860	/**
1861	* Parse XML request
1862	*/
1863	xmlInitParser ();
1864	#ifdef DEBUG
1865	fflush (stderr);
1866	fprintf (stderr, "BEFORE %s\n", postRequest->value);
1867	fflush (stderr);
1868	#endif
1869	xmlDocPtr doc = xmlParseMemory (postRequest->value, cgiContentLength);
1870	#ifdef DEBUG
1871	fprintf (stderr, "AFTER\n");
1872	fflush (stderr);
1873	#endif
1874	/**
1875	* Parse every Input in DataInputs node.
1876	*/
1877	xmlXPathObjectPtr tmpsptr =
1878	extractFromDoc (doc, "///*[local-name()='Input']");
1879	xmlNodeSet *tmps = tmpsptr->nodesetval;
1880	#ifdef DEBUG
1881	fprintf (stderr, "***%d***\n", tmps->nodeNr);
1882	#endif
1883	for (int k = 0; k < tmps->nodeNr; k++)
1884	{
1885	maps *tmpmaps = NULL;
1886	xmlNodePtr cur = tmps->nodeTab[k];
1887	if (tmps->nodeTab[k]->type == XML_ELEMENT_NODE)
1888	{
1889	/**
1890	* A specific Input node.
1891	*/
1892	#ifdef DEBUG
1893	fprintf (stderr, "= element 0 node \"%s\"\n", cur->name);
1894	#endif
1895	xmlNodePtr cur2 = cur->children;
1896	while (cur2 != NULL)
1897	{
1898	while (cur2 != NULL && cur2->type != XML_ELEMENT_NODE)
1899	cur2 = cur2->next;
1900	if (cur2 == NULL)
1901	break;
1902	/**
1903	* Indentifier
1904	*/
1905	if (xmlStrncasecmp
1906	(cur2->name, BAD_CAST "Identifier",
1907	xmlStrlen (cur2->name)) == 0)
1908	{
1909	xmlChar *val =
1910	xmlNodeListGetString (doc, cur2->xmlChildrenNode, 1);
1911	if (tmpmaps == NULL)
1912	{
1913	tmpmaps = (maps *) malloc (MAPS_SIZE);
1914	if (tmpmaps == NULL)
1915	{
1916	return errorException (m,
1917	_
1918	("Unable to allocate memory."),
1919	"InternalError", NULL);
1920	}
1921	tmpmaps->name = zStrdup ((char *) val);
1922	tmpmaps->content = NULL;
1923	tmpmaps->next = NULL;
1924	}
1925	xmlFree (val);
1926	}
1927	/**
1928	* Title, Asbtract
1929	*/
1930	if (xmlStrncasecmp
1931	(cur2->name, BAD_CAST "Title",
1932	xmlStrlen (cur2->name)) == 0
1933	\|\| xmlStrncasecmp (cur2->name, BAD_CAST "Abstract",
1934	xmlStrlen (cur2->name)) == 0)
1935	{
1936	xmlChar *val =
1937	xmlNodeListGetString (doc, cur2->xmlChildrenNode, 1);
1938	if (tmpmaps == NULL)
1939	{
1940	tmpmaps = (maps *) malloc (MAPS_SIZE);
1941	if (tmpmaps == NULL)
1942	{
1943	return errorException (m,
1944	_
1945	("Unable to allocate memory."),
1946	"InternalError", NULL);
1947	}
1948	tmpmaps->name = zStrdup ("missingIndetifier");
1949	tmpmaps->content =
1950	createMap ((char ) cur2->name, (char ) val);
1951	tmpmaps->next = NULL;
1952	}
1953	else
1954	{
1955	if (tmpmaps->content != NULL)
1956	addToMap (tmpmaps->content,
1957	(char ) cur2->name, (char ) val);
1958	else
1959	tmpmaps->content =
1960	createMap ((char ) cur2->name, (char ) val);
1961	}
1962	#ifdef DEBUG
1963	dumpMaps (tmpmaps);
1964	#endif
1965	xmlFree (val);
1966	}
1967	/**
1968	* InputDataFormChoice (Reference or Data ?)
1969	*/
1970	if (xmlStrcasecmp (cur2->name, BAD_CAST "Reference") == 0)
1971	{
1972	/**
1973	* Get every attribute from a Reference node
1974	* mimeType, encoding, schema, href, method
1975	* Header and Body gesture should be added here
1976	*/
1977	#ifdef DEBUG
1978	fprintf (stderr, "REFERENCE\n");
1979	#endif
1980	const char *refs[5] =
1981	{ "mimeType", "encoding", "schema", "method",
1982	"href"
1983	};
1984	for (int l = 0; l < 5; l++)
1985	{
1986	#ifdef DEBUG
1987	fprintf (stderr, "* %s *", refs[l]);
1988	#endif
1989	xmlChar *val = xmlGetProp (cur2, BAD_CAST refs[l]);
1990	if (val != NULL && xmlStrlen (val) > 0)
1991	{
1992	if (tmpmaps->content != NULL)
1993	addToMap (tmpmaps->content, refs[l],
1994	(char *) val);
1995	else
1996	tmpmaps->content =
1997	createMap (refs[l], (char *) val);
1998	map *ltmp = getMap (tmpmaps->content, "method");
1999	if (l == 4)
2000	{
2001	if (!
2002	(ltmp != NULL
2003	&& strncmp (ltmp->value, "POST",
2004	4) == 0)
2005	&& CHECK_INET_HANDLE (hInternet))
2006	{
2007	if (loadRemoteFile
2008	(&m, &tmpmaps->content, &hInternet,
2009	(char *) val) != 0)
2010	{
2011	freeMaps (&m);
2012	free (m);
2013	free (REQUEST);
2014	free (SERVICE_URL);
2015	InternetCloseHandle (&hInternet);
2016	freeService (&s1);
2017	free (s1);
2018	return 0;
2019	}
2020	}
2021	}
2022	}
2023	#ifdef DEBUG
2024	fprintf (stderr, "%s\n", val);
2025	#endif
2026	xmlFree (val);
2027	}
2028	#ifdef POST_DEBUG
2029	fprintf (stderr,
2030	"Parse Header and Body from Reference \n");
2031	#endif
2032	xmlNodePtr cur3 = cur2->children;
2033	/* HINTERNET hInternetP;
2034	hInternetP=InternetOpen(
2035	#ifndef WIN32
2036	(LPCTSTR)
2037	#endif
2038	"ZooWPSClient\0",
2039	INTERNET_OPEN_TYPE_PRECONFIG,
2040	NULL,NULL, 0); */
2041	//hInternet.ihandle[hInternet.nb].header=NULL;
2042	while (cur3 != NULL)
2043	{
2044	while (cur3 != NULL
2045	&& cur3->type != XML_ELEMENT_NODE)
2046	cur3 = cur3->next;
2047	if (cur3 == NULL)
2048	break;
2049	if (xmlStrcasecmp (cur3->name, BAD_CAST "Header") ==
2050	0)
2051	{
2052	const char *ha[2];
2053	ha[0] = "key";
2054	ha[1] = "value";
2055	int hai;
2056	char *has;
2057	char *key;
2058	for (hai = 0; hai < 2; hai++)
2059	{
2060	xmlChar *val =
2061	xmlGetProp (cur3, BAD_CAST ha[hai]);
2062	#ifdef POST_DEBUG
2063	fprintf (stderr, "%s = %s\n", ha[hai],
2064	(char *) val);
2065	#endif
2066	if (hai == 0)
2067	{
2068	key = zStrdup ((char *) val);
2069	}
2070	else
2071	{
2072	has =
2073	(char *)
2074	malloc ((4 + xmlStrlen (val) +
2075	strlen (key)) *
2076	sizeof (char));
2077	if (has == NULL)
2078	{
2079	return errorException (m,
2080	_
2081	("Unable to allocate memory."),
2082	"InternalError",
2083	NULL);
2084	}
2085	snprintf (has,
2086	(3 + xmlStrlen (val) +
2087	strlen (key)), "%s: %s", key,
2088	(char *) val);
2089	free (key);
2090	#ifdef POST_DEBUG
2091	fprintf (stderr, "%s\n", has);
2092	#endif
2093	}
2094	xmlFree (val);
2095	}
2096	hInternet.ihandle[hInternet.nb].header =
2097	curl_slist_append (hInternet.ihandle
2098	[hInternet.nb].header,
2099	has);
2100	if (has != NULL)
2101	free (has);
2102	}
2103	else
2104	{
2105	#ifdef POST_DEBUG
2106	fprintf (stderr,
2107	"Try to fetch the body part of the request ...\n");
2108	#endif
2109	if (xmlStrcasecmp (cur3->name, BAD_CAST "Body")
2110	== 0)
2111	{
2112	#ifdef POST_DEBUG
2113	fprintf (stderr, "Body part found !!!\n",
2114	(char *) cur3->content);
2115	#endif
2116	char *tmp =
2117	(char *) malloc (cgiContentLength +
2118	1 * sizeof (char));
2119	memset (tmp, 0, cgiContentLength);
2120	xmlNodePtr cur4 = cur3->children;
2121	while (cur4 != NULL)
2122	{
2123	while (cur4->type != XML_ELEMENT_NODE)
2124	cur4 = cur4->next;
2125	xmlDocPtr bdoc =
2126	xmlNewDoc (BAD_CAST "1.0");
2127	bdoc->encoding =
2128	xmlCharStrdup ("UTF-8");
2129	xmlDocSetRootElement (bdoc, cur4);
2130	xmlChar *btmps;
2131	int bsize;
2132	xmlDocDumpMemory (bdoc, &btmps, &bsize);
2133	#ifdef POST_DEBUG
2134	fprintf (stderr,
2135	"Body part found !!! %s %s\n",
2136	tmp, (char *) btmps);
2137	#endif
2138	if (btmps != NULL)
2139	sprintf (tmp, "%s", (char *) btmps);
2140	xmlFree (btmps);
2141	cur4 = cur4->next;
2142	xmlFreeDoc (bdoc);
2143	}
2144	map *btmp =
2145	getMap (tmpmaps->content, "href");
2146	if (btmp != NULL)
2147	{
2148	#ifdef POST_DEBUG
2149	fprintf (stderr, "%s %s\n", btmp->value,
2150	tmp);
2151	curl_easy_setopt (hInternet.handle,
2152	CURLOPT_VERBOSE, 1);
2153	#endif
2154	hInternet.
2155	waitingRequests[hInternet.nb] =
2156	strdup (tmp);
2157	InternetOpenUrl (&hInternet,
2158	btmp->value,
2159	hInternet.waitingRequests
2160	[hInternet.nb],
2161	strlen
2162	(hInternet.waitingRequests
2163	[hInternet.nb]),
2164	INTERNET_FLAG_NO_CACHE_WRITE,
2165	0);
2166	}
2167	free (tmp);
2168	}
2169	else
2170	if (xmlStrcasecmp
2171	(cur3->name,
2172	BAD_CAST "BodyReference") == 0)
2173	{
2174	xmlChar *val =
2175	xmlGetProp (cur3, BAD_CAST "href");
2176	HINTERNET bInternet, res1;
2177	bInternet = InternetOpen (
2178	#ifndef WIN32
2179	(LPCTSTR)
2180	#endif
2181	"ZooWPSClient\0",
2182	INTERNET_OPEN_TYPE_PRECONFIG,
2183	NULL, NULL, 0);
2184	if (!CHECK_INET_HANDLE (hInternet))
2185	fprintf (stderr,
2186	"WARNING : hInternet handle failed to initialize");
2187	#ifdef POST_DEBUG
2188	curl_easy_setopt (bInternet.handle,
2189	CURLOPT_VERBOSE, 1);
2190	#endif
2191	bInternet.waitingRequests[0] =
2192	strdup ((char *) val);
2193	res1 =
2194	InternetOpenUrl (&bInternet,
2195	bInternet.waitingRequests
2196	[0], NULL, 0,
2197	INTERNET_FLAG_NO_CACHE_WRITE,
2198	0);
2199	processDownloads (&bInternet);
2200	char *tmp =
2201	(char *)
2202	malloc ((bInternet.ihandle[0].nDataLen +
2203	1) * sizeof (char));
2204	if (tmp == NULL)
2205	{
2206	return errorException (m,
2207	_
2208	("Unable to allocate memory."),
2209	"InternalError",
2210	NULL);
2211	}
2212	size_t bRead;
2213	InternetReadFile (bInternet.ihandle[0],
2214	(LPVOID) tmp,
2215	bInternet.
2216	ihandle[0].nDataLen,
2217	&bRead);
2218	tmp[bInternet.ihandle[0].nDataLen] = 0;
2219	InternetCloseHandle (&bInternet);
2220	map *btmp =
2221	getMap (tmpmaps->content, "href");
2222	if (btmp != NULL)
2223	{
2224	#ifdef POST_DEBUG
2225	fprintf (stderr, "%s %s\n", btmp->value,
2226	tmp);
2227	#endif
2228	hInternet.
2229	waitingRequests[hInternet.nb] =
2230	strdup (tmp);
2231	res =
2232	InternetOpenUrl (&hInternet,
2233	btmp->value,
2234	hInternet.waitingRequests
2235	[hInternet.nb],
2236	strlen
2237	(hInternet.waitingRequests
2238	[hInternet.nb]),
2239	INTERNET_FLAG_NO_CACHE_WRITE,
2240	0);
2241	}
2242	free (tmp);
2243	}
2244	}
2245	cur3 = cur3->next;
2246	}
2247	#ifdef POST_DEBUG
2248	fprintf (stderr,
2249	"Header and Body was parsed from Reference \n");
2250	#endif
2251	#ifdef DEBUG
2252	dumpMap (tmpmaps->content);
2253	fprintf (stderr, "= element 2 node \"%s\" = (%s)\n",
2254	cur2->name, cur2->content);
2255	#endif
2256	}
2257	else if (xmlStrcasecmp (cur2->name, BAD_CAST "Data") == 0)
2258	{
2259	#ifdef DEBUG
2260	fprintf (stderr, "DATA\n");
2261	#endif
2262	xmlNodePtr cur4 = cur2->children;
2263	while (cur4 != NULL)
2264	{
2265	while (cur4 != NULL
2266	&& cur4->type != XML_ELEMENT_NODE)
2267	cur4 = cur4->next;
2268	if (cur4 == NULL)
2269	break;
2270	if (xmlStrcasecmp
2271	(cur4->name, BAD_CAST "LiteralData") == 0)
2272	{
2273	/**
2274	* Get every attribute from a LiteralData node
2275	* dataType , uom
2276	*/
2277	char *list[2];
2278	list[0] = zStrdup ("dataType");
2279	list[1] = zStrdup ("uom");
2280	for (int l = 0; l < 2; l++)
2281	{
2282	#ifdef DEBUG
2283	fprintf (stderr, "* LiteralData %s *",
2284	list[l]);
2285	#endif
2286	xmlChar *val =
2287	xmlGetProp (cur4, BAD_CAST list[l]);
2288	if (val != NULL
2289	&& strlen ((char *) val) > 0)
2290	{
2291	if (tmpmaps->content != NULL)
2292	addToMap (tmpmaps->content, list[l],
2293	(char *) val);
2294	else
2295	tmpmaps->content =
2296	createMap (list[l], (char *) val);
2297	#ifdef DEBUG
2298	fprintf (stderr, "%s\n", val);
2299	#endif
2300	}
2301	xmlFree (val);
2302	free (list[l]);
2303	}
2304	}
2305	else
2306	if (xmlStrcasecmp
2307	(cur4->name, BAD_CAST "ComplexData") == 0)
2308	{
2309	/**
2310	* Get every attribute from a Reference node
2311	* mimeType, encoding, schema
2312	*/
2313	const char *coms[3] =
2314	{ "mimeType", "encoding", "schema" };
2315	for (int l = 0; l < 3; l++)
2316	{
2317	#ifdef DEBUG
2318	fprintf (stderr, "* ComplexData %s *\n",
2319	coms[l]);
2320	#endif
2321	xmlChar *val =
2322	xmlGetProp (cur4, BAD_CAST coms[l]);
2323	if (val != NULL
2324	&& strlen ((char *) val) > 0)
2325	{
2326	if (tmpmaps->content != NULL)
2327	addToMap (tmpmaps->content, coms[l],
2328	(char *) val);
2329	else
2330	tmpmaps->content =
2331	createMap (coms[l], (char *) val);
2332	#ifdef DEBUG
2333	fprintf (stderr, "%s\n", val);
2334	#endif
2335	}
2336	xmlFree (val);
2337	}
2338	}
2339
2340	map *test = getMap (tmpmaps->content, "encoding");
2341	if (test == NULL)
2342	{
2343	if (tmpmaps->content != NULL)
2344	addToMap (tmpmaps->content, "encoding",
2345	"utf-8");
2346	else
2347	tmpmaps->content =
2348	createMap ("encoding", "utf-8");
2349	test = getMap (tmpmaps->content, "encoding");
2350	}
2351
2352	if (strcasecmp (test->value, "base64") != 0)
2353	{
2354	xmlChar *mv = xmlNodeListGetString (doc,
2355	cur4->
2356	xmlChildrenNode,
2357	1);
2358	map *ltmp =
2359	getMap (tmpmaps->content, "mimeType");
2360	if (mv == NULL
2361	\|\|
2362	(xmlStrcasecmp
2363	(cur4->name, BAD_CAST "ComplexData") == 0
2364	&& (ltmp == NULL
2365	\|\| strncasecmp (ltmp->value,
2366	"text/xml", 8) == 0)))
2367	{
2368	xmlDocPtr doc1 = xmlNewDoc (BAD_CAST "1.0");
2369	int buffersize;
2370	xmlNodePtr cur5 = cur4->children;
2371	while (cur5 != NULL
2372	&& cur5->type != XML_ELEMENT_NODE
2373	&& cur5->type !=
2374	XML_CDATA_SECTION_NODE)
2375	cur5 = cur5->next;
2376	if (cur5 != NULL
2377	&& cur5->type != XML_CDATA_SECTION_NODE)
2378	{
2379	xmlDocSetRootElement (doc1, cur5);
2380	xmlDocDumpFormatMemoryEnc (doc1, &mv,
2381	&buffersize,
2382	"utf-8", 1);
2383	char size[1024];
2384	sprintf (size, "%d", buffersize);
2385	addToMap (tmpmaps->content, "size",
2386	size);
2387	xmlFreeDoc (doc1);
2388	}
2389	}
2390	if (mv != NULL)
2391	{
2392	addToMap (tmpmaps->content, "value",
2393	(char *) mv);
2394	xmlFree (mv);
2395	}
2396	}
2397	else
2398	{
2399	xmlChar *tmp = xmlNodeListGetRawString (doc,
2400	cur4->xmlChildrenNode,
2401	0);
2402	addToMap (tmpmaps->content, "value",
2403	(char *) tmp);
2404	map *tmpv = getMap (tmpmaps->content, "value");
2405	char *res = NULL;
2406	char *curs = tmpv->value;
2407	for (int i = 0; i <= strlen (tmpv->value) / 64;
2408	i++)
2409	{
2410	if (res == NULL)
2411	res =
2412	(char ) malloc (67 sizeof (char));
2413	else
2414	res =
2415	(char *) realloc (res,
2416	(((i + 1) * 65) +
2417	i) * sizeof (char));
2418	int csize = i * 65;
2419	strncpy (res + csize, curs, 64);
2420	if (i == xmlStrlen (tmp) / 64)
2421	strcat (res, "\n\0");
2422	else
2423	{
2424	strncpy (res + (((i + 1) * 64) + i),
2425	"\n\0", 2);
2426	curs += 64;
2427	}
2428	}
2429	free (tmpv->value);
2430	tmpv->value = zStrdup (res);
2431	free (res);
2432	xmlFree (tmp);
2433	}
2434	cur4 = cur4->next;
2435	}
2436	}
2437	#ifdef DEBUG
2438	fprintf (stderr, "cur2 next \n");
2439	fflush (stderr);
2440	#endif
2441	cur2 = cur2->next;
2442	}
2443	#ifdef DEBUG
2444	fprintf (stderr, "ADD MAPS TO REQUEST MAPS !\n");
2445	fflush (stderr);
2446	#endif
2447
2448	{
2449	maps *testPresence =
2450	getMaps (request_input_real_format, tmpmaps->name);
2451	if (testPresence != NULL)
2452	{
2453	elements *elem = getElements (s1->inputs, tmpmaps->name);
2454	if (elem != NULL)
2455	{
2456	if (appendMapsToMaps
2457	(m, request_input_real_format, tmpmaps, elem) < 0)
2458	{
2459	freeMaps (&m);
2460	free (m);
2461	free (REQUEST);
2462	free (SERVICE_URL);
2463	InternetCloseHandle (&hInternet);
2464	freeService (&s1);
2465	free (s1);
2466	return 0;
2467	}
2468	}
2469	}
2470	else
2471	addMapsToMaps (&request_input_real_format, tmpmaps);
2472	}
2473
2474	#ifdef DEBUG
2475	fprintf (stderr, "****TMPMAPS***\n");
2476	dumpMaps (tmpmaps);
2477	fprintf (stderr, "****REQUESTMAPS***\n");
2478	dumpMaps (request_input_real_format);
2479	#endif
2480	freeMaps (&tmpmaps);
2481	free (tmpmaps);
2482	tmpmaps = NULL;
2483	}
2484	#ifdef DEBUG
2485	dumpMaps (tmpmaps);
2486	#endif
2487	}
2488	#ifdef DEBUG
2489	fprintf (stderr, "Search for response document node\n");
2490	#endif
2491	xmlXPathFreeObject (tmpsptr);
2492
2493	tmpsptr =
2494	extractFromDoc (doc, "///*[local-name()='ResponseDocument']");
2495	bool asRaw = false;
2496	tmps = tmpsptr->nodesetval;
2497	if (tmps->nodeNr == 0)
2498	{
2499	xmlXPathFreeObject (tmpsptr);
2500	tmpsptr =
2501	extractFromDoc (doc, "///*[local-name()='RawDataOutput']");
2502	tmps = tmpsptr->nodesetval;
2503	asRaw = true;
2504	}
2505	#ifdef DEBUG
2506	fprintf (stderr, "***%d***\n", tmps->nodeNr);
2507	#endif
2508	if (asRaw == true)
2509	{
2510	addToMap (request_inputs, "RawDataOutput", "");
2511	xmlNodePtr cur0 = tmps->nodeTab[0];
2512	if (cur0->type == XML_ELEMENT_NODE)
2513	{
2514
2515	maps tmpmaps = (maps ) malloc (MAPS_SIZE);
2516	if (tmpmaps == NULL)
2517	{
2518	return errorException (m, _("Unable to allocate memory."),
2519	"InternalError", NULL);
2520	}
2521	tmpmaps->name = zStrdup ("unknownIdentifier");
2522	tmpmaps->content = NULL;
2523	tmpmaps->next = NULL;
2524
2525	/**
2526	* Get every attribute from a RawDataOutput node
2527	* mimeType, encoding, schema, uom
2528	*/
2529	const char *outs[4] =
2530	{ "mimeType", "encoding", "schema", "uom" };
2531	for (int l = 0; l < 4; l++)
2532	{
2533	#ifdef DEBUG
2534	fprintf (stderr, "* %s *\t", outs[l]);
2535	#endif
2536	xmlChar *val = xmlGetProp (cur0, BAD_CAST outs[l]);
2537	if (val != NULL)
2538	{
2539	if (strlen ((char *) val) > 0)
2540	{
2541	if (tmpmaps->content != NULL)
2542	addToMap (tmpmaps->content, outs[l],
2543	(char *) val);
2544	else
2545	tmpmaps->content =
2546	createMap (outs[l], (char *) val);
2547	}
2548	xmlFree (val);
2549	}
2550	}
2551	xmlNodePtr cur2 = cur0->children;
2552	while (cur2 != NULL && cur2->type != XML_ELEMENT_NODE)
2553	cur2 = cur2->next;
2554	int cur1cnt = 0;
2555	while (cur2 != NULL)
2556	{
2557	if (xmlStrncasecmp
2558	(cur2->name, BAD_CAST "Identifier",
2559	xmlStrlen (cur2->name)) == 0)
2560	{
2561	xmlChar *val =
2562	xmlNodeListGetString (NULL, cur2->xmlChildrenNode, 1);
2563	free (tmpmaps->name);
2564	tmpmaps->name = zStrdup ((char *) val);
2565	xmlFree (val);
2566	}
2567	cur2 = cur2->next;
2568	while (cur2 != NULL && cur2->type != XML_ELEMENT_NODE)
2569	cur2 = cur2->next;
2570	}
2571	if (request_output_real_format == NULL)
2572	request_output_real_format = dupMaps (&tmpmaps);
2573	else
2574	addMapsToMaps (&request_output_real_format, tmpmaps);
2575	if (tmpmaps != NULL)
2576	{
2577	freeMaps (&tmpmaps);
2578	free (tmpmaps);
2579	tmpmaps = NULL;
2580	}
2581	}
2582	}
2583	else
2584	for (int k = 0; k < tmps->nodeNr; k++)
2585	{
2586	//else
2587	addToMap (request_inputs, "ResponseDocument", "");
2588	maps *tmpmaps = NULL;
2589	xmlNodePtr cur = tmps->nodeTab[k];
2590	if (cur->type == XML_ELEMENT_NODE)
2591	{
2592	/**
2593	* A specific responseDocument node.
2594	*/
2595	if (tmpmaps == NULL)
2596	{
2597	tmpmaps = (maps *) malloc (MAPS_SIZE);
2598	if (tmpmaps == NULL)
2599	{
2600	return errorException (m,
2601	_
2602	("Unable to allocate memory."),
2603	"InternalError", NULL);
2604	}
2605	tmpmaps->name = zStrdup ("unknownIdentifier");
2606	tmpmaps->content = NULL;
2607	tmpmaps->next = NULL;
2608	}
2609	/**
2610	* Get every attribute: storeExecuteResponse, lineage, status
2611	*/
2612	const char *ress[3] =
2613	{ "storeExecuteResponse", "lineage", "status" };
2614	xmlChar *val;
2615	for (int l = 0; l < 3; l++)
2616	{
2617	#ifdef DEBUG
2618	fprintf (stderr, "* %s *\t", ress[l]);
2619	#endif
2620	val = xmlGetProp (cur, BAD_CAST ress[l]);
2621	if (val != NULL && strlen ((char *) val) > 0)
2622	{
2623	if (tmpmaps->content != NULL)
2624	addToMap (tmpmaps->content, ress[l], (char *) val);
2625	else
2626	tmpmaps->content =
2627	createMap (ress[l], (char *) val);
2628	addToMap (request_inputs, ress[l], (char *) val);
2629	}
2630	#ifdef DEBUG
2631	fprintf (stderr, "%s\n", val);
2632	#endif
2633	xmlFree (val);
2634	}
2635	xmlNodePtr cur1 = cur->children;
2636	while (cur1 != NULL && cur1->type != XML_ELEMENT_NODE)
2637	cur1 = cur1->next;
2638	int cur1cnt = 0;
2639	while (cur1)
2640	{
2641	/**
2642	* Indentifier
2643	*/
2644	if (xmlStrncasecmp
2645	(cur1->name, BAD_CAST "Identifier",
2646	xmlStrlen (cur1->name)) == 0)
2647	{
2648	xmlChar *val =
2649	xmlNodeListGetString (doc, cur1->xmlChildrenNode,
2650	1);
2651	if (tmpmaps == NULL)
2652	{
2653	tmpmaps = (maps *) malloc (MAPS_SIZE);
2654	if (tmpmaps == NULL)
2655	{
2656	return errorException (m,
2657	_
2658	("Unable to allocate memory."),
2659	"InternalError", NULL);
2660	}
2661	tmpmaps->name = zStrdup ((char *) val);
2662	tmpmaps->content = NULL;
2663	tmpmaps->next = NULL;
2664	}
2665	else
2666	{
2667	free (tmpmaps->name);
2668	tmpmaps->name = zStrdup ((char *) val);
2669	}
2670	if (asRaw == true)
2671	addToMap (request_inputs, "RawDataOutput",
2672	(char *) val);
2673	else
2674	{
2675	if (cur1cnt == 0)
2676	addToMap (request_inputs, "ResponseDocument",
2677	(char *) val);
2678	else
2679	{
2680	map *tt =
2681	getMap (request_inputs, "ResponseDocument");
2682	char *tmp = zStrdup (tt->value);
2683	free (tt->value);
2684	tt->value =
2685	(char *)
2686	malloc ((strlen (tmp) +
2687	strlen ((char *) val) +
2688	1) * sizeof (char));
2689	sprintf (tt->value, "%s;%s", tmp,
2690	(char *) val);
2691	free (tmp);
2692	}
2693	}
2694	cur1cnt += 1;
2695	xmlFree (val);
2696	}
2697	/**
2698	* Title, Asbtract
2699	*/
2700	else
2701	if (xmlStrncasecmp
2702	(cur1->name, BAD_CAST "Title",
2703	xmlStrlen (cur1->name)) == 0
2704	\|\| xmlStrncasecmp (cur1->name, BAD_CAST "Abstract",
2705	xmlStrlen (cur1->name)) == 0)
2706	{
2707	xmlChar *val =
2708	xmlNodeListGetString (doc, cur1->xmlChildrenNode,
2709	1);
2710	if (tmpmaps == NULL)
2711	{
2712	tmpmaps = (maps *) malloc (MAPS_SIZE);
2713	if (tmpmaps == NULL)
2714	{
2715	return errorException (m,
2716	_
2717	("Unable to allocate memory."),
2718	"InternalError", NULL);
2719	}
2720	tmpmaps->name = zStrdup ("missingIndetifier");
2721	tmpmaps->content =
2722	createMap ((char ) cur1->name, (char ) val);
2723	tmpmaps->next = NULL;
2724	}
2725	else
2726	{
2727	if (tmpmaps->content != NULL)
2728	addToMap (tmpmaps->content, (char *) cur1->name,
2729	(char *) val);
2730	else
2731	tmpmaps->content =
2732	createMap ((char ) cur1->name, (char ) val);
2733	}
2734	xmlFree (val);
2735	}
2736	else
2737	if (xmlStrncasecmp
2738	(cur1->name, BAD_CAST "Output",
2739	xmlStrlen (cur1->name)) == 0)
2740	{
2741	/**
2742	* Get every attribute from a Output node
2743	* mimeType, encoding, schema, uom, asReference
2744	*/
2745	const char *outs[5] =
2746	{ "mimeType", "encoding", "schema", "uom",
2747	"asReference"
2748	};
2749	for (int l = 0; l < 5; l++)
2750	{
2751	#ifdef DEBUG
2752	fprintf (stderr, "* %s *\t", outs[l]);
2753	#endif
2754	xmlChar *val =
2755	xmlGetProp (cur1, BAD_CAST outs[l]);
2756	if (val != NULL && strlen ((char *) val) > 0)
2757	{
2758	if (tmpmaps->content != NULL)
2759	addToMap (tmpmaps->content, outs[l],
2760	(char *) val);
2761	else
2762	tmpmaps->content =
2763	createMap (outs[l], (char *) val);
2764	}
2765	#ifdef DEBUG
2766	fprintf (stderr, "%s\n", val);
2767	#endif
2768	xmlFree (val);
2769	}
2770	xmlNodePtr cur2 = cur1->children;
2771	while (cur2 != NULL && cur2->type != XML_ELEMENT_NODE)
2772	cur2 = cur2->next;
2773	while (cur2)
2774	{
2775	/**
2776	* Indentifier
2777	*/
2778	if (xmlStrncasecmp
2779	(cur2->name, BAD_CAST "Identifier",
2780	xmlStrlen (cur2->name)) == 0)
2781	{
2782	xmlChar *val = xmlNodeListGetString (doc,
2783	cur2->
2784	xmlChildrenNode,
2785	1);
2786	if (tmpmaps == NULL)
2787	{
2788	tmpmaps = (maps *) malloc (MAPS_SIZE);
2789	if (tmpmaps == NULL)
2790	{
2791	return errorException (m,
2792	_
2793	("Unable to allocate memory."),
2794	"InternalError",
2795	NULL);
2796	}
2797	tmpmaps->name = zStrdup ((char *) val);
2798	tmpmaps->content = NULL;
2799	tmpmaps->next = NULL;
2800	}
2801	else
2802	{
2803	if (tmpmaps->name != NULL)
2804	free (tmpmaps->name);
2805	tmpmaps->name = zStrdup ((char *) val);;
2806	}
2807	xmlFree (val);
2808	}
2809	/**
2810	* Title, Asbtract
2811	*/
2812	else
2813	if (xmlStrncasecmp
2814	(cur2->name, BAD_CAST "Title",
2815	xmlStrlen (cur2->name)) == 0
2816	\|\| xmlStrncasecmp (cur2->name,
2817	BAD_CAST "Abstract",
2818	xmlStrlen (cur2->name))
2819	== 0)
2820	{
2821	xmlChar *val = xmlNodeListGetString (doc,
2822	cur2->
2823	xmlChildrenNode,
2824	1);
2825	if (tmpmaps == NULL)
2826	{
2827	tmpmaps = (maps *) malloc (MAPS_SIZE);
2828	if (tmpmaps == NULL)
2829	{
2830	return errorException (m,
2831	_
2832	("Unable to allocate memory."),
2833	"InternalError",
2834	NULL);
2835	}
2836	tmpmaps->name =
2837	zStrdup ("missingIndetifier");
2838	tmpmaps->content =
2839	createMap ((char *) cur2->name,
2840	(char *) val);
2841	tmpmaps->next = NULL;
2842	}
2843	else
2844	{
2845	if (tmpmaps->content != NULL)
2846	addToMap (tmpmaps->content,
2847	(char *) cur2->name,
2848	(char *) val);
2849	else
2850	tmpmaps->content =
2851	createMap ((char *) cur2->name,
2852	(char *) val);
2853	}
2854	xmlFree (val);
2855	}
2856	cur2 = cur2->next;
2857	while (cur2 != NULL
2858	&& cur2->type != XML_ELEMENT_NODE)
2859	cur2 = cur2->next;
2860	}
2861	}
2862	cur1 = cur1->next;
2863	while (cur1 != NULL && cur1->type != XML_ELEMENT_NODE)
2864	cur1 = cur1->next;
2865	}
2866	}
2867	if (request_output_real_format == NULL)
2868	request_output_real_format = dupMaps (&tmpmaps);
2869	else
2870	addMapsToMaps (&request_output_real_format, tmpmaps);
2871	if (tmpmaps != NULL)
2872	{
2873	freeMaps (&tmpmaps);
2874	free (tmpmaps);
2875	tmpmaps = NULL;
2876	}
2877	}
2878	xmlXPathFreeObject (tmpsptr);
2879	xmlFreeDoc (doc);
2880	xmlCleanupParser ();
2881	}
2882
2883	runHttpRequests (&m, &request_input_real_format, &hInternet);
2884
2885	// if(CHECK_INET_HANDLE(hInternet))
2886	InternetCloseHandle (&hInternet);
2887
2888	#ifdef DEBUG
2889	fprintf (stderr, "\n%d\n", __LINE__);
2890	fflush (stderr);
2891	dumpMaps (request_input_real_format);
2892	dumpMaps (request_output_real_format);
2893	dumpMap (request_inputs);
2894	fprintf (stderr, "\n%d\n", __LINE__);
2895	fflush (stderr);
2896	#endif
2897
2898	/**
2899	* Ensure that each requested arguments are present in the request
2900	* DataInputs and ResponseDocument / RawDataOutput
2901	*/
2902	char *dfv = addDefaultValues (&request_input_real_format, s1->inputs, m, 0);
2903	maps *ptr = request_input_real_format;
2904	while (ptr != NULL)
2905	{
2906	map *tmp0 = getMap (ptr->content, "size");
2907	map *tmp1 = getMap (ptr->content, "maximumMegabytes");
2908	if (tmp1 != NULL && tmp0 != NULL)
2909	{
2910	float i = atof (tmp0->value) / 1048576.0;
2911	if (i >= atoi (tmp1->value))
2912	{
2913	char tmps[1024];
2914	map *tmpe = createMap ("code", "FileSizeExceeded");
2915	snprintf (tmps, 1024,
2916	_
2917	("The <%s> parameter has a limited size (%sMB) defined in ZOO ServicesProvider configuration file but the reference you provided exceed this limitation (%fMB), please correct your query or the ZOO Configuration file."),
2918	ptr->name, tmp1->value, i);
2919	addToMap (tmpe, "locator", ptr->name);
2920	addToMap (tmpe, "text", tmps);
2921	printExceptionReportResponse (m, tmpe);
2922	freeService (&s1);
2923	free (s1);
2924	freeMap (&tmpe);
2925	free (tmpe);
2926	freeMaps (&m);
2927	free (m);
2928	free (REQUEST);
2929	free (SERVICE_URL);
2930	freeMaps (&request_input_real_format);
2931	free (request_input_real_format);
2932	freeMaps (&request_output_real_format);
2933	free (request_output_real_format);
2934	freeMaps (&tmpmaps);
2935	free (tmpmaps);
2936	return 1;
2937	}
2938	}
2939	ptr = ptr->next;
2940	}
2941
2942	char *dfv1 =
2943	addDefaultValues (&request_output_real_format, s1->outputs, m, 1);
2944	if (strcmp (dfv1, "") != 0 \|\| strcmp (dfv, "") != 0)
2945	{
2946	char tmps[1024];
2947	map *tmpe = createMap ("code", "MissingParameterValue");
2948	if (strcmp (dfv, "") != 0)
2949	{
2950	snprintf (tmps, 1024,
2951	_
2952	("The <%s> argument was not specified in DataInputs but defined as requested in ZOO ServicesProvider configuration file, please correct your query or the ZOO Configuration file."),
2953	dfv);
2954	addToMap (tmpe, "locator", dfv);
2955	}
2956	else if (strcmp (dfv1, "") != 0)
2957	{
2958	snprintf (tmps, 1024,
2959	_
2960	("The <%s> argument was specified as Output identifier but not defined in the ZOO Configuration File. Please, correct your query or the ZOO Configuration File."),
2961	dfv1);
2962	addToMap (tmpe, "locator", dfv1);
2963	}
2964	addToMap (tmpe, "text", tmps);
2965	printExceptionReportResponse (m, tmpe);
2966	freeService (&s1);
2967	free (s1);
2968	freeMap (&tmpe);
2969	free (tmpe);
2970	freeMaps (&m);
2971	free (m);
2972	free (REQUEST);
2973	free (SERVICE_URL);
2974	freeMaps (&request_input_real_format);
2975	free (request_input_real_format);
2976	freeMaps (&request_output_real_format);
2977	free (request_output_real_format);
2978	freeMaps (&tmpmaps);
2979	free (tmpmaps);
2980	return 1;
2981	}
2982	maps *tmpReqI = request_input_real_format;
2983	while (tmpReqI != NULL)
2984	{
2985	char name[1024];
2986	if (getMap (tmpReqI->content, "isFile") != NULL)
2987	{
2988	if (cgiFormFileName (tmpReqI->name, name, sizeof (name)) ==
2989	cgiFormSuccess)
2990	{
2991	int BufferLen = 1024;
2992	cgiFilePtr file;
2993	int targetFile;
2994	char storageNameOnServer[2048];
2995	char fileNameOnServer[64];
2996	char contentType[1024];
2997	char buffer[1024];
2998	char *tmpStr = NULL;
2999	int size;
3000	int got, t;
3001	map *path = getMapFromMaps (m, "main", "tmpPath");
3002	cgiFormFileSize (tmpReqI->name, &size);
3003	cgiFormFileContentType (tmpReqI->name, contentType,
3004	sizeof (contentType));
3005	if (cgiFormFileOpen (tmpReqI->name, &file) == cgiFormSuccess)
3006	{
3007	t = -1;
3008	while (1)
3009	{
3010	tmpStr = strstr (name + t + 1, "\\");
3011	if (NULL == tmpStr)
3012	tmpStr = strstr (name + t + 1, "/");
3013	if (NULL != tmpStr)
3014	t = (int) (tmpStr - name);
3015	else
3016	break;
3017	}
3018	strcpy (fileNameOnServer, name + t + 1);
3019
3020	sprintf (storageNameOnServer, "%s/%s", path->value,
3021	fileNameOnServer);
3022	#ifdef DEBUG
3023	fprintf (stderr, "Name on server %s\n",
3024	storageNameOnServer);
3025	fprintf (stderr, "fileNameOnServer: %s\n",
3026	fileNameOnServer);
3027	#endif
3028	targetFile =
3029	open (storageNameOnServer, O_RDWR \| O_CREAT \| O_TRUNC,
3030	S_IRWXU \| S_IRGRP \| S_IROTH);
3031	if (targetFile < 0)
3032	{
3033	#ifdef DEBUG
3034	fprintf (stderr, "could not create the new file,%s\n",
3035	fileNameOnServer);
3036	#endif
3037	}
3038	else
3039	{
3040	while (cgiFormFileRead (file, buffer, BufferLen, &got)
3041	== cgiFormSuccess)
3042	{
3043	if (got > 0)
3044	write (targetFile, buffer, got);
3045	}
3046	}
3047	addToMap (tmpReqI->content, "lref", storageNameOnServer);
3048	cgiFormFileClose (file);
3049	close (targetFile);
3050	#ifdef DEBUG
3051	fprintf (stderr, "File \"%s\" has been uploaded",
3052	fileNameOnServer);
3053	#endif
3054	}
3055	}
3056	}
3057	tmpReqI = tmpReqI->next;
3058	}
3059
3060	ensureDecodedBase64 (&request_input_real_format);
3061
3062	#ifdef DEBUG
3063	fprintf (stderr, "REQUEST_INPUTS\n");
3064	dumpMaps (request_input_real_format);
3065	fprintf (stderr, "REQUEST_OUTPUTS\n");
3066	dumpMaps (request_output_real_format);
3067	#endif
3068
3069	maps *curs = getMaps (m, "env");
3070	if (curs != NULL)
3071	{
3072	map *mapcs = curs->content;
3073	while (mapcs != NULLMAP)
3074	{
3075	#ifndef WIN32
3076	setenv (mapcs->name, mapcs->value, 1);
3077	#else
3078	#ifdef DEBUG
3079	fprintf (stderr, "[ZOO: setenv (%s=%s)]\n", mapcs->name,
3080	mapcs->value);
3081	#endif
3082	if (mapcs->value[strlen (mapcs->value) - 2] == '\r')
3083	{
3084	#ifdef DEBUG
3085	fprintf (stderr, "[ZOO: Env var finish with \r]\n");
3086	#endif
3087	mapcs->value[strlen (mapcs->value) - 1] = 0;
3088	}
3089	#ifdef DEBUG
3090	if (SetEnvironmentVariable (mapcs->name, mapcs->value) == 0)
3091	{
3092	fflush (stderr);
3093	fprintf (stderr, "setting variable... %s\n", "OK");
3094	}
3095	else
3096	{
3097	fflush (stderr);
3098	fprintf (stderr, "setting variable... %s\n", "OK");
3099	}
3100	#else
3101
3102
3103	SetEnvironmentVariable (mapcs->name, mapcs->value);
3104	#endif
3105	char *toto =
3106	(char *)
3107	malloc ((strlen (mapcs->name) + strlen (mapcs->value) +
3108	2) * sizeof (char));
3109	sprintf (toto, "%s=%s", mapcs->name, mapcs->value);
3110	putenv (toto);
3111	#ifdef DEBUG
3112	fflush (stderr);
3113	#endif
3114	#endif
3115	#ifdef DEBUG
3116	fprintf (stderr, "[ZOO: setenv (%s=%s)]\n", mapcs->name,
3117	mapcs->value);
3118	fflush (stderr);
3119	#endif
3120	mapcs = mapcs->next;
3121	}
3122	}
3123
3124	#ifdef DEBUG
3125	dumpMap (request_inputs);
3126	#endif
3127
3128	/**
3129	* Need to check if we need to fork to load a status enabled
3130	*/
3131	r_inputs = NULL;
3132	map *store = getMap (request_inputs, "storeExecuteResponse");
3133	map *status = getMap (request_inputs, "status");
3134	/**
3135	* 05-007r7 WPS 1.0.0 page 57 :
3136	* 'If status="true" and storeExecuteResponse is "false" then the service
3137	* shall raise an exception.'
3138	*/
3139	if (status != NULL && strcmp (status->value, "true") == 0 &&
3140	store != NULL && strcmp (store->value, "false") == 0)
3141	{
3142	errorException (m,
3143	_
3144	("Status cannot be set to true with storeExecuteResponse to false. Please, modify your request parameters."),
3145	"InvalidParameterValue", "storeExecuteResponse");
3146	freeService (&s1);
3147	free (s1);
3148	freeMaps (&m);
3149	free (m);
3150
3151	freeMaps (&request_input_real_format);
3152	free (request_input_real_format);
3153
3154	freeMaps (&request_output_real_format);
3155	free (request_output_real_format);
3156
3157	free (REQUEST);
3158	free (SERVICE_URL);
3159	return 1;
3160	}
3161	r_inputs = getMap (request_inputs, "storeExecuteResponse");
3162	int eres = SERVICE_STARTED;
3163	int cpid = getpid ();
3164
3165	/**
3166	* Initialize the specific [lenv] section which contains runtime variables:
3167	*
3168	* - usid : it is an unique identification number
3169	* - sid : it is the process idenfitication number (OS)
3170	* - status : value between 0 and 100 to express the completude of
3171	* the operations of the running service
3172	* - message : is a string where you can store error messages, in case
3173	* service is failing, or o provide details on the ongoing operation.
3174	* - cwd : is the current working directory
3175	* - soap : is a boolean value, true if the request was contained in a SOAP
3176	* Envelop
3177	* - sessid : string storing the session identifier (only when cookie is
3178	* used)
3179	* - cgiSid : only defined on Window platforms (for being able to identify
3180	* the created process)
3181	*
3182	*/
3183	maps _tmpMaps = (maps ) malloc (MAPS_SIZE);
3184	_tmpMaps->name = zStrdup ("lenv");
3185	char tmpBuff[100];
3186	int lid = getShmLockId (NULL, 1);
3187	lockShm (lid);
3188	struct ztimeval tp;
3189	if (zGettimeofday (&tp, NULL) == 0)
3190	sprintf (tmpBuff, "%i", (cpid + ((int) tp.tv_sec + (int) tp.tv_usec)));
3191	else
3192	sprintf (tmpBuff, "%i", (cpid + (int) time (NULL)));
3193	unlockShm (lid);
3194	removeShmLock (NULL, 1);
3195	_tmpMaps->content = createMap ("usid", tmpBuff);
3196	_tmpMaps->next = NULL;
3197	sprintf (tmpBuff, "%i", cpid);
3198	addToMap (_tmpMaps->content, "sid", tmpBuff);
3199	addToMap (_tmpMaps->content, "status", "0");
3200	addToMap (_tmpMaps->content, "cwd", ntmp);
3201	addToMap (_tmpMaps->content, "message", _("No message provided"));
3202	map *ltmp = getMap (request_inputs, "soap");
3203	if (ltmp != NULL)
3204	addToMap (_tmpMaps->content, "soap", ltmp->value);
3205	else
3206	addToMap (_tmpMaps->content, "soap", "false");
3207	if (cgiCookie != NULL && strlen (cgiCookie) > 0)
3208	{
3209	int hasValidCookie = -1;
3210	char *tcook = zStrdup (cgiCookie);
3211	char *tmp = NULL;
3212	map *testing = getMapFromMaps (m, "main", "cookiePrefix");
3213	if (testing == NULL)
3214	{
3215	tmp = zStrdup ("ID=");
3216	}
3217	else
3218	{
3219	tmp =
3220	(char ) malloc ((strlen (testing->value) + 2) sizeof (char));
3221	sprintf (tmp, "%s=", testing->value);
3222	}
3223	if (strstr (cgiCookie, ";") != NULL)
3224	{
3225	char token, saveptr;
3226	token = strtok_r (cgiCookie, ";", &saveptr);
3227	while (token != NULL)
3228	{
3229	if (strcasestr (token, tmp) != NULL)
3230	{
3231	if (tcook != NULL)
3232	free (tcook);
3233	tcook = zStrdup (token);
3234	hasValidCookie = 1;
3235	}
3236	token = strtok_r (NULL, ";", &saveptr);
3237	}
3238	}
3239	else
3240	{
3241	if (strstr (cgiCookie, "=") != NULL
3242	&& strcasestr (cgiCookie, tmp) != NULL)
3243	{
3244	tcook = zStrdup (cgiCookie);
3245	hasValidCookie = 1;
3246	}
3247	if (tmp != NULL)
3248	{
3249	free (tmp);
3250	}
3251	}
3252	if (hasValidCookie > 0)
3253	{
3254	addToMap (_tmpMaps->content, "sessid", strstr (tcook, "=") + 1);
3255	char session_file_path[1024];
3256	map *tmpPath = getMapFromMaps (m, "main", "sessPath");
3257	if (tmpPath == NULL)
3258	tmpPath = getMapFromMaps (m, "main", "tmpPath");
3259	char *tmp1 = strtok (tcook, ";");
3260	if (tmp1 != NULL)
3261	sprintf (session_file_path, "%s/sess_%s.cfg", tmpPath->value,
3262	strstr (tmp1, "=") + 1);
3263	else
3264	sprintf (session_file_path, "%s/sess_%s.cfg", tmpPath->value,
3265	strstr (cgiCookie, "=") + 1);
3266	free (tcook);
3267	maps tmpSess = (maps ) malloc (MAPS_SIZE);
3268	struct stat file_status;
3269	int istat = stat (session_file_path, &file_status);
3270	if (istat == 0 && file_status.st_size > 0)
3271	{
3272	conf_read (session_file_path, tmpSess);
3273	addMapsToMaps (&m, tmpSess);
3274	freeMaps (&tmpSess);
3275	free (tmpSess);
3276	}
3277	}
3278	}
3279	addMapsToMaps (&m, _tmpMaps);
3280	freeMaps (&_tmpMaps);
3281	free (_tmpMaps);
3282
3283	#ifdef DEBUG
3284	dumpMap (request_inputs);
3285	#endif
3286	#ifdef WIN32
3287	char *cgiSidL = NULL;
3288	if (getenv ("CGISID") != NULL)
3289	addToMap (request_inputs, "cgiSid", getenv ("CGISID"));
3290	map *test1 = getMap (request_inputs, "cgiSid");
3291	if (test1 != NULL)
3292	{
3293	cgiSid = test1->value;
3294	addToMap (request_inputs, "storeExecuteResponse", "true");
3295	addToMap (request_inputs, "status", "true");
3296	setMapInMaps (m, "lenv", "sid", test1->value);
3297	status = getMap (request_inputs, "status");
3298	}
3299	#endif
3300	char fbkp, fbkp1;
3301	FILE f0, f1;
3302	if (status != NULL)
3303	if (strcasecmp (status->value, "false") == 0)
3304	status = NULLMAP;
3305	if (status == NULLMAP)
3306	{
3307	loadServiceAndRun (&m, s1, request_inputs, &request_input_real_format,
3308	&request_output_real_format, &eres);
3309	}
3310	else
3311	{
3312	int pid;
3313	#ifdef DEBUG
3314	fprintf (stderr, "\nPID : %d\n", cpid);
3315	#endif
3316
3317	#ifndef WIN32
3318	pid = fork ();
3319	#else
3320	if (cgiSid == NULL)
3321	{
3322	createProcess (m, request_inputs, s1, NULL, cpid,
3323	request_input_real_format,
3324	request_output_real_format);
3325	pid = cpid;
3326	}
3327	else
3328	{
3329	pid = 0;
3330	cpid = atoi (cgiSid);
3331	}
3332	#endif
3333	if (pid > 0)
3334	{
3335	/**
3336	* dady :
3337	* set status to SERVICE_ACCEPTED
3338	*/
3339	#ifdef DEBUG
3340	fprintf (stderr, "father pid continue (origin %d) %d ...\n", cpid,
3341	getpid ());
3342	#endif
3343	eres = SERVICE_ACCEPTED;
3344	}
3345	else if (pid == 0)
3346	{
3347	/**
3348	* son : have to close the stdout, stdin and stderr to let the parent
3349	* process answer to http client.
3350	*/
3351	#ifndef WIN32
3352	zSleep (1);
3353	#endif
3354	r_inputs = getMapFromMaps (m, "lenv", "usid");
3355	int cpid = atoi (r_inputs->value);
3356	r_inputs = getMapFromMaps (m, "main", "tmpPath");
3357	map *r_inputs1 = getMap (s1->content, "ServiceProvider");
3358	fbkp =
3359	(char *)
3360	malloc ((strlen (r_inputs->value) + strlen (r_inputs1->value) +
3361	1024) * sizeof (char));
3362	sprintf (fbkp, "%s/%s_%d.xml", r_inputs->value, r_inputs1->value,
3363	cpid);
3364	char *flog =
3365	(char *)
3366	malloc ((strlen (r_inputs->value) + strlen (r_inputs1->value) +
3367	1024) * sizeof (char));
3368	sprintf (flog, "%s/%s_%d_error.log", r_inputs->value,
3369	r_inputs1->value, cpid);
3370	#ifdef DEBUG
3371	fprintf (stderr, "RUN IN BACKGROUND MODE \n");
3372	fprintf (stderr, "son pid continue (origin %d) %d ...\n", cpid,
3373	getpid ());
3374	fprintf (stderr, "\nFILE TO STORE DATA %s\n", r_inputs->value);
3375	#endif
3376	freopen (flog, "w+", stderr);
3377	semid lid = getShmLockId (m, 1);
3378	fflush (stderr);
3379	if (lid < 0)
3380	{
3381	fprintf (stderr, "ERROR %s %d\n", __FILE__, __LINE__);
3382	fflush (stderr);
3383	return -1;
3384	}
3385	else
3386	{
3387	if (lockShm (lid) < 0)
3388	{
3389	fprintf (stderr, "ERROR %s %d\n", __FILE__, __LINE__);
3390	fflush (stderr);
3391	return -1;
3392	}
3393	fflush (stderr);
3394	}
3395	f0 = freopen (fbkp, "w+", stdout);
3396	rewind (stdout);
3397	#ifndef WIN32
3398	fclose (stdin);
3399	#endif
3400	free (flog);
3401	/**
3402	* set status to SERVICE_STARTED and flush stdout to ensure full
3403	* content was outputed (the file used to store the ResponseDocument).
3404	* The rewind stdout to restart writing from the bgining of the file,
3405	* this way the data will be updated at the end of the process run.
3406	*/
3407	printProcessResponse (m, request_inputs, cpid, s1, r_inputs1->value,
3408	SERVICE_STARTED, request_input_real_format,
3409	request_output_real_format);
3410	fflush (stdout);
3411	unlockShm (lid);
3412	fflush (stderr);
3413	fbkp1 =
3414	(char *)
3415	malloc ((strlen (r_inputs->value) + strlen (r_inputs1->value) +
3416	1024) * sizeof (char));
3417	sprintf (fbkp1, "%s/%s_final_%d.xml", r_inputs->value,
3418	r_inputs1->value, cpid);
3419	f1 = freopen (fbkp1, "w+", stdout);
3420	loadServiceAndRun (&m, s1, request_inputs,
3421	&request_input_real_format,
3422	&request_output_real_format, &eres);
3423	}
3424	else
3425	{
3426	/**
3427	* error server don't accept the process need to output a valid
3428	* error response here !!!
3429	*/
3430	eres = -1;
3431	errorException (m, _("Unable to run the child process properly"),
3432	"InternalError", NULL);
3433	}
3434	}
3435
3436	#ifdef DEBUG
3437	dumpMaps (request_output_real_format);
3438	#endif
3439	if (eres != -1)
3440	outputResponse (s1, request_input_real_format,
3441	request_output_real_format, request_inputs,
3442	cpid, m, eres);
3443	fflush (stdout);
3444	/**
3445	* Ensure that if error occurs when freeing memory, no signal will return
3446	* an ExceptionReport document as the result was already returned to the
3447	* client.
3448	*/
3449	#ifndef USE_GDB
3450	signal (SIGSEGV, donothing);
3451	signal (SIGTERM, donothing);
3452	signal (SIGINT, donothing);
3453	signal (SIGILL, donothing);
3454	signal (SIGFPE, donothing);
3455	signal (SIGABRT, donothing);
3456	#endif
3457	if (((int) getpid ()) != cpid \|\| cgiSid != NULL)
3458	{
3459	fclose (stdout);
3460	fclose (stderr);
3461	/**
3462	* Dump back the final file fbkp1 to fbkp
3463	*/
3464	fclose (f0);
3465	fclose (f1);
3466	FILE *f2 = fopen (fbkp1, "rb");
3467	semid lid = getShmLockId (m, 1);
3468	if (lid < 0)
3469	return -1;
3470	lockShm (lid);
3471	FILE *f3 = fopen (fbkp, "wb+");
3472	free (fbkp);
3473	fseek (f2, 0, SEEK_END);
3474	long flen = ftell (f2);
3475	fseek (f2, 0, SEEK_SET);
3476	char tmps1 = (char ) malloc ((flen + 1) * sizeof (char));
3477	fread (tmps1, flen, 1, f2);
3478	fwrite (tmps1, 1, flen, f3);
3479	fclose (f2);
3480	fclose (f3);
3481	unlockShm (lid);
3482	unlink (fbkp1);
3483	free (fbkp1);
3484	free (tmps1);
3485	unhandleStatus (m);
3486	}
3487
3488	freeService (&s1);
3489	free (s1);
3490	freeMaps (&m);
3491	free (m);
3492
3493	freeMaps (&request_input_real_format);
3494	free (request_input_real_format);
3495
3496	freeMaps (&request_output_real_format);
3497	free (request_output_real_format);
3498
3499	free (REQUEST);
3500	free (SERVICE_URL);
3501	#ifdef DEBUG
3502	fprintf (stderr, "Processed response \n");
3503	fflush (stdout);
3504	fflush (stderr);
3505	#endif
3506
3507	if (((int) getpid ()) != cpid \|\| cgiSid != NULL)
3508	{
3509	exit (0);
3510	}
3511
3512	return 0;
3513	}

Note: See TracBrowser for help on using the repository browser.

Open WPS platform

source: branches/branch-1.4/zoo-project/zoo-kernel/zoo_service_loader.c @ 857

Download in other formats:

Download now !

Support ZOO-Project

Search

Context Navigation

Main Navigation

ZOO Sponsors

Knowledge partners

Related links