/* -*- Mode: C; tab-width: 8; indent-tabs-mode: t; c-basic-offset: 8 -*- */
/* mail-ops.c: callbacks for the mail toolbar/menus */

/* 
 * Author : 
 *  Dan Winship <danw@helixcode.com>
 *
 * Copyright 2000 Helix Code, Inc. (http://www.helixcode.com)
 *
 * This program is free software; you can redistribute it and/or 
 * modify it under the terms of the GNU General Public License as 
 * published by the Free Software Foundation; either version 2 of the
 * License, or (at your option) any later version.
 *
 * This program 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 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 <config.h>
#include <errno.h>
#include <gnome.h>
#include "mail.h"
#include "folder-browser.h"
#include "e-util/e-setup.h"
#include "filter/filter-editor.h"
#include "filter/filter-driver.h"

/* FIXME: is there another way to do this? */
#include "Evolution.h"
#include "evolution-storage.h"

#ifndef HAVE_MKSTEMP
#include <fcntl.h>
#include <sys/stat.h>
#endif

static void
mail_exception_dialog (char *head, CamelException *ex, gpointer widget)
{
	char *msg;
	GtkWindow *window =
		GTK_WINDOW (gtk_widget_get_ancestor (widget, GTK_TYPE_WINDOW));

	msg = g_strdup_printf ("%s:\n%s", head,
			       camel_exception_get_description (ex));
	gnome_error_dialog_parented (msg, window);
	g_free (msg);
}

static gboolean
check_configured (void)
{
	char *path;
	gboolean configured;

	path = g_strdup_printf ("=%s/config=/mail/configured", evolution_dir);
	if (gnome_config_get_bool (path)) {
		g_free (path);
		return TRUE;
	}

	mail_config_druid ();

	configured = gnome_config_get_bool (path);
	g_free (path);
	return configured;
}

/* FIXME: This is BROKEN! It fetches mail into whatever folder you're
 * currently viewing.
 */
void
fetch_mail (GtkWidget *button, gpointer user_data)
{
	FolderBrowser *fb = FOLDER_BROWSER (user_data);
	CamelException *ex;
	CamelStore *store = NULL;
	CamelFolder *folder = NULL;
	char *path, *url = NULL;
	FilterDriver *filter = NULL;
	char *userrules, *systemrules;
	char *tmp_mbox = NULL, *source;

	if (!check_configured ())
		return;

	path = g_strdup_printf ("=%s/config=/mail/source", evolution_dir);
	url = gnome_config_get_string (path);
	g_free (path);
	if (!url) {
		GtkWidget *win = gtk_widget_get_ancestor (GTK_WIDGET (fb),
							  GTK_TYPE_WINDOW);

		gnome_error_dialog_parented ("You have no remote mail source "
					     "configured", GTK_WINDOW (win));
		return;
	}

	path = CAMEL_SERVICE (fb->folder->parent_store)->url->path;
	ex = camel_exception_new ();

	tmp_mbox = g_strdup_printf ("%s/movemail", path);

	/* If fetching mail from an mbox store, safely copy it to a
	 * temporary store first.
	 */
	if (!strncmp (url, "mbox:", 5)) {
		int tmpfd;

		printf("moving from a local mbox\n");

		tmpfd = open (tmp_mbox, O_RDWR | O_CREAT | O_APPEND, S_IRUSR | S_IWUSR);

		if (tmpfd == -1) {
			camel_exception_setv (ex, CAMEL_EXCEPTION_SYSTEM,
					      "Couldn't create temporary "
					      "mbox: %s", g_strerror (errno));
			mail_exception_dialog ("Unable to move mail", ex, fb);
			goto cleanup;
		}
		close (tmpfd);

		/* Skip over "mbox:" plus host part (if any) of url. */
		source = url + 5;
		if (!strncmp (source, "//", 2))
			source = strchr (source + 2, '/');

		switch (camel_movemail (source, tmp_mbox, ex)) {
		case -1:
			mail_exception_dialog ("Unable to move mail", ex, fb);
			/* FALL THROUGH */

		case 0:
			goto cleanup;
		}

		folder = camel_store_get_folder (fb->folder->parent_store,
						 strrchr (tmp_mbox, '/') + 1,
						 ex);
		camel_folder_open (folder, FOLDER_OPEN_READ, ex);

		if (camel_exception_get_id (ex) != CAMEL_EXCEPTION_NONE) {
			mail_exception_dialog ("Unable to move mail", ex, fb);
			goto cleanup;
		}
	} else {
		CamelFolder *sourcefolder;

		store = camel_session_get_store (session, url, ex);
		if (!store) {
			mail_exception_dialog ("Unable to get new mail", ex, fb);
			goto cleanup;
		}
		camel_service_connect_with_url (CAMEL_SERVICE (store),
						url, ex);
		if (camel_exception_get_id (ex) != CAMEL_EXCEPTION_NONE) {
			if (camel_exception_get_id (ex) != CAMEL_EXCEPTION_USER_CANCEL)
				mail_exception_dialog ("Unable to get new mail", ex, fb);
			goto cleanup;
		}

		sourcefolder = camel_store_get_folder (store, "inbox", ex);
		camel_folder_open (sourcefolder, FOLDER_OPEN_READ, ex);
		if (camel_exception_get_id (ex) != CAMEL_EXCEPTION_NONE) {
			mail_exception_dialog ("Unable to get new mail", ex, fb);
			goto cleanup;
		}

		/* can we perform filtering on this source? */
		if (!(sourcefolder->has_summary_capability
		      && sourcefolder->has_search_capability)) {
			GPtrArray *uids;
			int i;

			printf("folder isn't searchable, performing movemail ...\n");

			folder = camel_store_get_folder (fb->folder->parent_store,
							 strrchr (tmp_mbox, '/') + 1,
							 ex);

			if (!camel_folder_exists(folder, ex)) {
				camel_folder_create(folder, ex);
			}
			
			camel_folder_open(folder, FOLDER_OPEN_RW, ex);

			if (camel_exception_get_id (ex) != CAMEL_EXCEPTION_NONE) {
				mail_exception_dialog ("Unable to move mail", ex, fb);
				goto cleanup;
			}
			
			uids = camel_folder_get_uids (sourcefolder, ex);
			printf("got %d messages in source\n", uids->len);
			for (i = 0; i < uids->len; i++) {
				CamelMimeMessage *msg;
				printf("copying message %d to dest\n", i + 1);
				msg = camel_folder_get_message_by_uid (sourcefolder, uids->pdata[i], ex);
				if (camel_exception_get_id (ex) != CAMEL_EXCEPTION_NONE) {
					mail_exception_dialog ("Unable to read message", ex, fb);
					gtk_object_unref((GtkObject *)msg);
					gtk_object_unref((GtkObject *)sourcefolder);
					goto cleanup;
				}

				camel_folder_append_message (folder, msg, ex);
				if (camel_exception_get_id (ex) != CAMEL_EXCEPTION_NONE) {
					mail_exception_dialog ("Unable to write message", ex, fb);
					gtk_object_unref((GtkObject *)msg);
					gtk_object_unref((GtkObject *)sourcefolder);
					goto cleanup;
				}

				camel_folder_delete_message_by_uid(sourcefolder, uids->pdata[i], ex);
				gtk_object_unref((GtkObject *)msg);
			}
			camel_folder_free_uids (sourcefolder, uids);
			gtk_object_unref((GtkObject *)sourcefolder);
		} else {
			printf("we can search on this folder, performing search!\n");
			folder = sourcefolder;
		}
	}

	/* apply filtering rules to this inbox */
	filter = filter_driver_new();
	userrules = g_strdup_printf ("%s/filters.xml", evolution_dir);
	systemrules = g_strdup_printf("%s/evolution/filtertypes.xml", EVOLUTION_DATADIR);
	filter_driver_set_rules(filter, systemrules, userrules);
	filter_driver_set_session(filter, session);
	g_free(userrules);
	g_free(systemrules);

	if (filter_driver_run(filter, folder, fb->folder) == -1) {
		mail_exception_dialog ("Unable to get new mail", ex, fb);
		goto cleanup;
	}

	/* Redisplay. Ick. FIXME */
	path = g_strdup_printf ("file://%s", path);
	folder_browser_set_uri (fb, path);
	g_free (path);

 cleanup:
	g_free(tmp_mbox);

	if (filter)
		gtk_object_unref((GtkObject *)filter);
	if (url)
		g_free (url);
	if (folder) {
		if (camel_folder_is_open (folder))
			camel_folder_close (folder, TRUE, ex);
		gtk_object_unref (GTK_OBJECT (folder));
	}
	if (store) {
		camel_service_disconnect (CAMEL_SERVICE (store), ex);
		gtk_object_unref (GTK_OBJECT (store));
	}
	camel_exception_free (ex);
}


struct post_send_data {
	CamelMimeMessage *message;
	guint32 flags;
};

static void
composer_send_cb (EMsgComposer *composer, gpointer data)
{
	static CamelTransport *transport = NULL;
	struct post_send_data *psd = data;
	static char *from = NULL;
	CamelException *ex;
	CamelMimeMessage *message;
	char *name, *addr, *path;

	ex = camel_exception_new ();

	if (!from) {
		CamelInternetAddress *ciaddr;

		path = g_strdup_printf ("=%s/config=/mail/id_name",
					evolution_dir);
		name = gnome_config_get_string (path);
		g_assert (name);
		g_free (path);
		path = g_strdup_printf ("=%s/config=/mail/id_addr",
					evolution_dir);
		addr = gnome_config_get_string (path);
		g_assert (addr);
		g_free (path);

		ciaddr = camel_internet_address_new ();
		camel_internet_address_add (ciaddr, name, addr);

		from = camel_address_encode (CAMEL_ADDRESS (ciaddr));
	}

	if (!transport) {
		char *url;

		path = g_strdup_printf ("=%s/config=/mail/transport",
					evolution_dir);
		url = gnome_config_get_string (path);
		g_assert (url);
		g_free (path);

		transport = camel_session_get_transport (session, url, ex);
		if (camel_exception_get_id (ex) != CAMEL_EXCEPTION_NONE) {
			mail_exception_dialog ("Could not load mail transport",
					       ex, composer);
			camel_exception_free (ex);
			goto free_psd;
		}
	}

	message = e_msg_composer_get_message (composer);
	gtk_object_destroy (GTK_OBJECT (composer));

	camel_mime_message_set_from (message, from);
	camel_medium_add_header (CAMEL_MEDIUM (message), "X-Mailer",
				 "Evolution (Developer Preview)");
	camel_mime_message_set_date (message, CAMEL_MESSAGE_DATE_CURRENT, 0);

	camel_service_connect (CAMEL_SERVICE (transport), ex);
	if (!camel_exception_is_set (ex))
		camel_transport_send (transport, CAMEL_MEDIUM (message), ex);
	if (!camel_exception_is_set (ex))
		camel_service_disconnect (CAMEL_SERVICE (transport), ex);
	if (camel_exception_is_set (ex))
		mail_exception_dialog ("Could not send message", ex, composer);
	else if (psd) {
		guint32 set;

		set = camel_mime_message_get_flags (psd->message);
		camel_mime_message_set_flags (psd->message, psd->flags, ~set);
	}

	camel_exception_free (ex);
	gtk_object_unref (GTK_OBJECT (message));

 free_psd:
	if (psd) {
		gtk_object_unref (GTK_OBJECT (psd->message));
		g_free (psd);
	}
}


void
send_msg (GtkWidget *widget, gpointer user_data)
{
	GtkWidget *composer;

	if (!check_configured ())
		return;

	composer = e_msg_composer_new ();

	gtk_signal_connect (GTK_OBJECT (composer), "send",
			    GTK_SIGNAL_FUNC (composer_send_cb), NULL);
	gtk_widget_show (composer);
}

/* Send according to a mailto (RFC 2368) URL. */
void
send_to_url (const char *url)
{
	GtkWidget *composer;

	if (!check_configured ())
		return;

	composer = e_msg_composer_new_from_url (url);

	gtk_signal_connect (GTK_OBJECT (composer), "send",
			    GTK_SIGNAL_FUNC (composer_send_cb), NULL);
	gtk_widget_show (composer);
}	

static void
reply (FolderBrowser *fb, gboolean to_all)
{
	EMsgComposer *composer;
	struct post_send_data *psd;

	if (!check_configured ())
		return;

	psd = g_new (struct post_send_data, 1);
	psd->message = fb->mail_display->current_message;
	gtk_object_ref (GTK_OBJECT (psd->message));
	psd->flags = CAMEL_MESSAGE_ANSWERED;

	composer = mail_generate_reply (psd->message, to_all);

	gtk_signal_connect (GTK_OBJECT (composer), "send",
			    GTK_SIGNAL_FUNC (composer_send_cb), psd); 

	gtk_widget_show (GTK_WIDGET (composer));	
}

void
reply_to_sender (GtkWidget *button, gpointer user_data)
{
	reply (FOLDER_BROWSER (user_data), FALSE);
}

void
reply_to_all (GtkWidget *button, gpointer user_data)
{
	reply (FOLDER_BROWSER (user_data), TRUE);
}


void
forward_msg (GtkWidget *button, gpointer user_data)
{
	FolderBrowser *fb;
	EMsgComposer *composer;

	if (!check_configured ())
		return;

	fb = FOLDER_BROWSER (user_data);
	composer = mail_generate_forward (fb->mail_display->current_message,
					  TRUE, TRUE);

	gtk_signal_connect (GTK_OBJECT (composer), "send",
			    GTK_SIGNAL_FUNC (composer_send_cb), NULL);

	gtk_widget_show (GTK_WIDGET (composer));	
}

void
delete_msg (GtkWidget *button, gpointer user_data)
{
	FolderBrowser *fb = user_data;

	if (fb->mail_display->current_message) {
		guint32 flags;

		/* FIXME: table should watch the message with a signal and update display! */

		flags = camel_mime_message_get_flags(fb->mail_display->current_message);
		camel_mime_message_set_flags(fb->mail_display->current_message, CAMEL_MESSAGE_DELETED, ~flags);
		printf("Message %s set to %s\n", fb->mail_display->current_message->message_uid, flags&CAMEL_MESSAGE_DELETED?"UNDELETED":"DELETED");
	}
}

void
expunge_folder (GtkWidget *button, gpointer user_data)
{
	FolderBrowser *fb = FOLDER_BROWSER(user_data);
	CamelException ex;

	if (fb->message_list->folder) {
		camel_exception_init(&ex);

		camel_folder_expunge(fb->message_list->folder, &ex);

		/* FIXME: is there a better way to force an update? */
		/* FIXME: Folder should raise a signal to say its contents has changed ... */
		e_table_model_changed (fb->message_list->table_model);

/* this always throws an error, when it shouldn't? */
#if 0
		if (camel_exception_get_id (&ex) != CAMEL_EXCEPTION_NONE) {
			mail_exception_dialog ("Unable to expunge deleted messages", &ex, fb);
		}
#endif
	}
}

static void
filter_druid_clicked(FilterEditor *fe, int button, FolderBrowser *fb)
{
	printf("closing dialog\n");
	if (button == 0) {
		char *user;

		user = g_strdup_printf ("%s/filters.xml", evolution_dir);
		filter_editor_save_rules(fe, user);
		printf("saving filter options to '%s'\n", user);
		g_free(user);
	}
	if (button != -1) {
		gnome_dialog_close((GnomeDialog *)fe);
	}
}

void filter_edit (GtkWidget *button, gpointer user_data)
{
	FolderBrowser *fb = FOLDER_BROWSER(user_data);
	FilterEditor *fe;
	char *user, *system;

	printf("Editing filters ...\n");
	fe = filter_editor_new();

	user = g_strdup_printf ("%s/filters.xml", evolution_dir);
	system = g_strdup_printf("%s/evolution/filtertypes.xml", EVOLUTION_DATADIR);
	filter_editor_set_rule_files(fe, system, user);
	g_free(user);
	g_free(system);
	gnome_dialog_append_buttons((GnomeDialog *)fe, GNOME_STOCK_BUTTON_OK, GNOME_STOCK_BUTTON_CANCEL, 0);
	gtk_signal_connect((GtkObject *)fe, "clicked", filter_druid_clicked, fb);
	gtk_widget_show((GtkWidget *)fe);
}

static void
vfolder_editor_clicked(FilterEditor *fe, int button, FolderBrowser *fb)
{
	printf("closing dialog\n");
	if (button == 0) {
		char *user;

		user = g_strdup_printf ("%s/vfolders.xml", evolution_dir);
		filter_editor_save_rules(fe, user);
		printf("saving vfolders to '%s'\n", user);
		g_free(user);

		/* FIXME: this is also not the way to do this, see also
		   component-factory.c */
		{
			EvolutionStorage *storage;
			FilterDriver *fe;
			int i, count;
			char *user, *system;
			extern char *evolution_dir;

			storage = gtk_object_get_data((GtkObject *)fb, "e-storage");
	
			fe = filter_driver_new();
			user = g_strdup_printf ("%s/vfolders.xml", evolution_dir);
			system = g_strdup_printf("%s/evolution/vfoldertypes.xml", EVOLUTION_DATADIR);
			filter_driver_set_rules(fe, system, user);
			g_free(user);
			g_free(system);
			count = filter_driver_rule_count(fe);
			for (i=0;i<count;i++) {
				struct filter_option *fo;
				GString *query;
				struct filter_desc *desc = NULL;
				char *desctext, descunknown[64];
				char *name;
				
				fo = filter_driver_rule_get(fe, i);
				if (fo == NULL)
					continue;
				query = g_string_new("");
				if (fo->description)
					desc = fo->description->data;
				if (desc)
					desctext = desc->data;
				else {
					sprintf(descunknown, "volder-%p", fo);
					desctext = descunknown;
				}
				g_string_sprintf(query, "vfolder:/%s/vfolder/%s?", evolution_dir, desctext);
				filter_driver_expand_option(fe, query, NULL, fo);
				name = g_strdup_printf("/%s", desctext);
				printf("Adding new vfolder: %s\n", query->str);
				evolution_storage_new_folder (storage, name,
							      "mail",
							      query->str,
							      name+1);
				g_string_free(query, TRUE);
				g_free(name);
			}
			gtk_object_unref((GtkObject *)fe);
		}

	}
	if (button != -1) {
		gnome_dialog_close((GnomeDialog *)fe);
	}
}

void vfolder_edit (GtkWidget *button, gpointer user_data)
{
	FolderBrowser *fb = FOLDER_BROWSER(user_data);
	FilterEditor *fe;
	char *user, *system;

	printf("Editing vfolders ...\n");
	fe = filter_editor_new();

	user = g_strdup_printf ("%s/vfolders.xml", evolution_dir);
	system = g_strdup_printf("%s/evolution/vfoldertypes.xml", EVOLUTION_DATADIR);
	filter_editor_set_rule_files(fe, system, user);
	g_free(user);
	g_free(system);
	gnome_dialog_append_buttons((GnomeDialog *)fe, GNOME_STOCK_BUTTON_OK, GNOME_STOCK_BUTTON_CANCEL, 0);
	gtk_signal_connect((GtkObject *)fe, "clicked", vfolder_editor_clicked, fb);
	gtk_widget_show((GtkWidget *)fe);
}