zoo_service_loader.c @ 379

Last change on this file since 379 was 379, checked in by djay, 11 years ago
Fix handling of multiple outputs. Small fix to build with bleeding edge gcc. Add missing copyright in service_internal_ms.c/h. Better gesture of session data. Update HISTORY.txt content.
Property svn:eol-style set to `native` Property svn:mime-type set to `text/x-csrc`
File size: 62.4 KB

Rev	Line
[1]	1	/**
	2	* Author : Gérald FENOY
	3	*
[360]	4	* Copyright 2008-2012 GeoLabs SARL. All rights reserved.
[1]	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();
[9]	29
[376]	30	#include "cgic.h"
	31
[1]	32	extern "C" {
	33	#include <libxml/tree.h>
	34	#include <libxml/xmlmemory.h>
	35	#include <libxml/parser.h>
	36	#include <libxml/xpath.h>
	37	#include <libxml/xpathInternals.h>
	38	}
	39
	40	#include "ulinet.h"
	41
[34]	42	#include <libintl.h>
	43	#include <locale.h>
[1]	44	#include <string.h>
	45
	46	#include "service.h"
[34]	47
[1]	48	#include "service_internal.h"
[33]	49
	50	#ifdef USE_PYTHON
[1]	51	#include "service_internal_python.h"
[33]	52	#endif
[1]	53
	54	#ifdef USE_JAVA
	55	#include "service_internal_java.h"
	56	#endif
	57
	58	#ifdef USE_PHP
	59	#include "service_internal_php.h"
	60	#endif
	61
	62	#ifdef USE_JS
	63	#include "service_internal_js.h"
	64	#endif
	65
[25]	66	#ifdef USE_PERL
	67	#include "service_internal_perl.h"
	68	#endif
[1]	69
	70	#include <dirent.h>
	71	#include <signal.h>
	72	#include <unistd.h>
	73	#ifndef WIN32
	74	#include <dlfcn.h>
	75	#include <libgen.h>
	76	#else
	77	#include <windows.h>
	78	#include <direct.h>
[364]	79	#include <sys/types.h>
	80	#include <sys/stat.h>
	81	#include <unistd.h>
	82	#define pid_t int;
[1]	83	#endif
	84	#include <fcntl.h>
	85	#include <time.h>
	86	#include <stdarg.h>
	87
[364]	88	#ifdef WIN32
	89	extern "C" {
[370]	90	__declspec(dllexport) char strcasestr(char const a, char const *b)
	91	#ifndef USE_MS
	92	{
	93	char *x=_strdup(a);
	94	char *y=_strdup(b);
	95
	96	x=_strlwr(x);
	97	y=_strlwr(y);
	98	char *pos = strstr(x, y);
	99	char ret = pos == NULL ? NULL : (char )(a + (pos-x));
	100	free(x);
	101	free(y);
	102	return ret;
	103	};
	104	#else
	105	;
	106	#endif
[364]	107	}
	108	#endif
	109
[34]	110	#define _(String) dgettext ("zoo-kernel",String)
[376]	111	#define __(String) dgettext ("zoo-service",String)
[34]	112
	113
[109]	114	void translateChar(char* str,char toReplace,char toReplaceBy){
[34]	115	int i=0,len=strlen(str);
	116	for(i=0;i<len;i++){
	117	if(str[i]==toReplace)
	118	str[i]=toReplaceBy;
	119	}
	120	}
	121
[360]	122	/**
	123	* Create (or append to) an array valued maps
	124	* value = "["",""]"
	125	*/
	126	int appendMapsToMaps(maps* m,maps* mo,maps* mi,elements* elem){
[362]	127	maps* tmpMaps=getMaps(mo,mi->name);
	128	map* tmap=getMapType(tmpMaps->content);
	129	elements* el=getElements(elem,mi->name);
	130	int hasEl=1;
	131	if(el==NULL)
	132	hasEl=-1;
[360]	133	if(tmap==NULL){
[362]	134	if(hasEl>0)
	135	tmap=getMapType(el->defaults->content);
[360]	136	}
	137
[362]	138	map* testMap=NULL;
	139	if(hasEl>0){
	140	testMap=getMap(el->content,"maxOccurs");
	141	}else{
	142	testMap=createMap("maxOccurs","unbounded");
	143	}
	144
[360]	145	if(testMap!=NULL){
	146	if(strncasecmp(testMap->value,"unbounded",9)!=0 && atoi(testMap->value)>1){
	147	if(addMapsArrayToMaps(&mo,mi,tmap->name)<0){
	148	char emsg[1024];
	149	sprintf(emsg,_("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."),mi->name,atoi(testMap->value));
	150	errorException(m,emsg,"InternalError");
	151	return -1;
	152	}
	153	}else{
	154	if(strncasecmp(testMap->value,"unbounded",9)==0){
[362]	155	if(hasEl<0){
	156	freeMap(&testMap);
	157	free(testMap);
	158	}
[360]	159	if(addMapsArrayToMaps(&mo,mi,tmap->name)<0){
	160	char emsg[1024];
	161	map* tmpMap=getMap(mi->content,"length");
	162	sprintf(emsg,_("ZOO-Kernel was unable to load your data for %s position %s."),mi->name,tmpMap->value);
	163	errorException(m,emsg,"InternalError");
	164	return -1;
	165	}
	166	}
	167	else{
	168	char emsg[1024];
	169	sprintf(emsg,_("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."),mi->name);
	170	errorException(m,emsg,"InternalError");
	171	return -1;
	172	}
	173	}
	174	}
	175	return 0;
	176	}
	177
[114]	178	xmlXPathObjectPtr extractFromDoc(xmlDocPtr doc,const char* search){
[1]	179	xmlXPathContextPtr xpathCtx;
	180	xmlXPathObjectPtr xpathObj;
	181	xpathCtx = xmlXPathNewContext(doc);
	182	xpathObj = xmlXPathEvalExpression(BAD_CAST search,xpathCtx);
[9]	183	xmlXPathFreeContext(xpathCtx);
	184	return xpathObj;
[1]	185	}
	186
[105]	187	void donothing(int sig){
	188	fprintf(stderr,"Signal %d after the ZOO-Kernel returned result !\n",sig);
	189	exit(0);
	190	}
	191
[9]	192	void sig_handler(int sig){
	193	char tmp[100];
[114]	194	const char *ssig;
[9]	195	switch(sig){
	196	case SIGSEGV:
	197	ssig="SIGSEGV";
	198	break;
	199	case SIGTERM:
	200	ssig="SIGTERM";
	201	break;
	202	case SIGINT:
	203	ssig="SIGINT";
	204	break;
	205	case SIGILL:
	206	ssig="SIGILL";
	207	break;
	208	case SIGFPE:
	209	ssig="SIGFPE";
	210	break;
	211	case SIGABRT:
	212	ssig="SIGABRT";
	213	break;
	214	default:
	215	ssig="UNKNOWN";
	216	break;
	217	}
[34]	218	sprintf(tmp,_("ZOO Kernel failed to process your request receiving signal %d = %s"),sig,ssig);
[9]	219	errorException(NULL, tmp, "InternalError");
[10]	220	#ifdef DEBUG
[1]	221	fprintf(stderr,"Not this time!\n");
[10]	222	#endif
[9]	223	exit(0);
[1]	224	}
	225
[109]	226	void loadServiceAndRun(maps *myMap,service s1,map* request_inputs,maps inputs,maps ioutputs,int* eres){
[34]	227	char tmps1[1024];
	228	char ntmp[1024];
	229	maps m=myMap;
	230	maps request_output_real_format=ioutputs;
	231	maps request_input_real_format=inputs;
	232	/**
	233	* Extract serviceType to know what kind of service should be loaded
	234	*/
	235	map* r_inputs=NULL;
	236	#ifndef WIN32
[114]	237	char* pntmp=getcwd(ntmp,1024);
[34]	238	#else
	239	_getcwd(ntmp,1024);
	240	#endif
	241	r_inputs=getMap(s1->content,"serviceType");
	242	#ifdef DEBUG
	243	fprintf(stderr,"LOAD A %s SERVICE PROVIDER \n",r_inputs->value);
	244	fflush(stderr);
	245	#endif
[364]	246	if(strlen(r_inputs->value)==1 && strncasecmp(r_inputs->value,"C",1)==0){
[34]	247	r_inputs=getMap(request_inputs,"metapath");
	248	if(r_inputs!=NULL)
	249	sprintf(tmps1,"%s/%s",ntmp,r_inputs->value);
	250	else
	251	sprintf(tmps1,"%s/",ntmp);
	252	char *altPath=strdup(tmps1);
	253	r_inputs=getMap(s1->content,"ServiceProvider");
	254	sprintf(tmps1,"%s/%s",altPath,r_inputs->value);
	255	free(altPath);
	256	#ifdef DEBUG
	257	fprintf(stderr,"Trying to load %s\n",tmps1);
	258	#endif
	259	#ifdef WIN32
	260	HINSTANCE so = LoadLibraryEx(tmps1,NULL,LOAD_WITH_ALTERED_SEARCH_PATH);
	261	#else
	262	void* so = dlopen(tmps1, RTLD_LAZY);
	263	#endif
	264	#ifdef DEBUG
[57]	265	#ifdef WIN32
[34]	266	DWORD errstr;
	267	errstr = GetLastError();
	268	fprintf(stderr,"%s loaded (%d) \n",tmps1,errstr);
	269	#else
	270	char *errstr;
	271	errstr = dlerror();
	272	#endif
	273	#endif
	274
	275	if( so != NULL ) {
	276	#ifdef DEBUG
	277	fprintf(stderr,"Library loaded %s \n",errstr);
	278	fprintf(stderr,"Service Shared Object = %s\n",r_inputs->value);
	279	#endif
	280	r_inputs=getMap(s1->content,"serviceType");
	281	#ifdef DEBUG
	282	dumpMap(r_inputs);
	283	fprintf(stderr,"%s\n",r_inputs->value);
	284	fflush(stderr);
	285	#endif
	286	if(strncasecmp(r_inputs->value,"C-FORTRAN",9)==0){
	287	r_inputs=getMap(request_inputs,"Identifier");
	288	char fname[1024];
	289	sprintf(fname,"%s_",r_inputs->value);
	290	#ifdef DEBUG
	291	fprintf(stderr,"Try to load function %s\n",fname);
	292	#endif
	293	#ifdef WIN32
	294	typedef int (CALLBACK* execute_t)(char*,char,char**);
	295	execute_t execute=(execute_t)GetProcAddress(so,fname);
	296	#else
	297	typedef int (execute_t)(char,char,char**);
	298	execute_t execute=(execute_t)dlsym(so,fname);
	299	#endif
	300	#ifdef DEBUG
	301	#ifdef WIN32
	302	errstr = GetLastError();
	303	#else
	304	errstr = dlerror();
	305	#endif
	306	fprintf(stderr,"Function loaded %s\n",errstr);
	307	#endif
	308
	309	char main_conf[10][30][1024];
	310	char inputs[10][30][1024];
	311	char outputs[10][30][1024];
	312	for(int i=0;i<10;i++){
	313	for(int j=0;j<30;j++){
	314	memset(main_conf[i][j],0,1024);
	315	memset(inputs[i][j],0,1024);
	316	memset(outputs[i][j],0,1024);
	317	}
	318	}
	319	mapsToCharXXX(m,(char***)main_conf);
	320	mapsToCharXXX(request_input_real_format,(char***)inputs);
	321	mapsToCharXXX(request_output_real_format,(char***)outputs);
	322	eres=execute((char)&main_conf[0],(char)&inputs[0],(char**)&outputs[0]);
	323	#ifdef DEBUG
	324	fprintf(stderr,"Function run successfully \n");
	325	#endif
	326	charxxxToMaps((char***)&outputs[0],&request_output_real_format);
	327	}else{
	328	#ifdef DEBUG
	329	#ifdef WIN32
	330	errstr = GetLastError();
	331	fprintf(stderr,"Function %s failed to load because of %d\n",r_inputs->value,errstr);
	332	#endif
	333	#endif
	334	r_inputs=getMap(request_inputs,"Identifier");
	335	#ifdef DEBUG
	336	fprintf(stderr,"Try to load function %s\n",r_inputs->value);
	337	#endif
	338	typedef int (execute_t)(maps,maps,maps*);
	339	#ifdef WIN32
	340	execute_t execute=(execute_t)GetProcAddress(so,r_inputs->value);
	341	#else
	342	execute_t execute=(execute_t)dlsym(so,r_inputs->value);
	343	#endif
	344
	345	#ifdef DEBUG
	346	#ifdef WIN32
	347	errstr = GetLastError();
	348	#else
	349	errstr = dlerror();
	350	#endif
	351	fprintf(stderr,"Function loaded %s\n",errstr);
	352	#endif
	353
	354	#ifdef DEBUG
	355	fprintf(stderr,"Now run the function \n");
	356	fflush(stderr);
	357	#endif
	358	*eres=execute(&m,&request_input_real_format,&request_output_real_format);
	359	#ifdef DEBUG
	360	fprintf(stderr,"Function loaded and returned %d\n",eres);
	361	fflush(stderr);
	362	#endif
	363	}
[216]	364	#ifdef WIN32
	365	*ioutputs=dupMaps(&request_output_real_format);
	366	FreeLibrary(so);
	367	#else
[34]	368	dlclose(so);
[216]	369	#endif
[34]	370	} else {
	371	/**
	372	* Unable to load the specified shared library
	373	*/
	374	char tmps[1024];
	375	#ifdef WIN32
	376	DWORD errstr = GetLastError();
	377	#else
	378	char* errstr = dlerror();
	379	#endif
	380	sprintf(tmps,_("C Library can't be loaded %s \n"),errstr);
	381	map* tmps1=createMap("text",tmps);
	382	printExceptionReportResponse(m,tmps1);
	383	*eres=-1;
	384	}
	385	}
	386	else
	387	#ifdef USE_PYTHON
	388	if(strncasecmp(r_inputs->value,"PYTHON",6)==0){
	389	*eres=zoo_python_support(&m,request_inputs,s1,&request_input_real_format,&request_output_real_format);
	390	}
	391	else
	392	#endif
	393
	394	#ifdef USE_JAVA
	395	if(strncasecmp(r_inputs->value,"JAVA",4)==0){
	396	*eres=zoo_java_support(&m,request_inputs,s1,&request_input_real_format,&request_output_real_format);
	397	}
	398	else
	399	#endif
	400
	401	#ifdef USE_PHP
	402	if(strncasecmp(r_inputs->value,"PHP",3)==0){
	403	*eres=zoo_php_support(&m,request_inputs,s1,&request_input_real_format,&request_output_real_format);
	404	}
	405	else
	406	#endif
	407
	408
	409	#ifdef USE_PERL
	410	if(strncasecmp(r_inputs->value,"PERL",4)==0){
	411	*eres=zoo_perl_support(&m,request_inputs,s1,&request_input_real_format,&request_output_real_format);
	412	}
	413	else
	414	#endif
	415
	416	#ifdef USE_JS
	417	if(strncasecmp(r_inputs->value,"JS",2)==0){
	418	*eres=zoo_js_support(&m,request_inputs,s1,&request_input_real_format,&request_output_real_format);
	419	}
	420	else
	421	#endif
	422	{
	423	char tmpv[1024];
	424	sprintf(tmpv,_("Programming Language (%s) set in ZCFG file is not currently supported by ZOO Kernel.\n"),r_inputs->value);
	425	map* tmps=createMap("text",tmpv);
	426	printExceptionReportResponse(m,tmps);
	427	*eres=-1;
	428	}
[57]	429	*myMap=m;
[34]	430	*ioutputs=request_output_real_format;
	431	}
	432
[216]	433	#ifdef WIN32
	434	/**
	435	* createProcess function: create a new process after setting some env variables
	436	*/
	437	void createProcess(maps* m,map* request_inputs,service* s1,char* opts,int cpid, maps* inputs,maps* outputs){
	438	STARTUPINFO si;
	439	PROCESS_INFORMATION pi;
	440	ZeroMemory( &si, sizeof(si) );
	441	si.cb = sizeof(si);
	442	ZeroMemory( &pi, sizeof(pi) );
	443	char tmp=(char )malloc((1024+cgiContentLength)*sizeof(char));
	444	char tmpq=(char )malloc((1024+cgiContentLength)*sizeof(char));
	445	map *req=getMap(request_inputs,"request");
	446	map *id=getMap(request_inputs,"identifier");
	447	map *di=getMap(request_inputs,"DataInputs");
	448
	449	char *dataInputsKVP=getMapsAsKVP(inputs,cgiContentLength,0);
	450	char *dataOutputsKVP=getMapsAsKVP(outputs,cgiContentLength,1);
	451	fprintf(stderr,"DATAINPUTSKVP %s\n",dataInputsKVP);
	452	fprintf(stderr,"DATAOUTPUTSKVP %s\n",dataOutputsKVP);
	453	map *sid=getMapFromMaps(m,"lenv","sid");
	454	map* r_inputs=getMapFromMaps(m,"main","tmpPath");
	455	map* r_inputs1=getMap(s1->content,"ServiceProvider");
	456	map* r_inputs2=getMap(s1->content,"ResponseDocument");
	457	if(r_inputs2==NULL)
	458	r_inputs2=getMap(s1->content,"RawDataOutput");
	459	map *tmpPath=getMapFromMaps(m,"lenv","cwd");
	460
	461	if(r_inputs2!=NULL){
	462	sprintf(tmp,"\"request=%s&service=WPS&version=1.0.0&Identifier=%s&DataInputs=%s&%s=%s&cgiSid=%s\"",req->value,id->value,dataInputsKVP,r_inputs2->name,r_inputs2->value,sid->value);
	463	sprintf(tmpq,"request=%s&service=WPS&version=1.0.0&Identifier=%s&DataInputs=%s&%s=%s",req->value,id->value,dataInputsKVP,r_inputs2->name,dataOutputsKVP);
	464	}
	465	else{
	466	sprintf(tmp,"\"request=%s&service=WPS&version=1.0.0&Identifier=%s&DataInputs=%s&cgiSid=%s\"",req->value,id->value,dataInputsKVP,sid->value);
	467	sprintf(tmpq,"request=%s&service=WPS&version=1.0.0&Identifier=%s&DataInputs=%s",req->value,id->value,dataInputsKVP,sid->value);
	468	}
	469
	470	char *tmp1=strdup(tmp);
	471	sprintf(tmp,"zoo_loader.cgi %s \"%s\"",tmp1,sid->value);
	472
	473	free(dataInputsKVP);
	474	free(dataOutputsKVP);
	475	fprintf(stderr,"REQUEST IS : %s \n",tmp);
	476	SetEnvironmentVariable("CGISID",TEXT(sid->value));
	477	SetEnvironmentVariable("QUERY_STRING",TEXT(tmpq));
	478	char clen[1000];
	479	sprintf(clen,"%d",strlen(tmpq));
	480	SetEnvironmentVariable("CONTENT_LENGTH",TEXT(clen));
	481
	482	if( !CreateProcess( NULL, // No module name (use command line)
	483	TEXT(tmp), // Command line
	484	NULL, // Process handle not inheritable
	485	NULL, // Thread handle not inheritable
	486	FALSE, // Set handle inheritance to FALSE
	487	CREATE_NO_WINDOW, // Apache won't wait until the end
	488	NULL, // Use parent's environment block
	489	NULL, // Use parent's starting directory
	490	&si, // Pointer to STARTUPINFO struct
	491	&pi ) // Pointer to PROCESS_INFORMATION struct
	492	)
	493	{
	494	fprintf( stderr, "CreateProcess failed (%d).\n", GetLastError() );
	495	return ;
	496	}else{
	497	fprintf( stderr, "CreateProcess successfull (%d).\n\n\n\n", GetLastError() );
	498	}
	499	CloseHandle( pi.hProcess );
	500	CloseHandle( pi.hThread );
	501	fprintf(stderr,"CreateProcess finished !\n");
	502	}
	503	#endif
	504
[1]	505	int runRequest(map* request_inputs)
	506	{
	507
[53]	508	#ifndef USE_GDB
[9]	509	(void) signal(SIGSEGV,sig_handler);
	510	(void) signal(SIGTERM,sig_handler);
	511	(void) signal(SIGINT,sig_handler);
	512	(void) signal(SIGILL,sig_handler);
	513	(void) signal(SIGFPE,sig_handler);
	514	(void) signal(SIGABRT,sig_handler);
[53]	515	#endif
[9]	516
[114]	517	map* r_inputs=NULL;
[1]	518	maps* m=NULL;
	519
	520	char* REQUEST=NULL;
	521	/**
	522	* Parsing service specfic configuration file
	523	*/
[9]	524	m=(maps*)calloc(1,MAPS_SIZE);
	525	if(m == NULL){
[34]	526	return errorException(m, _("Unable to allocate memory."), "InternalError");
[9]	527	}
[1]	528	char ntmp[1024];
	529	#ifndef WIN32
[114]	530	char *pntmp=getcwd(ntmp,1024);
[1]	531	#else
	532	_getcwd(ntmp,1024);
	533	#endif
[282]	534	r_inputs=getMapOrFill(request_inputs,"metapath","");
	535
[9]	536	char conf_file[10240];
	537	snprintf(conf_file,10240,"%s/%s/main.cfg",ntmp,r_inputs->value);
[1]	538	conf_read(conf_file,m);
[9]	539	#ifdef DEBUG
	540	fprintf(stderr, "***** BEGIN MAPS\n");
	541	dumpMaps(m);
	542	fprintf(stderr, "***** END MAPS\n");
	543	#endif
	544
[376]	545	map *getPath=getMapFromMaps(m,"main","gettextPath");
	546	if(getPath!=NULL){
	547	bindtextdomain ("zoo-kernel",getPath->value);
	548	bindtextdomain ("zoo-services",getPath->value);
	549	}else{
	550	bindtextdomain ("zoo-kernel","/usr/share/locale/");
	551	bindtextdomain ("zoo-services","/usr/share/locale/");
	552	}
[364]	553
	554	/**
	555	* Manage our own error log file (usefull to separate standard apache debug
	556	* messages from the ZOO-Kernel ones but also for IIS users to avoid wrong
	557	* headers messages returned by the CGI due to wrong redirection of stderr)
	558	*/
	559	FILE * fstde=NULL;
	560	map* fstdem=getMapFromMaps(m,"main","logPath");
	561	if(fstdem!=NULL)
	562	fstde = freopen(fstdem->value, "a+", stderr) ;
	563
[376]	564	r_inputs=getMap(request_inputs,"language");
	565	if(r_inputs==NULL)
	566	r_inputs=getMapFromMaps(m,"main","language");
	567	if(r_inputs!=NULL){
[34]	568	char *tmp=strdup(r_inputs->value);
[376]	569	setMapInMaps(m,"main","language",tmp);
[34]	570	translateChar(tmp,'-','_');
	571	setlocale (LC_ALL, tmp);
[376]	572	#ifdef WIN32
	573	char tmp1[12];
	574	sprintf(tmp1,"LC_ALL=%s",tmp);
	575	putenv(tmp1);
	576	#endif
[34]	577	free(tmp);
	578	}
	579	else{
	580	setlocale (LC_ALL, "en_US");
[376]	581	#ifdef WIN32
	582	char tmp1[12];
	583	sprintf(tmp1,"LC_ALL=en_US");
	584	putenv(tmp1);
	585	#endif
[34]	586	setMapInMaps(m,"main","language","en-US");
	587	}
	588	setlocale (LC_NUMERIC, "en_US");
	589	bind_textdomain_codeset("zoo-kernel","UTF-8");
	590	textdomain("zoo-kernel");
	591	bind_textdomain_codeset("zoo-services","UTF-8");
	592	textdomain("zoo-services");
	593
[280]	594	map* lsoap=getMap(request_inputs,"soap");
	595	if(lsoap!=NULL && strcasecmp(lsoap->value,"true")==0)
	596	setMapInMaps(m,"main","isSoap","true");
	597	else
	598	setMapInMaps(m,"main","isSoap","false");
[34]	599
[1]	600	/**
	601	* Check for minimum inputs
	602	*/
	603	r_inputs=getMap(request_inputs,"Request");
[9]	604	if(request_inputs==NULL \|\| r_inputs==NULL){
[34]	605	errorException(m, _("Parameter <request> was not specified"),"MissingParameterValue");
[9]	606	freeMaps(&m);
	607	free(m);
[60]	608	freeMap(&request_inputs);
	609	free(request_inputs);
	610	free(REQUEST);
[1]	611	return 1;
	612	}
[9]	613	else{
[1]	614	REQUEST=strdup(r_inputs->value);
[9]	615	if(strncasecmp(r_inputs->value,"GetCapabilities",15)!=0
	616	&& strncasecmp(r_inputs->value,"DescribeProcess",15)!=0
	617	&& strncasecmp(r_inputs->value,"Execute",7)!=0){
[34]	618	errorException(m, _("Unenderstood <request> value. Please check that it was set to GetCapabilities, DescribeProcess or Execute."), "InvalidParameterValue");
[9]	619	freeMaps(&m);
	620	free(m);
	621	free(REQUEST);
	622	return 1;
	623	}
	624	}
[1]	625	r_inputs=NULL;
	626	r_inputs=getMap(request_inputs,"Service");
[9]	627	if(r_inputs==NULLMAP){
[34]	628	errorException(m, _("Parameter <service> was not specified"),"MissingParameterValue");
[9]	629	freeMaps(&m);
	630	free(m);
	631	free(REQUEST);
[1]	632	return 1;
	633	}
[9]	634	if(strncasecmp(REQUEST,"GetCapabilities",15)!=0){
[1]	635	r_inputs=getMap(request_inputs,"Version");
	636	if(r_inputs==NULL){
[34]	637	errorException(m, _("Parameter <version> was not specified"),"MissingParameterValue");
[9]	638	freeMaps(&m);
	639	free(m);
	640	free(REQUEST);
[1]	641	return 1;
	642	}
	643	}
	644
[9]	645	r_inputs=getMap(request_inputs,"serviceprovider");
	646	if(r_inputs==NULL){
	647	addToMap(request_inputs,"serviceprovider","");
[1]	648	}
	649
	650	maps* request_output_real_format=NULL;
	651	map* tmpm=getMapFromMaps(m,"main","serverAddress");
	652	if(tmpm!=NULL)
	653	SERVICE_URL=strdup(tmpm->value);
	654	else
[63]	655	SERVICE_URL=strdup(DEFAULT_SERVICE_URL);
[1]	656
	657	service* s1;
	658	int scount=0;
	659	#ifdef DEBUG
	660	dumpMap(r_inputs);
	661	#endif
	662	char conf_dir[1024];
	663	int t;
	664	char tmps1[1024];
	665
[9]	666	r_inputs=NULL;
	667	r_inputs=getMap(request_inputs,"metapath");
	668	if(r_inputs!=NULL)
	669	snprintf(conf_dir,1024,"%s/%s",ntmp,r_inputs->value);
	670	else
	671	snprintf(conf_dir,1024,"%s",ntmp);
	672
	673	if(strncasecmp(REQUEST,"GetCapabilities",15)==0){
[1]	674	struct dirent *dp;
	675	#ifdef DEBUG
	676	dumpMap(r_inputs);
	677	#endif
[9]	678	DIR *dirp = opendir(conf_dir);
[1]	679	if(dirp==NULL){
[34]	680	return errorException(m, _("The specified path doesn't exist."),"InvalidParameterValue");
[1]	681	}
	682	xmlDocPtr doc = xmlNewDoc(BAD_CAST "1.0");
	683	r_inputs=NULL;
	684	r_inputs=getMap(request_inputs,"ServiceProvider");
[9]	685	xmlNodePtr n;
	686	if(r_inputs!=NULL)
	687	n = printGetCapabilitiesHeader(doc,r_inputs->value,m);
	688	else
	689	n = printGetCapabilitiesHeader(doc,"",m);
[1]	690	/**
[214]	691	* Here we need to close stdout to ensure that not supported chars
	692	* has been found in the zcfg and then printed on stdout
[1]	693	*/
	694	int saved_stdout = dup(fileno(stdout));
	695	dup2(fileno(stderr),fileno(stdout));
	696	while ((dp = readdir(dirp)) != NULL)
	697	if(strstr(dp->d_name,".zcfg")!=0){
[9]	698	memset(tmps1,0,1024);
	699	snprintf(tmps1,1024,"%s/%s",conf_dir,dp->d_name);
	700	s1=(service*)calloc(1,SERVICE_SIZE);
	701	if(s1 == NULL){
[34]	702	return errorException(m, _("Unable to allocate memory."),"InternalError");
[9]	703	}
[1]	704	#ifdef DEBUG
	705	fprintf(stderr,"#################\n%s\n#################\n",tmps1);
	706	#endif
	707	t=getServiceFromFile(tmps1,&s1);
	708	#ifdef DEBUG
	709	dumpService(s1);
	710	fflush(stdout);
	711	fflush(stderr);
	712	#endif
	713	printGetCapabilitiesForProcess(m,n,s1);
[9]	714	freeService(&s1);
	715	free(s1);
[1]	716	scount++;
	717	}
	718	(void)closedir(dirp);
	719	fflush(stdout);
	720	dup2(saved_stdout,fileno(stdout));
[9]	721	printDocument(m,doc,getpid());
	722	freeMaps(&m);
	723	free(m);
	724	free(REQUEST);
	725	free(SERVICE_URL);
[1]	726	fflush(stdout);
	727	return 0;
	728	}
	729	else{
	730	r_inputs=getMap(request_inputs,"Identifier");
	731	if(r_inputs==NULL
	732	\|\| strlen(r_inputs->name)==0 \|\| strlen(r_inputs->value)==0){
[34]	733	errorException(m, _("Mandatory <identifier> was not specified"),"MissingParameterValue");
[9]	734	freeMaps(&m);
	735	free(m);
	736	free(REQUEST);
	737	free(SERVICE_URL);
	738	return 0;
[1]	739	}
	740
	741	struct dirent *dp;
	742	DIR *dirp = opendir(conf_dir);
	743	if(dirp==NULL){
[34]	744	errorException(m, _("The specified path path doesn't exist."),"InvalidParameterValue");
[9]	745	freeMaps(&m);
	746	free(m);
	747	free(REQUEST);
	748	free(SERVICE_URL);
	749	return 0;
[1]	750	}
[9]	751	if(strncasecmp(REQUEST,"DescribeProcess",15)==0){
[1]	752	/**
	753	* Loop over Identifier list
	754	*/
	755	xmlDocPtr doc = xmlNewDoc(BAD_CAST "1.0");
	756	r_inputs=NULL;
	757	r_inputs=getMap(request_inputs,"ServiceProvider");
[9]	758
[1]	759	xmlNodePtr n;
	760	if(r_inputs!=NULL)
	761	n = printDescribeProcessHeader(doc,r_inputs->value,m);
[9]	762	else
	763	n = printDescribeProcessHeader(doc,"",m);
[1]	764
	765	r_inputs=getMap(request_inputs,"Identifier");
	766	char *tmps=strtok(r_inputs->value,",");
	767
	768	char buff[256];
	769	char buff1[1024];
	770	int saved_stdout = dup(fileno(stdout));
	771	dup2(fileno(stderr),fileno(stdout));
	772	while(tmps){
	773	memset(buff,0,256);
[9]	774	snprintf(buff,256,"%s.zcfg",tmps);
[1]	775	memset(buff1,0,1024);
	776	#ifdef DEBUG
[379]	777	printf("\n#######%s\n########\n",buff1);
[1]	778	#endif
	779	while ((dp = readdir(dirp)) != NULL)
[260]	780	if((strcasecmp("all.zcfg",buff)==0 && strstr(dp->d_name,".zcfg")>0)
	781	\|\| strcasecmp(dp->d_name,buff)==0){
[1]	782	memset(buff1,0,1024);
[9]	783	snprintf(buff1,1024,"%s/%s",conf_dir,dp->d_name);
	784	s1=(service*)calloc(1,SERVICE_SIZE);
	785	if(s1 == NULL){
[379]	786	dup2(saved_stdout,fileno(stdout));
[34]	787	return errorException(m, _("Unable to allocate memory."),"InternalError");
[9]	788	}
[1]	789	#ifdef DEBUG
[379]	790	printf("#################\n%s\n#################\n",buff1);
[1]	791	#endif
	792	t=getServiceFromFile(buff1,&s1);
[9]	793	#ifdef DEBUG
	794	dumpService(s1);
	795	#endif
	796	printDescribeProcessForProcess(m,n,s1,1);
	797	freeService(&s1);
	798	free(s1);
[1]	799	scount++;
	800	}
	801	rewinddir(dirp);
	802	tmps=strtok(NULL,",");
	803	}
[9]	804	closedir(dirp);
[1]	805	fflush(stdout);
	806	dup2(saved_stdout,fileno(stdout));
[9]	807	printDocument(m,doc,getpid());
	808	freeMaps(&m);
	809	free(m);
	810	free(REQUEST);
	811	free(SERVICE_URL);
[1]	812	fflush(stdout);
	813	#ifndef LINUX_FREE_ISSUE
[9]	814	if(s1)
	815	free(s1);
[1]	816	#endif
	817	return 0;
	818	}
	819	else
[9]	820	if(strncasecmp(REQUEST,"Execute",strlen(REQUEST))!=0){
[34]	821	errorException(m, _("Unenderstood <request> value. Please check that it was set to GetCapabilities, DescribeProcess or Execute."), "InvalidParameterValue");
[1]	822	#ifdef DEBUG
	823	fprintf(stderr,"No request found %s",REQUEST);
	824	#endif
[9]	825	closedir(dirp);
[1]	826	return 0;
	827	}
[9]	828	closedir(dirp);
[1]	829	}
	830
	831	s1=NULL;
[9]	832	s1=(service*)calloc(1,SERVICE_SIZE);
	833	if(s1 == NULL){
[32]	834	freeMaps(&m);
	835	free(m);
	836	free(REQUEST);
	837	free(SERVICE_URL);
[34]	838	return errorException(m, _("Unable to allocate memory."),"InternalError");
[9]	839	}
[1]	840	r_inputs=getMap(request_inputs,"MetaPath");
[9]	841	if(r_inputs!=NULL)
	842	snprintf(tmps1,1024,"%s/%s",ntmp,r_inputs->value);
	843	else
	844	snprintf(tmps1,1024,"%s/",ntmp);
[1]	845	r_inputs=getMap(request_inputs,"Identifier");
[9]	846	char *ttmp=strdup(tmps1);
	847	snprintf(tmps1,1024,"%s/%s.zcfg",ttmp,r_inputs->value);
	848	free(ttmp);
[1]	849	#ifdef DEBUG
	850	fprintf(stderr,"Trying to load %s\n", tmps1);
	851	#endif
	852	int saved_stdout = dup(fileno(stdout));
[331]	853	dup2(fileno(stderr),fileno(stdout));
[1]	854	t=getServiceFromFile(tmps1,&s1);
	855	fflush(stdout);
	856	dup2(saved_stdout,fileno(stdout));
[32]	857	if(t<0){
[216]	858	char tmpMsg=(char)malloc(2048+strlen(r_inputs->value));
	859
[34]	860	sprintf(tmpMsg,_("The value for <indetifier> seems to be wrong (%s). Please, ensure that the process exist using the GetCapabilities request."),r_inputs->value);
[32]	861	errorException(m, tmpMsg, "InvalidParameterValue");
[216]	862	free(tmpMsg);
[32]	863	freeService(&s1);
	864	free(s1);
	865	freeMaps(&m);
	866	free(m);
	867	free(REQUEST);
	868	free(SERVICE_URL);
	869	return 0;
[1]	870	}
[258]	871	close(saved_stdout);
[1]	872
	873	#ifdef DEBUG
	874	dumpService(s1);
	875	#endif
	876	int j;
	877
	878	/**
[344]	879	* Create the input and output maps data structure
[1]	880	*/
	881	int i=0;
	882	HINTERNET hInternet;
	883	HINTERNET res;
	884	hInternet=InternetOpen(
	885	#ifndef WIN32
	886	(LPCTSTR)
	887	#endif
	888	"ZooWPSClient\0",
	889	INTERNET_OPEN_TYPE_PRECONFIG,
	890	NULL,NULL, 0);
	891
	892	#ifndef WIN32
	893	if(!CHECK_INET_HANDLE(hInternet))
	894	fprintf(stderr,"WARNING : hInternet handle failed to initialize");
	895	#endif
	896	maps* request_input_real_format=NULL;
	897	maps* tmpmaps = request_input_real_format;
	898	map* postRequest=NULL;
	899	postRequest=getMap(request_inputs,"xrequest");
	900	if(postRequest==NULLMAP){
	901	/**
	902	* Parsing outputs provided as KVP
	903	*/
	904	r_inputs=NULL;
	905	#ifdef DEBUG
	906	fprintf(stderr,"OUTPUT Parsing ... \n");
	907	#endif
	908	r_inputs=getMap(request_inputs,"ResponseDocument");
[9]	909	if(r_inputs==NULL) r_inputs=getMap(request_inputs,"RawDataOutput");
	910
[32]	911	#ifdef DEBUG
[1]	912	fprintf(stderr,"OUTPUT Parsing ... \n");
[32]	913	#endif
[9]	914	if(r_inputs!=NULL){
[32]	915	#ifdef DEBUG
[1]	916	fprintf(stderr,"OUTPUT Parsing start now ... \n");
[32]	917	#endif
[1]	918	char cursor_output[10240];
[9]	919	char *cotmp=strdup(r_inputs->value);
	920	snprintf(cursor_output,10240,"%s",cotmp);
	921	free(cotmp);
[1]	922	j=0;
	923
	924	/**
	925	* Put each Output into the outputs_as_text array
	926	*/
	927	char * pToken;
	928	maps* tmp_output=NULL;
	929	#ifdef DEBUG
	930	fprintf(stderr,"OUTPUT [%s]\n",cursor_output);
	931	#endif
	932	pToken=strtok(cursor_output,";");
[9]	933	char outputs_as_text=(char)calloc(128,sizeof(char*));
	934	if(outputs_as_text == NULL) {
[34]	935	return errorException(m, _("Unable to allocate memory"), "InternalError");
[9]	936	}
[1]	937	i=0;
	938	while(pToken!=NULL){
	939	#ifdef DEBUG
	940	fprintf(stderr,"*%s*\n",pToken);
	941	fflush(stderr);
	942	fprintf(stderr,"*%s*\n",pToken);
	943	#endif
[9]	944	outputs_as_text[i]=(char*)calloc(strlen(pToken)+1,sizeof(char));
	945	if(outputs_as_text[i] == NULL) {
[34]	946	return errorException(m, _("Unable to allocate memory"), "InternalError");
[9]	947	}
	948	snprintf(outputs_as_text[i],strlen(pToken)+1,"%s",pToken);
[1]	949	pToken = strtok(NULL,";");
	950	i++;
	951	}
	952	for(j=0;j<i;j++){
	953	char *tmp=strdup(outputs_as_text[j]);
[9]	954	free(outputs_as_text[j]);
[1]	955	char *tmpc;
	956	tmpc=strtok(tmp,"@");
	957	int k=0;
	958	while(tmpc!=NULL){
	959	if(k==0){
	960	if(tmp_output==NULL){
[9]	961	tmp_output=(maps*)calloc(1,MAPS_SIZE);
	962	if(tmp_output == NULL){
[34]	963	return errorException(m, _("Unable to allocate memory."), "InternalError");
[9]	964	}
[1]	965	tmp_output->name=strdup(tmpc);
	966	tmp_output->content=NULL;
	967	tmp_output->next=NULL;
	968	}
	969	}
	970	else{
	971	char *tmpv=strstr(tmpc,"=");
	972	char tmpn[256];
	973	memset(tmpn,0,256);
	974	strncpy(tmpn,tmpc,(strlen(tmpc)-strlen(tmpv))*sizeof(char));
	975	tmpn[strlen(tmpc)-strlen(tmpv)]=0;
	976	#ifdef DEBUG
	977	fprintf(stderr,"OUTPUT DEF [%s]=[%s]\n",tmpn,tmpv+1);
	978	#endif
	979	if(tmp_output->content==NULL){
	980	tmp_output->content=createMap(tmpn,tmpv+1);
	981	tmp_output->content->next=NULL;
	982	}
	983	else
	984	addToMap(tmp_output->content,tmpn,tmpv+1);
	985	}
	986	k++;
	987	#ifdef DEBUG
	988	fprintf(stderr,"*%s*\n",tmpc);
	989	#endif
	990	tmpc=strtok(NULL,"@");
	991	}
	992	if(request_output_real_format==NULL)
[9]	993	request_output_real_format=dupMaps(&tmp_output);
[1]	994	else
	995	addMapsToMaps(&request_output_real_format,tmp_output);
[9]	996	freeMaps(&tmp_output);
	997	free(tmp_output);
	998	tmp_output=NULL;
[1]	999	#ifdef DEBUG
	1000	dumpMaps(tmp_output);
	1001	fflush(stderr);
	1002	#endif
[9]	1003	free(tmp);
[1]	1004	}
[9]	1005	free(outputs_as_text);
[1]	1006	}
	1007
	1008
	1009	/**
	1010	* Parsing inputs provided as KVP
	1011	*/
	1012	r_inputs=getMap(request_inputs,"DataInputs");
	1013	#ifdef DEBUG
	1014	fprintf(stderr,"DATA INPUTS [%s]\n",r_inputs->value);
	1015	#endif
	1016	char cursor_input[40960];
[9]	1017	if(r_inputs!=NULL)
	1018	snprintf(cursor_input,40960,"%s",r_inputs->value);
	1019	else{
[34]	1020	errorException(m, _("Parameter <DataInputs> was not specified"),"MissingParameterValue");
[9]	1021	freeMaps(&m);
	1022	free(m);
	1023	free(REQUEST);
	1024	free(SERVICE_URL);
[57]	1025	InternetCloseHandle(hInternet);
	1026	freeService(&s1);
	1027	free(s1);
[9]	1028	return 0;
	1029	}
[1]	1030	j=0;
	1031
	1032	/**
	1033	* Put each DataInputs into the inputs_as_text array
	1034	*/
[328]	1035	char *tmp1=strdup(cursor_input);
[1]	1036	char * pToken;
	1037	pToken=strtok(cursor_input,";");
[328]	1038	if(pToken!=NULL && strncasecmp(pToken,tmp1,strlen(tmp1))==0){
	1039	char* tmp2=url_decode(tmp1);
	1040	snprintf(cursor_input,(strlen(tmp2)+1)*sizeof(char),"%s",tmp2);
	1041	free(tmp2);
	1042	pToken=strtok(cursor_input,";");
	1043	}
	1044	free(tmp1);
	1045
[9]	1046	char inputs_as_text=(char)calloc(100,sizeof(char*));
	1047	if(inputs_as_text == NULL){
[34]	1048	return errorException(m, _("Unable to allocate memory."), "InternalError");
[9]	1049	}
[1]	1050	i=0;
	1051	while(pToken!=NULL){
	1052	#ifdef DEBUG
	1053	fprintf(stderr,"*%s*\n",pToken);
	1054	#endif
	1055	fflush(stderr);
	1056	#ifdef DEBUG
	1057	fprintf(stderr,"*%s*\n",pToken);
	1058	#endif
[9]	1059	inputs_as_text[i]=(char*)calloc(strlen(pToken)+1,sizeof(char));
	1060	snprintf(inputs_as_text[i],strlen(pToken)+1,"%s",pToken);
	1061	if(inputs_as_text[i] == NULL){
[34]	1062	return errorException(m, _("Unable to allocate memory."), "InternalError");
[9]	1063	}
[1]	1064	pToken = strtok(NULL,";");
	1065	i++;
	1066	}
	1067
	1068	for(j=0;j<i;j++){
	1069	char *tmp=strdup(inputs_as_text[j]);
[9]	1070	free(inputs_as_text[j]);
[1]	1071	char *tmpc;
	1072	tmpc=strtok(tmp,"@");
	1073	while(tmpc!=NULL){
	1074	#ifdef DEBUG
	1075	fprintf(stderr,"*\n%s**\n",tmpc);
	1076	#endif
	1077	char *tmpv=strstr(tmpc,"=");
	1078	char tmpn[256];
	1079	memset(tmpn,0,256);
[216]	1080	if(tmpv!=NULL){
	1081	strncpy(tmpn,tmpc,(strlen(tmpc)-strlen(tmpv))*sizeof(char));
	1082	tmpn[strlen(tmpc)-strlen(tmpv)]=0;
	1083	}
	1084	else{
	1085	strncpy(tmpn,tmpc,strlen(tmpc)*sizeof(char));
	1086	tmpn[strlen(tmpc)]=0;
	1087	}
[1]	1088	#ifdef DEBUG
	1089	fprintf(stderr,"*\n* %s = %s ***\n",tmpn,tmpv+1);
	1090	#endif
	1091	if(tmpmaps==NULL){
[9]	1092	tmpmaps=(maps*)calloc(1,MAPS_SIZE);
	1093	if(tmpmaps == NULL){
[34]	1094	return errorException(m, _("Unable to allocate memory."), "InternalError");
[9]	1095	}
[1]	1096	tmpmaps->name=strdup(tmpn);
[344]	1097	if(tmpv!=NULL){
	1098	char *tmpvf=url_decode(tmpv+1);
	1099	tmpmaps->content=createMap("value",tmpvf);
	1100	free(tmpvf);
	1101	}
[216]	1102	else
	1103	tmpmaps->content=createMap("value","Reference");
[1]	1104	tmpmaps->next=NULL;
	1105	}
	1106	tmpc=strtok(NULL,"@");
	1107	while(tmpc!=NULL){
	1108	#ifdef DEBUG
	1109	fprintf(stderr,"* KVP NON URL-ENCODED \n%s**\n",tmpc);
	1110	#endif
	1111	char *tmpv1=strstr(tmpc,"=");
	1112	#ifdef DEBUG
	1113	fprintf(stderr,"* VALUE NON URL-ENCODED \n%s**\n",tmpv1+1);
	1114	#endif
	1115	char tmpn1[1024];
	1116	memset(tmpn1,0,1024);
[216]	1117	if(tmpv1!=NULL){
	1118	strncpy(tmpn1,tmpc,strlen(tmpc)-strlen(tmpv1));
	1119	tmpn1[strlen(tmpc)-strlen(tmpv1)]=0;
	1120	addToMap(tmpmaps->content,tmpn1,tmpv1+1);
	1121	}
	1122	else{
	1123	strncpy(tmpn1,tmpc,strlen(tmpc));
	1124	tmpn1[strlen(tmpc)]=0;
	1125	map* lmap=getLastMap(tmpmaps->content);
[365]	1126	char tmpValue=(char)calloc((strlen(tmpv)+strlen(tmpc)+1),sizeof(char));
	1127	sprintf(tmpValue,"%s@%s",tmpv+1,tmpc);
[216]	1128	free(lmap->value);
	1129	lmap->value=strdup(tmpValue);
	1130	free(tmpValue);
	1131	tmpc=strtok(NULL,"@");
	1132	continue;
	1133	}
[1]	1134	#ifdef DEBUG
	1135	fprintf(stderr,"* NAME NON URL-ENCODED \n%s**\n",tmpn1);
	1136	fprintf(stderr,"* VALUE NON URL-ENCODED \n%s**\n",tmpv1+1);
	1137	#endif
	1138	if(strcmp(tmpn1,"xlink:href")!=0)
	1139	addToMap(tmpmaps->content,tmpn1,tmpv1+1);
[216]	1140	else
	1141	if(tmpv1!=NULL){
[328]	1142	char *tmpx2=url_decode(tmpv1+1);
	1143	if(strncasecmp(tmpx2,"http://",7)!=0 &&
	1144	strncasecmp(tmpx2,"ftp://",6)!=0){
[216]	1145	char emsg[1024];
	1146	sprintf(emsg,_("Unable to find a valid protocol to download the remote file %s"),tmpv1+1);
	1147	errorException(m,emsg,"InternalError");
	1148	freeMaps(&m);
	1149	free(m);
	1150	free(REQUEST);
	1151	free(SERVICE_URL);
	1152	InternetCloseHandle(hInternet);
	1153	freeService(&s1);
	1154	free(s1);
	1155	return 0;
	1156	}
[1]	1157	#ifdef DEBUG
[216]	1158	fprintf(stderr,"REQUIRE TO DOWNLOAD A FILE FROM A SERVER : url(%s)\n",tmpv1+1);
[1]	1159	#endif
[328]	1160	addToMap(tmpmaps->content,tmpn1,tmpx2);
[280]	1161
[1]	1162	#ifndef WIN32
[216]	1163	if(CHECK_INET_HANDLE(hInternet))
[1]	1164	#endif
[216]	1165	{
[368]	1166	if(loadRemoteFile(m,tmpmaps->content,hInternet,tmpx2)<0){
	1167	freeMaps(&m);
	1168	free(m);
	1169	free(REQUEST);
	1170	free(SERVICE_URL);
	1171	InternetCloseHandle(hInternet);
	1172	freeService(&s1);
	1173	free(s1);
	1174	return 0;
	1175	}
[58]	1176	}
[328]	1177	free(tmpx2);
[216]	1178	addToMap(tmpmaps->content,"Reference",tmpv1+1);
	1179	}
[1]	1180	tmpc=strtok(NULL,"@");
	1181	}
	1182	#ifdef DEBUG
	1183	dumpMaps(tmpmaps);
	1184	fflush(stderr);
	1185	#endif
[9]	1186	if(request_input_real_format==NULL)
	1187	request_input_real_format=dupMaps(&tmpmaps);
[360]	1188	else{
	1189	maps* testPresence=getMaps(request_input_real_format,tmpmaps->name);
	1190	if(testPresence!=NULL){
	1191	elements* elem=getElements(s1->inputs,tmpmaps->name);
	1192	if(elem!=NULL){
	1193	if(appendMapsToMaps(m,request_input_real_format,tmpmaps,elem)<0){
	1194	freeMaps(&m);
	1195	free(m);
	1196	free(REQUEST);
	1197	free(SERVICE_URL);
	1198	InternetCloseHandle(hInternet);
	1199	freeService(&s1);
	1200	free(s1);
	1201	return 0;
	1202	}
	1203	}
	1204	}
	1205	else
	1206	addMapsToMaps(&request_input_real_format,tmpmaps);
	1207	}
[9]	1208	freeMaps(&tmpmaps);
	1209	free(tmpmaps);
	1210	tmpmaps=NULL;
	1211	free(tmp);
[1]	1212	}
	1213	}
[9]	1214	free(inputs_as_text);
	1215	}
[1]	1216	else {
[9]	1217	/**
	1218	* Parse XML request
	1219	*/
[1]	1220	xmlInitParser();
	1221	#ifdef DEBUG
	1222	fflush(stderr);
	1223	fprintf(stderr,"BEFORE %s\n",postRequest->value);
	1224	fflush(stderr);
	1225	#endif
	1226	xmlDocPtr doc =
[5]	1227	xmlParseMemory(postRequest->value,cgiContentLength);
[1]	1228	#ifdef DEBUG
	1229	fprintf(stderr,"AFTER\n");
	1230	fflush(stderr);
	1231	#endif
	1232	/**
	1233	* Parse every Input in DataInputs node.
	1234	*/
[9]	1235	xmlXPathObjectPtr tmpsptr=extractFromDoc(doc,"///*[local-name()='Input']");
	1236	xmlNodeSet* tmps=tmpsptr->nodesetval;
[1]	1237	#ifdef DEBUG
	1238	fprintf(stderr,"***%d***\n",tmps->nodeNr);
	1239	#endif
	1240	for(int k=0;k<tmps->nodeNr;k++){
	1241	maps *tmpmaps=NULL;
	1242	xmlNodePtr cur=tmps->nodeTab[k];
	1243	if(tmps->nodeTab[k]->type == XML_ELEMENT_NODE) {
	1244	/**
	1245	* A specific Input node.
	1246	*/
	1247	#ifdef DEBUG
	1248	fprintf(stderr, "= element 0 node \"%s\"\n", cur->name);
	1249	#endif
[9]	1250	xmlNodePtr cur2=cur->children;
[32]	1251	while(cur2!=NULL){
	1252	while(cur2!=NULL && cur2->type!=XML_ELEMENT_NODE)
[9]	1253	cur2=cur2->next;
[32]	1254	if(cur2==NULL)
	1255	break;
[9]	1256	/**
	1257	* Indentifier
	1258	*/
	1259	if(xmlStrncasecmp(cur2->name,BAD_CAST "Identifier",xmlStrlen(cur2->name))==0){
	1260	xmlChar *val= xmlNodeListGetString(doc,cur2->xmlChildrenNode,1);
	1261	if(tmpmaps==NULL){
	1262	tmpmaps=(maps*)calloc(1,MAPS_SIZE);
	1263	if(tmpmaps == NULL){
[34]	1264	return errorException(m, _("Unable to allocate memory."), "InternalError");
[1]	1265	}
[9]	1266	tmpmaps->name=strdup((char*)val);
	1267	tmpmaps->content=NULL;
	1268	tmpmaps->next=NULL;
[1]	1269	}
[9]	1270	xmlFree(val);
	1271	}
	1272	/**
	1273	* Title, Asbtract
	1274	*/
	1275	if(xmlStrncasecmp(cur2->name,BAD_CAST "Title",xmlStrlen(cur2->name))==0 \|\|
	1276	xmlStrncasecmp(cur2->name,BAD_CAST "Abstract",xmlStrlen(cur2->name))==0){
	1277	xmlChar *val=
	1278	xmlNodeListGetString(doc,cur2->xmlChildrenNode,1);
	1279	if(tmpmaps==NULL){
	1280	tmpmaps=(maps*)calloc(1,MAPS_SIZE);
	1281	if(tmpmaps == NULL){
[34]	1282	return errorException(m, _("Unable to allocate memory."), "InternalError");
[1]	1283	}
[114]	1284	tmpmaps->name=strdup("missingIndetifier");
[9]	1285	tmpmaps->content=createMap((char)cur2->name,(char)val);
	1286	tmpmaps->next=NULL;
	1287	}
	1288	else{
	1289	if(tmpmaps->content!=NULL)
	1290	addToMap(tmpmaps->content,
	1291	(char)cur2->name,(char)val);
	1292	else
	1293	tmpmaps->content=
	1294	createMap((char)cur2->name,(char)val);
	1295	}
[1]	1296	#ifdef DEBUG
[9]	1297	dumpMaps(tmpmaps);
[1]	1298	#endif
[9]	1299	xmlFree(val);
	1300	}
	1301	/**
	1302	* InputDataFormChoice (Reference or Data ?)
	1303	*/
	1304	if(xmlStrcasecmp(cur2->name,BAD_CAST "Reference")==0){
[1]	1305	/**
[9]	1306	* Get every attribute from a Reference node
	1307	* mimeType, encoding, schema, href, method
	1308	* Header and Body gesture should be added here
[1]	1309	*/
	1310	#ifdef DEBUG
[9]	1311	fprintf(stderr,"REFERENCE\n");
[1]	1312	#endif
[283]	1313	const char *refs[5]={"mimeType","encoding","schema","method","href"};
[9]	1314	for(int l=0;l<5;l++){
[1]	1315	#ifdef DEBUG
[9]	1316	fprintf(stderr,"* %s *",refs[l]);
[1]	1317	#endif
[9]	1318	xmlChar *val=xmlGetProp(cur2,BAD_CAST refs[l]);
	1319	if(val!=NULL && xmlStrlen(val)>0){
	1320	if(tmpmaps->content!=NULL)
	1321	addToMap(tmpmaps->content,refs[l],(char*)val);
	1322	else
	1323	tmpmaps->content=createMap(refs[l],(char*)val);
	1324	map* ltmp=getMap(tmpmaps->content,"method");
	1325	if(l==4){
	1326	if(!(ltmp!=NULL && strcmp(ltmp->value,"POST")==0)
	1327	&& CHECK_INET_HANDLE(hInternet)){
[379]	1328	if(loadRemoteFile(m,tmpmaps->content,hInternet,(char*)val)!=0){
[368]	1329	freeMaps(&m);
	1330	free(m);
	1331	free(REQUEST);
	1332	free(SERVICE_URL);
	1333	InternetCloseHandle(hInternet);
	1334	freeService(&s1);
	1335	free(s1);
	1336	return 0;
	1337	}
[1]	1338	}
	1339	}
[9]	1340	}
[1]	1341	#ifdef DEBUG
[9]	1342	fprintf(stderr,"%s\n",val);
[1]	1343	#endif
[9]	1344	xmlFree(val);
	1345	}
[1]	1346	#ifdef POST_DEBUG
[9]	1347	fprintf(stderr,"Parse Header and Body from Reference \n");
[1]	1348	#endif
[9]	1349	xmlNodePtr cur3=cur2->children;
	1350	hInternet.header=NULL;
	1351	while(cur3){
[216]	1352	while(cur3!=NULL && cur3->type!=XML_ELEMENT_NODE)
	1353	cur2=cur3->next;
[9]	1354	if(xmlStrcasecmp(cur3->name,BAD_CAST "Header")==0 ){
[114]	1355	const char *ha[2];
[9]	1356	ha[0]="key";
	1357	ha[1]="value";
	1358	int hai;
	1359	char *has;
	1360	char *key;
	1361	for(hai=0;hai<2;hai++){
	1362	xmlChar *val=xmlGetProp(cur3,BAD_CAST ha[hai]);
[1]	1363	#ifdef POST_DEBUG
[9]	1364	fprintf(stderr,"%s = %s\n",ha[hai],(char*)val);
[1]	1365	#endif
[9]	1366	if(hai==0){
	1367	key=(char)calloc((1+strlen((char)val)),sizeof(char));
	1368	snprintf(key,1+strlen((char)val),"%s",(char)val);
	1369	}else{
	1370	has=(char)calloc((3+strlen((char)val)+strlen(key)),sizeof(char));
	1371	if(has == NULL){
[34]	1372	return errorException(m, _("Unable to allocate memory."), "InternalError");
[9]	1373	}
	1374	snprintf(has,(3+strlen((char)val)+strlen(key)),"%s: %s",key,(char)val);
[1]	1375	#ifdef POST_DEBUG
[9]	1376	fprintf(stderr,"%s\n",has);
[1]	1377	#endif
	1378	}
	1379	}
[9]	1380	hInternet.header=curl_slist_append(hInternet.header, has);
[114]	1381	free(has);
[9]	1382	}
	1383	else{
[1]	1384	#ifdef POST_DEBUG
[9]	1385	fprintf(stderr,"Try to fetch the body part of the request ...\n");
[1]	1386	#endif
[9]	1387	if(xmlStrcasecmp(cur3->name,BAD_CAST "Body")==0 ){
[1]	1388	#ifdef POST_DEBUG
[9]	1389	fprintf(stderr,"Body part found !!!\n",(char*)cur3->content);
[1]	1390	#endif
[9]	1391	char *tmp=new char[cgiContentLength];
	1392	memset(tmp,0,cgiContentLength);
	1393	xmlNodePtr cur4=cur3->children;
	1394	while(cur4!=NULL){
[127]	1395	while(cur4->type!=XML_ELEMENT_NODE)
	1396	cur4=cur4->next;
[9]	1397	xmlDocPtr bdoc = xmlNewDoc(BAD_CAST "1.0");
	1398	bdoc->encoding = xmlCharStrdup ("UTF-8");
	1399	xmlDocSetRootElement(bdoc,cur4);
	1400	xmlChar* btmps;
	1401	int bsize;
	1402	xmlDocDumpMemory(bdoc,&btmps,&bsize);
[1]	1403	#ifdef POST_DEBUG
[9]	1404	fprintf(stderr,"Body part found !!! %s %s\n",tmp,(char*)btmps);
[1]	1405	#endif
[9]	1406	if(btmps!=NULL)
	1407	sprintf(tmp,"%s",(char*)btmps);
	1408	xmlFreeDoc(bdoc);
	1409	cur4=cur4->next;
	1410	}
	1411	map *btmp=getMap(tmpmaps->content,"href");
	1412	if(btmp!=NULL){
	1413	#ifdef POST_DEBUG
	1414	fprintf(stderr,"%s %s\n",btmp->value,tmp);
	1415	curl_easy_setopt(hInternet.handle, CURLOPT_VERBOSE, 1);
	1416	#endif
	1417	res=InternetOpenUrl(hInternet,btmp->value,tmp,strlen(tmp),
	1418	INTERNET_FLAG_NO_CACHE_WRITE,0);
	1419	char* tmpContent = (char*)calloc((res.nDataLen+1),sizeof(char));
	1420	if(tmpContent == NULL){
[34]	1421	return errorException(m, _("Unable to allocate memory."), "InternalError");
[1]	1422	}
[9]	1423	size_t dwRead;
	1424	InternetReadFile(res, (LPVOID)tmpContent,
	1425	res.nDataLen, &dwRead);
	1426	tmpContent[res.nDataLen]=0;
	1427	if(hInternet.header!=NULL)
	1428	curl_slist_free_all(hInternet.header);
	1429	addToMap(tmpmaps->content,"value",tmpContent);
	1430	#ifdef POST_DEBUG
	1431	fprintf(stderr,"DL CONTENT : (%s)\n",tmpContent);
	1432	#endif
	1433	}
	1434	}
	1435	else
	1436	if(xmlStrcasecmp(cur3->name,BAD_CAST "BodyReference")==0 ){
	1437	xmlChar *val=xmlGetProp(cur3,BAD_CAST "href");
	1438	HINTERNET bInternet,res1;
	1439	bInternet=InternetOpen(
	1440	#ifndef WIN32
	1441	(LPCTSTR)
	1442	#endif
	1443	"ZooWPSClient\0",
	1444	INTERNET_OPEN_TYPE_PRECONFIG,
	1445	NULL,NULL, 0);
	1446	if(!CHECK_INET_HANDLE(bInternet))
	1447	fprintf(stderr,"WARNING : hInternet handle failed to initialize");
	1448	#ifdef POST_DEBUG
	1449	curl_easy_setopt(bInternet.handle, CURLOPT_VERBOSE, 1);
	1450	#endif
	1451	res1=InternetOpenUrl(bInternet,(char*)val,NULL,0,
	1452	INTERNET_FLAG_NO_CACHE_WRITE,0);
	1453	char* tmp=
	1454	(char*)calloc((res1.nDataLen+1),sizeof(char));
	1455	if(tmp == NULL){
[34]	1456	return errorException(m, _("Unable to allocate memory."), "InternalError");
[9]	1457	}
	1458	size_t bRead;
	1459	InternetReadFile(res1, (LPVOID)tmp,
	1460	res1.nDataLen, &bRead);
	1461	tmp[res1.nDataLen]=0;
	1462	InternetCloseHandle(bInternet);
[1]	1463	map *btmp=getMap(tmpmaps->content,"href");
	1464	if(btmp!=NULL){
	1465	#ifdef POST_DEBUG
	1466	fprintf(stderr,"%s %s\n",btmp->value,tmp);
	1467	curl_easy_setopt(hInternet.handle, CURLOPT_VERBOSE, 1);
	1468	#endif
[9]	1469	res=InternetOpenUrl(hInternet,btmp->value,tmp,
	1470	strlen(tmp),
[1]	1471	INTERNET_FLAG_NO_CACHE_WRITE,0);
[9]	1472	char* tmpContent = (char*)calloc((res.nDataLen+1),sizeof(char));
	1473	if(tmpContent == NULL){
[34]	1474	return errorException(m, _("Unable to allocate memory."), "InternalError");
[9]	1475	}
[1]	1476	size_t dwRead;
	1477	InternetReadFile(res, (LPVOID)tmpContent,
	1478	res.nDataLen, &dwRead);
	1479	tmpContent[res.nDataLen]=0;
	1480	if(hInternet.header!=NULL)
	1481	curl_slist_free_all(hInternet.header);
	1482	addToMap(tmpmaps->content,"value",tmpContent);
	1483	#ifdef POST_DEBUG
	1484	fprintf(stderr,"DL CONTENT : (%s)\n",tmpContent);
	1485	#endif
	1486	}
	1487	}
	1488	}
[9]	1489	cur3=cur3->next;
	1490	}
[1]	1491	#ifdef POST_DEBUG
[9]	1492	fprintf(stderr,"Header and Body was parsed from Reference \n");
[1]	1493	#endif
	1494	#ifdef DEBUG
[9]	1495	dumpMap(tmpmaps->content);
	1496	fprintf(stderr, "= element 2 node \"%s\" = (%s)\n",
	1497	cur2->name,cur2->content);
[1]	1498	#endif
[9]	1499	}
	1500	else if(xmlStrcasecmp(cur2->name,BAD_CAST "Data")==0){
[1]	1501	#ifdef DEBUG
[9]	1502	fprintf(stderr,"DATA\n");
[1]	1503	#endif
[9]	1504	xmlNodePtr cur4=cur2->children;
[32]	1505	while(cur4!=NULL){
	1506	while(cur4!=NULL &&cur4->type!=XML_ELEMENT_NODE)
[9]	1507	cur4=cur4->next;
[32]	1508	if(cur4==NULL)
	1509	break;
[9]	1510	if(xmlStrcasecmp(cur4->name, BAD_CAST "LiteralData")==0){
	1511	/**
	1512	* Get every attribute from a LiteralData node
	1513	* dataType , uom
	1514	*/
[114]	1515	char *list[2];
	1516	list[0]=strdup("dataType");
	1517	list[1]=strdup("uom");
[9]	1518	for(int l=0;l<2;l++){
[1]	1519	#ifdef DEBUG
[114]	1520	fprintf(stderr,"* LiteralData %s *",list[l]);
[1]	1521	#endif
[114]	1522	xmlChar *val=xmlGetProp(cur4,BAD_CAST list[l]);
[9]	1523	if(val!=NULL && strlen((char*)val)>0){
	1524	if(tmpmaps->content!=NULL)
[114]	1525	addToMap(tmpmaps->content,list[l],(char*)val);
[9]	1526	else
[114]	1527	tmpmaps->content=createMap(list[l],(char*)val);
[1]	1528	#ifdef DEBUG
[280]	1529	fprintf(stderr,"%s\n",val);
[1]	1530	#endif
[280]	1531	}
[9]	1532	xmlFree(val);
[280]	1533	free(list[l]);
[1]	1534	}
[9]	1535	}
	1536	else if(xmlStrcasecmp(cur4->name, BAD_CAST "ComplexData")==0){
	1537	/**
	1538	* Get every attribute from a Reference node
	1539	* mimeType, encoding, schema
	1540	*/
[282]	1541	const char *coms[3]={"mimeType","encoding","schema"};
[9]	1542	for(int l=0;l<3;l++){
[1]	1543	#ifdef DEBUG
[280]	1544	fprintf(stderr,"* ComplexData %s *\n",coms[l]);
[1]	1545	#endif
[9]	1546	xmlChar *val=xmlGetProp(cur4,BAD_CAST coms[l]);
	1547	if(val!=NULL && strlen((char*)val)>0){
	1548	if(tmpmaps->content!=NULL)
	1549	addToMap(tmpmaps->content,coms[l],(char*)val);
	1550	else
	1551	tmpmaps->content=createMap(coms[l],(char*)val);
[1]	1552	#ifdef DEBUG
[280]	1553	fprintf(stderr,"%s\n",val);
[1]	1554	#endif
[280]	1555	}
[9]	1556	xmlFree(val);
[1]	1557	}
	1558	}
[280]	1559
[94]	1560	map* test=getMap(tmpmaps->content,"encoding");
[280]	1561	if(test==NULL){
	1562	if(tmpmaps->content!=NULL)
	1563	addToMap(tmpmaps->content,"encoding","utf-8");
	1564	else
	1565	tmpmaps->content=createMap("encoding","utf-8");
	1566	test=getMap(tmpmaps->content,"encoding");
	1567	}
	1568
	1569	if(strcasecmp(test->value,"base64")!=0){
[94]	1570	xmlChar* mv=xmlNodeListGetString(doc,cur4->xmlChildrenNode,1);
[280]	1571	map* ltmp=getMap(tmpmaps->content,"mimeType");
	1572	if(mv==NULL \|\|
	1573	(xmlStrcasecmp(cur4->name, BAD_CAST "ComplexData")==0 &&
	1574	(ltmp==NULL \|\| strncasecmp(ltmp->value,"text/xml",8)==0) )){
[94]	1575	xmlDocPtr doc1=xmlNewDoc(BAD_CAST "1.0");
	1576	int buffersize;
[280]	1577	xmlNodePtr cur5=cur4->children;
	1578	while(cur5!=NULL &&cur5->type!=XML_ELEMENT_NODE)
	1579	cur5=cur5->next;
	1580	xmlDocSetRootElement(doc1,cur5);
[94]	1581	xmlDocDumpFormatMemoryEnc(doc1, &mv, &buffersize, "utf-8", 1);
	1582	char size[1024];
	1583	sprintf(size,"%d",buffersize);
	1584	addToMap(tmpmaps->content,"size",size);
	1585	}
	1586	addToMap(tmpmaps->content,"value",(char*)mv);
	1587	xmlFree(mv);
	1588	}else{
[95]	1589	xmlChar* tmp=xmlNodeListGetRawString(doc,cur4->xmlChildrenNode,0);
[94]	1590	addToMap(tmpmaps->content,"value",(char*)tmp);
	1591	map* tmpv=getMap(tmpmaps->content,"value");
	1592	char *res=NULL;
	1593	char *curs=tmpv->value;
	1594	for(int i=0;i<=strlen(tmpv->value)/64;i++) {
	1595	if(res==NULL)
	1596	res=(char)malloc(67sizeof(char));
	1597	else
	1598	res=(char)realloc(res,(((i+1)65)+i)*sizeof(char));
	1599	int csize=i*65;
	1600	strncpy(res + csize,curs,64);
	1601	if(i==xmlStrlen(tmp)/64)
	1602	strcat(res,"\n\0");
	1603	else{
	1604	strncpy(res + (((i+1)*64)+i),"\n\0",2);
	1605	curs+=64;
	1606	}
	1607	}
	1608	free(tmpv->value);
	1609	tmpv->value=strdup(res);
	1610	free(res);
	1611	xmlFree(tmp);
[69]	1612	}
[9]	1613	cur4=cur4->next;
[1]	1614	}
[9]	1615	}
[1]	1616	#ifdef DEBUG
[9]	1617	fprintf(stderr,"cur2 next \n");
	1618	fflush(stderr);
[1]	1619	#endif
[9]	1620	cur2=cur2->next;
	1621	}
[1]	1622	#ifdef DEBUG
[9]	1623	fprintf(stderr,"ADD MAPS TO REQUEST MAPS !\n");
	1624	fflush(stderr);
[1]	1625	#endif
[360]	1626
	1627	{
	1628	maps* testPresence=getMaps(request_input_real_format,tmpmaps->name);
	1629	if(testPresence!=NULL){
	1630	elements* elem=getElements(s1->inputs,tmpmaps->name);
	1631	if(elem!=NULL){
	1632	if(appendMapsToMaps(m,request_input_real_format,tmpmaps,elem)<0){
	1633	freeMaps(&m);
	1634	free(m);
	1635	free(REQUEST);
	1636	free(SERVICE_URL);
	1637	InternetCloseHandle(hInternet);
	1638	freeService(&s1);
	1639	free(s1);
	1640	return 0;
	1641	}
	1642	}
	1643	}
	1644	else
	1645	addMapsToMaps(&request_input_real_format,tmpmaps);
	1646	}
[9]	1647
[1]	1648	#ifdef DEBUG
[9]	1649	fprintf(stderr,"****TMPMAPS***\n");
[1]	1650	dumpMaps(tmpmaps);
[9]	1651	fprintf(stderr,"****REQUESTMAPS***\n");
	1652	dumpMaps(request_input_real_format);
[1]	1653	#endif
[32]	1654	freeMaps(&tmpmaps);
	1655	free(tmpmaps);
	1656	tmpmaps=NULL;
[1]	1657	}
[25]	1658	#ifdef DEBUG
	1659	dumpMaps(tmpmaps);
	1660	#endif
[1]	1661	}
	1662	#ifdef DEBUG
[9]	1663	fprintf(stderr,"Search for response document node\n");
	1664	#endif
	1665	xmlXPathFreeObject(tmpsptr);
[105]	1666
[9]	1667	tmpsptr=extractFromDoc(doc,"///*[local-name()='ResponseDocument']");
[105]	1668	bool asRaw=false;
[9]	1669	tmps=tmpsptr->nodesetval;
[105]	1670	if(tmps->nodeNr==0){
	1671	tmpsptr=extractFromDoc(doc,"///*[local-name()='RawDataOutput']");
	1672	tmps=tmpsptr->nodesetval;
	1673	asRaw=true;
	1674	}
[9]	1675	#ifdef DEBUG
[1]	1676	fprintf(stderr,"***%d***\n",tmps->nodeNr);
	1677	#endif
	1678	for(int k=0;k<tmps->nodeNr;k++){
[105]	1679	if(asRaw==true)
	1680	addToMap(request_inputs,"RawDataOutput","");
	1681	else
	1682	addToMap(request_inputs,"ResponseDocument","");
[1]	1683	maps *tmpmaps=NULL;
	1684	xmlNodePtr cur=tmps->nodeTab[k];
	1685	if(cur->type == XML_ELEMENT_NODE) {
	1686	/**
	1687	* A specific responseDocument node.
	1688	*/
	1689	if(tmpmaps==NULL){
[9]	1690	tmpmaps=(maps*)calloc(1,MAPS_SIZE);
	1691	if(tmpmaps == NULL){
[34]	1692	return errorException(m, _("Unable to allocate memory."), "InternalError");
[9]	1693	}
[114]	1694	tmpmaps->name=strdup("unknownIdentifier");
[1]	1695	tmpmaps->next=NULL;
	1696	}
	1697	/**
	1698	* Get every attribute from a LiteralData node
	1699	* storeExecuteResponse, lineage, status
	1700	*/
[283]	1701	const char *ress[3]={"storeExecuteResponse","lineage","status"};
[1]	1702	xmlChar *val;
	1703	for(int l=0;l<3;l++){
	1704	#ifdef DEBUG
	1705	fprintf(stderr,"* %s *\t",ress[l]);
	1706	#endif
	1707	val=xmlGetProp(cur,BAD_CAST ress[l]);
	1708	if(val!=NULL && strlen((char*)val)>0){
	1709	if(tmpmaps->content!=NULL)
	1710	addToMap(tmpmaps->content,ress[l],(char*)val);
	1711	else
	1712	tmpmaps->content=createMap(ress[l],(char*)val);
	1713	addToMap(request_inputs,ress[l],(char*)val);
	1714	}
	1715	#ifdef DEBUG
	1716	fprintf(stderr,"%s\n",val);
	1717	#endif
	1718	xmlFree(val);
	1719	}
	1720	xmlNodePtr cur1=cur->children;
	1721	while(cur1){
[280]	1722	/**
	1723	* Indentifier
	1724	*/
	1725	if(xmlStrncasecmp(cur1->name,BAD_CAST "Identifier",xmlStrlen(cur1->name))==0){
	1726	xmlChar *val=
	1727	xmlNodeListGetString(doc,cur1->xmlChildrenNode,1);
	1728	if(tmpmaps==NULL){
	1729	tmpmaps=(maps*)calloc(1,MAPS_SIZE);
	1730	if(tmpmaps == NULL){
	1731	return errorException(m, _("Unable to allocate memory."), "InternalError");
	1732	}
	1733	tmpmaps->name=strdup((char*)val);
	1734	tmpmaps->content=NULL;
	1735	tmpmaps->next=NULL;
	1736	}
	1737	else
	1738	tmpmaps->name=strdup((char*)val);;
	1739	xmlFree(val);
	1740	}
	1741	/**
	1742	* Title, Asbtract
	1743	*/
	1744	else if(xmlStrncasecmp(cur1->name,BAD_CAST "Title",xmlStrlen(cur1->name))==0 \|\|
	1745	xmlStrncasecmp(cur1->name,BAD_CAST "Abstract",xmlStrlen(cur1->name))==0){
	1746	xmlChar *val=
	1747	xmlNodeListGetString(doc,cur1->xmlChildrenNode,1);
	1748	if(tmpmaps==NULL){
	1749	tmpmaps=(maps*)calloc(1,MAPS_SIZE);
	1750	if(tmpmaps == NULL){
	1751	return errorException(m, _("Unable to allocate memory."), "InternalError");
	1752	}
	1753	tmpmaps->name=strdup("missingIndetifier");
	1754	tmpmaps->content=createMap((char)cur1->name,(char)val);
	1755	tmpmaps->next=NULL;
	1756	}
	1757	else{
	1758	if(tmpmaps->content!=NULL)
	1759	addToMap(tmpmaps->content,
	1760	(char)cur1->name,(char)val);
	1761	else
	1762	tmpmaps->content=
	1763	createMap((char)cur1->name,(char)val);
	1764	}
	1765	xmlFree(val);
	1766	}
	1767	else if(xmlStrncasecmp(cur1->name,BAD_CAST "Output",xmlStrlen(cur1->name))==0){
[1]	1768	/**
	1769	* Get every attribute from a Output node
	1770	* mimeType, encoding, schema, uom, asReference
	1771	*/
[283]	1772	const char *outs[5]={"mimeType","encoding","schema","uom","asReference"};
[1]	1773	for(int l=0;l<5;l++){
	1774	#ifdef DEBUG
	1775	fprintf(stderr,"* %s *\t",outs[l]);
	1776	#endif
	1777	val=xmlGetProp(cur1,BAD_CAST outs[l]);
	1778	if(val!=NULL && strlen((char*)val)>0){
	1779	if(tmpmaps->content!=NULL)
	1780	addToMap(tmpmaps->content,outs[l],(char*)val);
	1781	else
	1782	tmpmaps->content=createMap(outs[l],(char*)val);
	1783	}
	1784	#ifdef DEBUG
	1785	fprintf(stderr,"%s\n",val);
	1786	#endif
	1787	xmlFree(val);
	1788	}
	1789
	1790	xmlNodePtr cur2=cur1->children;
	1791	while(cur2){
	1792	/**
	1793	* Indentifier
	1794	*/
[9]	1795	if(xmlStrncasecmp(cur2->name,BAD_CAST "Identifier",xmlStrlen(cur2->name))==0){
[1]	1796	xmlChar *val=
	1797	xmlNodeListGetString(doc,cur2->xmlChildrenNode,1);
	1798	if(tmpmaps==NULL){
[9]	1799	tmpmaps=(maps*)calloc(1,MAPS_SIZE);
	1800	if(tmpmaps == NULL){
[34]	1801	return errorException(m, _("Unable to allocate memory."), "InternalError");
[9]	1802	}
[1]	1803	tmpmaps->name=strdup((char*)val);
	1804	tmpmaps->content=NULL;
	1805	tmpmaps->next=NULL;
	1806	}
	1807	else
	1808	tmpmaps->name=strdup((char*)val);;
	1809	xmlFree(val);
	1810	}
	1811	/**
	1812	* Title, Asbtract
	1813	*/
[274]	1814	else if(xmlStrncasecmp(cur2->name,BAD_CAST "Title",xmlStrlen(cur2->name))==0 \|\|
[331]	1815	xmlStrncasecmp(cur2->name,BAD_CAST "Abstract",xmlStrlen(cur2->name))==0){
[1]	1816	xmlChar *val=
	1817	xmlNodeListGetString(doc,cur2->xmlChildrenNode,1);
	1818	if(tmpmaps==NULL){
[9]	1819	tmpmaps=(maps*)calloc(1,MAPS_SIZE);
	1820	if(tmpmaps == NULL){
[34]	1821	return errorException(m, _("Unable to allocate memory."), "InternalError");
[9]	1822	}
[114]	1823	tmpmaps->name=strdup("missingIndetifier");
[1]	1824	tmpmaps->content=createMap((char)cur2->name,(char)val);
	1825	tmpmaps->next=NULL;
	1826	}
	1827	else{
	1828	if(tmpmaps->content!=NULL)
	1829	addToMap(tmpmaps->content,
	1830	(char)cur2->name,(char)val);
	1831	else
	1832	tmpmaps->content=
	1833	createMap((char)cur2->name,(char)val);
	1834	}
	1835	xmlFree(val);
	1836	}
	1837	cur2=cur2->next;
	1838	}
	1839	}
	1840	cur1=cur1->next;
	1841	}
	1842	}
	1843	if(request_output_real_format==NULL)
[105]	1844	request_output_real_format=dupMaps(&tmpmaps);
[1]	1845	else
	1846	addMapsToMaps(&request_output_real_format,tmpmaps);
	1847	#ifdef DEBUG
	1848	dumpMaps(tmpmaps);
	1849	#endif
[105]	1850	freeMaps(&tmpmaps);
	1851	free(tmpmaps);
[1]	1852	}
[105]	1853
[9]	1854	xmlXPathFreeObject(tmpsptr);
[1]	1855	xmlCleanupParser();
	1856	}
[105]	1857
[9]	1858	//if(CHECK_INET_HANDLE(hInternet))
	1859	InternetCloseHandle(hInternet);
[1]	1860
	1861	#ifdef DEBUG
[375]	1862	fprintf(stderr,"\n%d\n",__LINE__);
	1863	fflush(stderr);
[1]	1864	dumpMaps(request_input_real_format);
	1865	dumpMaps(request_output_real_format);
[9]	1866	dumpMap(request_inputs);
[375]	1867	fprintf(stderr,"\n%d\n",__LINE__);
	1868	fflush(stderr);
[1]	1869	#endif
	1870
	1871	/**
	1872	* Ensure that each requested arguments are present in the request
	1873	* DataInputs and ResponseDocument / RawDataOutput
[92]	1874	*/
[63]	1875	char *dfv=addDefaultValues(&request_input_real_format,s1->inputs,m,0);
[280]	1876	char *dfv1=addDefaultValues(&request_output_real_format,s1->outputs,m,1);
	1877	if(strcmp(dfv1,"")!=0 \|\| strcmp(dfv,"")!=0){
[9]	1878	char tmps[1024];
[280]	1879	if(strcmp(dfv,"")!=0){
	1880	snprintf(tmps,1024,_("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."),dfv);
	1881	}
	1882	else if(strcmp(dfv1,"")!=0){
	1883	snprintf(tmps,1024,_("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."),dfv1);
	1884	}
[9]	1885	map* tmpe=createMap("text",tmps);
	1886	addToMap(tmpe,"code","MissingParameterValue");
	1887	printExceptionReportResponse(m,tmpe);
[63]	1888	freeService(&s1);
	1889	free(s1);
[9]	1890	freeMap(&tmpe);
	1891	free(tmpe);
	1892	freeMaps(&m);
	1893	free(m);
	1894	free(REQUEST);
[63]	1895	free(SERVICE_URL);
[9]	1896	freeMaps(&request_input_real_format);
	1897	free(request_input_real_format);
	1898	freeMaps(&request_output_real_format);
	1899	free(request_output_real_format);
	1900	freeMaps(&tmpmaps);
	1901	free(tmpmaps);
	1902	return 1;
	1903	}
[331]	1904	maps* tmpReqI=request_input_real_format;
	1905	while(tmpReqI!=NULL){
	1906	char name[1024];
	1907	if(getMap(tmpReqI->content,"isFile")!=NULL){
	1908	if (cgiFormFileName(tmpReqI->name, name, sizeof(name)) == cgiFormSuccess) {
	1909	int BufferLen=1024;
	1910	cgiFilePtr file;
	1911	int targetFile;
	1912	mode_t mode;
	1913	char storageNameOnServer[2048];
	1914	char fileNameOnServer[64];
	1915	char contentType[1024];
[364]	1916	char buffer[1024];
[331]	1917	char *tmpStr=NULL;
	1918	int size;
	1919	int got,t;
	1920	map *path=getMapFromMaps(m,"main","tmpPath");
	1921	cgiFormFileSize(tmpReqI->name, &size);
	1922	cgiFormFileContentType(tmpReqI->name, contentType, sizeof(contentType));
	1923	if (cgiFormFileOpen(tmpReqI->name, &file) == cgiFormSuccess) {
	1924	t=-1;
	1925	while(1){
	1926	tmpStr=strstr(name+t+1,"\\");
	1927	if(NULL==tmpStr)
	1928	tmpStr=strstr(name+t+1,"/");
	1929	if(NULL!=tmpStr)
	1930	t=(int)(tmpStr-name);
	1931	else
	1932	break;
	1933	}
	1934	strcpy(fileNameOnServer,name+t+1);
	1935
	1936	sprintf(storageNameOnServer,"%s/%s",path->value,fileNameOnServer);
[375]	1937	printf("\n\nName on server %s\n",storageNameOnServer);
	1938	#ifdef DEBUG
[331]	1939	fprintf(stderr,"Name on server %s\n",storageNameOnServer);
	1940	fprintf(stderr,"fileNameOnServer: %s\n",fileNameOnServer);
[375]	1941	#endif
[331]	1942	mode=S_IRWXU\|S_IRGRP\|S_IROTH;
[364]	1943	targetFile = open (storageNameOnServer,O_RDWR\|O_CREAT\|O_TRUNC,S_IRWXU\|S_IRGRP\|S_IROTH);
[331]	1944	if(targetFile<0){
[375]	1945	#ifdef DEBUG
[331]	1946	fprintf(stderr,"could not create the new file,%s\n",fileNameOnServer);
[375]	1947	#endif
[331]	1948	}else{
	1949	while (cgiFormFileRead(file, buffer, BufferLen, &got) ==cgiFormSuccess){
	1950	if(got>0)
	1951	write(targetFile,buffer,got);
	1952	}
	1953	}
	1954	addToMap(tmpReqI->content,"lref",storageNameOnServer);
	1955	cgiFormFileClose(file);
	1956	close(targetFile);
[375]	1957	#ifdef DEBUG
[331]	1958	fprintf(stderr,"File \"%s\" has been uploaded",fileNameOnServer);
[375]	1959	#endif
[331]	1960	}
	1961	}
	1962	}
	1963	tmpReqI=tmpReqI->next;
	1964	}
	1965
[88]	1966	ensureDecodedBase64(&request_input_real_format);
	1967
[9]	1968	#ifdef DEBUG
	1969	fprintf(stderr,"REQUEST_INPUTS\n");
	1970	dumpMaps(request_input_real_format);
	1971	fprintf(stderr,"REQUEST_OUTPUTS\n");
	1972	dumpMaps(request_output_real_format);
	1973	#endif
[1]	1974
	1975	maps* curs=getMaps(m,"env");
	1976	if(curs!=NULL){
	1977	map* mapcs=curs->content;
	1978	while(mapcs!=NULLMAP){
	1979	#ifndef WIN32
	1980	setenv(mapcs->name,mapcs->value,1);
	1981	#else
	1982	#ifdef DEBUG
	1983	fprintf(stderr,"[ZOO: setenv (%s=%s)]\n",mapcs->name,mapcs->value);
	1984	#endif
	1985	if(mapcs->value[strlen(mapcs->value)-2]=='\r'){
	1986	#ifdef DEBUG
	1987	fprintf(stderr,"[ZOO: Env var finish with \r]\n");
	1988	#endif
	1989	mapcs->value[strlen(mapcs->value)-1]=0;
	1990	}
	1991	#ifdef DEBUG
	1992	fflush(stderr);
[364]	1993	fprintf(stderr,"setting variable... %s\n",(
[1]	1994	#endif
	1995	SetEnvironmentVariable(mapcs->name,mapcs->value)
	1996	#ifdef DEBUG
[364]	1997	==0)? "OK" : "FAILED");
[1]	1998	#else
	1999	;
	2000	#endif
[364]	2001	char* toto=(char)malloc((strlen(mapcs->name)+strlen(mapcs->value)+2)sizeof(char));
	2002	sprintf(toto,"%s=%s",mapcs->name,mapcs->value);
	2003	putenv(toto);
[1]	2004	#ifdef DEBUG
	2005	fflush(stderr);
	2006	#endif
	2007	#endif
	2008	#ifdef DEBUG
	2009	fprintf(stderr,"[ZOO: setenv (%s=%s)]\n",mapcs->name,mapcs->value);
	2010	fflush(stderr);
	2011	#endif
	2012	mapcs=mapcs->next;
	2013	}
	2014	}
	2015
	2016	#ifdef DEBUG
	2017	dumpMap(request_inputs);
	2018	#endif
	2019
	2020	/**
	2021	* Need to check if we need to fork to load a status enabled
	2022	*/
	2023	r_inputs=NULL;
[72]	2024	map* store=getMap(request_inputs,"storeExecuteResponse");
	2025	map* status=getMap(request_inputs,"status");
	2026	/**
	2027	* 05-007r7 WPS 1.0.0 page 57 :
	2028	* 'If status="true" and storeExecuteResponse is "false" then the service
	2029	* shall raise an exception.'
	2030	*/
	2031	if(status!=NULL && strcmp(status->value,"true")==0 &&
	2032	store!=NULL && strcmp(store->value,"false")==0){
	2033	errorException(m, _("Status cannot be set to true with storeExecuteResponse to false. Please, modify your request parameters."), "InvalidParameterValue");
	2034	freeService(&s1);
	2035	free(s1);
	2036	freeMaps(&m);
	2037	free(m);
	2038
	2039	freeMaps(&request_input_real_format);
	2040	free(request_input_real_format);
	2041
	2042	freeMaps(&request_output_real_format);
	2043	free(request_output_real_format);
	2044
	2045	free(REQUEST);
	2046	free(SERVICE_URL);
	2047	return 1;
	2048	}
[1]	2049	r_inputs=getMap(request_inputs,"storeExecuteResponse");
	2050	int eres=SERVICE_STARTED;
	2051	int cpid=getpid();
[94]	2052
[32]	2053	maps _tmpMaps=(maps)malloc(MAPS_SIZE);
	2054	_tmpMaps->name=strdup("lenv");
	2055	char tmpBuff[100];
	2056	sprintf(tmpBuff,"%i",cpid);
	2057	_tmpMaps->content=createMap("sid",tmpBuff);
	2058	_tmpMaps->next=NULL;
	2059	addToMap(_tmpMaps->content,"status","0");
[216]	2060	addToMap(_tmpMaps->content,"cwd",ntmp);
[280]	2061	map* ltmp=getMap(request_inputs,"soap");
	2062	if(ltmp!=NULL)
	2063	addToMap(_tmpMaps->content,"soap",ltmp->value);
	2064	else
	2065	addToMap(_tmpMaps->content,"soap","false");
[92]	2066	if(cgiCookie!=NULL && strlen(cgiCookie)>0){
[342]	2067	char *tcook=strdup(cgiCookie);
	2068	if(strstr(cgiCookie,";")>0){
	2069	char token,saveptr;
	2070	token=strtok_r(cgiCookie,";",&saveptr);
	2071	while(token!=NULL){
	2072	if(strcasestr(token,"ID")!=NULL){
	2073	if(tcook!=NULL)
	2074	free(tcook);
	2075	tcook=strdup(token);
	2076	}
	2077	token=strtok_r(NULL,";",&saveptr);
	2078	}
	2079	}
	2080	addToMap(_tmpMaps->content,"sessid",strstr(tcook,"=")+1);
[92]	2081	char session_file_path[1024];
	2082	map *tmpPath=getMapFromMaps(m,"main","sessPath");
	2083	if(tmpPath==NULL)
	2084	tmpPath=getMapFromMaps(m,"main","tmpPath");
[342]	2085	char *tmp1=strtok(tcook,";");
[253]	2086	if(tmp1!=NULL)
	2087	sprintf(session_file_path,"%s/sess_%s.cfg",tmpPath->value,strstr(tmp1,"=")+1);
	2088	else
	2089	sprintf(session_file_path,"%s/sess_%s.cfg",tmpPath->value,strstr(cgiCookie,"=")+1);
[342]	2090	free(tcook);
[92]	2091	maps tmpSess=(maps)calloc(1,MAPS_SIZE);
	2092	struct stat file_status;
	2093	int istat = stat(session_file_path, &file_status);
[254]	2094	if(istat==0 && file_status.st_size>0){
[92]	2095	conf_read(session_file_path,tmpSess);
	2096	addMapsToMaps(&m,tmpSess);
	2097	freeMaps(&tmpSess);
	2098	}
	2099	free(tmpSess);
	2100	}
[32]	2101	addMapsToMaps(&m,_tmpMaps);
	2102	freeMaps(&_tmpMaps);
	2103	free(_tmpMaps);
	2104
[1]	2105	#ifdef DEBUG
	2106	dumpMap(request_inputs);
	2107	#endif
[216]	2108	#ifdef WIN32
	2109	char *cgiSidL=NULL;
	2110	if(getenv("CGISID")!=NULL)
[331]	2111	addToMap(request_inputs,"cgiSid",getenv("CGISID"));
[216]	2112	map* test1=getMap(request_inputs,"cgiSid");
	2113	if(test1!=NULL){
	2114	cgiSid=test1->value;
	2115	}
	2116	if(cgiSid!=NULL){
	2117	addToMap(request_inputs,"storeExecuteResponse","true");
	2118	addToMap(request_inputs,"status","true");
	2119	status=getMap(request_inputs,"status");
[364]	2120	//fprintf(stderr,"cgiSID : %s",cgiSid);
[216]	2121	}
	2122	#endif
[72]	2123	if(status!=NULL)
	2124	if(strcasecmp(status->value,"false")==0)
[364]	2125	status=NULLMAP;
[72]	2126	if(status==NULLMAP){
[34]	2127	loadServiceAndRun(&m,s1,request_inputs,&request_input_real_format,&request_output_real_format,&eres);
	2128	}
[1]	2129	else{
[364]	2130	int pid;
[1]	2131	#ifdef DEBUG
	2132	fprintf(stderr,"\nPID : %d\n",cpid);
	2133	#endif
[9]	2134
[1]	2135	#ifndef WIN32
[9]	2136	pid = fork ();
[1]	2137	#else
[216]	2138	if(cgiSid==NULL){
	2139	addToMap(request_inputs,"cgSid",cgiSid);
	2140	createProcess(m,request_inputs,s1,NULL,cpid,request_input_real_format,request_output_real_format);
	2141	pid = cpid;
	2142	}else{
	2143	pid=0;
	2144	cpid=atoi(cgiSid);
	2145	}
	2146	fflush(stderr);
[1]	2147	#endif
	2148	if (pid > 0) {
	2149	/**
	2150	* dady :
	2151	* set status to SERVICE_ACCEPTED
	2152	*/
	2153	#ifdef DEBUG
	2154	fprintf(stderr,"father pid continue (origin %d) %d ...\n",cpid,getpid());
	2155	#endif
	2156	eres=SERVICE_ACCEPTED;
	2157	}else if (pid == 0) {
	2158	/**
	2159	* son : have to close the stdout, stdin and stderr to let the parent
	2160	* process answer to http client.
	2161	*/
	2162	r_inputs=getMapFromMaps(m,"main","tmpPath");
[9]	2163	map* r_inputs1=getMap(s1->content,"ServiceProvider");
[32]	2164	char* fbkp=(char)malloc((strlen(r_inputs->value)+strlen(r_inputs1->value)+100)sizeof(char));
[9]	2165	sprintf(fbkp,"%s/%s_%d.xml",r_inputs->value,r_inputs1->value,cpid);
[32]	2166	char* flog=(char)malloc((strlen(r_inputs->value)+strlen(r_inputs1->value)+100)sizeof(char));
[9]	2167	sprintf(flog,"%s/%s_%d_error.log",r_inputs->value,r_inputs1->value,cpid);
[1]	2168	#ifdef DEBUG
	2169	fprintf(stderr,"RUN IN BACKGROUND MODE \n");
	2170	fprintf(stderr,"son pid continue (origin %d) %d ...\n",cpid,getpid());
[9]	2171	fprintf(stderr,"\nFILE TO STORE DATA %s\n",r_inputs->value);
[1]	2172	#endif
[216]	2173	freopen(flog,"w+",stderr);
[9]	2174	freopen(fbkp , "w+", stdout);
[1]	2175	fclose(stdin);
[9]	2176	free(fbkp);
	2177	free(flog);
[1]	2178	/**
	2179	* set status to SERVICE_STARTED and flush stdout to ensure full
	2180	* content was outputed (the file used to store the ResponseDocument).
	2181	* The rewind stdout to restart writing from the bgining of the file,
	2182	* this way the data will be updated at the end of the process run.
	2183	*/
[32]	2184	updateStatus(m);
[9]	2185	printProcessResponse(m,request_inputs,cpid,
[216]	2186	s1,r_inputs1->value,SERVICE_STARTED,
	2187	request_input_real_format,
	2188	request_output_real_format);
	2189	#ifndef WIN32
[1]	2190	fflush(stdout);
	2191	rewind(stdout);
[216]	2192	#endif
[1]	2193
[34]	2194	loadServiceAndRun(&m,s1,request_inputs,&request_input_real_format,&request_output_real_format,&eres);
[9]	2195
[1]	2196	} else {
	2197	/**
	2198	* error server don't accept the process need to output a valid
	2199	* error response here !!!
	2200	*/
[34]	2201	eres=-1;
	2202	errorException(m, _("Unable to run the child process properly"), "InternalError");
[1]	2203	}
	2204	}
	2205
	2206	#ifdef DEBUG
	2207	dumpMaps(request_output_real_format);
	2208	#endif
[9]	2209	if(eres!=-1)
	2210	outputResponse(s1,request_input_real_format,
	2211	request_output_real_format,request_inputs,
	2212	cpid,m,eres);
[216]	2213	fflush(stdout);
[105]	2214	/**
	2215	* Ensure that if error occurs when freeing memory, no signal will return
	2216	* an ExceptionReport document as the result was already returned to the
	2217	* client.
	2218	*/
	2219	#ifndef USE_GDB
	2220	(void) signal(SIGSEGV,donothing);
	2221	(void) signal(SIGTERM,donothing);
	2222	(void) signal(SIGINT,donothing);
	2223	(void) signal(SIGILL,donothing);
	2224	(void) signal(SIGFPE,donothing);
	2225	(void) signal(SIGABRT,donothing);
	2226	#endif
[1]	2227
[32]	2228	if(((int)getpid())!=cpid){
	2229	fclose(stdout);
	2230	fclose(stderr);
	2231	unhandleStatus(m);
	2232	}
	2233
[9]	2234	freeService(&s1);
	2235	free(s1);
[59]	2236	freeMaps(&m);
[9]	2237	free(m);
	2238
	2239	freeMaps(&request_input_real_format);
	2240	free(request_input_real_format);
[25]	2241
[59]	2242	freeMaps(&request_output_real_format);
	2243	free(request_output_real_format);
[9]	2244
	2245	free(REQUEST);
	2246	free(SERVICE_URL);
[1]	2247	#ifdef DEBUG
	2248	fprintf(stderr,"Processed response \n");
	2249	fflush(stdout);
	2250	fflush(stderr);
	2251	#endif
	2252
	2253	return 0;
	2254	}
[364]	2255

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

Open WPS platform

source: trunk/zoo-project/zoo-kernel/zoo_service_loader.c @ 379

Download in other formats:

Download now !

Support ZOO-Project

Search

Context Navigation

Main Navigation

ZOO Sponsors

Knowledge partners

Related links