service_internal.c @ 292

Last change on this file since 292 was 268, checked in by djay, 14 years ago
Merge branch-1.2 to current rev. 267. Tag release-1.2.0-rc2.
File size: 62.2 KB

Rev	Line
[1]	1	/**
	2	* Author : Gérald FENOY
	3	*
[72]	4	* Copyright (c) 2009-2011 GeoLabs SARL
[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	#include "service_internal.h"
	26
[217]	27	#ifdef WIN32
	28	char *
	29	strtok_r (char s1, const char s2, char **lasts)
	30	{
	31	char *ret;
	32	if (s1 == NULL)
	33	s1 = *lasts;
	34	while (s1 && strchr(s2, s1))
	35	++s1;
	36	if (*s1 == '\0')
	37	return NULL;
	38	ret = s1;
	39	while (s1 && !strchr(s2, s1))
	40	++s1;
	41	if (*s1)
	42	*s1++ = '\0';
	43	*lasts = s1;
	44	return ret;
	45	}
	46	#endif
	47
	48	void addLangAttr(xmlNodePtr n,maps *m){
[34]	49	map *tmpLmap=getMapFromMaps(m,"main","language");
	50	if(tmpLmap!=NULL)
	51	xmlNewProp(n,BAD_CAST "xml:lang",BAD_CAST tmpLmap->value);
	52	else
	53	xmlNewProp(n,BAD_CAST "xml:lang",BAD_CAST "en-US");
	54	}
	55
[1]	56	/* Converts a hex character to its integer value */
	57	char from_hex(char ch) {
	58	return isdigit(ch) ? ch - '0' : tolower(ch) - 'a' + 10;
	59	}
	60
	61	/* Converts an integer value to its hex character*/
	62	char to_hex(char code) {
	63	static char hex[] = "0123456789abcdef";
	64	return hex[code & 15];
	65	}
	66
[217]	67	#ifdef WIN32
	68
	69	#include <windows.h>
	70	#include <stdio.h>
	71	#include <conio.h>
	72	#include <tchar.h>
	73
	74	#define SHMEMSIZE 4096
	75
	76	static LPVOID lpvMemG = NULL; // pointer to shared memory
	77	static HANDLE hMapObjectG = NULL; // handle to file mapping
	78
	79	void updateStatus(maps *conf){
	80	fprintf(stderr,"OK Final 1 \n");
	81	fflush(stderr);
	82	LPWSTR lpszTmp;
	83	BOOL fInit;
	84	char *s=NULL;
	85	map *tmpMap=getMapFromMaps(conf,"lenv","sid");
	86	fprintf(stderr,"OK Final 11 \n");
	87	fflush(stderr);
	88	if(hMapObjectG==NULL)
	89	hMapObjectG = CreateFileMapping(
	90	INVALID_HANDLE_VALUE, // use paging file
	91	NULL, // default security attributes
	92	PAGE_READWRITE, // read/write access
	93	0, // size: high 32-bits
	94	SHMEMSIZE, // size: low 32-bits
	95	TEXT(tmpMap->value)); // name of map object
	96	if (hMapObjectG == NULL){
	97	fprintf(stderr,"Unable to create share memory segment %s !! \n",tmpMap->value);
	98	return ;
	99	}
	100	fprintf(stderr,"OK Final 2 \n");
	101	fflush(stderr);
	102	fInit = (GetLastError() != ERROR_ALREADY_EXISTS);
	103	if(lpvMemG==NULL)
	104	lpvMemG = MapViewOfFile(
	105	hMapObjectG, // object to map view of
	106	FILE_MAP_WRITE, // read/write access
	107	0, // high offset: map from
	108	0, // low offset: beginning
	109	0); // default: map entire file
	110	if (lpvMemG == NULL){
	111	fprintf(stderr,"Unable to create or access the shared memory segment %s !! \n",tmpMap->value);
	112	return ;
	113	}
	114	fprintf(stderr,"OK Final 3 \n");
	115	fflush(stderr);
	116	if (fInit)
	117	memset(lpvMemG, '\0', SHMEMSIZE);
	118	fprintf(stderr,"OK Final 4 \n");
	119	fflush(stderr);
	120	tmpMap=getMapFromMaps(conf,"lenv","status");
	121	lpszTmp = (LPWSTR) lpvMemG;
	122	for(s=tmpMap->value;*s!=NULL;s++)
	123	lpszTmp++ = s;
	124	*lpszTmp = '\0';
	125	}
	126
	127	char* getStatus(int pid){
	128	LPWSTR lpszBuf=NULL;
	129	LPWSTR lpszTmp=NULL;
	130	LPVOID lpvMem = NULL;
	131	HANDLE hMapObject = NULL;
	132	BOOL fIgnore,fInit;
	133	char tmp[100];
	134	sprintf(tmp,"%i",pid);
	135	if(hMapObject==NULL)
	136	hMapObject = CreateFileMapping(
	137	INVALID_HANDLE_VALUE, // use paging file
	138	NULL, // default security attributes
	139	PAGE_READWRITE, // read/write access
	140	0, // size: high 32-bits
	141	4096, // size: low 32-bits
	142	TEXT(tmp)); // name of map object
	143	if (hMapObject == NULL)
	144	return FALSE;
	145	if((GetLastError() != ERROR_ALREADY_EXISTS)){
	146	fIgnore = UnmapViewOfFile(lpvMem);
	147	fIgnore = CloseHandle(hMapObject);
	148	return "-1";
	149	}
	150	fInit=TRUE;
	151	if(lpvMem==NULL)
	152	lpvMem = MapViewOfFile(
	153	hMapObject, // object to map view of
	154	FILE_MAP_READ, // read/write access
	155	0, // high offset: map from
	156	0, // low offset: beginning
	157	0); // default: map entire file
	158	if (lpvMem == NULL)
	159	return "-1";
	160	lpszTmp = (LPWSTR) lpvMem;
	161	while (*lpszTmp!=NULL)
	162	lpszBuf++ = lpszTmp++;
	163	*lpszBuf = '\0';
	164	fIgnore = UnmapViewOfFile(lpvMem);
	165	fIgnore = CloseHandle(hMapObject);
	166	return (char*)lpszBuf;
	167	}
	168
	169	void unhandleStatus(maps *conf){
	170	BOOL fIgnore;
	171	fIgnore = UnmapViewOfFile(lpvMemG);
	172	fIgnore = CloseHandle(hMapObjectG);
	173	}
	174	#else
[268]	175
[217]	176	void unhandleStatus(maps *conf){
[26]	177	int shmid,i;
	178	key_t key;
	179	void *shm;
	180	struct shmid_ds shmids;
	181	char s,s1;
	182	map *tmpMap=getMapFromMaps(conf,"lenv","sid");
	183	if(tmpMap!=NULL){
	184	key=atoi(tmpMap->value);
	185	if ((shmid = shmget(key, SHMSZ, IPC_CREAT \| 0666)) < 0) {
	186	#ifdef DEBUG
	187	fprintf(stderr,"shmget failed to update value\n");
	188	#endif
	189	}else{
	190	if ((shm = shmat(shmid, NULL, 0)) == (char *) -1) {
	191	#ifdef DEBUG
	192	fprintf(stderr,"shmat failed to update value\n");
	193	#endif
	194	}else{
	195	shmdt(shm);
	196	shmctl(shmid,IPC_RMID,&shmids);
	197	}
	198	}
	199	}
	200	}
	201
[217]	202	void updateStatus(maps *conf){
[26]	203	int shmid,i;
	204	key_t key;
	205	char shm,s,*s1;
	206	map *tmpMap=NULL;
	207	tmpMap=getMapFromMaps(conf,"lenv","sid");
	208	if(tmpMap!=NULL){
	209	key=atoi(tmpMap->value);
	210	if ((shmid = shmget(key, SHMSZ, IPC_CREAT \| 0666)) < 0) {
	211	#ifdef DEBUG
[268]	212	fprintf(stderr,"shmget failed to create new Shared memory segment\n");
[26]	213	#endif
	214	}else{
	215	if ((shm = (char) shmat(shmid, NULL, 0)) == (char ) -1) {
	216	#ifdef DEBUG
	217	fprintf(stderr,"shmat failed to update value\n");
	218	#endif
	219	}
	220	else{
	221	tmpMap=getMapFromMaps(conf,"lenv","status");
	222	s1=shm;
[268]	223	for(s=tmpMap->value;s!=NULL && s!=0;s++){
[26]	224	s1++=s;
[268]	225	}
	226	*s1=NULL;
[26]	227	shmdt((void *)shm);
	228	}
	229	}
	230	}
	231	}
	232
	233	char* getStatus(int pid){
	234	int shmid,i;
	235	key_t key;
	236	void *shm;
	237	char *s;
	238	key=pid;
	239	if ((shmid = shmget(key, SHMSZ, 0666)) < 0) {
	240	#ifdef DEBUG
	241	fprintf(stderr,"shmget failed in getStatus\n");
	242	#endif
	243	}else{
	244	if ((shm = shmat(shmid, NULL, 0)) == (char *) -1) {
	245	#ifdef DEBUG
	246	fprintf(stderr,"shmat failed in getStatus\n");
	247	#endif
	248	}else{
	249	return (char*)shm;
	250	}
	251	}
	252	return "-1";
	253	}
	254
[217]	255	#endif
[26]	256
[217]	257	#ifdef USE_JS
	258
	259	JSBool
	260	JSUpdateStatus(JSContext cx, JSObject obj, uintN argc, jsval argv, jsval rval)
	261	{
	262	JS_MaybeGC(cx);
	263	char *sid;
	264	int istatus=0;
	265	char *status=NULL;
	266	maps *conf;
	267	int i=0;
	268	if(argc>2){
	269	#ifdef JS_DEBUG
	270	fprintf(stderr,"Number of arguments used to call the function : %i",argc);
	271	#endif
	272	return JS_FALSE;
	273	}
	274	conf=mapsFromJSObject(cx,argv[0]);
	275	if(JS_ValueToInt32(cx,argv[1],&istatus)==JS_TRUE){
	276	char tmpStatus[4];
	277	sprintf(tmpStatus,"%i",istatus);
	278	tmpStatus[3]=0;
	279	status=strdup(tmpStatus);
	280	}
	281	if(getMapFromMaps(conf,"lenv","status")!=NULL){
	282	if(status!=NULL)
	283	setMapInMaps(conf,"lenv","status",status);
	284	else
	285	setMapInMaps(conf,"lenv","status","15");
	286	updateStatus(conf);
	287	}
	288	freeMaps(&conf);
	289	free(conf);
	290	JS_MaybeGC(cx);
	291	return JS_TRUE;
	292	}
	293
	294	#endif
	295
	296
	297
[1]	298	/* Returns a url-encoded version of str */
	299	/* IMPORTANT: be sure to free() the returned string after use */
	300	char url_encode(char str) {
	301	char pstr = str, buf = (char) malloc(strlen(str) 3 + 1), *pbuf = buf;
	302	while (*pstr) {
	303	if (isalnum(pstr) \|\| pstr == '-' \|\| pstr == '_' \|\| pstr == '.' \|\| *pstr == '~')
	304	pbuf++ = pstr;
	305	else if (*pstr == ' ')
	306	*pbuf++ = '+';
	307	else
	308	pbuf++ = '%', pbuf++ = to_hex(pstr >> 4), pbuf++ = to_hex(*pstr & 15);
	309	pstr++;
	310	}
	311	*pbuf = '\0';
	312	return buf;
	313	}
	314
	315	/* Returns a url-decoded version of str */
	316	/* IMPORTANT: be sure to free() the returned string after use */
	317	char url_decode(char str) {
	318	char pstr = str, buf = (char) malloc(strlen(str) + 1), pbuf = buf;
	319	while (*pstr) {
	320	if (*pstr == '%') {
	321	if (pstr[1] && pstr[2]) {
	322	*pbuf++ = from_hex(pstr[1]) << 4 \| from_hex(pstr[2]);
	323	pstr += 2;
	324	}
	325	} else if (*pstr == '+') {
	326	*pbuf++ = ' ';
	327	} else {
	328	pbuf++ = pstr;
	329	}
	330	pstr++;
	331	}
	332	*pbuf = '\0';
	333	return buf;
	334	}
	335
[9]	336	char zCapitalize1(char tmp){
	337	char *res=strdup(tmp);
	338	if(res[0]>=97 && res[0]<=122)
	339	res[0]-=32;
	340	return res;
	341	}
[1]	342
[9]	343	char zCapitalize(char tmp){
	344	int i=0;
	345	char *res=strdup(tmp);
	346	for(i=0;i<strlen(res);i++)
	347	if(res[i]>=97 && res[i]<=122)
	348	res[i]-=32;
	349	return res;
	350	}
[1]	351
[9]	352
[217]	353	int zooXmlSearchForNs(const char* name){
[9]	354	int i;
	355	int res=-1;
	356	for(i=0;i<nbNs;i++)
	357	if(strncasecmp(name,nsName[i],strlen(nsName[i]))==0){
	358	res=i;
	359	break;
[1]	360	}
[9]	361	return res;
	362	}
[1]	363
[217]	364	int zooXmlAddNs(xmlNodePtr nr,const char* url,const char* name){
[1]	365	#ifdef DEBUG
[9]	366	fprintf(stderr,"zooXmlAddNs %d \n",nbNs);
[1]	367	#endif
[9]	368	int currId=-1;
	369	if(nbNs==0){
	370	nbNs++;
	371	currId=0;
	372	nsName[currId]=strdup(name);
	373	usedNs[currId]=xmlNewNs(nr,BAD_CAST url,BAD_CAST name);
	374	}else{
	375	currId=zooXmlSearchForNs(name);
	376	if(currId<0){
	377	nbNs++;
	378	currId=nbNs-1;
	379	nsName[currId]=strdup(name);
	380	usedNs[currId]=xmlNewNs(nr,BAD_CAST url,BAD_CAST name);
[1]	381	}
[9]	382	}
	383	return currId;
	384	}
[1]	385
[9]	386	void zooXmlCleanupNs(){
	387	int j;
[1]	388	#ifdef DEBUG
[9]	389	fprintf(stderr,"zooXmlCleanup %d\n",nbNs);
[1]	390	#endif
[9]	391	for(j=nbNs-1;j>=0;j--){
[1]	392	#ifdef DEBUG
[9]	393	fprintf(stderr,"zooXmlCleanup %d\n",j);
[1]	394	#endif
[9]	395	if(j==0)
	396	xmlFreeNs(usedNs[j]);
	397	free(nsName[j]);
	398	nbNs--;
[1]	399	}
[9]	400	nbNs=0;
[1]	401	}
	402
[217]	403	xmlNodePtr printGetCapabilitiesHeader(xmlDocPtr doc,const char* service,maps* m){
[1]	404
	405	xmlNsPtr ns,ns_ows,ns_xlink,ns_xsi;
[9]	406	xmlNodePtr n,nc,nc1,nc2,nc3,nc4,nc5,nc6,pseudor;
[1]	407	xmlChar *xmlbuff;
	408	int buffersize;
	409	/**
	410	* Create the document and its temporary root.
	411	*/
[9]	412	int wpsId=zooXmlAddNs(NULL,"http://www.opengis.net/wps/1.0.0","wps");
	413	ns=usedNs[wpsId];
[1]	414	maps* toto1=getMaps(m,"main");
	415
[9]	416	n = xmlNewNode(ns, BAD_CAST "Capabilities");
	417	int owsId=zooXmlAddNs(n,"http://www.opengis.net/ows/1.1","ows");
	418	ns_ows=usedNs[owsId];
[1]	419	xmlNewNs(n,BAD_CAST "http://www.opengis.net/wps/1.0.0",BAD_CAST "wps");
[9]	420	int xsiId=zooXmlAddNs(n,"http://www.w3.org/2001/XMLSchema-instance","xsi");
	421	ns_xsi=usedNs[xsiId];
	422	int xlinkId=zooXmlAddNs(n,"http://www.w3.org/1999/xlink","xlink");
	423	ns_xlink=usedNs[xlinkId];
	424	xmlNewNsProp(n,ns_xsi,BAD_CAST "schemaLocation",BAD_CAST "http://www.opengis.net/wps/1.0.0 http://schemas.opengis.net/wps/1.0.0/wpsGetCapabilities_response.xsd");
[1]	425	xmlNewProp(n,BAD_CAST "service",BAD_CAST "WPS");
[34]	426	addLangAttr(n,m);
[1]	427
	428	if(toto1!=NULL){
	429	map* tmp=getMap(toto1->content,"version");
	430	if(tmp!=NULL){
	431	xmlNewProp(n,BAD_CAST "version",BAD_CAST tmp->value);
	432	}
	433	else
	434	xmlNewProp(n,BAD_CAST "version",BAD_CAST "1.0.0");
	435	}
	436	else
	437	xmlNewProp(n,BAD_CAST "version",BAD_CAST "1.0.0");
	438
	439	char tmp[256];
	440
	441	nc = xmlNewNode(ns_ows, BAD_CAST "ServiceIdentification");
	442	maps* tmp4=getMaps(m,"identification");
	443	if(tmp4!=NULL){
	444	map* tmp2=tmp4->content;
[71]	445	char *orderedFields[5];
	446	orderedFields[0]="Title";
	447	orderedFields[1]="Abstract";
	448	orderedFields[2]="Keywords";
	449	orderedFields[3]="Fees";
	450	orderedFields[4]="AccessConstraints";
	451	int oI=0;
	452	for(oI=0;oI<5;oI++)
	453	if((tmp2=getMap(tmp4->content,orderedFields[oI]))!=NULL){
	454	if(strcasecmp(tmp2->name,"abstract")==0 \|\|
	455	strcasecmp(tmp2->name,"title")==0 \|\|
	456	strcasecmp(tmp2->name,"accessConstraints")==0 \|\|
	457	strcasecmp(tmp2->name,"fees")==0){
	458	tmp2->name[0]=toupper(tmp2->name[0]);
	459	nc1 = xmlNewNode(ns_ows, BAD_CAST tmp2->name);
	460	xmlAddChild(nc1,xmlNewText(BAD_CAST tmp2->value));
	461	xmlAddChild(nc,nc1);
	462	}
	463	else
	464	if(strcmp(tmp2->name,"keywords")==0){
	465	nc1 = xmlNewNode(ns_ows, BAD_CAST "Keywords");
	466	char *toto=tmp2->value;
	467	char buff[256];
	468	int i=0;
	469	int j=0;
	470	while(toto[i]){
	471	if(toto[i]!=',' && toto[i]!=0){
	472	buff[j]=toto[i];
	473	buff[j+1]=0;
	474	j++;
	475	}
	476	else{
	477	nc2 = xmlNewNode(ns_ows, BAD_CAST "Keyword");
	478	xmlAddChild(nc2,xmlNewText(BAD_CAST buff));
	479	xmlAddChild(nc1,nc2);
	480	j=0;
	481	}
	482	i++;
[1]	483	}
[71]	484	if(strlen(buff)>0){
[1]	485	nc2 = xmlNewNode(ns_ows, BAD_CAST "Keyword");
	486	xmlAddChild(nc2,xmlNewText(BAD_CAST buff));
	487	xmlAddChild(nc1,nc2);
	488	}
[71]	489	xmlAddChild(nc,nc1);
	490	nc2 = xmlNewNode(ns_ows, BAD_CAST "ServiceType");
	491	xmlAddChild(nc2,xmlNewText(BAD_CAST "WPS"));
	492	xmlAddChild(nc,nc2);
	493	nc2 = xmlNewNode(ns_ows, BAD_CAST "ServiceTypeVersion");
	494	xmlAddChild(nc2,xmlNewText(BAD_CAST "1.0.0"));
	495	xmlAddChild(nc,nc2);
[1]	496	}
[71]	497	tmp2=tmp2->next;
	498	}
[1]	499	}
	500	else{
	501	fprintf(stderr,"TMP4 NOT FOUND !!");
	502	return NULL;
	503	}
	504	xmlAddChild(n,nc);
	505
	506	nc = xmlNewNode(ns_ows, BAD_CAST "ServiceProvider");
	507	nc3 = xmlNewNode(ns_ows, BAD_CAST "ServiceContact");
	508	nc4 = xmlNewNode(ns_ows, BAD_CAST "ContactInfo");
	509	nc5 = xmlNewNode(ns_ows, BAD_CAST "Phone");
	510	nc6 = xmlNewNode(ns_ows, BAD_CAST "Address");
	511	tmp4=getMaps(m,"provider");
	512	if(tmp4!=NULL){
	513	map* tmp2=tmp4->content;
[57]	514	char *tmpAddress[6];
	515	tmpAddress[0]="addressDeliveryPoint";
	516	tmpAddress[1]="addressCity";
	517	tmpAddress[2]="addressAdministrativeArea";
	518	tmpAddress[3]="addressPostalCode";
	519	tmpAddress[4]="addressCountry";
	520	tmpAddress[5]="addressElectronicMailAddress";
	521	char *tmpPhone[2];
	522	tmpPhone[0]="phoneVoice";
	523	tmpPhone[1]="phoneFacsimile";
[71]	524	char *orderedFields[12];
	525	orderedFields[0]="providerName";
	526	orderedFields[1]="providerSite";
	527	orderedFields[2]="individualName";
	528	orderedFields[3]="positionName";
	529	orderedFields[4]=tmpPhone[0];
	530	orderedFields[5]=tmpPhone[1];
	531	orderedFields[6]=tmpAddress[0];
	532	orderedFields[7]=tmpAddress[1];
	533	orderedFields[8]=tmpAddress[2];
	534	orderedFields[9]=tmpAddress[3];
	535	orderedFields[10]=tmpAddress[4];
	536	orderedFields[11]=tmpAddress[5];
	537	int oI=0;
	538	for(oI=0;oI<12;oI++)
	539	if((tmp2=getMap(tmp4->content,orderedFields[oI]))!=NULL){
	540	if(strcmp(tmp2->name,"keywords")!=0 &&
	541	strcmp(tmp2->name,"serverAddress")!=0 &&
	542	strcmp(tmp2->name,"lang")!=0){
	543	tmp2->name[0]=toupper(tmp2->name[0]);
	544	if(strcmp(tmp2->name,"ProviderName")==0){
[1]	545	nc1 = xmlNewNode(ns_ows, BAD_CAST tmp2->name);
[71]	546	xmlAddChild(nc1,xmlNewText(BAD_CAST tmp2->value));
[1]	547	xmlAddChild(nc,nc1);
[71]	548	}
	549	else{
	550	if(strcmp(tmp2->name,"ProviderSite")==0){
[1]	551	nc1 = xmlNewNode(ns_ows, BAD_CAST tmp2->name);
[71]	552	xmlNewNsProp(nc1,ns_xlink,BAD_CAST "href",BAD_CAST tmp2->value);
	553	xmlAddChild(nc,nc1);
[1]	554	}
[71]	555	else
	556	if(strcmp(tmp2->name,"IndividualName")==0 \|\|
	557	strcmp(tmp2->name,"PositionName")==0){
	558	nc1 = xmlNewNode(ns_ows, BAD_CAST tmp2->name);
	559	xmlAddChild(nc1,xmlNewText(BAD_CAST tmp2->value));
	560	xmlAddChild(nc3,nc1);
	561	}
[1]	562	else
[71]	563	if(strncmp(tmp2->name,"Phone",5)==0){
[57]	564	int j;
[71]	565	for(j=0;j<2;j++)
	566	if(strcasecmp(tmp2->name,tmpPhone[j])==0){
[57]	567	char *toto=NULL;
	568	char *toto1=tmp2->name;
[71]	569	toto=strstr(toto1,"Phone");
	570	nc1 = xmlNewNode(ns_ows, BAD_CAST toto1+5);
[57]	571	xmlAddChild(nc1,xmlNewText(BAD_CAST tmp2->value));
[71]	572	xmlAddChild(nc5,nc1);
[57]	573	}
[1]	574	}
[71]	575	else
	576	if(strncmp(tmp2->name,"Address",7)==0){
	577	int j;
	578	for(j=0;j<6;j++)
	579	if(strcasecmp(tmp2->name,tmpAddress[j])==0){
	580	char *toto=NULL;
	581	char *toto1=tmp2->name;
	582	toto=strstr(toto1,"Address");
	583	nc1 = xmlNewNode(ns_ows, BAD_CAST toto1+7);
	584	xmlAddChild(nc1,xmlNewText(BAD_CAST tmp2->value));
	585	xmlAddChild(nc6,nc1);
	586	}
	587	}
	588	}
[1]	589	}
[71]	590	else
	591	if(strcmp(tmp2->name,"keywords")==0){
	592	nc1 = xmlNewNode(ns_ows, BAD_CAST "Keywords");
	593	char *toto=tmp2->value;
	594	char buff[256];
	595	int i=0;
	596	int j=0;
	597	while(toto[i]){
	598	if(toto[i]!=',' && toto[i]!=0){
	599	buff[j]=toto[i];
	600	buff[j+1]=0;
	601	j++;
	602	}
	603	else{
	604	nc2 = xmlNewNode(ns_ows, BAD_CAST "Keyword");
	605	xmlAddChild(nc2,xmlNewText(BAD_CAST buff));
	606	xmlAddChild(nc1,nc2);
	607	j=0;
	608	}
	609	i++;
[1]	610	}
[71]	611	if(strlen(buff)>0){
[1]	612	nc2 = xmlNewNode(ns_ows, BAD_CAST "Keyword");
	613	xmlAddChild(nc2,xmlNewText(BAD_CAST buff));
	614	xmlAddChild(nc1,nc2);
	615	}
[71]	616	xmlAddChild(nc,nc1);
[1]	617	}
[71]	618	tmp2=tmp2->next;
	619	}
[1]	620	}
	621	else{
	622	fprintf(stderr,"TMP4 NOT FOUND !!");
	623	}
	624	xmlAddChild(nc4,nc5);
	625	xmlAddChild(nc4,nc6);
	626	xmlAddChild(nc3,nc4);
	627	xmlAddChild(nc,nc3);
	628	xmlAddChild(n,nc);
	629
	630
	631	nc = xmlNewNode(ns_ows, BAD_CAST "OperationsMetadata");
	632	char *tmp2[3];
[9]	633	tmp2[0]=strdup("GetCapabilities");
	634	tmp2[1]=strdup("DescribeProcess");
	635	tmp2[2]=strdup("Execute");
[1]	636	int j=0;
	637
	638	if(toto1!=NULL){
	639	map* tmp=getMap(toto1->content,"serverAddress");
	640	if(tmp!=NULL){
	641	SERVICE_URL = strdup(tmp->value);
	642	}
	643	else
[9]	644	SERVICE_URL = strdup("not_found");
[1]	645	}
	646	else
[9]	647	SERVICE_URL = strdup("not_found");
[1]	648
	649	for(j=0;j<3;j++){
	650	nc1 = xmlNewNode(ns_ows, BAD_CAST "Operation");
	651	xmlNewProp(nc1,BAD_CAST "name",BAD_CAST tmp2[j]);
	652	nc2 = xmlNewNode(ns_ows, BAD_CAST "DCP");
	653	nc3 = xmlNewNode(ns_ows, BAD_CAST "HTTP");
	654	nc4 = xmlNewNode(ns_ows, BAD_CAST "Get");
	655	sprintf(tmp,"%s/%s",SERVICE_URL,service);
[9]	656	xmlNewNsProp(nc4,ns_xlink,BAD_CAST "href",BAD_CAST tmp);
[1]	657	xmlAddChild(nc3,nc4);
	658	if(j>0){
	659	nc4 = xmlNewNode(ns_ows, BAD_CAST "Post");
[9]	660	xmlNewNsProp(nc4,ns_xlink,BAD_CAST "href",BAD_CAST tmp);
[1]	661	xmlAddChild(nc3,nc4);
	662	}
	663	xmlAddChild(nc2,nc3);
	664	xmlAddChild(nc1,nc2);
	665	xmlAddChild(nc,nc1);
	666	}
[9]	667	for(j=2;j>=0;j--)
	668	free(tmp2[j]);
[1]	669	xmlAddChild(n,nc);
	670
	671	nc = xmlNewNode(ns, BAD_CAST "ProcessOfferings");
	672	xmlAddChild(n,nc);
	673
	674	nc1 = xmlNewNode(ns, BAD_CAST "Languages");
	675	nc2 = xmlNewNode(ns, BAD_CAST "Default");
	676	nc3 = xmlNewNode(ns, BAD_CAST "Supported");
	677
	678	toto1=getMaps(m,"main");
	679	if(toto1!=NULL){
	680	map* tmp1=getMap(toto1->content,"lang");
	681	char *toto=tmp1->value;
	682	char buff[256];
	683	int i=0;
	684	int j=0;
	685	int dcount=0;
	686	while(toto[i]){
	687	if(toto[i]!=',' && toto[i]!=0){
	688	buff[j]=toto[i];
	689	buff[j+1]=0;
	690	j++;
	691	}
	692	else{
	693	nc4 = xmlNewNode(ns_ows, BAD_CAST "Language");
	694	xmlAddChild(nc4,xmlNewText(BAD_CAST buff));
	695	if(dcount==0){
	696	xmlAddChild(nc2,nc4);
	697	xmlAddChild(nc1,nc2);
	698	dcount++;
	699	}
	700	nc4 = xmlNewNode(ns_ows, BAD_CAST "Language");
	701	xmlAddChild(nc4,xmlNewText(BAD_CAST buff));
	702	xmlAddChild(nc3,nc4);
	703	j=0;
	704	buff[j]=0;
	705	}
	706	i++;
	707	}
	708	if(strlen(buff)>0){
	709	nc4 = xmlNewNode(ns_ows, BAD_CAST "Language");
	710	xmlAddChild(nc4,xmlNewText(BAD_CAST buff));
	711	xmlAddChild(nc3,nc4);
	712	}
	713	}
	714	xmlAddChild(nc1,nc3);
	715	xmlAddChild(n,nc1);
	716
	717	xmlDocSetRootElement(doc, n);
[9]	718	//xmlFreeNs(ns);
	719	free(SERVICE_URL);
[1]	720	return nc;
	721	}
	722
	723	void printGetCapabilitiesForProcess(maps* m,xmlNodePtr nc,service* serv){
[9]	724	xmlNsPtr ns,ns_ows,ns_xlink;
[1]	725	xmlNodePtr nr,n,nc1,nc2,nc3,nc4,nc5,nc6,pseudor;
[9]	726	/**
	727	* Initialize or get existing namspaces
	728	*/
	729	int wpsId=zooXmlAddNs(NULL,"http://www.opengis.net/wps/1.0.0","wps");
	730	ns=usedNs[wpsId];
	731	int owsId=zooXmlAddNs(NULL,"http://www.opengis.net/ows/1.1","ows");
	732	ns_ows=usedNs[owsId];
	733	int xlinkId=zooXmlAddNs(n,"http://www.w3.org/1999/xlink","xlink");
	734	ns_xlink=usedNs[xlinkId];
[1]	735
	736	int cursor=0;
	737	map* tmp1;
	738	if(serv->content!=NULL){
	739	nc1 = xmlNewNode(ns, BAD_CAST "Process");
	740	tmp1=getMap(serv->content,"processVersion");
	741	if(tmp1!=NULL)
[9]	742	xmlNewNsProp(nc1,ns,BAD_CAST "processVersion",BAD_CAST tmp1->value);
[1]	743	printDescription(nc1,ns_ows,serv->name,serv->content);
	744	tmp1=serv->metadata;
	745	while(tmp1!=NULL){
	746	nc2 = xmlNewNode(ns_ows, BAD_CAST "Metadata");
[9]	747	xmlNewNsProp(nc2,ns_xlink,BAD_CAST tmp1->name,BAD_CAST tmp1->value);
[1]	748	xmlAddChild(nc1,nc2);
	749	tmp1=tmp1->next;
	750	}
	751	xmlAddChild(nc,nc1);
	752	}
	753	}
	754
[217]	755	xmlNodePtr printDescribeProcessHeader(xmlDocPtr doc,const char* service,maps* m){
[1]	756
	757	xmlNsPtr ns,ns_ows,ns_xlink,ns_xsi;
	758	xmlNodePtr n,nr;
	759	xmlChar *xmlbuff;
	760	int buffersize;
	761
[9]	762	int wpsId=zooXmlAddNs(NULL,"http://schemas.opengis.net/wps/1.0.0","wps");
	763	ns=usedNs[wpsId];
	764	n = xmlNewNode(ns, BAD_CAST "ProcessDescriptions");
	765	int owsId=zooXmlAddNs(n,"http://www.opengis.net/ows/1.1","ows");
	766	ns_ows=usedNs[owsId];
[1]	767	xmlNewNs(n,BAD_CAST "http://www.opengis.net/wps/1.0.0",BAD_CAST "wps");
[9]	768	zooXmlAddNs(n,"http://www.w3.org/1999/xlink","xlink");
	769	int xsiId=zooXmlAddNs(n,"http://www.w3.org/2001/XMLSchema-instance","xsi");
	770	ns_xsi=usedNs[xsiId];
	771
	772	xmlNewNsProp(n,ns_xsi,BAD_CAST "schemaLocation",BAD_CAST "http://www.opengis.net/wps/1.0.0 http://schemas.opengis.net/wps/1.0.0/wpsDescribeProcess_response.xsd");
[1]	773	xmlNewProp(n,BAD_CAST "service",BAD_CAST "WPS");
	774	xmlNewProp(n,BAD_CAST "version",BAD_CAST "1.0.0");
[34]	775	addLangAttr(n,m);
[1]	776
	777	xmlDocSetRootElement(doc, n);
	778
	779	return n;
	780	}
	781
[9]	782	void printDescribeProcessForProcess(maps* m,xmlNodePtr nc,service* serv,int sc){
[1]	783	xmlNsPtr ns,ns_ows,ns_xlink,ns_xsi;
	784	xmlNodePtr nr,n,nc1,nc2,nc3,nc4,nc5,nc6,pseudor;
	785
	786	char tmp[256];
	787	n=nc;
	788
[9]	789	int wpsId=zooXmlAddNs(NULL,"http://schemas.opengis.net/wps/1.0.0","wps");
	790	ns=usedNs[wpsId];
	791	int owsId=zooXmlAddNs(NULL,"http://www.opengis.net/ows/1.1","ows");
	792	ns_ows=usedNs[owsId];
	793	int xlinkId=zooXmlAddNs(NULL,"http://www.w3.org/1999/xlink","xlink");
	794	ns_xlink=usedNs[xlinkId];
[1]	795
	796	nc = xmlNewNode(NULL, BAD_CAST "ProcessDescription");
	797	char *tmp4[3];
	798	tmp4[0]="processVersion";
	799	tmp4[1]="storeSupported";
	800	tmp4[2]="statusSupported";
	801	int j=0;
	802	map* tmp1=NULL;
	803	for(j=0;j<3;j++){
[9]	804	tmp1=getMap(serv->content,tmp4[j]);
[1]	805	if(tmp1!=NULL){
	806	if(j==0)
[9]	807	xmlNewNsProp(nc,ns,BAD_CAST "processVersion",BAD_CAST tmp1->value);
[1]	808	else
	809	xmlNewProp(nc,BAD_CAST tmp4[j],BAD_CAST tmp1->value);
	810	}
	811	else{
	812	if(j>0)
	813	xmlNewProp(nc,BAD_CAST tmp4[j],BAD_CAST "false");
	814	}
	815	}
	816
[9]	817	printDescription(nc,ns_ows,serv->name,serv->content);
[1]	818
[9]	819	tmp1=serv->metadata;
[1]	820	while(tmp1!=NULL){
	821	nc1 = xmlNewNode(ns_ows, BAD_CAST "Metadata");
[9]	822	xmlNewNsProp(nc1,ns_xlink,BAD_CAST tmp1->name,BAD_CAST tmp1->value);
[1]	823	xmlAddChild(nc,nc1);
	824	tmp1=tmp1->next;
	825	}
	826
[9]	827	tmp1=getMap(serv->content,"Profile");
[1]	828	if(tmp1!=NULL){
	829	nc1 = xmlNewNode(ns, BAD_CAST "Profile");
	830	xmlAddChild(nc1,xmlNewText(BAD_CAST tmp1->value));
	831	xmlAddChild(nc,nc1);
	832	}
	833
	834	nc1 = xmlNewNode(NULL, BAD_CAST "DataInputs");
[9]	835	elements* e=serv->inputs;
[76]	836	printFullDescription(e,"Input",ns_ows,nc1);
	837	xmlAddChild(nc,nc1);
[1]	838
[76]	839	nc1 = xmlNewNode(NULL, BAD_CAST "ProcessOutputs");
	840	e=serv->outputs;
	841	printFullDescription(e,"Output",ns_ows,nc1);
	842	xmlAddChild(nc,nc1);
[1]	843
[76]	844	xmlAddChild(n,nc);
[1]	845
[76]	846	}
[1]	847
[217]	848	void printFullDescription(elements elem,const char type,xmlNsPtr ns_ows,xmlNodePtr nc1){
[76]	849	char *orderedFields[7];
	850	orderedFields[0]="mimeType";
	851	orderedFields[1]="encoding";
	852	orderedFields[2]="schema";
	853	orderedFields[3]="dataType";
	854	orderedFields[4]="uom";
	855	orderedFields[5]="CRS";
	856	orderedFields[6]="value";
	857
	858	xmlNodePtr nc2,nc3,nc4,nc5,nc6,nc7;
	859	elements* e=elem;
	860	map* tmp1=NULL;
[1]	861	while(e!=NULL){
[76]	862	int default1=0;
	863	int isAnyValue=1;
	864	nc2 = xmlNewNode(NULL, BAD_CAST type);
[1]	865	tmp1=getMap(e->content,"minOccurs");
	866	if(tmp1){
	867	xmlNewProp(nc2,BAD_CAST tmp1->name,BAD_CAST tmp1->value);
	868	}
	869	tmp1=getMap(e->content,"maxOccurs");
	870	if(tmp1){
	871	xmlNewProp(nc2,BAD_CAST tmp1->name,BAD_CAST tmp1->value);
	872	}
	873
	874	printDescription(nc2,ns_ows,e->name,e->content);
	875
[76]	876	if(strncmp(type,"Output",6)==0){
	877	if(strncasecmp(e->format,"LITERALDATA",strlen(e->format))==0)
	878	nc3 = xmlNewNode(NULL, BAD_CAST "LiteralOutput");
	879	else if(strncasecmp(e->format,"COMPLEXDATA",strlen(e->format))==0)
[1]	880	nc3 = xmlNewNode(NULL, BAD_CAST "ComplexOutput");
[76]	881	else if(strncasecmp(e->format,"BOUNDINGBOXDATA",strlen(e->format))==0)
	882	nc3 = xmlNewNode(NULL, BAD_CAST "BoundingBoxOutput");
[1]	883	else
	884	nc3 = xmlNewNode(NULL, BAD_CAST e->format);
[76]	885	}else{
[79]	886	if(strncasecmp(e->format,"LITERALDATA",strlen(e->format))==0){
[76]	887	nc3 = xmlNewNode(NULL, BAD_CAST "LiteralData");
[79]	888	}
[76]	889	else if(strncasecmp(e->format,"COMPLEXDATA",strlen(e->format))==0)
	890	nc3 = xmlNewNode(NULL, BAD_CAST "ComplexData");
	891	else if(strncasecmp(e->format,"BOUNDINGBOXDATA",strlen(e->format))==0)
	892	nc3 = xmlNewNode(NULL, BAD_CAST "BoundingBoxData");
	893	else
	894	nc3 = xmlNewNode(NULL, BAD_CAST e->format);
	895	}
[1]	896	iotype* _tmp=e->defaults;
	897	int datatype=0;
[79]	898	bool hasDefault=false;
	899	bool hasUOM=false;
[1]	900	if(_tmp!=NULL){
[79]	901	if(strcmp(e->format,"LiteralOutput")==0 \|\|
	902	strcmp(e->format,"LiteralData")==0){
[1]	903	datatype=1;
	904	nc4 = xmlNewNode(NULL, BAD_CAST "UOMs");
	905	nc5 = xmlNewNode(NULL, BAD_CAST "Default");
[79]	906	}
	907	else if(strcmp(e->format,"BoundingBoxOutput")==0 \|\|
	908	strcmp(e->format,"BoundingBoxData")==0){
	909	datatype=2;
	910	//nc4 = xmlNewNode(NULL, BAD_CAST "BoundingBoxOutput");
	911	nc5 = xmlNewNode(NULL, BAD_CAST "Default");
	912	}
	913	else{
	914	nc4 = xmlNewNode(NULL, BAD_CAST "Default");
	915	nc5 = xmlNewNode(NULL, BAD_CAST "Format");
	916	}
	917
	918	tmp1=_tmp->content;
	919	int avcnt=0;
	920	int dcnt=0;
	921	int oI=0;
	922	for(oI=0;oI<7;oI++)
	923	if((tmp1=getMap(_tmp->content,orderedFields[oI]))!=NULL){
	924	//while(tmp1!=NULL){
[1]	925	#ifdef DEBUG
[79]	926	printf("DATATYPE DEFAULT ? %s\n",tmp1->name);
[1]	927	#endif
[79]	928	if(strncasecmp(tmp1->name,"DataType",8)==0){
	929	nc6 = xmlNewNode(ns_ows, BAD_CAST "DataType");
	930	xmlAddChild(nc6,xmlNewText(BAD_CAST tmp1->value));
	931	char tmp[1024];
	932	sprintf(tmp,"http://www.w3.org/TR/xmlschema-2/#%s",tmp1->value);
	933	xmlNewNsProp(nc6,ns_ows,BAD_CAST "reference",BAD_CAST tmp);
	934	xmlAddChild(nc3,nc6);
	935	tmp1=tmp1->next;
	936	datatype=1;
	937	continue;
	938	}
	939	if(strcmp(tmp1->name,"asReference")!=0 &&
	940	strncasecmp(tmp1->name,"DataType",8)!=0 &&
	941	strcasecmp(tmp1->name,"extension")!=0 &&
	942	strcasecmp(tmp1->name,"value")!=0 &&
	943	strncasecmp(tmp1->name,"AllowedValues",13)!=0){
	944	if(datatype!=1){
	945	char *tmp2=zCapitalize1(tmp1->name);
	946	nc6 = xmlNewNode(NULL, BAD_CAST tmp2);
	947	free(tmp2);
	948	}
	949	else{
	950	char *tmp2=zCapitalize(tmp1->name);
	951	nc6 = xmlNewNode(ns_ows, BAD_CAST tmp2);
	952	free(tmp2);
	953	}
	954	xmlAddChild(nc6,xmlNewText(BAD_CAST tmp1->value));
	955	xmlAddChild(nc5,nc6);
	956	hasUOM=true;
	957	}else
	958	if(strncmp(type,"Input",5)==0){
	959	if(strcmp(tmp1->name,"value")==0){
	960	nc7 = xmlNewNode(NULL, BAD_CAST "DefaultValue");
	961	xmlAddChild(nc7,xmlNewText(BAD_CAST tmp1->value));
	962	default1=1;
	963	}
	964	if(strncasecmp(tmp1->name,"AllowedValues",13)==0){
	965	nc6 = xmlNewNode(ns_ows, BAD_CAST "AllowedValues");
	966	fprintf(stderr,"ALLOWED VALUE %s\n",tmp1->value);
	967	char token,saveptr1;
	968	token=strtok_r(tmp1->value,",",&saveptr1);
	969	while(token!=NULL){
	970	nc7 = xmlNewNode(ns_ows, BAD_CAST "Value");
	971	char *tmps=strdup(token);
	972	tmps[strlen(tmps)]=0;
	973	xmlAddChild(nc7,xmlNewText(BAD_CAST tmps));
	974	fprintf(stderr,"strgin : %s\n",tmps);
	975	xmlAddChild(nc6,nc7);
	976	token=strtok_r(NULL,",",&saveptr1);
	977	}
	978	xmlAddChild(nc3,nc6);
	979	isAnyValue=-1;
	980	}
	981	hasDefault=true;
	982	}
	983	tmp1=tmp1->next;
	984	if(datatype!=2){
	985	if(hasUOM==true){
	986	xmlAddChild(nc4,nc5);
	987	xmlAddChild(nc3,nc4);
	988	}
	989	}else{
	990	xmlAddChild(nc3,nc5);
	991	}
[76]	992
[79]	993	if(strncmp(type,"Input",5)==0){
	994	if(datatype==1 && isAnyValue==1 && avcnt==0){
	995	xmlAddChild(nc3,xmlNewNode(ns_ows, BAD_CAST "AnyValue"));
	996	hasDefault=true;
	997	avcnt++;
	998	}
	999	if(datatype==1 && default1>0){
	1000	xmlAddChild(nc3,nc7);
	1001	}
	1002	}
[1]	1003	}
	1004	}
	1005	_tmp=e->supported;
[71]	1006	int hasSupported=-1;
[1]	1007	while(_tmp!=NULL){
[71]	1008	if(hasSupported<0){
	1009	if(datatype==0){
	1010	nc4 = xmlNewNode(NULL, BAD_CAST "Supported");
	1011	nc5 = xmlNewNode(NULL, BAD_CAST "Format");
	1012	}
	1013	else
	1014	nc5 = xmlNewNode(NULL, BAD_CAST "Supported");
	1015	hasSupported=0;
	1016	}else
[76]	1017	if(datatype==0)
	1018	nc5 = xmlNewNode(NULL, BAD_CAST "Format");
[1]	1019	tmp1=_tmp->content;
[71]	1020	int oI=0;
[76]	1021	for(oI=0;oI<6;oI++)
[71]	1022	if((tmp1=getMap(_tmp->content,orderedFields[oI]))!=NULL){
[1]	1023	#ifdef DEBUG
[71]	1024	printf("DATATYPE SUPPORTED ? %s\n",tmp1->name);
[1]	1025	#endif
[71]	1026	if(strcmp(tmp1->name,"asReference")!=0 &&
	1027	strcmp(tmp1->name,"DataType")!=0 &&
	1028	strcasecmp(tmp1->name,"extension")!=0){
[76]	1029	if(datatype!=1){
[71]	1030	char *tmp2=zCapitalize1(tmp1->name);
	1031	nc6 = xmlNewNode(NULL, BAD_CAST tmp2);
	1032	free(tmp2);
	1033	}
	1034	else{
	1035	char *tmp2=zCapitalize(tmp1->name);
	1036	nc6 = xmlNewNode(ns_ows, BAD_CAST tmp2);
	1037	free(tmp2);
	1038	}
[76]	1039	if(datatype==2){
	1040	char tmpv,tmps;
	1041	tmps=strtok_r(tmp1->value,",",&tmpv);
	1042	while(tmps){
	1043	xmlAddChild(nc6,xmlNewText(BAD_CAST tmps));
	1044	xmlAddChild(nc5,nc6);
	1045	tmps=strtok_r(NULL,",",&tmpv);
	1046	if(tmps){
	1047	char *tmp2=zCapitalize1(tmp1->name);
	1048	nc6 = xmlNewNode(NULL, BAD_CAST tmp2);
	1049	free(tmp2);
	1050	}
	1051	}
	1052	}
	1053	else{
	1054	xmlAddChild(nc6,xmlNewText(BAD_CAST tmp1->value));
	1055	xmlAddChild(nc5,nc6);
	1056	}
[9]	1057	}
[71]	1058	tmp1=tmp1->next;
[1]	1059	}
[71]	1060	if(hasSupported<=0){
[76]	1061	if(datatype!=2){
[71]	1062	xmlAddChild(nc4,nc5);
	1063	xmlAddChild(nc3,nc4);
	1064	}else
[76]	1065	xmlAddChild(nc3,nc5);
[71]	1066	hasSupported=1;
[1]	1067	}
[71]	1068	else
[76]	1069	if(datatype!=2){
	1070	xmlAddChild(nc4,nc5);
	1071	}
	1072	else
	1073	xmlAddChild(nc3,nc5);
	1074	_tmp=_tmp->next;
[1]	1075	}
	1076	xmlAddChild(nc2,nc3);
	1077
[79]	1078	if(datatype!=2 && hasUOM==true){
[76]	1079	xmlAddChild(nc3,nc4);
	1080	xmlAddChild(nc2,nc3);
[79]	1081	}else if(datatype!=2){
[84]	1082	if(hasDefault!=true && strncmp(type,"Input",5)==0)
[79]	1083	xmlAddChild(nc3,xmlNewNode(ns_ows, BAD_CAST "AnyValue"));
	1084	xmlFreeNodeList(nc5);
	1085	xmlFreeNodeList(nc4);
[76]	1086	}
[1]	1087
	1088	xmlAddChild(nc1,nc2);
	1089
	1090	e=e->next;
	1091	}
	1092	}
	1093
[217]	1094	void printProcessResponse(maps* m,map* request, int pid,service* serv,const char* service,int status,maps* inputs,maps* outputs){
[9]	1095	xmlNsPtr ns,ns_ows,ns_xlink,ns_xsi;
	1096	xmlNodePtr nr,n,nc,nc1,nc2,nc3,pseudor;
	1097	xmlDocPtr doc;
[1]	1098	xmlChar *xmlbuff;
	1099	int buffersize;
[9]	1100	time_t time1;
	1101	time(&time1);
	1102	/**
	1103	* Create the document and its temporary root.
	1104	*/
	1105	doc = xmlNewDoc(BAD_CAST "1.0");
	1106	int wpsId=zooXmlAddNs(NULL,"http://www.opengis.net/wps/1.0.0","wps");
	1107	ns=usedNs[wpsId];
	1108
	1109	n = xmlNewNode(ns, BAD_CAST "ExecuteResponse");
	1110	int owsId=zooXmlAddNs(n,"http://www.opengis.net/ows/1.1","ows");
	1111	ns_ows=usedNs[owsId];
	1112	int xlinkId=zooXmlAddNs(n,"http://www.w3.org/1999/xlink","xlink");
	1113	ns_xlink=usedNs[xlinkId];
	1114	int xsiId=zooXmlAddNs(n,"http://www.w3.org/2001/XMLSchema-instance","xsi");
	1115	ns_xsi=usedNs[xsiId];
	1116	xmlNewNs(n,BAD_CAST "http://www.opengis.net/wps/1.0.0",BAD_CAST "wps");
	1117
	1118	xmlNewNsProp(n,ns_xsi,BAD_CAST "schemaLocation",BAD_CAST "http://www.opengis.net/wps/1.0.0 http://schemas.opengis.net/wps/1.0.0/wpsExecute_response.xsd");
	1119
	1120	xmlNewProp(n,BAD_CAST "service",BAD_CAST "WPS");
	1121	xmlNewProp(n,BAD_CAST "version",BAD_CAST "1.0.0");
[34]	1122	addLangAttr(n,m);
	1123
[9]	1124	char tmp[256];
[26]	1125	char url[1024];
[72]	1126	char stored_path[1024];
[9]	1127	memset(tmp,0,256);
[72]	1128	memset(url,0,1024);
	1129	memset(stored_path,0,1024);
[9]	1130	maps* tmp_maps=getMaps(m,"main");
	1131	if(tmp_maps!=NULL){
[26]	1132	map* tmpm1=getMap(tmp_maps->content,"serverAddress");
	1133	/**
	1134	* Check if the ZOO Service GetStatus is available in the local directory.
	1135	* If yes, then it uses a reference to an URL which the client can access
	1136	* to get information on the status of a running Service (using the
	1137	* percentCompleted attribute).
	1138	* Else fallback to the initial method using the xml file to write in ...
	1139	*/
	1140	char ntmp[1024];
	1141	#ifndef WIN32
	1142	getcwd(ntmp,1024);
	1143	#else
	1144	_getcwd(ntmp,1024);
	1145	#endif
	1146	struct stat myFileInfo;
	1147	int statRes;
	1148	char file_path[1024];
	1149	sprintf(file_path,"%s/GetStatus.zcfg",ntmp);
	1150	statRes=stat(file_path,&myFileInfo);
	1151	if(statRes==0){
	1152	char currentSid[128];
	1153	map* tmpm=getMap(tmp_maps->content,"rewriteUrl");
	1154	map *tmp_lenv=NULL;
	1155	tmp_lenv=getMapFromMaps(m,"lenv","sid");
	1156	if(tmp_lenv==NULL)
	1157	sprintf(currentSid,"%i",pid);
	1158	else
	1159	sprintf(currentSid,"%s",tmp_lenv->value);
	1160	if(tmpm==NULL \|\| strcasecmp(tmpm->value,"false")==0){
[41]	1161	sprintf(url,"%s/?request=Execute&service=WPS&version=1.0.0&Identifier=GetStatus&DataInputs=sid=%s&RawDataOutput=Result",tmpm1->value,currentSid);
[26]	1162	}else{
	1163	if(strlen(tmpm->value)>0)
	1164	if(strcasecmp(tmpm->value,"true")!=0)
	1165	sprintf(url,"%s/%s/GetStatus/%s",tmpm1->value,tmpm->value,currentSid);
	1166	else
	1167	sprintf(url,"%s/GetStatus/%s",tmpm1->value,currentSid);
	1168	else
[41]	1169	sprintf(url,"%s/?request=Execute&service=WPS&version=1.0.0&Identifier=GetStatus&DataInputs=sid=%s&RawDataOutput=Result",tmpm1->value,currentSid);
[26]	1170	}
	1171	}else{
	1172	map* tmpm2=getMap(tmp_maps->content,"tmpUrl");
	1173	if(tmpm1!=NULL && tmpm2!=NULL){
	1174	sprintf(url,"%s/%s/%s_%i.xml",tmpm1->value,tmpm2->value,service,pid);
	1175	}
[9]	1176	}
[26]	1177	if(tmpm1!=NULL)
	1178	sprintf(tmp,"%s/",tmpm1->value);
[72]	1179	tmpm1=getMapFromMaps(m,"main","TmpPath");
	1180	sprintf(stored_path,"%s/%s_%i.xml",tmpm1->value,service,pid);
[9]	1181	}
	1182
[72]	1183
	1184
[9]	1185	xmlNewProp(n,BAD_CAST "serviceInstance",BAD_CAST tmp);
[72]	1186	map* test=getMap(request,"storeExecuteResponse");
	1187	bool hasStoredExecuteResponse=false;
	1188	if(test!=NULL && strcasecmp(test->value,"true")==0){
[9]	1189	xmlNewProp(n,BAD_CAST "statusLocation",BAD_CAST url);
[72]	1190	hasStoredExecuteResponse=true;
[9]	1191	}
	1192
	1193	nc = xmlNewNode(ns, BAD_CAST "Process");
	1194	map* tmp2=getMap(serv->content,"processVersion");
	1195
	1196	if(tmp2!=NULL)
	1197	xmlNewNsProp(nc,ns,BAD_CAST "processVersion",BAD_CAST tmp2->value);
	1198
	1199	printDescription(nc,ns_ows,serv->name,serv->content);
	1200	fflush(stderr);
	1201
	1202	xmlAddChild(n,nc);
	1203
	1204	nc = xmlNewNode(ns, BAD_CAST "Status");
	1205	const struct tm *tm;
	1206	size_t len;
	1207	time_t now;
	1208	char *tmp1;
[26]	1209	map *tmpStatus;
[9]	1210
	1211	now = time ( NULL );
	1212	tm = localtime ( &now );
	1213
	1214	tmp1 = (char)malloc((TIME_SIZE+1)sizeof(char));
	1215
	1216	len = strftime ( tmp1, TIME_SIZE, "%Y-%m-%dT%I:%M:%SZ", tm );
	1217
[26]	1218	xmlNewProp(nc,BAD_CAST "creationTime",BAD_CAST tmp1);
	1219
	1220	char sMsg[2048];
[9]	1221	switch(status){
	1222	case SERVICE_SUCCEEDED:
	1223	nc1 = xmlNewNode(ns, BAD_CAST "ProcessSucceeded");
[34]	1224	sprintf(sMsg,_("Service \"%s\" run successfully."),serv->name);
[26]	1225	nc3=xmlNewText(BAD_CAST sMsg);
	1226	xmlAddChild(nc1,nc3);
[9]	1227	break;
	1228	case SERVICE_STARTED:
	1229	nc1 = xmlNewNode(ns, BAD_CAST "ProcessStarted");
[26]	1230	tmpStatus=getMapFromMaps(m,"lenv","status");
	1231	xmlNewProp(nc1,BAD_CAST "percentCompleted",BAD_CAST tmpStatus->value);
[34]	1232	sprintf(sMsg,_("ZOO Service \"%s\" is currently running. Please, reload this document to get the up-to-date status of the Service."),serv->name);
[26]	1233	nc3=xmlNewText(BAD_CAST sMsg);
	1234	xmlAddChild(nc1,nc3);
[9]	1235	break;
	1236	case SERVICE_ACCEPTED:
	1237	nc1 = xmlNewNode(ns, BAD_CAST "ProcessAccepted");
[34]	1238	sprintf(sMsg,_("Service \"%s\" was accepted by the ZOO Kernel and it run as a background task. Please consult the statusLocation attribtue providen in this document to get the up-to-date document."),serv->name);
[26]	1239	nc3=xmlNewText(BAD_CAST sMsg);
	1240	xmlAddChild(nc1,nc3);
[9]	1241	break;
	1242	case SERVICE_FAILED:
	1243	nc1 = xmlNewNode(ns, BAD_CAST "ProcessFailed");
[26]	1244	map *errorMap;
	1245	map *te;
	1246	te=getMapFromMaps(m,"lenv","code");
	1247	if(te!=NULL)
	1248	errorMap=createMap("code",te->value);
	1249	else
	1250	errorMap=createMap("code","NoApplicableCode");
	1251	te=getMapFromMaps(m,"lenv","message");
	1252	if(te!=NULL)
[57]	1253	addToMap(errorMap,"text",_ss(te->value));
[26]	1254	else
[34]	1255	addToMap(errorMap,"text",_("No more information available"));
[26]	1256	nc3=createExceptionReportNode(m,errorMap,0);
[59]	1257	freeMap(&errorMap);
	1258	free(errorMap);
[26]	1259	xmlAddChild(nc1,nc3);
[9]	1260	break;
	1261	default :
[34]	1262	printf(_("error code not know : %i\n"),status);
[26]	1263	//exit(1);
[9]	1264	break;
	1265	}
	1266	xmlAddChild(nc,nc1);
	1267	xmlAddChild(n,nc);
	1268	free(tmp1);
	1269
	1270	#ifdef DEBUG
	1271	fprintf(stderr,"printProcessResponse 1 161\n");
	1272	#endif
	1273
	1274	map* lineage=getMap(request,"lineage");
[87]	1275	if(lineage!=NULL && strcasecmp(lineage->value,"true")==0){
[9]	1276	nc = xmlNewNode(ns, BAD_CAST "DataInputs");
	1277	int i;
	1278	maps* mcursor=inputs;
[65]	1279	elements* scursor=NULL;
[9]	1280	while(mcursor!=NULL /&& scursor!=NULL/){
[65]	1281	scursor=getElements(serv->inputs,mcursor->name);
[76]	1282	printIOType(doc,nc,ns,ns_ows,ns_xlink,scursor,mcursor,"Input");
[9]	1283	mcursor=mcursor->next;
	1284	}
	1285	xmlAddChild(n,nc);
	1286
	1287	#ifdef DEBUG
	1288	fprintf(stderr,"printProcessResponse 1 177\n");
	1289	#endif
	1290
	1291	nc = xmlNewNode(ns, BAD_CAST "OutputDefinitions");
	1292	mcursor=outputs;
[65]	1293	scursor=NULL;
	1294	while(mcursor!=NULL){
	1295	scursor=getElements(serv->outputs,mcursor->name);
[9]	1296	printOutputDefinitions1(doc,nc,ns,ns_ows,scursor,mcursor,"Output");
	1297	mcursor=mcursor->next;
	1298	}
	1299	xmlAddChild(n,nc);
	1300	}
	1301	#ifdef DEBUG
	1302	fprintf(stderr,"printProcessResponse 1 190\n");
	1303	#endif
	1304
	1305	/**
	1306	* Display the process output only when requested !
	1307	*/
	1308	if(status==SERVICE_SUCCEEDED){
	1309	nc = xmlNewNode(ns, BAD_CAST "ProcessOutputs");
	1310	maps* mcursor=outputs;
	1311	elements* scursor=serv->outputs;
[63]	1312	while(mcursor!=NULL){
[65]	1313	scursor=getElements(serv->outputs,mcursor->name);
[76]	1314	printIOType(doc,nc,ns,ns_ows,ns_xlink,scursor,mcursor,"Output");
[9]	1315	mcursor=mcursor->next;
	1316	}
	1317	xmlAddChild(n,nc);
	1318	}
	1319	#ifdef DEBUG
	1320	fprintf(stderr,"printProcessResponse 1 202\n");
	1321	#endif
	1322	xmlDocSetRootElement(doc, n);
[76]	1323	if(hasStoredExecuteResponse==true){
[72]	1324	/* We need to write the ExecuteResponse Document somewhere */
	1325	FILE* output=fopen(stored_path,"w");
	1326	xmlChar *xmlbuff;
	1327	int buffersize;
	1328	xmlDocDumpFormatMemoryEnc(doc, &xmlbuff, &buffersize, "UTF-8", 1);
[217]	1329	fwrite(xmlbuff,1,xmlStrlen(xmlbuff)*sizeof(char),output);
[72]	1330	xmlFree(xmlbuff);
	1331	fclose(output);
	1332	}
[9]	1333	printDocument(m,doc,pid);
	1334
	1335	xmlCleanupParser();
	1336	zooXmlCleanupNs();
	1337	}
	1338
	1339
	1340	void printDocument(maps* m, xmlDocPtr doc,int pid){
	1341	char *encoding=getEncoding(m);
	1342	if(pid==getpid()){
	1343	printf("Content-Type: text/xml; charset=%s\r\nStatus: 200 OK\r\n\r\n",encoding);
	1344	}
	1345	fflush(stdout);
	1346	xmlChar *xmlbuff;
	1347	int buffersize;
[1]	1348	/*
[9]	1349	* Dump the document to a buffer and print it on stdout
[1]	1350	* for demonstration purposes.
	1351	*/
[9]	1352	xmlDocDumpFormatMemoryEnc(doc, &xmlbuff, &buffersize, encoding, 1);
[217]	1353	printf("%s",xmlbuff);
	1354	fflush(stdout);
[1]	1355	/*
	1356	* Free associated memory.
	1357	*/
	1358	xmlFree(xmlbuff);
[9]	1359	xmlFreeDoc(doc);
	1360	xmlCleanupParser();
	1361	zooXmlCleanupNs();
[1]	1362	}
	1363
[217]	1364	void printOutputDefinitions1(xmlDocPtr doc,xmlNodePtr nc,xmlNsPtr ns_wps,xmlNsPtr ns_ows,elements* e,maps* m,const char* type){
[1]	1365	xmlNodePtr nc1;
	1366	nc1=xmlNewNode(ns_wps, BAD_CAST type);
	1367	map *tmp=NULL;
	1368	if(e!=NULL && e->defaults!=NULL)
	1369	tmp=e->defaults->content;
	1370	else{
	1371	/*
	1372	dumpElements(e);
	1373	*/
	1374	return;
	1375	}
	1376	while(tmp!=NULL){
[9]	1377	if(strncasecmp(tmp->name,"MIMETYPE",strlen(tmp->name))==0
	1378	\|\| strncasecmp(tmp->name,"ENCODING",strlen(tmp->name))==0
	1379	\|\| strncasecmp(tmp->name,"SCHEMA",strlen(tmp->name))==0
	1380	\|\| strncasecmp(tmp->name,"UOM",strlen(tmp->name))==0)
[1]	1381	xmlNewProp(nc1,BAD_CAST tmp->name,BAD_CAST tmp->value);
	1382	tmp=tmp->next;
	1383	}
	1384	tmp=getMap(e->defaults->content,"asReference");
	1385	if(tmp==NULL)
	1386	xmlNewProp(nc1,BAD_CAST "asReference",BAD_CAST "false");
	1387
	1388	tmp=e->content;
	1389
	1390	printDescription(nc1,ns_ows,m->name,e->content);
	1391
	1392	xmlAddChild(nc,nc1);
	1393
	1394	}
	1395
[217]	1396	void printOutputDefinitions(xmlDocPtr doc,xmlNodePtr nc,xmlNsPtr ns_wps,xmlNsPtr ns_ows,elements* e,map* m,const char* type){
[1]	1397	xmlNodePtr nc1,nc2,nc3;
	1398	nc1=xmlNewNode(ns_wps, BAD_CAST type);
	1399	map *tmp=NULL;
	1400	if(e!=NULL && e->defaults!=NULL)
	1401	tmp=e->defaults->content;
	1402	else{
	1403	/*
	1404	dumpElements(e);
	1405	*/
	1406	return;
	1407	}
	1408	while(tmp!=NULL){
	1409	xmlNewProp(nc1,BAD_CAST tmp->name,BAD_CAST tmp->value);
	1410	tmp=tmp->next;
	1411	}
	1412	tmp=getMap(e->defaults->content,"asReference");
	1413	if(tmp==NULL)
	1414	xmlNewProp(nc1,BAD_CAST "asReference",BAD_CAST "false");
	1415
	1416	tmp=e->content;
	1417
	1418	printDescription(nc1,ns_ows,m->name,e->content);
	1419
	1420	xmlAddChild(nc,nc1);
	1421
	1422	}
	1423
[217]	1424	void printIOType(xmlDocPtr doc,xmlNodePtr nc,xmlNsPtr ns_wps,xmlNsPtr ns_ows,xmlNsPtr ns_xlink,elements* e,maps* m,const char* type){
[1]	1425	xmlNodePtr nc1,nc2,nc3;
	1426	nc1=xmlNewNode(ns_wps, BAD_CAST type);
[65]	1427	map *tmp=NULL;
	1428	if(e!=NULL)
	1429	tmp=e->content;
	1430	else
	1431	tmp=m->content;
[26]	1432	#ifdef DEBUG
[1]	1433	dumpMap(tmp);
	1434	dumpElements(e);
[26]	1435	#endif
[1]	1436	nc2=xmlNewNode(ns_ows, BAD_CAST "Identifier");
[65]	1437	if(e!=NULL)
	1438	nc3=xmlNewText(BAD_CAST e->name);
	1439	else
	1440	nc3=xmlNewText(BAD_CAST m->name);
[9]	1441	xmlAddChild(nc2,nc3);
[1]	1442	xmlAddChild(nc1,nc2);
	1443	xmlAddChild(nc,nc1);
[9]	1444	// Extract Title required to be first element in the ZCFG file !
[65]	1445	bool isTitle=true;
	1446	if(e!=NULL)
	1447	tmp=getMap(e->content,"Title");
	1448	else
	1449	tmp=getMap(m->content,"Title");
	1450
	1451	if(tmp!=NULL){
[43]	1452	nc2=xmlNewNode(ns_ows, BAD_CAST tmp->name);
	1453	nc3=xmlNewText(BAD_CAST _ss(tmp->value));
	1454	xmlAddChild(nc2,nc3);
	1455	xmlAddChild(nc1,nc2);
[65]	1456	}
	1457
	1458	if(e!=NULL)
	1459	tmp=getMap(e->content,"Abstract");
	1460	else
	1461	tmp=getMap(m->content,"Abstract");
	1462	if(tmp!=NULL){
	1463	nc2=xmlNewNode(ns_ows, BAD_CAST tmp->name);
	1464	nc3=xmlNewText(BAD_CAST _ss(tmp->value));
	1465	xmlAddChild(nc2,nc3);
	1466	xmlAddChild(nc1,nc2);
[43]	1467	xmlAddChild(nc,nc1);
	1468	}
[1]	1469
	1470	/**
	1471	* IO type Reference or full Data ?
	1472	*/
[26]	1473	#ifdef DEBUG
[9]	1474	fprintf(stderr,"FORMAT %s %s\n",e->format,e->format);
[26]	1475	#endif
[9]	1476	map *tmpMap=getMap(m->content,"Reference");
	1477	if(tmpMap==NULL){
	1478	nc2=xmlNewNode(ns_wps, BAD_CAST "Data");
[65]	1479	if(e!=NULL){
[76]	1480	if(strncasecmp(e->format,"LiteralOutput",strlen(e->format))==0)
[65]	1481	nc3=xmlNewNode(ns_wps, BAD_CAST "LiteralData");
[9]	1482	else
[76]	1483	if(strncasecmp(e->format,"ComplexOutput",strlen(e->format))==0)
[65]	1484	nc3=xmlNewNode(ns_wps, BAD_CAST "ComplexData");
[76]	1485	else if(strncasecmp(e->format,"BoundingBoxOutput",strlen(e->format))==0)
	1486	nc3=xmlNewNode(ns_wps, BAD_CAST "BoundingBoxData");
[65]	1487	else
	1488	nc3=xmlNewNode(ns_wps, BAD_CAST e->format);
	1489	}
	1490	else{
	1491	map* tmpV=getMapFromMaps(m,"format","value");
	1492	if(tmpV!=NULL)
	1493	nc3=xmlNewNode(ns_wps, BAD_CAST tmpV->value);
	1494	else
	1495	nc3=xmlNewNode(ns_wps, BAD_CAST "LitteralData");
[76]	1496	}
[9]	1497	tmp=m->content;
	1498	while(tmp!=NULL){
[70]	1499	if(strcasecmp(tmp->name,"mimeType")==0 \|\|
	1500	strcasecmp(tmp->name,"encoding")==0 \|\|
	1501	strcasecmp(tmp->name,"schema")==0 \|\|
	1502	strcasecmp(tmp->name,"datatype")==0 \|\|
	1503	strcasecmp(tmp->name,"uom")==0)
[9]	1504	xmlNewProp(nc3,BAD_CAST tmp->name,BAD_CAST tmp->value);
	1505	tmp=tmp->next;
	1506	xmlAddChild(nc2,nc3);
[1]	1507	}
[76]	1508	if(e!=NULL && e->format!=NULL && strcasecmp(e->format,"BoundingBoxData")==0){
	1509	map* bb=getMap(m->content,"value");
	1510	if(bb!=NULL){
	1511	map* tmpRes=parseBoundingBox(bb->value);
	1512	printBoundingBox(ns_ows,nc3,tmpRes);
	1513	freeMap(&tmpRes);
	1514	free(tmpRes);
[9]	1515	}
[76]	1516	}else{
	1517	if(e!=NULL)
	1518	tmp=getMap(e->defaults->content,"mimeType");
	1519	else
	1520	tmp=NULL;
	1521	map* tmp1=getMap(m->content,"encoding");
	1522	map* tmp2=getMap(m->content,"mimeType");
	1523	map* toto=getMap(m->content,"value");
	1524	if((tmp1!=NULL && strncmp(tmp1->value,"base64",6)==0)
	1525	\|\| (tmp2!=NULL && (strncmp(tmp2->value,"image/",6)==0 \|\|
	1526	(strncmp(tmp2->value,"application/",12)==0) &&
	1527	strncmp(tmp2->value,"application/json",16)!=0))) {
	1528	map* rs=getMap(m->content,"size");
	1529	bool isSized=true;
	1530	if(rs==NULL){
	1531	char tmp1[1024];
	1532	sprintf(tmp1,"%d",strlen(toto->value));
	1533	rs=createMap("z",tmp1);
	1534	isSized=false;
	1535	}
[94]	1536
	1537	xmlAddChild(nc3,xmlNewText(BAD_CAST base64(toto->value, atoi(rs->value))));
[76]	1538	if(!isSized){
	1539	freeMap(&rs);
	1540	free(rs);
	1541	}
[59]	1542	}
[76]	1543	else if(tmp!=NULL){
	1544	if(strncmp(tmp->value,"text/js",4)==0 \|\|
	1545	strncmp(tmp->value,"application/js",14)==0)
	1546	xmlAddChild(nc3,xmlNewCDataBlock(doc,BAD_CAST toto->value,strlen(toto->value)));
	1547	else
	1548	xmlAddChild(nc3,xmlNewText(BAD_CAST toto->value));
	1549	xmlAddChild(nc2,nc3);
	1550	}
[9]	1551	else
	1552	xmlAddChild(nc3,xmlNewText(BAD_CAST toto->value));
	1553	}
[1]	1554	}
[9]	1555	else{
	1556	nc3=nc2=xmlNewNode(ns_wps, BAD_CAST "Reference");
[76]	1557	if(strcasecmp(type,"Output")==0)
	1558	xmlNewProp(nc3,BAD_CAST "href",BAD_CAST tmpMap->value);
	1559	else
	1560	xmlNewNsProp(nc3,ns_xlink,BAD_CAST "href",BAD_CAST tmpMap->value);
[9]	1561	tmp=m->content;
	1562	while(tmp!=NULL){
[70]	1563	if(strcasecmp(tmp->name,"mimeType")==0 \|\|
	1564	strcasecmp(tmp->name,"encoding")==0 \|\|
	1565	strcasecmp(tmp->name,"schema")==0 \|\|
	1566	strcasecmp(tmp->name,"datatype")==0 \|\|
	1567	strcasecmp(tmp->name,"uom")==0)
[9]	1568	xmlNewProp(nc3,BAD_CAST tmp->name,BAD_CAST tmp->value);
	1569	tmp=tmp->next;
	1570	xmlAddChild(nc2,nc3);
	1571	}
[1]	1572	}
	1573
	1574	xmlAddChild(nc1,nc2);
	1575	xmlAddChild(nc,nc1);
	1576
	1577	}
	1578
[217]	1579	void printDescription(xmlNodePtr root,xmlNsPtr ns_ows,const char* identifier,map* amap){
[1]	1580	xmlNodePtr nc2 = xmlNewNode(ns_ows, BAD_CAST "Identifier");
	1581	xmlAddChild(nc2,xmlNewText(BAD_CAST identifier));
	1582	xmlAddChild(root,nc2);
	1583	map* tmp=amap;
	1584	char *tmp2[2];
	1585	tmp2[0]="Title";
	1586	tmp2[1]="Abstract";
	1587	int j=0;
	1588	for(j=0;j<2;j++){
	1589	map* tmp1=getMap(tmp,tmp2[j]);
	1590	if(tmp1!=NULL){
	1591	nc2 = xmlNewNode(ns_ows, BAD_CAST tmp2[j]);
[34]	1592	xmlAddChild(nc2,xmlNewText(BAD_CAST _ss(tmp1->value)));
[1]	1593	xmlAddChild(root,nc2);
	1594	}
	1595	}
	1596	}
	1597
[9]	1598	char* getEncoding(maps* m){
	1599	if(m!=NULL){
	1600	map* tmp=getMap(m->content,"encoding");
[1]	1601	if(tmp!=NULL){
[9]	1602	return tmp->value;
[1]	1603	}
	1604	else
[9]	1605	return "UTF-8";
[1]	1606	}
	1607	else
[9]	1608	return "UTF-8";
	1609	}
[1]	1610
[9]	1611	char* getVersion(maps* m){
	1612	if(m!=NULL){
	1613	map* tmp=getMap(m->content,"version");
[1]	1614	if(tmp!=NULL){
[9]	1615	return tmp->value;
[1]	1616	}
	1617	else
[9]	1618	return "1.0.0";
[1]	1619	}
	1620	else
[9]	1621	return "1.0.0";
	1622	}
[1]	1623
[9]	1624	void printExceptionReportResponse(maps* m,map* s){
	1625	int buffersize;
	1626	xmlDocPtr doc;
	1627	xmlChar *xmlbuff;
[34]	1628	xmlNodePtr n;
[1]	1629
[9]	1630	doc = xmlNewDoc(BAD_CAST "1.0");
	1631	maps* tmpMap=getMaps(m,"main");
	1632	char *encoding=getEncoding(tmpMap);
[32]	1633	if(m!=NULL){
	1634	map *tmpSid=getMapFromMaps(m,"lenv","sid");
	1635	if(tmpSid!=NULL){
	1636	if( getpid()==atoi(tmpSid->value) )
	1637	printf("Content-Type: text/xml; charset=%s\r\nStatus: 200 OK\r\n\r\n",encoding);
	1638	}
	1639	else
	1640	printf("Content-Type: text/xml; charset=%s\r\nStatus: 200 OK\r\n\r\n",encoding);
	1641	}else
[26]	1642	printf("Content-Type: text/xml; charset=%s\r\nStatus: 200 OK\r\n\r\n",encoding);
[34]	1643	n=createExceptionReportNode(m,s,1);
[1]	1644	xmlDocSetRootElement(doc, n);
[9]	1645	xmlDocDumpFormatMemoryEnc(doc, &xmlbuff, &buffersize, encoding, 1);
	1646	printf("%s",xmlbuff);
	1647	fflush(stdout);
	1648	xmlFreeDoc(doc);
[1]	1649	xmlFree(xmlbuff);
[9]	1650	xmlCleanupParser();
[57]	1651	zooXmlCleanupNs();
[1]	1652	}
	1653
[26]	1654	xmlNodePtr createExceptionReportNode(maps* m,map* s,int use_ns){
	1655
	1656	int buffersize;
	1657	xmlChar *xmlbuff;
	1658	xmlNsPtr ns,ns_ows,ns_xlink,ns_xsi;
	1659	xmlNodePtr n,nc,nc1,nc2;
[1]	1660
[26]	1661	maps* tmpMap=getMaps(m,"main");
	1662
[217]	1663	int nsid=zooXmlAddNs(NULL,"http://www.opengis.net/ows/1.1","ows");
[57]	1664	ns=usedNs[nsid];
[26]	1665	n = xmlNewNode(ns, BAD_CAST "ExceptionReport");
	1666
	1667	if(use_ns==1){
	1668	ns_ows=xmlNewNs(n,BAD_CAST "http://www.opengis.net/ows/1.1",BAD_CAST "ows");
	1669	int xsiId=zooXmlAddNs(n,"http://www.w3.org/2001/XMLSchema-instance","xsi");
	1670	ns_xsi=usedNs[xsiId];
	1671	int xlinkId=zooXmlAddNs(n,"http://www.w3.org/1999/xlink","xlink");
	1672	ns_xlink=usedNs[xlinkId];
	1673	xmlNewNsProp(n,ns_xsi,BAD_CAST "schemaLocation",BAD_CAST "http://www.opengis.net/ows/1.1 http://schemas.opengis.net/ows/1.1.0/owsExceptionReport.xsd");
	1674	}
[34]	1675	addLangAttr(n,m);
[26]	1676	xmlNewProp(n,BAD_CAST "version",BAD_CAST "1.1.0");
	1677
	1678	nc = xmlNewNode(ns, BAD_CAST "Exception");
	1679
	1680	map* tmp=getMap(s,"code");
	1681	if(tmp!=NULL)
	1682	xmlNewProp(nc,BAD_CAST "exceptionCode",BAD_CAST tmp->value);
	1683	else
	1684	xmlNewProp(nc,BAD_CAST "exceptionCode",BAD_CAST "NoApplicableCode");
	1685
	1686	tmp=getMap(s,"text");
	1687	nc1 = xmlNewNode(ns, BAD_CAST "ExceptionText");
	1688	nc2=NULL;
	1689	if(tmp!=NULL){
	1690	xmlNodeSetContent(nc1, BAD_CAST tmp->value);
	1691	}
	1692	else{
[34]	1693	xmlNodeSetContent(nc1, BAD_CAST _("No debug message available"));
[26]	1694	}
	1695	xmlAddChild(nc,nc1);
	1696	xmlAddChild(n,nc);
	1697	return n;
	1698	}
	1699
	1700
[1]	1701	void outputResponse(service* s,maps* request_inputs,maps* request_outputs,
	1702	map* request_inputs1,int cpid,maps* m,int res){
	1703	#ifdef DEBUG
	1704	dumpMaps(request_inputs);
	1705	dumpMaps(request_outputs);
	1706	fprintf(stderr,"printProcessResponse\n");
	1707	#endif
	1708	map* toto=getMap(request_inputs1,"RawDataOutput");
	1709	int asRaw=0;
	1710	if(toto!=NULL)
	1711	asRaw=1;
[9]	1712
[92]	1713	map *_tmp=getMapFromMaps(m,"lenv","cookie");
	1714	if(_tmp!=NULL){
	1715	printf("Set-Cookie: %s\r\n",_tmp->value);
	1716	maps *tmpSess=getMaps(m,"senv");
	1717	if(tmpSess!=NULL){
	1718	char session_file_path[1024];
	1719	map *tmpPath=getMapFromMaps(m,"main","sessPath");
	1720	if(tmpPath==NULL)
	1721	tmpPath=getMapFromMaps(m,"main","tmpPath");
	1722	char *tmp1=strtok(_tmp->value,";");
	1723	if(tmp1!=NULL)
	1724	sprintf(session_file_path,"%s/sess_%s.cfg",tmpPath->value,strstr(tmp1,"=")+1);
	1725	else
	1726	sprintf(session_file_path,"%s/sess_%s.cfg",tmpPath->value,strstr(_tmp->value,"=")+1);
[268]	1727	dumpMapsToFile(tmpSess,session_file_path);
[92]	1728	}
	1729	}
[1]	1730	if(asRaw==0){
[9]	1731	#ifdef DEBUG
	1732	fprintf(stderr,"REQUEST_OUTPUTS FINAL\n");
	1733	dumpMaps(request_outputs);
	1734	#endif
[70]	1735	maps* tmpI=request_outputs;
	1736	while(tmpI!=NULL){
	1737	toto=getMap(tmpI->content,"asReference");
	1738	if(toto!=NULL && strcasecmp(toto->value,"true")==0){
[76]	1739	elements* in=getElements(s->outputs,tmpI->name);
	1740	char *format=NULL;
	1741	if(in!=NULL){
	1742	format=strdup(in->format);
	1743	}else
	1744	format=strdup("LiteralData");
	1745	if(strcasecmp(format,"BoundingBoxData")==0){
	1746	addToMap(tmpI->content,"extension","xml");
	1747	addToMap(tmpI->content,"mimeType","text/xml");
	1748	addToMap(tmpI->content,"encoding","UTF-8");
	1749	addToMap(tmpI->content,"schema","http://schemas.opengis.net/ows/1.1.0/owsCommon.xsd");
	1750	}
	1751	map *ext=getMap(tmpI->content,"extension");
[70]	1752	map *tmp1=getMapFromMaps(m,"main","tmpPath");
	1753	char *file_name;
	1754	bool hasExt=true;
[76]	1755	if(ext==NULL){
[70]	1756	// We can fallback to a default list of supported formats using
	1757	// mimeType information if present here. Maybe we can add more formats
	1758	// here.
	1759	// If mimeType was not found, we then set txt as the default extension.
	1760	map* mtype=getMap(tmpI->content,"mimeType");
	1761	if(mtype!=NULL){
	1762	if(strcasecmp(mtype->value,"text/xml")==0)
[76]	1763	ext=createMap("extension","xml");
[70]	1764	else if(strcasecmp(mtype->value,"application/json")==0)
[76]	1765	ext=createMap("extension","js");
[70]	1766	else
[76]	1767	ext=createMap("extension","txt");
[70]	1768	}
[57]	1769	else
[76]	1770	ext=createMap("extension","txt");
[70]	1771	hasExt=false;
[57]	1772	}
[76]	1773	file_name=(char)malloc((strlen(tmp1->value)+strlen(s->name)+strlen(ext->value)+strlen(tmpI->name)+13)sizeof(char));
	1774	sprintf(file_name,"%s/%s_%s_%i.%s",tmp1->value,s->name,tmpI->name,cpid+100000,ext->value);
[70]	1775	FILE *ofile=fopen(file_name,"w");
	1776	if(ofile==NULL)
	1777	fprintf(stderr,"Unable to create file on disk implying segfault ! \n");
	1778	map *tmp2=getMapFromMaps(m,"main","tmpUrl");
	1779	map *tmp3=getMapFromMaps(m,"main","serverAddress");
	1780	char *file_url;
[76]	1781	file_url=(char)malloc((strlen(tmp3->value)+strlen(tmp2->value)+strlen(s->name)+strlen(ext->value)+strlen(tmpI->name)+13)sizeof(char));
	1782	sprintf(file_url,"%s/%s/%s_%s_%i.%s",tmp3->value,tmp2->value,s->name,tmpI->name,cpid+100000,ext->value);
[70]	1783	addToMap(tmpI->content,"Reference",file_url);
	1784	if(hasExt!=true){
[76]	1785	freeMap(&ext);
	1786	free(ext);
[70]	1787	}
	1788	toto=getMap(tmpI->content,"value");
[76]	1789	if(strcasecmp(format,"BoundingBoxData")!=0){
	1790	map* size=getMap(tmpI->content,"size");
	1791	if(size!=NULL && toto!=NULL)
	1792	fwrite(toto->value,1,atoi(size->value)*sizeof(char),ofile);
	1793	else
	1794	if(toto!=NULL && toto->value!=NULL)
	1795	fwrite(toto->value,1,strlen(toto->value)*sizeof(char),ofile);
	1796	}else{
	1797	printBoundingBoxDocument(m,tmpI,ofile);
	1798	}
	1799	free(format);
[70]	1800	fclose(ofile);
	1801	free(file_name);
[76]	1802	free(file_url);
[52]	1803	}
[70]	1804	tmpI=tmpI->next;
[9]	1805	}
[1]	1806	map *r_inputs=getMap(s->content,"serviceProvider");
	1807	#ifdef DEBUG
	1808	fprintf(stderr,"SERVICE : %s\n",r_inputs->value);
	1809	dumpMaps(m);
	1810	#endif
[9]	1811	printProcessResponse(m,request_inputs1,cpid,
[26]	1812	s,r_inputs->value,res,
	1813	request_inputs,
	1814	request_outputs);
[1]	1815	}
[26]	1816	else
	1817	if(res!=SERVICE_FAILED){
	1818	/**
[66]	1819	* We get the requested output or fallback to the first one if the
	1820	* requested one is not present in the resulting outputs maps.
[26]	1821	*/
[66]	1822	maps* tmpI=NULL;
	1823	map* tmpIV=getMap(request_inputs1,"RawDataOutput");
	1824	if(tmpIV!=NULL){
	1825	tmpI=getMaps(request_outputs,tmpIV->value);
	1826	}
	1827	if(tmpI==NULL)
	1828	tmpI=request_outputs;
[76]	1829	elements* e=getElements(s->outputs,tmpI->name);
	1830	if(e!=NULL && strcasecmp(e->format,"BoundingBoxData")==0){
	1831	printBoundingBoxDocument(m,tmpI,NULL);
	1832	}else{
	1833	toto=getMap(tmpI->content,"value");
	1834	if(toto==NULL){
	1835	char tmpMsg[1024];
	1836	sprintf(tmpMsg,_("Wrong RawDataOutput parameter, unable to fetch any result for the name your provided : \"%s\"."),tmpI->name);
	1837	map * errormap = createMap("text",tmpMsg);
	1838	addToMap(errormap,"code", "InvalidParameterValue");
	1839	printExceptionReportResponse(m,errormap);
	1840	freeMap(&errormap);
	1841	free(errormap);
[217]	1842	return;
[76]	1843	}
	1844	char mime[1024];
	1845	map* mi=getMap(tmpI->content,"mimeType");
[1]	1846	#ifdef DEBUG
[76]	1847	fprintf(stderr,"SERVICE OUTPUTS\n");
	1848	dumpMaps(request_outputs);
	1849	fprintf(stderr,"SERVICE OUTPUTS\n");
[1]	1850	#endif
[76]	1851	map* en=getMap(tmpI->content,"encoding");
	1852	if(mi!=NULL && en!=NULL)
[26]	1853	sprintf(mime,
[76]	1854	"Content-Type: %s; charset=%s\r\nStatus: 200 OK\r\n\r\n",
	1855	mi->value,en->value);
[26]	1856	else
[76]	1857	if(mi!=NULL)
	1858	sprintf(mime,
	1859	"Content-Type: %s; charset=UTF-8\r\nStatus: 200 OK\r\n\r\n",
	1860	mi->value);
	1861	else
	1862	sprintf(mime,"Content-Type: text/plain; charset=utf-8\r\nStatus: 200 OK\r\n\r\n");
	1863	printf("%s",mime);
	1864	if(mi!=NULL && strncmp(mi->value,"image",5)==0){
	1865	map* rs=getMapFromMaps(tmpI,tmpI->name,"size");
	1866	fwrite(toto->value,atoi(rs->value),1,stdout);
	1867	}
	1868	else
	1869	printf("%s",toto->value);
[1]	1870	#ifdef DEBUG
[76]	1871	dumpMap(toto);
[1]	1872	#endif
[76]	1873	}
[26]	1874	}else{
	1875	char tmp[1024];
	1876	map * errormap;
	1877	map *lenv;
	1878	lenv=getMapFromMaps(m,"lenv","message");
	1879	if(lenv!=NULL)
[34]	1880	sprintf(tmp,_("Unable to run the Service. The message returned back by the Service was the following : %s"),lenv->value);
[26]	1881	else
[34]	1882	sprintf(tmp,_("Unable to run the Service. No more information was returned back by the Service."));
[26]	1883	errormap = createMap("text",tmp);
	1884	addToMap(errormap,"code", "InternalError");
	1885	printExceptionReportResponse(m,errormap);
	1886	freeMap(&errormap);
	1887	free(errormap);
	1888	}
[1]	1889	}
	1890
[217]	1891	char base64(const char input, int length)
[1]	1892	{
	1893	BIO bmem, b64;
	1894	BUF_MEM *bptr;
	1895
	1896	b64 = BIO_new(BIO_f_base64());
[94]	1897	BIO_set_flags(b64, BIO_FLAGS_BASE64_NO_NL);
[1]	1898	bmem = BIO_new(BIO_s_mem());
	1899	b64 = BIO_push(b64, bmem);
	1900	BIO_write(b64, input, length);
	1901	BIO_flush(b64);
	1902	BIO_get_mem_ptr(b64, &bptr);
	1903
[94]	1904	char buff = (char )malloc((bptr->length)*sizeof(char));
[1]	1905	memcpy(buff, bptr->data, bptr->length-1);
	1906	buff[bptr->length-1] = 0;
	1907
	1908	BIO_free_all(b64);
	1909
	1910	return buff;
	1911	}
	1912
[217]	1913	char base64d(const char input, int length,int* red)
[88]	1914	{
	1915	BIO b64, bmem;
	1916
	1917	char buffer = (char )malloc(length);
[94]	1918	if(buffer){
	1919	memset(buffer, 0, length);
	1920	b64 = BIO_new(BIO_f_base64());
	1921	if(b64){
[217]	1922	bmem = BIO_new_mem_buf((unsigned char*)input,length);
[94]	1923	bmem = BIO_push(b64, bmem);
	1924	*red=BIO_read(bmem, buffer, length);
	1925	buffer[length-1]=0;
	1926	BIO_free_all(bmem);
	1927	}
	1928	}
[88]	1929	return buffer;
	1930	}
	1931
	1932	void ensureDecodedBase64(maps **in){
	1933	maps* cursor=*in;
	1934	while(cursor!=NULL){
	1935	map *tmp=getMap(cursor->content,"encoding");
	1936	if(tmp!=NULL && strncasecmp(tmp->value,"base64",6)==0){
	1937	tmp=getMap(cursor->content,"value");
	1938	addToMap(cursor->content,"base64_value",tmp->value);
[94]	1939	int size=0;
[88]	1940	char *s=strdup(tmp->value);
	1941	free(tmp->value);
	1942	tmp->value=base64d(s,strlen(s),&size);
[94]	1943	free(s);
[88]	1944	char sizes[1024];
	1945	sprintf(sizes,"%d",size);
	1946	addToMap(cursor->content,"size",sizes);
	1947	}
	1948	cursor=cursor->next;
	1949	}
	1950	}
	1951
[63]	1952	char* addDefaultValues(maps** out,elements* in,maps* m,int type){
[1]	1953	elements* tmpInputs=in;
	1954	maps* out1=*out;
	1955	while(tmpInputs!=NULL){
	1956	maps *tmpMaps=getMaps(out1,tmpInputs->name);
	1957	if(tmpMaps==NULL){
[9]	1958	maps* tmpMaps2=(maps*)malloc(MAPS_SIZE);
[57]	1959	tmpMaps2->name=strdup(tmpInputs->name);
[9]	1960	tmpMaps2->content=NULL;
	1961	tmpMaps2->next=NULL;
[63]	1962
	1963	if(type==0){
	1964	map* tmpMapMinO=getMap(tmpInputs->content,"minOccurs");
	1965	if(tmpMapMinO!=NULL)
	1966	if(atoi(tmpMapMinO->value)>=1){
	1967	freeMaps(&tmpMaps2);
	1968	free(tmpMaps2);
	1969	return tmpInputs->name;
	1970	}
	1971	else{
	1972	if(tmpMaps2->content==NULL)
	1973	tmpMaps2->content=createMap("minOccurs",tmpMapMinO->value);
	1974	else
	1975	addToMap(tmpMaps2->content,"minOccurs",tmpMapMinO->value);
	1976	}
	1977	map* tmpMaxO=getMap(tmpInputs->content,"maxOccurs");
	1978	if(tmpMaxO!=NULL)
	1979	if(tmpMaps2->content==NULL)
	1980	tmpMaps2->content=createMap("maxOccurs",tmpMaxO->value);
	1981	else
	1982	addToMap(tmpMaps2->content,"maxOccurs",tmpMaxO->value);
	1983	}
	1984
[1]	1985	iotype* tmpIoType=tmpInputs->defaults;
[63]	1986	if(tmpIoType!=NULL){
	1987	map* tmpm=tmpIoType->content;
	1988	while(tmpm!=NULL){
	1989	if(tmpMaps2->content==NULL)
	1990	tmpMaps2->content=createMap(tmpm->name,tmpm->value);
	1991	else
	1992	addToMap(tmpMaps2->content,tmpm->name,tmpm->value);
	1993	tmpm=tmpm->next;
	1994	}
[1]	1995	}
[88]	1996	addToMap(tmpMaps2->content,"inRequest","false");
[93]	1997	if(type==0){
[57]	1998	map *tmpMap=getMap(tmpMaps2->content,"value");
	1999	if(tmpMap==NULL)
	2000	addToMap(tmpMaps2->content,"value","NULL");
	2001	}
[1]	2002	if(out1==NULL){
[9]	2003	*out=dupMaps(&tmpMaps2);
[63]	2004	out1=*out;
[1]	2005	}
	2006	else
[9]	2007	addMapsToMaps(&out1,tmpMaps2);
[63]	2008	freeMap(&tmpMaps2->content);
	2009	free(tmpMaps2->content);
	2010	tmpMaps2->content=NULL;
[9]	2011	freeMaps(&tmpMaps2);
	2012	free(tmpMaps2);
	2013	tmpMaps2=NULL;
[1]	2014	}
	2015	else{
[57]	2016	iotype* tmpIoType=getIoTypeFromElement(tmpInputs,tmpInputs->name,
	2017	tmpMaps->content);
[63]	2018	if(type==0) {
[76]	2019	/**
	2020	* In case of an Input maps, then add the minOccurs and maxOccurs to the
	2021	* content map.
	2022	*/
[63]	2023	map* tmpMap1=getMap(tmpInputs->content,"minOccurs");
	2024	if(tmpMap1!=NULL){
	2025	if(tmpMaps->content==NULL)
	2026	tmpMaps->content=createMap("minOccurs",tmpMap1->value);
	2027	else
	2028	addToMap(tmpMaps->content,"minOccurs",tmpMap1->value);
	2029	}
	2030	map* tmpMaxO=getMap(tmpInputs->content,"maxOccurs");
	2031	if(tmpMaxO!=NULL){
	2032	if(tmpMaps->content==NULL)
	2033	tmpMaps->content=createMap("maxOccurs",tmpMap1->value);
	2034	else
	2035	addToMap(tmpMaps->content,"maxOccurs",tmpMap1->value);
	2036	}
[76]	2037	/**
	2038	* Parsing BoundingBoxData, fill the following map and then add it to
	2039	* the content map of the Input maps:
	2040	* lowerCorner, upperCorner, srs and dimensions
	2041	* cf. parseBoundingBox
	2042	*/
	2043	if(strcasecmp(tmpInputs->format,"BoundingBoxData")==0){
	2044	maps* tmpI=getMaps(*out,tmpInputs->name);
	2045	if(tmpI!=NULL){
	2046	map* tmpV=getMap(tmpI->content,"value");
	2047	if(tmpV!=NULL){
	2048	char *tmpVS=strdup(tmpV->value);
	2049	map* tmp=parseBoundingBox(tmpVS);
	2050	free(tmpVS);
	2051	map* tmpC=tmp;
	2052	while(tmpC!=NULL){
	2053	addToMap(tmpMaps->content,tmpC->name,tmpC->value);
	2054	tmpC=tmpC->next;
	2055	}
	2056	freeMap(&tmp);
	2057	free(tmp);
	2058	}
	2059	}
	2060	}
[63]	2061	}
	2062
[57]	2063	if(tmpIoType!=NULL){
	2064	map* tmpContent=tmpIoType->content;
	2065	map* cval=NULL;
	2066
	2067	while(tmpContent!=NULL){
	2068	if((cval=getMap(tmpMaps->content,tmpContent->name))==NULL){
[9]	2069	#ifdef DEBUG
[57]	2070	fprintf(stderr,"addDefaultValues %s => %s\n",tmpContent->name,tmpContent->value);
[9]	2071	#endif
[63]	2072	if(tmpMaps->content==NULL)
	2073	tmpMaps->content=createMap(tmpContent->name,tmpContent->value);
	2074	else
	2075	addToMap(tmpMaps->content,tmpContent->name,tmpContent->value);
[57]	2076	}
	2077	tmpContent=tmpContent->next;
[9]	2078	}
[1]	2079	}
[92]	2080	if(tmpMaps->content==NULL)
	2081	tmpMaps->content=createMap("inRequest","true");
	2082	else
	2083	addToMap(tmpMaps->content,"inRequest","true");
[1]	2084	}
	2085	tmpInputs=tmpInputs->next;
	2086	}
[9]	2087	return "";
[1]	2088	}
[76]	2089
	2090	/**
	2091	* parseBoundingBox : parse a BoundingBox string
	2092	*
	2093	* OGC 06-121r3 : 10.2 Bounding box
	2094	*
	2095	* value is provided as : lowerCorner,upperCorner,crs,dimension
	2096	* exemple : 189000,834000,285000,962000,urn:ogc:def:crs:OGC:1.3:CRS84
	2097	*
	2098	* Need to create a map to store boundingbox informations :
	2099	* - lowerCorner : double,double (minimum within this bounding box)
	2100	* - upperCorner : double,double (maximum within this bounding box)
	2101	* - crs : URI (Reference to definition of the CRS)
	2102	* - dimensions : int
	2103	*
	2104	* Note : support only 2D bounding box.
	2105	*/
[217]	2106	map* parseBoundingBox(const char* value){
[76]	2107	map *res=NULL;
	2108	if(value!=NULL){
	2109	char cv,cvp;
[217]	2110	cv=strtok_r((char*) value,",",&cvp);
[76]	2111	int cnt=0;
	2112	int icnt=0;
	2113	char *currentValue=NULL;
	2114	while(cv){
	2115	if(cnt<2)
	2116	if(currentValue!=NULL){
	2117	char finalValue=(char)malloc((strlen(currentValue)+strlen(cv)+1)*sizeof(char));
	2118	sprintf(finalValue,"%s%s",currentValue,cv);
	2119	switch(cnt){
	2120	case 0:
	2121	res=createMap("lowerCorner",finalValue);
	2122	break;
	2123	case 1:
	2124	addToMap(res,"upperCorner",finalValue);
	2125	icnt=-1;
	2126	break;
	2127	}
	2128	cnt++;
	2129	free(currentValue);
	2130	currentValue=NULL;
	2131	free(finalValue);
	2132	}
	2133	else{
	2134	currentValue=(char)malloc((strlen(cv)+2)sizeof(char));
	2135	sprintf(currentValue,"%s ",cv);
	2136	}
	2137	else
	2138	if(cnt==2){
	2139	addToMap(res,"crs",cv);
	2140	cnt++;
	2141	}
	2142	else
	2143	addToMap(res,"dimensions",cv);
	2144	icnt++;
	2145	cv=strtok_r(NULL,",",&cvp);
	2146	}
	2147	}
	2148	return res;
	2149	}
	2150
	2151	/**
	2152	* printBoundingBox : fill a BoundingBox node (ows:BoundingBox or
	2153	* wps:BoundingBoxData). Set crs and dimensions attributes, add
	2154	* Lower/UpperCorner nodes to a pre-existing XML node.
	2155	*/
	2156	void printBoundingBox(xmlNsPtr ns_ows,xmlNodePtr n,map* boundingbox){
	2157
	2158	xmlNodePtr bb,lw,uc;
	2159
	2160	map* tmp=getMap(boundingbox,"value");
	2161
	2162	tmp=getMap(boundingbox,"lowerCorner");
	2163	if(tmp!=NULL){
	2164	lw=xmlNewNode(ns_ows,BAD_CAST "LowerCorner");
	2165	xmlAddChild(lw,xmlNewText(BAD_CAST tmp->value));
	2166	}
	2167
	2168	tmp=getMap(boundingbox,"upperCorner");
	2169	if(tmp!=NULL){
	2170	uc=xmlNewNode(ns_ows,BAD_CAST "UpperCorner");
	2171	xmlAddChild(uc,xmlNewText(BAD_CAST tmp->value));
	2172	}
	2173
	2174	tmp=getMap(boundingbox,"crs");
	2175	if(tmp!=NULL)
	2176	xmlNewProp(n,BAD_CAST "crs",BAD_CAST tmp->value);
	2177
	2178	tmp=getMap(boundingbox,"dimensions");
	2179	if(tmp!=NULL)
	2180	xmlNewProp(n,BAD_CAST "dimensions",BAD_CAST tmp->value);
	2181
	2182	xmlAddChild(n,lw);
	2183	xmlAddChild(n,uc);
	2184
	2185	}
	2186
	2187	void printBoundingBoxDocument(maps* m,maps* boundingbox,FILE* file){
	2188	if(file==NULL)
	2189	rewind(stdout);
	2190	xmlNodePtr n;
	2191	xmlDocPtr doc;
	2192	xmlNsPtr ns_ows,ns_xsi;
	2193	xmlChar *xmlbuff;
	2194	int buffersize;
	2195	char *encoding=getEncoding(m);
	2196	map *tmp;
	2197	if(file==NULL){
	2198	int pid=0;
	2199	tmp=getMapFromMaps(m,"lenv","sid");
	2200	if(tmp!=NULL)
	2201	pid=atoi(tmp->value);
	2202	if(pid==getpid()){
	2203	printf("Content-Type: text/xml; charset=%s\r\nStatus: 200 OK\r\n\r\n",encoding);
	2204	}
	2205	fflush(stdout);
	2206	}
	2207
	2208	doc = xmlNewDoc(BAD_CAST "1.0");
	2209	int owsId=zooXmlAddNs(NULL,"http://www.opengis.net/ows/1.1","ows");
	2210	ns_ows=usedNs[owsId];
	2211	n = xmlNewNode(ns_ows, BAD_CAST "BoundingBox");
[217]	2212	xmlNewNs(n,BAD_CAST "http://www.opengis.net/ows/1.1",BAD_CAST "ows");
[76]	2213	int xsiId=zooXmlAddNs(n,"http://www.w3.org/2001/XMLSchema-instance","xsi");
	2214	ns_xsi=usedNs[xsiId];
	2215	xmlNewNsProp(n,ns_xsi,BAD_CAST "schemaLocation",BAD_CAST "http://www.opengis.net/ows/1.1 http://schemas.opengis.net/ows/1.1.0/owsCommon.xsd");
	2216	map *tmp1=getMap(boundingbox->content,"value");
	2217	tmp=parseBoundingBox(tmp1->value);
	2218	printBoundingBox(ns_ows,n,tmp);
	2219	xmlDocSetRootElement(doc, n);
	2220
	2221	xmlDocDumpFormatMemoryEnc(doc, &xmlbuff, &buffersize, encoding, 1);
	2222	if(file==NULL)
[217]	2223	printf("%s",xmlbuff);
[76]	2224	else{
	2225	fprintf(file,"%s",xmlbuff);
	2226	}
	2227
	2228	if(tmp!=NULL){
	2229	freeMap(&tmp);
	2230	free(tmp);
	2231	}
	2232	xmlFree(xmlbuff);
	2233	xmlFreeDoc(doc);
	2234	xmlCleanupParser();
	2235	zooXmlCleanupNs();
	2236
	2237	}

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

Open WPS platform

source: branches/branch-1.2/zoo-kernel/service_internal.c @ 292

Download in other formats:

Download now !

Support ZOO-Project

Search

Context Navigation

Main Navigation

ZOO Sponsors

Knowledge partners

Related links