libs-gsweb/GSWAdaptors/common/GSWConfig.c

/* GSWConfig.c - GSWeb: Adaptors: Config
   Copyright (C) 1999, 2000, 2001, 2002, 2003 Free Software Foundation, Inc.
   
   Written by:	Manuel Guesdon <mguesdon@sbuilders.com>
   Date: 	July 1999
   
   This file is part of the GNUstep Web Library.
   
   This library is free software; you can redistribute it and/or
   modify it under the terms of the GNU Library General Public
   License as published by the Free Software Foundation; either
   version 2 of the License, or (at your option) any later version.
   
   This library is distributed in the hope that it will be useful,
   but WITHOUT ANY WARRANTY; without even the implied warranty of
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
   Library General Public License for more details.
   
   You should have received a copy of the GNU Library General Public
   License along with this library; if not, write to the Free
   Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
*/

static char rcsId[] = "$Id$";

#include <stdio.h>
#include <ctype.h>
#include <string.h>
#include <stdlib.h>
#include <sys/types.h>
#include <netinet/in.h>
#include <netdb.h>
#include <sys/socket.h>
#include <sys/stat.h>
#include <errno.h>
#include "config.h"
#include "GSWUtil.h"
#include "GSWDict.h"
#include "GSWString.h"
#include "GSWURLUtil.h"
#include "GSWUtil.h"
#include "GSWConfig.h"
#include "GSWPropList.h"
#include "GSWTemplates.h"

#if defined(__DATE__) && defined(__TIME__)
static const char g_szAdaptorBuilt[] = __DATE__ " " __TIME__;
#else
static const char g_szAdaptorBuilt[] = "unknown";
#endif

 
const char *g_szGSWeb_AdaptorVersion=GSWEB_SERVER_ADAPTOR_VERSION_MAJOR_STRING "." GSWEB_SERVER_ADAPTOR_VERSION_MINOR_STRING;

const char *g_szGSWeb_Prefix=GSWEB_PREFIX;
const char *g_szGSWeb_Handler=GSWEB_HANDLER;
const char *g_szGSWeb_StatusResponseAppName=GSWEB_STATUS_RESPONSE_APP_NAME;
const char *g_szGSWeb_AppExtention[2]={ GSWAPP_EXTENSION_GSW, GSWAPP_EXTENSION_WO };

const char *g_szGSWeb_MimeType=GSWEB__MIME_TYPE;
//const char *g_szGSWeb_Conf_DocRoot=GSWEB_CONF__DOC_ROOT;
const char *g_szGSWeb_Conf_ConfigFilePath=GSWEB_CONF__CONFIG_FILE_PATH;


// Apache
#if defined(Apache)
const char *g_szGSWeb_Conf_Alias=GSWEB_CONF__ALIAS;
#endif

// Netscape
#if	defined(Netscape)
const char *g_szGSWeb_Conf_PathTrans=GSWEB_CONF__PATH_TRANS;
const char *g_szGSWeb_Conf_AppRoot=GSWEB_CONF__APP_ROOT;
const char *g_szGSWeb_Conf_Name=GSWEB_CONF__NAME;
#endif

const char *g_szGSWeb_InstanceCookie[2]={ GSWEB_INSTANCE_COOKIE_GSW, GSWEB_INSTANCE_COOKIE_WO };

const char *g_szGSWeb_Server=SERVER;
const char *g_szGSWeb_ServerAndAdaptorVersion=SERVER "/" GSWEB_SERVER_ADAPTOR_VERSION_MAJOR_STRING "." GSWEB_SERVER_ADAPTOR_VERSION_MINOR_STRING;


const char *const g_szGNUstep = "GNUstep";

const char *const g_szOKGSWeb[2] = { "OK GSWeb", "OK Apple"};
const char *const g_szOKStatus[2] = { "HTTP/1.0 200 OK GNUstep GSWeb", "HTTP/1.0 200 OK Apple GSWeb"};

#if	defined(Apache)
#define GSWServerVersion		ap_get_server_version()
#define GSWServerBuilt			ap_get_server_built()
#define GSWServerURL			"http://www.apache.org"
#else
#define GSWServerVersion		"Unknown"
#define GSWServerBuilt			"Unknown"
#define GSWServerURL			"http://www.gnustepweb.org"
#endif

//====================================================================
GSWLock          g_lockAppList=NULL;
static GSWDict  *g_pAppDict = NULL;
static time_t    config_mtime = (time_t)0;
static GSWConfig g_gswConfig;
static char      g_szServerStringInfo[1024]="";
static char      g_szAdaptorStringInfo[1024]="";
//--------------------------------------------------------------------
void
GSWConfig_Init(GSWDict *p_pDict,
	       void    *p_pLogServerData)
{
  CONST char *pszPath=NULL;
  memset(&g_gswConfig,0,sizeof(g_gswConfig));
  sprintf(g_szServerStringInfo,"%s v %s built %s",
		  g_szGSWeb_Server,
		  GSWServerVersion,		  
		  GSWServerBuilt);
  sprintf(g_szAdaptorStringInfo,"GNUstepWeb v %s built %s",
		  g_szGSWeb_AdaptorVersion,
		  g_szAdaptorBuilt);
  if (p_pDict)
    {
      pszPath=GSWDict_ValueForKey(p_pDict,g_szGSWeb_Conf_ConfigFilePath);
      GSWConfig_SetConfigFilePath(pszPath);
    };
  GSWLog(GSW_INFO,p_pLogServerData,
		 "GSWConfig_Init: %s %s path: %s",
		 g_szServerStringInfo,g_szAdaptorStringInfo,pszPath);
  GSWLock_Init(g_lockAppList);
};

//--------------------------------------------------------------------
GSWConfig *
GSWConfig_GetConfig()
{
  return &g_gswConfig;
};

//--------------------------------------------------------------------
BOOL
GSWConfig_CanDumpStatus()
{
  return g_gswConfig.fCanDumpStatus;
};

//--------------------------------------------------------------------
BOOL
GSWConfig_AddTimeHeaders()
{
  return g_gswConfig.fAddTimeHeaders;
};

//--------------------------------------------------------------------
void
GSWConfig_SetConfigFilePath(CONST char *p_pszConfigFilePath)
{
  if (g_gswConfig.pszConfigFilePath)
    {
      free(g_gswConfig.pszConfigFilePath);
      g_gswConfig.pszConfigFilePath=NULL;
    };

  if (p_pszConfigFilePath)
    {
      g_gswConfig.pszConfigFilePath=strdup(p_pszConfigFilePath);
    }
  else
    {
      GSWLog(GSW_CRITICAL,NULL,
        "No path for config file. Add a %s directive in your web server configuration",
         g_szGSWeb_Conf_ConfigFilePath);
    };
};

//--------------------------------------------------------------------
CONST char *
GSWConfig_GetConfigFilePath()
{
  return g_gswConfig.pszConfigFilePath;
};

/*
{
  canDumpStatus=NO;
  GSWExtensionsFrameworkWebServerResources = 
    "/GSW/GSWExtensions/Resources/WebServer"
  applications = {
    MyApp1 = {
      GSWExtensionsFrameworkWebServerResources=
        "/GSW/GSWExtensions/Resources/WebServer"
      instances = {
        1 = {
          host = 12.13.14.15;
          port = 9001;
          parameters = { transport = socket; };			
        };
        2 = {
          host = 12.13.14.21;
          port = 9001;
          parameters = { transport = socket; };			
        };
      };
    };
    MyApp2 = {
      instances = {
        1 = {
          host = 12.13.14.15;
          port = 9001;
	  parameters = { transport=socket; };			
        };
      };
    };
    MyApp3 = {
      canDump = YES;
      instances = {
	1 = {
	  host = 12.13.14.15;
	  port = 9002;
	  parameters = { transport=socket; };
	};
      };
    };
  };
};
*/

//--------------------------------------------------------------------
//Read configuration from p_pszConfigPath if the file changed since
//  p_pLastReadTime and return the config into p_ppPropList
EGSWConfigResult
GSWConfig_ReadIFND(CONST char *p_pszConfigPath,
		   time_t     *p_pLastReadTime,
		   proplist_t *p_ppPropList, //Please, PLRelease it after used!
		   void       *p_pLogServerData)
{
  EGSWConfigResult eResult=EGSWConfigResult__Ok;
  p_pLogServerData=NULL;//General Log
  GSWLog(GSW_DEBUG,p_pLogServerData,
		 "GSWConfig_ReadIFND: %s",
		 p_pszConfigPath);

  if (!p_pszConfigPath)
    {
      GSWLog(GSW_CRITICAL,p_pLogServerData,"No path for config file.");
      eResult=EGSWConfigResult__Error;
    }
  else
    {
      time_t timeNow=(time_t)0;
      time_t timePrevious=*p_pLastReadTime;	  
      time(&timeNow);

      if (timeNow-timePrevious<CONFIG_FILE_STAT_INTERVAL)
        {
	  GSWLog(GSW_INFO,p_pLogServerData,
		 "GSWConfig_ReadIFND: Not Reading : Less than %d sec since last read config file.",
		 (int)CONFIG_FILE_STAT_INTERVAL);
	  eResult=EGSWConfigResult__NotChanged;
        }
      else
        {
	  struct stat stStat;
	  memset(&stStat,0,sizeof(stStat));
	  if (stat(p_pszConfigPath, &stStat) == 0)
	    {
	      *p_pLastReadTime = timeNow;
	      if (stStat.st_mtime>timePrevious) 
	        {
		  GSWLog(GSW_INFO,p_pLogServerData,
		"GSWConfig_ReadIFND: Reading new configuration from %s",
			 p_pszConfigPath);

		  *p_ppPropList=PLGetProplistWithPath(p_pszConfigPath);
		  if (*p_ppPropList)
		    {
		      GSWLog(GSW_WARNING,p_pLogServerData,
		 "GSWConfig_ReadIFND: New configuration from %s readen",
			     p_pszConfigPath);
		    }
		  else
		    {
		      GSWLog(GSW_CRITICAL,p_pLogServerData,
		   "Can't read configuration file %s (PLGetProplistWithPath).",
			     p_pszConfigPath);
		    };
		}
	      else
	        {
		  GSWLog(GSW_INFO,p_pLogServerData,
			 "GSWConfig_ReadIFND: Not Reading : config file not modified since last read.");
		  eResult=EGSWConfigResult__NotChanged;
		}
	    }
	  else
	    {
	      GSWLog(GSW_CRITICAL,p_pLogServerData,
		   "GSWConfig_ReadIFND: config file %s does not exist.",
		     p_pszConfigPath);
	      eResult=EGSWConfigResult__Error;
	    };
	};
    };
  GSWLog(GSW_INFO,p_pLogServerData,"GSWConfig_ReadIFND: result= %d",
	 (int)eResult);
  return eResult;
};

//--------------------------------------------------------------------
BOOL
GSWConfig_PropListHeadersToHeaders(GSWDict    *p_pHeaders,
				   proplist_t  p_propListHeaders,
				   CONST char *p_pszParents,
				   void       *p_pLogServerData)
{
  BOOL fOk=TRUE;
  char pszParents[4096]="";
  //Headers:
  //  {
  //    header1=1234;
  //    header2=4567;
  //  };

  if (p_propListHeaders)
    {
      int iHeaderIndex=0;
      proplist_t propListHeadersNames=NULL;
      unsigned int uHeaderNb=0;
      sprintf(pszParents,"%s",p_pszParents);
      //Next get Array Of Headers Names
      //header1,header2
      //We'll have to destroy propListHeadersNames
      propListHeadersNames = 
	  GSWPropList_GetAllDictionaryKeys(p_propListHeaders,
					   pszParents,
					   TRUE,
					   GSWPropList_TestArray,
					   p_pLogServerData);
      //Nb Of Headers
      uHeaderNb=PLGetNumberOfElements(propListHeadersNames);

      //For Each Header
      for(iHeaderIndex=0;iHeaderIndex<uHeaderNb;iHeaderIndex++)
        {
	  //Get Header Name Key
	    proplist_t propListHeaderKey =
		GSWPropList_GetArrayElement(propListHeadersNames,
					    iHeaderIndex,
					    pszParents,
					    TRUE,
					    GSWPropList_TestString,
					    p_pLogServerData);

	    if (!propListHeaderKey)
	      {
		//TODO
	      }
	    else
	      {
		//Get Headerlication Name (MyHeader1)
		CONST char *pszHeaderName=PLGetString(propListHeaderKey);
		                          //Do Not Free It
		proplist_t propListHeader =
		    GSWPropList_GetDictionaryEntry(p_propListHeaders,
						   pszHeaderName,
						   pszParents,
						   TRUE,//Error If Not Exists
						   GSWPropList_TestString,
						   p_pLogServerData);

		if (propListHeader)
		  {
		    //Get Header Value (1234)
		    CONST char *pszHeaderValue=PLGetString(propListHeader);
                    //Do Not Free It

		    GSWDict_AddStringDup(p_pHeaders,pszHeaderName,
					 pszHeaderValue);
		  };
	      };
	};
      PLRelease(propListHeadersNames);//Because it's a newly created proplist
    };

  return fOk;
};

//--------------------------------------------------------------------
BOOL
GSWConfig_PropListInstanceToInstance(GSWAppInstance *p_pInstance,
				     proplist_t      p_propListInstance,
				     GSWApp         *p_pApp,
				     int             p_iInstanceNum,
				     CONST char     *p_pszParents,
				     void           *p_pLogServerData)
{
  BOOL fOk=TRUE;
  proplist_t pValue=NULL;
  char pszParents[4096]="";
  p_pInstance->fValid=TRUE;
  p_pInstance->timeNextRetryTime=0;

  // Instance Num
  sprintf(pszParents,"%s",p_pszParents);
  p_pInstance->iInstance=p_iInstanceNum;
						  
  // Host Name
  sprintf(pszParents,"%s",p_pszParents);
  pValue=GSWPropList_GetDictionaryEntry(p_propListInstance,
					"host",
					pszParents,
					TRUE,//Error If Not Exists
					GSWPropList_TestString,
					p_pLogServerData);
  if (pValue)
    {
      if (p_pInstance->pszHostName)
        {
	  free(p_pInstance->pszHostName);
	}
      p_pInstance->pszHostName=SafeStrdup(PLGetString(pValue));
                               //Do Not Free It PLGetStringValue, so strdup it
    };

  // Port
  sprintf(pszParents,"%s",p_pszParents);
  pValue=GSWPropList_GetDictionaryEntry(p_propListInstance,
					"port",
					pszParents,
					TRUE,//Error If Not Exists
					GSWPropList_TestString,
					p_pLogServerData);
  if (pValue)
    {
      char *pszPort=PLGetString(pValue);//Do Not Free It
      if (pszPort)
        {
	  p_pInstance->iPort=atoi(pszPort);
	};
    };

  GSWLog(GSW_INFO,p_pLogServerData,
 "Config: App=%p %s instance %d host %s port %d Valid:%s timeNextRetryTime %d",
	 p_pApp,
	 p_pApp->pszName,
	 p_pInstance->iInstance,
	 p_pInstance->pszHostName,
	 p_pInstance->iPort,
	 (p_pInstance->fValid ? "YES" : "NO"),
	 (int)p_pInstance->timeNextRetryTime);
  
  return fOk;
};

//--------------------------------------------------------------------
BOOL
GSWConfig_PropListApplicationToApplication(GSWApp     *p_pApp,
					   proplist_t  p_propListApp,
					   CONST char *p_pszAppName,
					   CONST char *p_pszParents,
					   void       *p_pLogServerData)
{
  BOOL fOk=TRUE;
  char pszParents[4096]="";
  proplist_t pValueCanDump=NULL;  
  proplist_t pValueSwitchToKnownInstance=NULL;  
  proplist_t pValueAdaptorTemplatesPath=NULL;

  if (p_pApp->pszName)
    {
      free(p_pApp->pszName);
    }
  p_pApp->pszName=SafeStrdup(p_pszAppName);//We'll own the AppName

  sprintf(pszParents,"%s/%s",p_pszParents,p_pszAppName);

  // CanDump
  pValueCanDump=GSWPropList_GetDictionaryEntry(p_propListApp,
					       "canDump",
					       pszParents,
					       FALSE,//No Error If Not Exists
					       GSWPropList_TestString,
					       p_pLogServerData);

  p_pApp->fCanDump=NO;
  if (pValueCanDump)
    {
      CONST char *pszCanDump=PLGetString(pValueCanDump);//Do Not Free It
      p_pApp->fCanDump=(strcasecmp(pszCanDump,"YES")==0);
    };

  // SwitchToKnownInstance
  pValueSwitchToKnownInstance=GSWPropList_GetDictionaryEntry(p_propListApp,
                                                             "switchToKnownInstance",
                                                             pszParents,
                                                             FALSE,//No Error If Not Exists
                                                             GSWPropList_TestString,
                                                             p_pLogServerData);
  
  p_pApp->fSwitchToKnownInstance=YES;
  if (pValueSwitchToKnownInstance)
    {
      CONST char *pszSwitchToKnownInstance=PLGetString(pValueSwitchToKnownInstance);//Do Not Free It
      p_pApp->fSwitchToKnownInstance=!(strcasecmp(pszSwitchToKnownInstance,"NO")==0);
    };


  //adaptorTemplates
  pValueAdaptorTemplatesPath =
      GSWPropList_GetDictionaryEntry(p_propListApp,
				     "adaptorTemplatesPath",
				     pszParents,
				     FALSE,//No Error If Not Exists
				     GSWPropList_TestString,
				     p_pLogServerData);
  if (p_pApp->pszAdaptorTemplatesPath)
    {
      free(p_pApp->pszAdaptorTemplatesPath);
      p_pApp->pszAdaptorTemplatesPath=NULL;
    };
  if (pValueAdaptorTemplatesPath)
    {
      CONST char *pszPath=PLGetString(pValueAdaptorTemplatesPath);
                          //Do Not Free It
      p_pApp->pszAdaptorTemplatesPath=SafeStrdup(pszPath);
    };

  //GSWExtensionsFrameworkWebServerResources
  {
    proplist_t pValuePath=NULL;
    if (p_pApp->pszGSWExtensionsFrameworkWebServerResources)
      {
	free(p_pApp->pszGSWExtensionsFrameworkWebServerResources);
	p_pApp->pszGSWExtensionsFrameworkWebServerResources=NULL;
      };
    pValuePath =
	GSWPropList_GetDictionaryEntry(p_propListApp,
			            "GSWExtensionsFrameworkWebServerResources",
				       NULL,
				       FALSE,//No Error If Not Exists
				       GSWPropList_TestString,
				       p_pLogServerData);
    if (pValuePath)
      {
	CONST char *pszPath=PLGetString(pValuePath);//Do Not Free It
	p_pApp->pszGSWExtensionsFrameworkWebServerResources = 
	  SafeStrdup(pszPath);
      };
  };
/*  // LogFilePath
  sprintf(pszParents,"%s/%s",p_pszParents,p_pszAppName);
  pValueLogFilePath = 
      GSWPropList_GetDictionaryEntry(p_propListApp,
				     "logFilePath",
				     pszParents,
				     FALSE,//No Error If Not Exists
				     GSWPropList_TestString,
				     p_pLogServerData);
  if (pValueLogFilePath)
    {
      p_pApp->pszLogFilePath=PLGetString(pValueLogFilePath);//Do Not Free It
    };
*/
  //headers = 
  //  {
  //    header1=1234;
  //    header2=4567;
  //  };
  
  {
    proplist_t propListHeaders=NULL;

    propListHeaders =
	GSWPropList_GetDictionaryEntry(p_propListApp,
				       "headers",
				       pszParents,
				       FALSE,//No Error If Not Exists
				       GSWPropList_TestDictionary,
				       p_pLogServerData);

    fOk=GSWConfig_PropListHeadersToHeaders(&p_pApp->stHeadersDict,
					   propListHeaders,
					   pszParents,
					   p_pLogServerData);
      GSWDict_Log(&p_pApp->stHeadersDict,p_pLogServerData);
  };

  //Instances
  //  {
  //    1 = {
  //      host=12.13.14.15;
  //      port=9001;
  //      parameters = { 
  //        transport=socket;
  //      };			
  //    };
  //    2 = {
  //      host=12.13.14.21;
  //      port=9001;
  //      parameters = { 
  //        transport=socket;
  //      };			
  //    }
  //  };

  {
    proplist_t propListInstances=NULL;
    propListInstances =
	GSWPropList_GetDictionaryEntry(p_propListApp,
				       "instances",
				       pszParents,
				       TRUE,//Error If Not Exists
				       GSWPropList_TestDictionary,
				       p_pLogServerData);

    if (propListInstances)
      {
	int iInstanceIndex=0;
	//Next get Array Of Instances Names
	//1,3,5
	//We'll have to destroy propListInstancesNums
	proplist_t propListInstancesNums =
	    GSWPropList_GetAllDictionaryKeys(propListInstances,
					     pszParents,//Parents
					     TRUE,//Error If Not Exists
					     GSWPropList_TestArray,//TestFn
					     p_pLogServerData);
	if (propListInstancesNums)
	  {
	    //Nb Of Instances
	    unsigned int uInstancesNb =
		PLGetNumberOfElements(propListInstancesNums);
	    //For Each Instance
	    for(iInstanceIndex=0;iInstanceIndex<uInstancesNb;iInstanceIndex++)
	      {
		//Get Instance Num Key
		proplist_t propListInstanceNumKey = 
		    GSWPropList_GetArrayElement(propListInstancesNums,
						iInstanceIndex,
						pszParents,
						TRUE,
						GSWPropList_TestString,//TestFn
						p_pLogServerData);
		if (propListInstanceNumKey)
		  {
		    //Get Instance Num (1)
		    CONST char *pszInstanceNum =
			PLGetString(propListInstanceNumKey);//Do Not Free It
		    proplist_t propListInstance=NULL;
		    
		    //Get Instance PropList
		    //  {
		    //    host = 12.13.14.15;
		    //    port = 9001;
		    //    parameters = { transport=socket; };
		    //  };
		    propListInstance =
			GSWPropList_GetDictionaryEntry(propListInstances,
						       pszInstanceNum,
						       pszParents,
						       TRUE,
						    GSWPropList_TestDictionary,
						       p_pLogServerData);
		    
		    if (propListInstance)
		      {
			BOOL fNew=NO;
			GSWAppInstance *pInstance = (GSWAppInstance*)
			    GSWDict_ValueForKey(&p_pApp->stInstancesDict,
						pszInstanceNum);
			if (!pInstance)
			  {
			    fNew=YES;
			    pInstance=GSWAppInstance_New(p_pApp);
			  };
			GSWConfig_PropListInstanceToInstance(pInstance,
							     propListInstance,
							     p_pApp,
							  atoi(pszInstanceNum),
							     pszParents,
							     p_pLogServerData);
			if (fNew)
			  {
			    GSWApp_AddInstance(p_pApp,
					       pszInstanceNum,
					       pInstance);
			  }
		      };
		  };
	      };
	    PLRelease(propListInstancesNums);
	    //Because it's a newly created proplist
	  };
      };
  };

  //Remove Not Valid Instances
  GSWApp_FreeNotValidInstances(p_pApp);

  //Initialize first instance index
  {
    unsigned int instanceCount=GSWDict_Count(&p_pApp->stInstancesDict);
    //use also pid because mutiple server can be initialized at the same time
    srand(time(NULL)+getpid());
    p_pApp->iLastInstanceIndex=(int)(((float)instanceCount)*rand()/(RAND_MAX+1.0));
  };
  return fOk;
};

//--------------------------------------------------------------------
BOOL
GSWConfig_LoadConfiguration(void *p_pLogServerData)
{
  BOOL fOk=TRUE;
  proplist_t propListConfig=NULL;
  p_pLogServerData=NULL;
  GSWLog(GSW_DEBUG,p_pLogServerData,
	 "GSWConfig_LoadConfiguration");

  GSWLock_Lock(g_lockAppList);

  if (!g_pAppDict)
    {
      g_pAppDict = GSWDict_New(16);
    }
  
  if (GSWConfig_ReadIFND(GSWConfig_GetConfigFilePath(),
			 &config_mtime,
			 &propListConfig,//We'll have to PLRelease it
			 p_pLogServerData)==EGSWConfigResult__Ok)
    {
      proplist_t propListApps=NULL;
      GSWApp_AppsClearInstances(g_pAppDict);
	  
      //CanDumpStatus
      {
	proplist_t pValueCanDumpStatus=NULL;
	g_gswConfig.fCanDumpStatus=NO;
	pValueCanDumpStatus =
	    GSWPropList_GetDictionaryEntry(propListConfig,
					   "canDumpStatus",
					   NULL,
					   FALSE,//No Error If Not Exists
					   GSWPropList_TestString,
					   p_pLogServerData);
	if (pValueCanDumpStatus)
	  {
	    CONST char *pszCanDumpStatus=PLGetString(pValueCanDumpStatus);
	                                 //Do Not Free It
	    g_gswConfig.fCanDumpStatus=(strcasecmp(pszCanDumpStatus,"YES")==0);
	  };
      };

      //AddTimeHeaders
      {
	proplist_t pValueAddTimeHeaders=NULL;
	g_gswConfig.fAddTimeHeaders=NO;
	pValueAddTimeHeaders =
	    GSWPropList_GetDictionaryEntry(propListConfig,
					   "addTimeHeaders",
					   NULL,
					   FALSE,//No Error If Not Exists
					   GSWPropList_TestString,
					   p_pLogServerData);
	if (pValueAddTimeHeaders)
	  {
	    CONST char *pszAddTimeHeaders=PLGetString(pValueAddTimeHeaders);
	                                 //Do Not Free It
	    g_gswConfig.fAddTimeHeaders=(strcasecmp(pszAddTimeHeaders,"YES")==0);
	  };
      };
      
      //adaptorTemplates
      {
	proplist_t pValueAdaptorTemplatesPath=NULL;
	if (g_gswConfig.pszAdaptorTemplatesPath)
	  {
	    free(g_gswConfig.pszAdaptorTemplatesPath);
	    g_gswConfig.pszAdaptorTemplatesPath=NULL;
	  };
	pValueAdaptorTemplatesPath =
	    GSWPropList_GetDictionaryEntry(propListConfig,
					   "adaptorTemplatesPath",
					   NULL,
					   FALSE,//No Error If Not Exists
					   GSWPropList_TestString,
					   p_pLogServerData);
	if (pValueAdaptorTemplatesPath)
	  {
	    CONST char *pszPath=PLGetString(pValueAdaptorTemplatesPath);
	                        //Do Not Free It
	    g_gswConfig.pszAdaptorTemplatesPath=SafeStrdup(pszPath);
	  };
      };

      //GSWExtensionsFrameworkWebServerResources
      {
	proplist_t pValuePath=NULL;
	if (g_gswConfig.pszGSWExtensionsFrameworkWebServerResources)
	  {
	    free(g_gswConfig.pszGSWExtensionsFrameworkWebServerResources);
	    g_gswConfig.pszGSWExtensionsFrameworkWebServerResources=NULL;
	  };
	pValuePath =
	    GSWPropList_GetDictionaryEntry(propListConfig,
				    "GSWExtensionsFrameworkWebServerResources",
					   NULL,
					   FALSE,//No Error If Not Exists
					   GSWPropList_TestString,
					   p_pLogServerData);
	if (pValuePath)
	  {
	    CONST char *pszPath=PLGetString(pValuePath);//Do Not Free It
	    g_gswConfig.pszGSWExtensionsFrameworkWebServerResources = 
		SafeStrdup(pszPath);
	  };
      };
      
      
      //Get Dictionary Of Applications
      //  {
      //    MyApp1 = (
      //      instances = (
      //        {
      //          instanceNum = 1;
      //          host = 12.13.14.15;
      //          port = 9001;
      //          parameters = { transport=socket; };
      //        },
      //        {
      //          instanceNum = 2;
      //          host = 12.13.14.21;
      //          port = 9001;
      //          parameters = { transport=socket; };
      //        };
      //      );
      //    );
      //    MyApp2 = (
      //      instances = (
      //        {
      //          instanceNum = 1;
      //          host = 12.13.14.15;
      //          port = 9001;
      //          parameters = { transport=socket; };
      //        }
      //      );
      //    };
      //    MyApp3 = {
      //      switchToKnownInstance = NO;
      //      canDump = YES;
      //      instances = (
      //        {
      //          instanceNum = 1;
      //          host = 12.13.14.15;
      //          port = 9002;
      //          parameters = { transport=socket; };
      //        }
      //      );
      //    };
      propListApps =
	GSWPropList_GetDictionaryEntry(propListConfig,//Dictionary
				       "applications",//Key
				       NULL,//No Parents
				       TRUE,//Error If Not Exists
				       GSWPropList_TestDictionary, // Test Fn
				       p_pLogServerData);
      if (propListApps)
	{
	  int iAppIndex=0;
	  //Next get Array Of App Names
	  //MyApp1,MyApp2,MyApp3
	  //We'll have to destroy propListAppsNames
	  proplist_t propListAppsNames =
	    GSWPropList_GetAllDictionaryKeys(propListApps,
					     "applications",//Parents
					     TRUE,//Error If Not Exists
					     GSWPropList_TestArray,//TestFn
					     p_pLogServerData);
	  if (propListAppsNames)
	    {
	      //Nb Of App
	      unsigned int uAppNb=PLGetNumberOfElements(propListAppsNames);
	      //For Each Application
	      for(iAppIndex=0;iAppIndex<uAppNb;iAppIndex++)
		{
		  //Get Application Name Key
		  proplist_t propListAppKey =
		    GSWPropList_GetArrayElement(propListAppsNames,
						iAppIndex,
						"applications",
						TRUE,
						GSWPropList_TestString,//TestFn
						p_pLogServerData);
		  if (propListAppKey)
		    {
		      //Get Application Name (MyApp1)
		      CONST char *pszAppName=PLGetString(propListAppKey);
		                             //Do Not Free It
		      proplist_t propListApp=NULL;

		      //Get Application PropList
		      //  {
		      //    instances = (
		      //      {
		      //        instanceNum = 1;
		      //        host = 12.13.14.15;
		      //        port = 9001;
		      //	parameters = { transport=socket; };
		      //      },
		      //      {
		      //	instanceNum = 2;
		      //        host = 12.13.14.21;
		      //        port = 9001;
		      //        parameters = { transport=socket; };
		      //      }
		      //    );
		      //  };				  
		      propListApp =
			GSWPropList_GetDictionaryEntry(propListApps,
						       pszAppName,
						       "applications",
						       TRUE,
						    GSWPropList_TestDictionary,
						       p_pLogServerData);
		      if (propListApp)
			{
			  BOOL    fNew = NO;
			  GSWApp *pApp =
			    (GSWApp *)GSWDict_ValueForKey(g_pAppDict,
							  pszAppName);
			  if (!pApp)
			    {
			      fNew=YES;
			      pApp=GSWApp_New();
			    };
			  GSWConfig_PropListApplicationToApplication(pApp,
							      propListApp,
							      pszAppName,
							     "applications",
							     p_pLogServerData);
			  if (GSWDict_Count(&pApp->stInstancesDict)==0)
			    {
			      if (!fNew)
				GSWDict_RemoveKey(g_pAppDict,pApp->pszName);
			      GSWApp_Free(pApp);
			      pApp=NULL;
			    }
			  else 
			    {
			      if (fNew)
				GSWDict_Add(g_pAppDict,pApp->pszName,pApp,
					    FALSE);//NotOwner
			    };
			};
		    };
		};
	      PLRelease(propListAppsNames);
	      //Because it's a newly created proplist			  
	    };
	};
    };
  if (propListConfig)
    PLRelease(propListConfig);
  {
    GSWString *pString=GSWConfig_DumpGSWApps(NULL,g_szGSWeb_Prefix,
					     TRUE,FALSE,p_pLogServerData);
    GSWLogSized(GSW_INFO,p_pLogServerData,SafeStrlen(pString->pszData),
		"Config: %s",pString->pszData);
    GSWString_Free(pString);
  };
  GSWLock_Unlock(g_lockAppList);
  return fOk;
};

//--------------------------------------------------------------------
typedef struct _GSWDumpParams
{
  GSWString  *pBuffer;
  GSWApp     *pApp;
  CONST char *pszPrefix;
  BOOL        fForceDump;
  BOOL        fHTML;
  void       *pLogServerData;
} GSWDumpParams;


//--------------------------------------------------------------------
void
GSWConfig_DumpGSWAppInstanceIntern(GSWDictElem *p_pElem,
				   void        *p_pData)
{  
  GSWString      *pBuffer=GSWString_New();
  char            szBuffer[4096]="";
  GSWAppInstance *pAppInstance=(GSWAppInstance *)p_pElem->pValue;
  GSWDumpParams  *pParams=(GSWDumpParams *)p_pData;
  char           *pszString=NULL;

  //Template
  pszString=GSWTemplate_GetDumpAppInstance(pParams->fHTML);
  GSWString_Append(pBuffer,pszString);
  free(pszString);
  
  //NUM
  sprintf(szBuffer,"%d",
	  pAppInstance->iInstance);
  GSWString_SearchReplace(pBuffer,"##NUM##",szBuffer);
  
  //URL
  sprintf(szBuffer,"%s/%s/%d",
	  pParams->pszPrefix,
	  pParams->pApp->pszName,
	  pAppInstance->iInstance);
  GSWString_SearchReplace(pBuffer,"##URL##",szBuffer);

  //Host
  GSWString_SearchReplace(pBuffer,"##HOST##",pAppInstance->pszHostName);

  //Host
  sprintf(szBuffer,"%d",pAppInstance->iPort);
  GSWString_SearchReplace(pBuffer,"##PORT##",szBuffer);

  //InstanceHeader
  //TODO

  GSWTemplate_ReplaceStd(pBuffer,pAppInstance->pApp);
  //Append !
  GSWString_Append(pParams->pBuffer,pBuffer->pszData);
  GSWString_Free(pBuffer);  
  pBuffer=NULL;
};

//--------------------------------------------------------------------
void
GSWConfig_DumpGSWAppIntern(GSWDictElem *p_pElem,
			   void        *p_pData)
{
  GSWApp        *pApp=(GSWApp *)(p_pElem->pValue);
  GSWDumpParams *pParams=(GSWDumpParams *)p_pData;

  if (pParams->fForceDump || pApp->fCanDump)
    {
      GSWString *pBuffer=GSWString_New();
      char szBuffer[4096]="";
      char *pszString=NULL;
	  	  
      //Template
      pszString=GSWTemplate_GetDumpApp(pParams->fHTML);
      GSWString_Append(pBuffer,pszString);
      free(pszString);
	  
      //AppName
      GSWString_SearchReplace(pBuffer,"##NAME##",pApp->pszName);
	  
      //AppURL
      sprintf(szBuffer,"%s/%s",pParams->pszPrefix,pApp->pszName);
      GSWString_SearchReplace(pBuffer,"##URL##",szBuffer);
	  	  
      //AppHeader
      //TODO
	  
      //AppInstances
      {
	GSWString *pInstancesBuffer=GSWString_New();
	GSWString *pParamsBuffer=pParams->pBuffer;
	pParams->pBuffer=pInstancesBuffer;
	pParams->pApp=pApp;  
	GSWDict_PerformForAllElem(&pApp->stInstancesDict,
				  GSWConfig_DumpGSWAppInstanceIntern,
				  pParams);
	GSWString_SearchReplace(pBuffer,"##INSTANCES##",
				pInstancesBuffer->pszData);
	pParams->pBuffer=pParamsBuffer;
	GSWString_Free(pInstancesBuffer);
	pInstancesBuffer=NULL;
	pParams->pApp=NULL;
      };
	  
      GSWTemplate_ReplaceStd(pBuffer,pApp);
	  
      //Append !
      GSWString_Append(pParams->pBuffer,pBuffer->pszData);
      GSWString_Free(pBuffer);  
      pBuffer=NULL;
    };
};

//--------------------------------------------------------------------
GSWString *
GSWConfig_DumpGSWApps(const char *p_pszReqApp,
		      const char *p_pszPrefix,
		      BOOL        p_fForceDump,
		      BOOL        p_fHTML,
		      void       *p_pLogServerData)
{
  GSWString    *pBuffer=GSWString_New();
  GSWDumpParams stParams;
  char         *pszString=NULL;

  GSWLock_Lock(g_lockAppList);

  stParams.pBuffer=GSWString_New();
  stParams.pApp=NULL;
  stParams.pszPrefix=p_pszPrefix;
  stParams.fForceDump=p_fForceDump;
  stParams.fHTML=p_fHTML;
  stParams.pLogServerData=p_pLogServerData;

  //Template Head
  pszString=GSWTemplate_GetDumpHead(p_fHTML);
  GSWString_Append(pBuffer,pszString);
  free(pszString);
  GSWString_SearchReplace(pBuffer,"##APP_NAME##",p_pszReqApp);

  GSWTemplate_ReplaceStd(pBuffer,NULL);
  
  GSWString_Append(stParams.pBuffer,pBuffer->pszData);
  GSWString_Free(pBuffer);  
  pBuffer=NULL;

  GSWDict_PerformForAllElem(g_pAppDict,
			    GSWConfig_DumpGSWAppIntern,
			    &stParams);
  //Template Foot
  pBuffer=GSWString_New();
  pszString=GSWTemplate_GetDumpFoot(p_fHTML);
  GSWString_Append(pBuffer,pszString);
  free(pszString);
  GSWTemplate_ReplaceStd(pBuffer,NULL);
  GSWString_Append(stParams.pBuffer,pBuffer->pszData);
  GSWString_Free(pBuffer);  
  pBuffer=NULL;
  GSWLock_Unlock(g_lockAppList);
  return stParams.pBuffer;
};

//--------------------------------------------------------------------
GSWApp *
GSWConfig_GetApp(CONST char *p_pszAppName)
{
  return (GSWApp *)GSWDict_ValueForKey(g_pAppDict,p_pszAppName);
};

//--------------------------------------------------------------------
CONST char *
GSWConfig_AdaptorBuilt()
{
  return g_szAdaptorBuilt;
};

//--------------------------------------------------------------------
CONST char *
GSWConfig_ServerStringInfo()
{
  return g_szServerStringInfo;
};

//--------------------------------------------------------------------
CONST char *
g_szGSWeb_AdaptorStringInfo()
{
  return g_szAdaptorStringInfo;
};

//--------------------------------------------------------------------
CONST char *
GSWConfig_ServerURL()
{
  return GSWServerURL;
};

//--------------------------------------------------------------------
CONST char *
g_szGSWeb_AdaptorURL()
{
  return "http://www.gnustepweb.org";
};