/*
 * Copyright (C) 1999-2000, Michael Jennings
 *
 * Permission is hereby granted, free of charge, to any person obtaining a copy
 * of this software and associated documentation files (the "Software"), to
 * deal in the Software without restriction, including without limitation the
 * rights to use, copy, modify, merge, publish, distribute, sublicense, and/or
 * sell copies of the Software, and to permit persons to whom the Software is
 * furnished to do so, subject to the following conditions:
 *
 * The above copyright notice and this permission notice shall be included in
 * all copies of the Software, its documentation and marketing & publicity
 * materials, and acknowledgment shall be given in the documentation, materials
 * and software packages that this Software was used.
 *
 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
 * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
 * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL
 * THE AUTHORS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER
 * IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
 * CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 */
#include "config.h"
#include "epplet.h"

#define MAIL_PATH       "/var/spool/mail"
#define MAIL_PROG       "Eterm -t mutt"
#define POLL_INTERVAL   "2.0"
#define NOMAIL_IMAGE    "nomail.png"
#define NEWMAIL_IMAGE   "newmail.png"
#define SEVEN_IMAGE     "7of9.png"

#if 0
#define D(x) do {printf("%10s | %7d:  [debug] ", __FILE__, __LINE__); printf x; fflush(stdout);} while (0)
#else
#define D(x) ((void) 0)
#endif
#define BEGMATCH(a, b)  (!strncasecmp((a), (b), (sizeof(b) - 1)))
#define NONULL(x)       ((x) ? (x) : (""))

extern int          mail_folder_count(const char *, int);

extern unsigned long new_cnt, total_cnt;

static Epplet_gadget close_button, mp_button, cfg_button, nomail, newmail,
   seven, cnt_label;
static Epplet_gadget cfg_tb_mbox, cfg_tb_mailprog, cfg_tb_interval,
   cfg_tb_nomail, cfg_tb_newmail, cfg_tb_seven, cfg_tb_sound, cfg_tb_boxname;
static Window       config_win = None;
static const char  *folder_path = NULL, *mailprog = MAIL_PROG, *sound = NULL,
   *nomail_image = NOMAIL_IMAGE, *newmail_image = NEWMAIL_IMAGE,
   *seven_image = SEVEN_IMAGE, *boxname = NULL;
static int          mp_pid = 0;
static int          beep = 1, cfg_beep;
static int          box_visible = 0, cfg_box_visible;
static int          show_total = 1, cfg_total;
static double       interval = 2.0;

static void
display_count(void)
{
   char                label_text[64];

   if (show_total)
      Esnprintf(label_text, sizeof(label_text), "%lu / %lu", new_cnt,
		total_cnt);
   else
      Esnprintf(label_text, sizeof(label_text), "%lu", new_cnt);
   Epplet_change_label(cnt_label, label_text);
}

static const char  *
get_box_basename(const char *mbox)
{
   const char         *p;

   p = strrchr(mbox, '/');
   return (p ? (p + 1) : mbox);
}

static void
mailcheck_cb(void *data __UNUSED__)
{
   D(("mailcheck_cb() called.\n"));
   if ((mail_folder_count(folder_path, 0)) != 0)
     {
	if (new_cnt != 0)
	  {
	     if (new_cnt == 7 && total_cnt == 9)
	       {
		  Epplet_gadget_hide(nomail);
		  Epplet_gadget_hide(newmail);
		  Epplet_gadget_show(seven);
	       }
	     else
	       {
		  Epplet_gadget_hide(nomail);
		  Epplet_gadget_hide(seven);
		  Epplet_gadget_show(newmail);
	       }
	     if (beep)
	       {
		  XBell(Epplet_get_display(), 0);
	       }
	     else if (sound)
	       {
		  Epplet_run_command(sound);
	       }
	  }
	else
	  {
	     Epplet_gadget_hide(newmail);
	     Epplet_gadget_hide(seven);
	     Epplet_gadget_show(nomail);
	  }
	display_count();
     }
   Epplet_timer(mailcheck_cb, NULL, interval, "TIMER");
}

static void
close_cb(void *data __UNUSED__)
{
   Epplet_unremember();
   Esync();
   exit(0);
}

static void
mailprog_cb(void *data __UNUSED__)
{
   mp_pid = Epplet_spawn_command(mailprog);
}

static void
in_cb(void *data __UNUSED__, Window w)
{
   if (w == Epplet_get_main_window())
     {
	Epplet_gadget_show(close_button);
	Epplet_gadget_show(mp_button);
	Epplet_gadget_show(cfg_button);
     }
}

static void
out_cb(void *data __UNUSED__, Window w)
{
   if (w == Epplet_get_main_window())
     {
	Epplet_gadget_hide(close_button);
	if (!box_visible)
	  {
	     Epplet_gadget_hide(mp_button);
	  }
	Epplet_gadget_hide(cfg_button);
     }
}

static int
delete_cb(void *data __UNUSED__, Window w __UNUSED__)
{
   config_win = None;
   return 1;
}

static void
apply_config(void)
{
   char                buff[1024];

   strcpy(buff, Epplet_textbox_contents(cfg_tb_mbox));
   if (strcmp(folder_path, buff))
     {
	Epplet_modify_config("mailbox", buff);
	folder_path = Epplet_query_config("mailbox");
	mailcheck_cb(NULL);
     }

   strcpy(buff, Epplet_textbox_contents(cfg_tb_interval));
   if ((interval = atof(buff)) != 0.0)
     {
	Epplet_modify_config("interval", buff);
     }
   else
     {
	interval = atof(Epplet_query_config_def("interval", "2.0"));
     }

   strcpy(buff, Epplet_textbox_contents(cfg_tb_mailprog));
   if (strcmp(mailprog, buff))
     {
	Epplet_modify_config("mailprog", buff);
	mailprog = Epplet_query_config("mailprog");
     }

   strcpy(buff, Epplet_textbox_contents(cfg_tb_newmail));
   if (strcmp(newmail_image, buff))
     {
	Epplet_modify_config("new_mail_image", buff);
	newmail_image = Epplet_query_config("new_mail_image");
     }

   strcpy(buff, Epplet_textbox_contents(cfg_tb_nomail));
   if (strcmp(nomail_image, buff))
     {
	Epplet_modify_config("no_mail_image", buff);
	nomail_image = Epplet_query_config("no_mail_image");
     }

   strcpy(buff, Epplet_textbox_contents(cfg_tb_seven));
   if (strcmp(seven_image, buff))
     {
	Epplet_modify_config("seven_image", buff);
	newmail_image = Epplet_query_config("seven_image");
     }

   strcpy(buff, Epplet_textbox_contents(cfg_tb_sound));
   if (strlen(buff))
     {
	if (!sound || strcmp(sound, buff))
	  {
	     Epplet_modify_config("sound", buff);
	     sound = Epplet_query_config("sound");
	  }
     }
   else if (sound)
     {
	Epplet_modify_config("sound", NULL);
	sound = NULL;
     }

   if (beep != cfg_beep)
     {
	beep = cfg_beep;
	sprintf(buff, "%d", beep);
	Epplet_modify_config("beep", buff);
     }

   strcpy(buff, Epplet_textbox_contents(cfg_tb_boxname));
   if (strlen(buff))
     {
	if (!boxname || strcmp(boxname, buff))
	  {
	     Epplet_modify_config("boxname", buff);
	     boxname = Epplet_query_config("boxname");
	     Epplet_change_button_label(mp_button, boxname);
	  }
     }
   else if (boxname)
     {
	Epplet_change_button_label(mp_button, get_box_basename(folder_path));
	Epplet_modify_config("boxname", NULL);
	boxname = NULL;
     }

   if (box_visible != cfg_box_visible)
     {
	box_visible = cfg_box_visible;
	sprintf(buff, "%d", box_visible);
	Epplet_modify_config("box_visible", buff);
	if (box_visible)
	  {
	     Epplet_gadget_show(mp_button);
	  }
	else
	  {
	     Epplet_gadget_hide(mp_button);
	  }
     }

   if (show_total != cfg_total)
     {
	show_total = cfg_total;
	sprintf(buff, "%d", show_total);
	Epplet_modify_config("show_total", buff);
	display_count();
     }
}

static void
ok_cb(void *data __UNUSED__)
{
   Epplet_window_destroy(config_win);
   config_win = None;
   apply_config();
   Epplet_save_config();
}

static void
apply_cb(void *data __UNUSED__)
{
   apply_config();
}

static void
cancel_cb(void *data __UNUSED__)
{
   Epplet_window_destroy(config_win);
   config_win = None;
}

static void
config_cb(void *data __UNUSED__)
{
   char                buff[128];

   if (config_win)
     {
	return;
     }

   config_win =
      Epplet_create_window_config(300, 464, "E-Biff Configuration", ok_cb, NULL,
				  apply_cb, NULL, cancel_cb, NULL);

   Epplet_gadget_show(Epplet_create_label(4, 4, "Mailbox path:", 2));
   Epplet_gadget_show(cfg_tb_mbox =
		      Epplet_create_textbox(NULL, folder_path, 4, 18, 292, 20,
					    2, NULL, NULL));

   sprintf(buff, "%3.2f", interval);
   Epplet_gadget_show(Epplet_create_label
		      (4, 50, "Polling interval (seconds):", 2));
   Epplet_gadget_show(cfg_tb_interval =
		      Epplet_create_textbox(NULL, buff, 4, 64, 292, 20, 2, NULL,
					    NULL));

   Epplet_gadget_show(Epplet_create_label
		      (4, 96, "Mail reader command line:", 2));
   Epplet_gadget_show(cfg_tb_mailprog =
		      Epplet_create_textbox(NULL, mailprog, 4, 110, 292, 20, 2,
					    NULL, NULL));

   Epplet_gadget_show(Epplet_create_label
		      (4, 142, "Image to display with new mail:", 2));
   Epplet_gadget_show(cfg_tb_newmail =
		      Epplet_create_textbox(NULL, newmail_image, 4, 156, 292,
					    20, 2, NULL, NULL));

   Epplet_gadget_show(Epplet_create_label
		      (4, 188, "Image to display with no new mail:", 2));
   Epplet_gadget_show(cfg_tb_nomail =
		      Epplet_create_textbox(NULL, nomail_image, 4, 202, 292, 20,
					    2, NULL, NULL));

   Epplet_gadget_show(Epplet_create_label(4, 234, "Seven of Nine Image:", 2));
   Epplet_gadget_show(cfg_tb_seven =
		      Epplet_create_textbox(NULL, seven_image, 4, 248, 292, 20,
					    2, NULL, NULL));

   Epplet_gadget_show(Epplet_create_label
		      (4, 280, "Sound command for new mail:", 2));
   Epplet_gadget_show(cfg_tb_sound =
		      Epplet_create_textbox(NULL, sound, 4, 294, 292, 20, 2,
					    NULL, NULL));

   cfg_beep = beep;
   Epplet_gadget_show(Epplet_create_togglebutton
		      (NULL, NULL, 4, 326, 12, 12, &cfg_beep, NULL, NULL));
   Epplet_gadget_show(Epplet_create_label
		      (20, 326, "Beep when new mail arrives?", 2));

   Epplet_gadget_show(Epplet_create_label
		      (4, 346,
		       "Text for mailbox button (leave empty for mbox name):",
		       2));
   Epplet_gadget_show(cfg_tb_boxname =
		      Epplet_create_textbox(NULL, boxname, 4, 360, 292, 20, 2,
					    NULL, NULL));

   cfg_box_visible = box_visible;
   Epplet_gadget_show(Epplet_create_togglebutton
		      (NULL, NULL, 4, 392, 12, 12, &cfg_box_visible, NULL,
		       NULL));
   Epplet_gadget_show(Epplet_create_label
		      (20, 392, "Mailbox button always visible?", 2));

   cfg_total = show_total;
   Epplet_gadget_show(Epplet_create_togglebutton
		      (NULL, NULL, 4, 416, 12, 12, &cfg_total, NULL, NULL));
   Epplet_gadget_show(Epplet_create_label
		      (20, 416, "Show total number of messages?", 2));

   Epplet_window_show(config_win);
   Epplet_window_pop_context();
}

static void
process_conf(void)
{
   const char         *s;

   s = Epplet_query_config("mailbox");
   folder_path = s;
   s = Epplet_query_config_def("mailprog", MAIL_PROG);
   mailprog = s;
   s = Epplet_query_config_def("interval", POLL_INTERVAL);
   interval = (double)atof(s);
   s = Epplet_query_config_def("beep", "1");
   beep = (!strcasecmp(s, "1"));
   s = Epplet_query_config_def("box_visible", "0");
   box_visible = (!strcasecmp(s, "1"));
   s = Epplet_query_config_def("show_total", "1");
   show_total = (!strcasecmp(s, "1"));
   s = Epplet_query_config_def("no_mail_image", NOMAIL_IMAGE);
   nomail_image = s;
   s = Epplet_query_config_def("new_mail_image", NEWMAIL_IMAGE);
   newmail_image = s;
   s = Epplet_query_config_def("seven_image", SEVEN_IMAGE);
   seven_image = s;
   s = Epplet_query_config("sound");
   sound = s;
   s = Epplet_query_config("boxname");
   boxname = s;
}

int
main(int argc, char **argv)
{
   Epplet_adjust_priority(10);

   atexit(Epplet_cleanup);
   Epplet_Init("E-Biff", "0.5", "Enlightenment Mailbox Checker Epplet", 3, 3,
	       argc, argv, 0);
   Epplet_load_config();
   process_conf();
   if (!folder_path)
     {
	if ((folder_path = getenv("MAIL")))
	  {
	     Epplet_modify_config("mailbox", folder_path);
	     folder_path = Epplet_query_config("mailbox");
	  }
	else
	  {
	     char               *username = getenv("LOGNAME");
	     char               *s;

	     if (!username)
	       {
		  username = getenv("USER");
		  if (!username)
		    {
		       return -1;
		    }
	       }
	     s = (char *)malloc(sizeof(MAIL_PATH "/") + strlen(username) + 1);
	     /* Whoever changed the next line to Esnprintf(), DON'T.  The size has already been calculated.
	      * Besides, the sizeof() operator returns sizeof(char *) here, not the array size.  -- mej */
	     sprintf(s, MAIL_PATH "/%s", username);
	     D(("Generated folder path of \"%s\"\n", s));
	     Epplet_modify_config("mailbox", s);
	     free(s);
	     folder_path = Epplet_query_config("mailbox");
	  }
     }
   close_button =
      Epplet_create_button(NULL, NULL, 2, 18, 0, 0, "CLOSE", 0, NULL, close_cb,
			   NULL);
   cfg_button =
      Epplet_create_button(NULL, NULL, 34, 18, 0, 0, "CONFIGURE", 0, NULL,
			   config_cb, NULL);

   nomail = Epplet_create_image(2, 3, 44, 32, nomail_image);
   newmail = Epplet_create_image(2, 3, 44, 32, newmail_image);
   seven = Epplet_create_image(2, 3, 44, 32, seven_image);
   Epplet_gadget_show(nomail);

   if (show_total)
     {
	cnt_label = Epplet_create_label(-5, 36, "- / -", 1);
     }
   else
     {
	cnt_label = Epplet_create_label(-5, 36, "-", 1);
     }
   Epplet_gadget_show(cnt_label);

   if (boxname)
     {
	mp_button =
	   Epplet_create_text_button(boxname, 2, 3, 44, 10, mailprog_cb, NULL);
     }
   else
     {
	mp_button =
	   Epplet_create_text_button(get_box_basename(folder_path), 2, 3, 44,
				     10, mailprog_cb, NULL);
     }
   if (box_visible)
     {
	Epplet_gadget_show(mp_button);
     }

   Epplet_show();

   Epplet_register_focus_in_handler(in_cb, NULL);
   Epplet_register_focus_out_handler(out_cb, NULL);
   Epplet_register_delete_event_handler(delete_cb, NULL);
   mailcheck_cb(NULL);		/* Set everything up */
   Epplet_Loop();

   return 0;
}