#include <e.h>
#include "e_mod_main.h"
#include "mbox.h"

static Evas_List *mboxes;

static void _mail_mbox_check_mail (void *data, Ecore_File_Monitor * monitor,
				   Ecore_File_Event event, const char *path);

void
_mail_mbox_add_mailbox (void *data, void *data2)
{
  MboxClient *mb;
  Config_Box *cb;

  cb = data2;
  if (!cb)
    return;

  mb = E_NEW (MboxClient, 1);
  mb->config = cb;
  mb->data = data;
  mb->config->num_new = 0;
  mb->config->num_total = 0;
  mb->monitor =
    ecore_file_monitor_add (cb->new_path, _mail_mbox_check_mail, mb);

  mboxes = evas_list_append (mboxes, mb);
}

void
_mail_mbox_del_mailbox (void *data)
{
  Config_Box *cb;
  Evas_List *l;

  cb = data;
  if (!cb)
    return;
  for (l = mboxes; l; l = l->next)
    {
      MboxClient *mb;

      mb = l->data;
      if (!mb)
	continue;
      if (mb->config != cb)
	continue;
      if (mb->monitor)
	ecore_file_monitor_del (mb->monitor);
      mboxes = evas_list_remove (mboxes, mb);
      free (mb);
      mb = NULL;
      break;
    }
}

void
_mail_mbox_shutdown ()
{
  if (!mboxes)
    return;
  while (mboxes)
    {
      MboxClient *mb;

      mb = mboxes->data;
      if (mb->monitor)
	ecore_file_monitor_del (mb->monitor);
      mboxes = evas_list_remove_list (mboxes, mboxes);
      free (mb);
      mb = NULL;
    }
}

/* PRIVATES */
static void
_mail_mbox_check_mail (void *data, Ecore_File_Monitor * monitor,
		       Ecore_File_Event event, const char *path)
{
  MboxClient *mb;
  Config_Box *cb;
  FILE *f;
  char buf[1024];
  int header;

  mb = data;
  if (!mb)
    return;

  cb = mb->config;
  if (!cb)
    return;
  if (!cb->new_path)
    return;

  if (!(f = fopen (cb->new_path, "r")))
    return;

  mb->config->num_new = 0;
  mb->config->num_total = 0;

  while (fgets (buf, sizeof (buf), f))
    {
      if (buf[0] == '\n')
	header = 0;
      else if (!strncmp (buf, "From ", 5))
	{
	  header = 1;
	  mb->config->num_total++;
	  mb->config->num_new++;
	}
      else if ((header) && (!strncmp (buf, "Status: ", 7))
	       && (strchr (buf, 'R')))
	mb->config->num_new--;
    }
  fclose (f);

  _mail_set_text (mb->data);
  if ((mb->config->num_new > 0) && (mb->config->use_exec)
      && (mb->config->exec))
    _mail_start_exe (mb->config);
}