source: trunk/zoo-kernel/service_internal.c @ 71

Last change on this file since 71 was 71, checked in by djay, 13 years ago

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

Download now !

Search

Context Navigation

Main Navigation

ZOO Sponsors

http://www.zoo-project.org/trac/chrome/site/img/geolabs-logo.pnghttp://www.zoo-project.org/trac/chrome/site/img/neogeo-logo.png http://www.zoo-project.org/trac/chrome/site/img/apptech-logo.png http://www.zoo-project.org/trac/chrome/site/img/3liz-logo.png http://www.zoo-project.org/trac/chrome/site/img/gateway-logo.png

Become a sponsor !

Knowledge partners

http://www.zoo-project.org/trac/chrome/site/img/ocu-logo.png http://www.zoo-project.org/trac/chrome/site/img/gucas-logo.png http://www.zoo-project.org/trac/chrome/site/img/polimi-logo.png http://www.zoo-project.org/trac/chrome/site/img/fem-logo.png http://www.zoo-project.org/trac/chrome/site/img/supsi-logo.png http://www.zoo-project.org/trac/chrome/site/img/cumtb-logo.png

Become a knowledge partner

Related links

http://zoo-project.org/img/ogclogo.png http://zoo-project.org/img/osgeologo.png