enlightenment-module-mail/e_mod_main.c

/*
 * Copyright (C) 2006 Christopher Michael
 *
 * Portions of this code Copyright (C) 2004 Embrace project.
 *
 * This program is free software; you can redistribute it and/or modify
 * it under the terms of version 2 of the GNU General Public License as
 * published by the Free Software Foundation.
 *
 * This program is distributed in the hope that it cwill be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program; if not, write to the Free Software Foundation,
 * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307, USA.
 */

#include <e.h>
#include "e_mod_main.h"
#include "imap.h"
#include "pop.h"
#include "mdir.h"
#include "mbox.h"

/* Func Protos for Gadcon */
static E_Gadcon_Client *_gc_init (E_Gadcon * gc, const char *name,
				  const char *id, const char *style);
static void _gc_shutdown (E_Gadcon_Client * gcc);
static void _gc_orient (E_Gadcon_Client * gcc);
static char *_gc_label (void);
static Evas_Object *_gc_icon (Evas * evas);

/* Func Protos for Module */
static void _mail_cb_mouse_down (void *data, Evas * e, Evas_Object * obj,
				 void *event_info);
static void _mail_cb_mouse_in (void *data, Evas * e, Evas_Object * obj,
			       void *event_info);
static void _mail_cb_mouse_out (void *data, Evas * e, Evas_Object * obj,
				void *event_info);
static void _mail_menu_cb_configure (void *data, E_Menu * m,
				     E_Menu_Item * mi);
static void _mail_menu_cb_post (void *data, E_Menu * m);
static void _mail_menu_cb_exec (void *data, E_Menu * m, E_Menu_Item * mi);
static Config_Item *_mail_config_item_get (const char *id);
static Mail *_mail_new (Evas * evas);
static void _mail_free (Mail * mail);
static int _mail_cb_check (void *data);
static int _mail_cb_exe_exit (void *data, int type, void *event);

static E_Config_DD *conf_edd = NULL;
static E_Config_DD *conf_item_edd = NULL;
static E_Config_DD *conf_box_edd = NULL;

Config *mail_config = NULL;

static Ecore_Event_Handler *exit_handler;

static const E_Gadcon_Client_Class _gc_class = {
  GADCON_CLIENT_CLASS_VERSION,
  "mail", {_gc_init, _gc_shutdown, _gc_orient, _gc_label, _gc_icon},
  E_GADCON_CLIENT_STYLE_PLAIN
};

static E_Gadcon_Client *
_gc_init (E_Gadcon * gc, const char *name, const char *id, const char *style)
{
  E_Gadcon_Client *gcc;
  Instance *inst;
  Mail *mail;
  Config_Item *ci;
  Evas_List *l, *j;
  int have_pop = 0, have_imap = 0, have_mbox = 0;

  inst = E_NEW (Instance, 1);
  ci = _mail_config_item_get (id);
  if (!ci->id)
    ci->id = evas_stringshare_add (id);

  mail = _mail_new (gc->evas);
  mail->inst = inst;
  inst->mail = mail;

  gcc = e_gadcon_client_new (gc, name, id, style, mail->mail_obj);
  gcc->data = inst;
  inst->gcc = gcc;
  inst->mail_obj = mail->mail_obj;

  evas_object_event_callback_add (inst->mail_obj, EVAS_CALLBACK_MOUSE_DOWN,
				  _mail_cb_mouse_down, inst);
  evas_object_event_callback_add (inst->mail_obj, EVAS_CALLBACK_MOUSE_IN,
				  _mail_cb_mouse_in, inst);
  evas_object_event_callback_add (inst->mail_obj, EVAS_CALLBACK_MOUSE_OUT,
				  _mail_cb_mouse_out, inst);

  if (ci->show_label)
    edje_object_signal_emit (inst->mail_obj, "label_active", "");
  else
    edje_object_signal_emit (inst->mail_obj, "label_passive", "");

  mail_config->instances = evas_list_append (mail_config->instances, inst);
  for (l = mail_config->items; l; l = l->next)
    {
      Config_Item *ci;

      ci = l->data;
      for (j = ci->boxes; j; j = j->next)
	{
	  Config_Box *cb;

	  cb = j->data;
	  switch (cb->type)
	    {
	    case MAIL_TYPE_IMAP:
	      have_imap = 1;
	      _mail_imap_add_mailbox (cb);
	      if (!inst->check_timer)
		inst->check_timer =
		  ecore_timer_add ((ci->check_time * 60.0), _mail_cb_check,
				   inst);
	      break;
	    case MAIL_TYPE_POP:
	      have_pop = 1;
	      _mail_pop_add_mailbox (cb);
	      if (!inst->check_timer)
		inst->check_timer =
		  ecore_timer_add ((ci->check_time * 60.0), _mail_cb_check,
				   inst);
	      break;
	    case MAIL_TYPE_MDIR:
	      _mail_mdir_add_mailbox (inst, cb);
	      break;
	    case MAIL_TYPE_MBOX:
	      have_mbox = 1;
	      _mail_mbox_add_mailbox (inst, cb);
	      if (!inst->check_timer)
		inst->check_timer =
		  ecore_timer_add ((ci->check_time * 60.0), _mail_cb_check,
				   inst);
	      break;
	    }
	}
      if (have_pop)
	_mail_pop_check_mail (inst);
      if (have_imap)
	_mail_imap_check_mail (inst);
      if (have_mbox)
	_mail_mbox_check_mail (inst);
    }
  return gcc;
}

static void
_gc_shutdown (E_Gadcon_Client * gcc)
{
  Instance *inst;

  inst = gcc->data;

   if (inst->check_timer)
     ecore_timer_del(inst->check_timer);
   
  evas_object_event_callback_del (inst->mail_obj, EVAS_CALLBACK_MOUSE_DOWN,
				  _mail_cb_mouse_down);
  evas_object_event_callback_del (inst->mail_obj, EVAS_CALLBACK_MOUSE_IN,
				  _mail_cb_mouse_in);
  evas_object_event_callback_del (inst->mail_obj, EVAS_CALLBACK_MOUSE_OUT,
				  _mail_cb_mouse_out);

  mail_config->instances = evas_list_remove (mail_config->instances, inst);
  _mail_free (inst->mail);
  free (inst);
  inst = NULL;
}

static void
_gc_orient (E_Gadcon_Client * gcc)
{
  e_gadcon_client_aspect_set (gcc, 16, 16);
  e_gadcon_client_min_size_set (gcc, 16, 16);
}

static char *
_gc_label (void)
{
  return D_("Mail");
}

static Evas_Object *
_gc_icon (Evas * evas)
{
  Evas_Object *o;
  char buf[4096];

  o = edje_object_add (evas);
  snprintf (buf, sizeof (buf), "%s/module.edj",
	    e_module_dir_get (mail_config->module));
  edje_object_file_set (o, buf, "icon");
  return o;
}

static void
_mail_cb_mouse_down (void *data, Evas * e, Evas_Object * obj,
		     void *event_info)
{
  Instance *inst = data;
  Config_Item *ci;
  Evas_Event_Mouse_Down *ev = event_info;
  Evas_List *l;

  if (!inst)
    return;
  if ((ev->button == 3) && (!mail_config->menu))
    {
      E_Menu *mn, *sn;
      E_Menu_Item *mi;
      int x, y, w, h;
      char buf[1024];

      mn = e_menu_new ();
      e_menu_post_deactivate_callback_set (mn, _mail_menu_cb_post, inst);
      mail_config->menu = mn;

      ci = _mail_config_item_get (inst->gcc->id);
      if ((ci->boxes) && (evas_list_count (ci->boxes) > 0))
	{
	  E_Menu_Item *mm;

	  snprintf (buf, sizeof (buf), "%s/module.edj",
		    e_module_dir_get (mail_config->module));
	  mm = e_menu_item_new (mn);
	  e_menu_item_label_set (mm, D_("Mailboxes"));
	  e_menu_item_icon_edje_set (mm, buf, "icon");

	  sn = e_menu_new ();
	  for (l = ci->boxes; l; l = l->next)
	    {
	      Config_Box *cb;

	      cb = l->data;
	      if (!cb)
		continue;
	      mi = e_menu_item_new (sn);
	      snprintf (buf, sizeof (buf), "%s: %d/%d", cb->name, cb->num_new,
			cb->num_total);
	      e_menu_item_label_set (mi, buf);
	      if ((cb->exec) && (cb->use_exec))
		e_menu_item_callback_set (mi, _mail_menu_cb_exec, cb);
	    }
	  e_menu_item_submenu_set (mm, sn);
	  mi = e_menu_item_new (mn);
	  e_menu_item_separator_set (mi, 1);
	}

      mi = e_menu_item_new (mn);
      e_menu_item_label_set (mi, _("Configuration"));
      e_util_menu_item_edje_icon_set (mi, "enlightenment/configuration");
      e_menu_item_callback_set (mi, _mail_menu_cb_configure, inst);

      mi = e_menu_item_new (mn);
      e_menu_item_separator_set (mi, 1);

      e_gadcon_client_util_menu_items_append (inst->gcc, mn, 0);
      e_gadcon_canvas_zone_geometry_get (inst->gcc->gadcon, &x, &y, &w, &h);
      e_menu_activate_mouse (mn,
			     e_util_zone_current_get (e_manager_current_get
						      ()), x + ev->output.x,
			     y + ev->output.y, 1, 1,
			     E_MENU_POP_DIRECTION_DOWN, ev->timestamp);
      evas_event_feed_mouse_up (inst->gcc->gadcon->evas, ev->button,
				EVAS_BUTTON_NONE, ev->timestamp, NULL);
    }
  else if (ev->button == 1)
    _mail_cb_check (inst);
}

static void
_mail_cb_mouse_in (void *data, Evas * e, Evas_Object * obj, void *event_info)
{
  Instance *inst = data;

  if (!inst)
    return;
  edje_object_signal_emit (inst->mail_obj, "label_active", "");
}

static void
_mail_cb_mouse_out (void *data, Evas * e, Evas_Object * obj, void *event_info)
{
  Instance *inst = data;
  Config_Item *ci;

  if (!inst)
    return;
  ci = _mail_config_item_get (inst->gcc->id);
  if (!ci->show_label)
    edje_object_signal_emit (inst->mail_obj, "label_passive", "");
}

static void
_mail_menu_cb_post (void *data, E_Menu * m)
{
  if (!mail_config->menu)
    return;
  e_object_del (E_OBJECT (mail_config->menu));
  mail_config->menu = NULL;
}

static void
_mail_menu_cb_configure (void *data, E_Menu * m, E_Menu_Item * mi)
{
  Instance *inst = data;
  Config_Item *ci;

  if (!inst)
    return;
  ci = _mail_config_item_get (inst->gcc->id);
  _config_mail_module (ci);
}

static Config_Item *
_mail_config_item_get (const char *id)
{
  Evas_List *l;
  Config_Item *ci;

  for (l = mail_config->items; l; l = l->next)
    {
      ci = l->data;
      if (!ci->id)
	continue;
      if (!strcmp (ci->id, id))
	return ci;
    }

  ci = E_NEW (Config_Item, 1);
  ci->id = evas_stringshare_add (id);
  ci->show_label = 1;
  ci->check_time = 15.0;
  ci->boxes = NULL;

  mail_config->items = evas_list_append (mail_config->items, ci);
  return ci;
}

EAPI E_Module_Api e_modapi = {
  E_MODULE_API_VERSION,
  "Mail"
};

EAPI void *
e_modapi_init (E_Module * m)
{
  bindtextdomain(PACKAGE, LOCALEDIR);
  bind_textdomain_codeset(PACKAGE, "UTF-8");

  conf_box_edd = E_CONFIG_DD_NEW ("Mail_Box_Config", Config_Box);
#undef T
#undef D
#define T Config_Box
#define D conf_box_edd
  E_CONFIG_VAL (D, T, name, STR);
  E_CONFIG_VAL (D, T, type, INT);
  E_CONFIG_VAL (D, T, port, INT);
  E_CONFIG_VAL (D, T, monitor, UCHAR);
  E_CONFIG_VAL (D, T, ssl, UCHAR);
  E_CONFIG_VAL (D, T, local, UCHAR);   
  E_CONFIG_VAL (D, T, host, STR);
  E_CONFIG_VAL (D, T, user, STR);
  E_CONFIG_VAL (D, T, pass, STR);
  E_CONFIG_VAL (D, T, new_path, STR);
  E_CONFIG_VAL (D, T, cur_path, STR);
  E_CONFIG_VAL (D, T, use_exec, UCHAR);
  E_CONFIG_VAL (D, T, exec, STR);

  conf_item_edd = E_CONFIG_DD_NEW ("Mail_Config_Item", Config_Item);
#undef T
#undef D
#define T Config_Item
#define D conf_item_edd
  E_CONFIG_VAL (D, T, id, STR);
  E_CONFIG_VAL (D, T, show_label, UCHAR);
  E_CONFIG_VAL (D, T, check_time, DOUBLE);
  E_CONFIG_LIST (D, T, boxes, conf_box_edd);

  conf_edd = E_CONFIG_DD_NEW ("Mail_Config", Config);
#undef T
#undef D
#define T Config
#define D conf_edd
  E_CONFIG_LIST (D, T, items, conf_item_edd);

  mail_config = e_config_domain_load ("module.mail", conf_edd);
  if (!mail_config)
    {
      Config_Item *ci;

      mail_config = E_NEW (Config, 1);
      ci = E_NEW (Config_Item, 1);

      ci->id = evas_stringshare_add ("0");
      ci->show_label = 1;
      ci->check_time = 15.0;
      ci->boxes = NULL;

      mail_config->items = evas_list_append (mail_config->items, ci);
    }
  mail_config->module = m;
  e_gadcon_provider_register (&_gc_class);
  return m;
}

EAPI int
e_modapi_shutdown (E_Module * m)
{
  mail_config->module = NULL;
  e_gadcon_provider_unregister (&_gc_class);

  if (exit_handler)
    ecore_event_handler_del (exit_handler);

  if (mail_config->config_dialog)
    e_object_del (E_OBJECT (mail_config->config_dialog));
  if (mail_config->menu)
    {
      e_menu_post_deactivate_callback_set (mail_config->menu, NULL, NULL);
      e_object_del (E_OBJECT (mail_config->menu));
      mail_config->menu = NULL;
    }
  while (mail_config->items)
    {
      Config_Item *ci;

      ci = mail_config->items->data;
      while (ci->boxes)
	{
	  Config_Box *cb;

	  cb = ci->boxes->data;
	  switch (cb->type)
	    {
	    case MAIL_TYPE_IMAP:
	      _mail_imap_del_mailbox (cb);
	      break;
	    case MAIL_TYPE_POP:
	      _mail_pop_del_mailbox (cb);
	      break;
	    case MAIL_TYPE_MDIR:
	      _mail_mdir_del_mailbox (cb);
	      break;
	    case MAIL_TYPE_MBOX:
	      _mail_mbox_del_mailbox (cb);
	      break;
	    }
	  if (cb->name)
	    evas_stringshare_del (cb->name);
	  if (cb->host)
	    evas_stringshare_del (cb->host);
	  if (cb->user)
	    evas_stringshare_del (cb->user);
	  if (cb->pass)
	    evas_stringshare_del (cb->pass);
	  if (cb->new_path)
	    evas_stringshare_del (cb->new_path);
	  if (cb->cur_path)
	    evas_stringshare_del (cb->cur_path);
	  if (cb->exec)
	    evas_stringshare_del (cb->exec);
	  ci->boxes = evas_list_remove_list (ci->boxes, ci->boxes);
	  free (cb);
	  cb = NULL;
	}
      if (ci->id)
	evas_stringshare_del (ci->id);
      mail_config->items =
	evas_list_remove_list (mail_config->items, mail_config->items);
      free (ci);
      ci = NULL;
    }
  _mail_imap_shutdown ();
  _mail_pop_shutdown ();
  _mail_mdir_shutdown ();
  _mail_mbox_shutdown ();
  free (mail_config);
  mail_config = NULL;
  E_CONFIG_DD_FREE (conf_box_edd);
  E_CONFIG_DD_FREE (conf_item_edd);
  E_CONFIG_DD_FREE (conf_edd);
  return 1;
}

EAPI int
e_modapi_save (E_Module * m)
{
  Evas_List *l;

  for (l = mail_config->instances; l; l = l->next)
    {
      Instance *inst;
      Config_Item *ci;

      inst = l->data;
      ci = _mail_config_item_get (inst->gcc->id);
      if (ci->id)
	evas_stringshare_del (ci->id);
      ci->id = evas_stringshare_add (inst->gcc->id);
    }
  e_config_domain_save ("module.mail", conf_edd, mail_config);
  return 1;
}

EAPI int
e_modapi_about (E_Module * m)
{
  e_module_dialog_show (m, D_("Enlightenment Mail Module"),
			D_("This is a module to notify when you have new mail."));
  return 1;
}

static Mail *
_mail_new (Evas * evas)
{
  Mail *mail;
  char buf[4096];

  mail = E_NEW (Mail, 1);
  mail->mail_obj = edje_object_add (evas);

  snprintf (buf, sizeof (buf), "%s/mail.edj",
	    e_module_dir_get (mail_config->module));
  if (!e_theme_edje_object_set
      (mail->mail_obj, "base/theme/modules/mail", "modules/mail/main"))
    edje_object_file_set (mail->mail_obj, buf, "modules/mail/main");
  evas_object_show (mail->mail_obj);

  return mail;
}

static void
_mail_free (Mail * mail)
{
  evas_object_del (mail->mail_obj);
  free (mail);
  mail = NULL;
}

static int
_mail_cb_check (void *data)
{
  Instance *inst = data;
  Config_Item *ci;
  Evas_List *l;
  int have_imap = 0, have_pop = 0, have_mbox = 0;

  if (!inst)
    return 1;

  ci = _mail_config_item_get (inst->gcc->id);
  if (!ci->boxes)
    return 1;

  for (l = ci->boxes; l; l = l->next)
    {
      Config_Box *cb;

      cb = l->data;
      if (!cb)
	continue;
      switch (cb->type)
	{
	case MAIL_TYPE_MDIR:
	  break;
	case MAIL_TYPE_MBOX:
	  have_mbox = 1;
	  break;
	case MAIL_TYPE_POP:
	  have_pop = 1;
	  break;
	case MAIL_TYPE_IMAP:
	  have_imap = 1;
	  break;
	}
    }

  if ((have_imap) || (have_pop) || (have_mbox))
     edje_object_signal_emit (inst->mail->mail_obj, "check_mail", "");
     
   if (have_imap)
     _mail_imap_check_mail (inst);
   if (have_pop)
     _mail_pop_check_mail (inst);     
   if (have_mbox)
     _mail_mbox_check_mail (inst);
   return 1;
}

void
_mail_set_text (void *data)
{
  Instance *inst = data;
  Config_Item *ci;
  Evas_List *l;
  char buf[1024];
  int count = 0;

  if (!inst)
    return;

  ci = _mail_config_item_get (inst->gcc->id);
  if (!ci)
    return;

   if (ci->boxes) 
     {
	for (l = ci->boxes; l; l = l->next)
	  {
	     Config_Box *cb;
	     
	     cb = l->data;
	     if (!cb)
	       continue;
	     count += cb->num_new;
	  }
     }
   
  if (count > 0)
    {
      snprintf (buf, sizeof (buf), "%d", count);
      edje_object_part_text_set (inst->mail->mail_obj, "new_label", buf);
      edje_object_signal_emit (inst->mail->mail_obj, "new_mail", "");
    }
  else
    {
       edje_object_part_text_set (inst->mail->mail_obj, "new_label", "");
       edje_object_signal_emit (inst->mail->mail_obj, "no_mail", "");
    }
}

void
_mail_start_exe (void *data)
{
  Config_Box *cb;

  cb = data;
  if (!cb)
    return;

  exit_handler =
    ecore_event_handler_add (ECORE_EXE_EVENT_DEL, _mail_cb_exe_exit, cb);
  cb->exe = ecore_exe_run (cb->exec, cb);
}

static int
_mail_cb_exe_exit (void *data, int type, void *event)
{
  Config_Box *cb;

  cb = data;
  if (!cb)
    return 0;
  cb->exe = NULL;
  ecore_event_handler_del (exit_handler);
  return 0;
}

void
_mail_box_added (const char *ci_name, const char *box_name)
{
  Evas_List *l, *b;

  for (l = mail_config->instances; l; l = l->next)
    {
      Instance *inst;
      Config_Item *ci;

      inst = l->data;
      ci = _mail_config_item_get (inst->gcc->id);
      if ((ci->id) && (!strcmp (ci->id, ci_name)))
	{
	  for (b = ci->boxes; b; b = b->next)
	    {
	      Config_Box *cb;

	      cb = b->data;
	      if ((cb->name) && (!strcmp (cb->name, box_name)))
		{
		  switch (cb->type)
		    {
		    case MAIL_TYPE_IMAP:
		      _mail_imap_add_mailbox (cb);
		      break;
		    case MAIL_TYPE_POP:
		      _mail_pop_add_mailbox (cb);
		      break;
		    case MAIL_TYPE_MDIR:
		      _mail_mdir_add_mailbox (inst, cb);
		      break;
		    case MAIL_TYPE_MBOX:
		      _mail_mbox_add_mailbox (inst, cb);
		      break;
		    }
		  break;
		}
	    }
	  break;
	}
    }
}

void
_mail_box_deleted (const char *ci_name, const char *box_name)
{
  Evas_List *d, *i;
  Config_Box *cb;
  int found = 0;

  for (i = mail_config->instances; i; i = i->next)
    {
      Instance *inst;

      inst = i->data;
      if (!inst->gcc->id)
	continue;
      if (!strcmp (inst->gcc->id, ci_name))
	{
	  Config_Item *ci;

	  ci = _mail_config_item_get (inst->gcc->id);
	  for (d = ci->boxes; d; d = d->next)
	    {
	      cb = d->data;
	      if ((cb->name) && (box_name))
		{
		  if (!strcmp (cb->name, box_name))
		    {
		      found = 1;
		      break;
		    }
		}
	    }
	  if (found)
	    {
	      switch (cb->type)
		{
		case MAIL_TYPE_IMAP:
		  _mail_imap_del_mailbox (cb);
		  break;
		case MAIL_TYPE_POP:
		  _mail_pop_del_mailbox (cb);
		  break;
		case MAIL_TYPE_MDIR:
		  _mail_mdir_del_mailbox (cb);
		  break;
		case MAIL_TYPE_MBOX:
		  _mail_mbox_del_mailbox (cb);
		  break;
		}
	      ci->boxes = evas_list_remove (ci->boxes, cb);
	      e_config_save_queue ();
	      break;
	    }
	  break;
	}
    }
}

void
_mail_config_updated (const char *id)
{
  Evas_List *l;
  Config_Item *ci;

  if (!mail_config)
    return;

  ci = _mail_config_item_get (id);
  for (l = mail_config->instances; l; l = l->next)
    {
      Instance *inst;

      inst = l->data;
      if (!inst->gcc->id)
	continue;
      if (!strcmp (inst->gcc->id, ci->id))
	{
	  if (inst->check_timer)
	    {
	      ecore_timer_del (inst->check_timer);
	      inst->check_timer =
		ecore_timer_add ((ci->check_time * 60.0), _mail_cb_check,
				 inst);
	    }

	  if (ci->show_label)
	    edje_object_signal_emit (inst->mail_obj, "label_active", "");
	  else
	    edje_object_signal_emit (inst->mail_obj, "label_passive", "");
	  break;
	}
    }
}

static void
_mail_menu_cb_exec (void *data, E_Menu * m, E_Menu_Item * mi)
{
  Config_Box *cb;

  cb = data;
  if (!cb)
    return;

  exit_handler =
    ecore_event_handler_add (ECORE_EXE_EVENT_DEL, _mail_cb_exe_exit, cb);
  cb->exe = ecore_exe_run (cb->exec, cb);
}