#include "e.h"

#ifdef USE_IPC  
/* local subsystem functions */
static int _e_ipc_cb_client_add(void *data, int type, void *event);
static int _e_ipc_cb_client_del(void *data, int type, void *event);
static int _e_ipc_cb_client_data(void *data, int type, void *event);

/* local subsystem globals */
static Ecore_Ipc_Server *_e_ipc_server = NULL;
#endif

/* externally accessible functions */
EAPI int
e_ipc_init(void)
{
#ifdef USE_IPC  
   char buf[1024];
   char *tmp, *user, *disp;
   int pid;
   
   tmp = getenv("TMPDIR");
   if (!tmp) tmp = "/tmp";
   user = getenv("USER");
   if (!user) user = "__unknown__";
   disp = getenv("DISPLAY");
   if (!disp) disp = ":0";
   pid = (int)getpid();
   snprintf(buf, sizeof(buf), "%s/enlightenment-%s", tmp, user);
   if (mkdir(buf, S_IRWXU) == 0)
     {
     }
   else
     {
	struct stat st;
	
	if (stat(buf, &st) == 0)
	  {
	     if ((st.st_uid == 
		  getuid()) &&
		 ((st.st_mode & (S_IFDIR|S_IRWXU|S_IRWXG|S_IRWXO)) == 
		  (S_IRWXU|S_IFDIR)))
	       {
	       }
	     else
	       {
		  snprintf(buf, sizeof(buf),
			   _("Possible IPC Hack Attempt. The IPC socket\n"
			     "directory already exists BUT has permissions\n"
			     "that are too leanient (must only be readable\n"
			     "and writable by the owner, and nobody else)\n"
			     "or is not owned by you. Please check:\n"
			     "%s/enlightenment-%s\n"),
			   tmp, user);
		  e_error_message_show(buf);
		  return 0;
	       }
	  }
	else
	  {
	     snprintf(buf, sizeof(buf),
		      _("The IPC socket directory cannot be created or\n"
			"examined.\n"
			"Please check:\n"
			"%s/enlightenment-%s\n"),
		      tmp, user);
	     e_error_message_show(buf);
	     return 0;
	  }
     }
   snprintf(buf, sizeof(buf), "%s/enlightenment-%s/disp-%s-%i", tmp, user, disp, pid);
   _e_ipc_server = ecore_ipc_server_add(ECORE_IPC_LOCAL_SYSTEM, buf, 0, NULL);
   e_util_env_set("E_IPC_SOCKET", "");
   if (!_e_ipc_server) return 0;
   e_util_env_set("E_IPC_SOCKET", buf);
   printf("INFO: E_IPC_SOCKET=%s\n", buf);
   ecore_event_handler_add(ECORE_IPC_EVENT_CLIENT_ADD, _e_ipc_cb_client_add, NULL);
   ecore_event_handler_add(ECORE_IPC_EVENT_CLIENT_DEL, _e_ipc_cb_client_del, NULL);
   ecore_event_handler_add(ECORE_IPC_EVENT_CLIENT_DATA, _e_ipc_cb_client_data, NULL);

   e_ipc_codec_init();
#endif   
   return 1;
}

EAPI void
e_ipc_shutdown(void)
{
#ifdef USE_IPC  
   e_ipc_codec_shutdown();
   if (_e_ipc_server)
     {
	ecore_ipc_server_del(_e_ipc_server);
	_e_ipc_server = NULL;
     }
#endif   
}

#ifdef USE_IPC  
/* local subsystem globals */
static int
_e_ipc_cb_client_add(void *data __UNUSED__, int type __UNUSED__, void *event)
{
   Ecore_Ipc_Event_Client_Add *e;
   
   e = event;
   if (ecore_ipc_client_server_get(e->client) != _e_ipc_server) return 1;
   return 1;
}

static int
_e_ipc_cb_client_del(void *data __UNUSED__, int type __UNUSED__, void *event)
{
   Ecore_Ipc_Event_Client_Del *e;
   
   e = event;
   if (ecore_ipc_client_server_get(e->client) != _e_ipc_server) return 1;
   /* delete client sruct */
   e_thumb_client_del(e);
   ecore_ipc_client_del(e->client);
   return 1;
}

static int
_e_ipc_cb_client_data(void *data __UNUSED__, int type __UNUSED__, void *event)
{
   Ecore_Ipc_Event_Client_Data *e;
   
   e = event;
   if (ecore_ipc_client_server_get(e->client) != _e_ipc_server) return 1;
   switch (e->major)
     {
      case E_IPC_DOMAIN_SETUP:
      case E_IPC_DOMAIN_REQUEST:
      case E_IPC_DOMAIN_REPLY:
      case E_IPC_DOMAIN_EVENT:
	switch (e->minor)
	  {
#define TYPE  E_WM_IN
#include "e_ipc_handlers.h"
#undef TYPE	
	   default:
	     break;
	  }
	break;
      case E_IPC_DOMAIN_THUMB:
	e_thumb_client_data(e);
	break;
      default:
	break;
     }
   return 1;
}  
#endif
