path: root/calendar/gui/component-factory.c

/* -*- Mode: C; indent-tabs-mode: t; c-basic-offset: 8; tab-width: 8 -*- */
/* component-factory.c
 *
 * Copyright (C) 2000  Ximian, Inc.
 * Copyright (C) 2000  Ximian, Inc.
 *
 * 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 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.
 *
 * Author: Ettore Perazzoli <ettore@ximian.com>
 */

#include <config.h>

#include <errno.h>
#include <libgnomevfs/gnome-vfs-types.h>
#include <libgnomevfs/gnome-vfs-uri.h>
#include <libgnomevfs/gnome-vfs-ops.h>
#include <libgnomevfs/gnome-vfs-directory.h>
#include <libgnomevfs/gnome-vfs-file-info.h>

#include <bonobo/bonobo-generic-factory.h>
#include <bonobo/bonobo-context.h>
#include "evolution-shell-component.h"
#include "calendar-offline-handler.h"
#include "component-factory.h"
#include "tasks-control-factory.h"
#include "control-factory.h"
#include "calendar-config.h"
#include "tasks-control.h"
#include "tasks-migrate.h"



/* OAFIID for the component.  */
#define COMPONENT_ID "OAFIID:GNOME_Evolution_Calendar_ShellComponent"
 
/* Folder type IDs */
#define FOLDER_CALENDAR "calendar"
#define FOLDER_TASKS "tasks"

/* IDs for user creatable items */
#define CREATE_EVENT_ID "event"
#define CREATE_TASK_ID "task"

char *evolution_dir;
EvolutionShellClient *global_shell_client = NULL;

static const EvolutionShellComponentFolderType folder_types[] = {
    { FOLDER_CALENDAR,
      "evolution-calendar.png",
      N_("Calendar"),
      N_("Folder containing appointments and events"),
      TRUE, NULL, NULL },
    { FOLDER_TASKS,
      "evolution-tasks.png",
      N_("Tasks"),
      N_("Folder containing to-do items"),
      TRUE, NULL, NULL },
    { NULL, NULL }
};



/* EvolutionShellComponent methods and signals.  */

static EvolutionShellComponentResult
create_view (EvolutionShellComponent *shell_component,
         const char *physical_uri,
         const char *type,
         BonoboControl **control_return,
         void *closure)
{
    BonoboControl *control;

    if (!g_strcasecmp (type, "calendar")) {
        control = control_factory_new_control ();
        if (!control)
            return EVOLUTION_SHELL_COMPONENT_CORBAERROR;
    } else if (!g_strcasecmp (type, "tasks")) {
        control = tasks_control_new ();
        if (!control)
            return EVOLUTION_SHELL_COMPONENT_CORBAERROR;
    } else {
        return EVOLUTION_SHELL_COMPONENT_UNSUPPORTEDTYPE;
    }

    bonobo_control_set_property (control, "folder_uri", physical_uri, NULL);

    *control_return = control;

    return EVOLUTION_SHELL_COMPONENT_OK;
}

static void
create_folder (EvolutionShellComponent *shell_component,
           const char *physical_uri,
           const char *type,
           const GNOME_Evolution_ShellComponentListener listener,
           void *closure)
{
    CORBA_Environment ev;
    GnomeVFSURI *uri;

    CORBA_exception_init (&ev);

    if (strcmp (type, FOLDER_CALENDAR) && strcmp (type, FOLDER_TASKS)) {
        GNOME_Evolution_ShellComponentListener_notifyResult (
            listener,
            GNOME_Evolution_ShellComponentListener_UNSUPPORTED_TYPE,
            &ev);
        CORBA_exception_free (&ev);
        return;
    }

    uri = gnome_vfs_uri_new (physical_uri);
    if (uri) {
        /* we don't need to do anything */
        GNOME_Evolution_ShellComponentListener_notifyResult (
            listener,
            GNOME_Evolution_ShellComponentListener_OK, &ev);
        gnome_vfs_uri_unref (uri);
    }
    else {
        GNOME_Evolution_ShellComponentListener_notifyResult (
            listener,
            GNOME_Evolution_ShellComponentListener_INVALID_URI,
            &ev);
    }

    CORBA_exception_free (&ev);
}

/* Asks the alarm daemon to stop monitoring the specified URI */
static void
stop_alarms (GnomeVFSURI *uri)
{
    char *str_uri;
    CORBA_Environment ev;
    GNOME_Evolution_Calendar_AlarmNotify an;

    /* Activate the alarm notification service */

    CORBA_exception_init (&ev);
    an = oaf_activate_from_id ("OAFIID:GNOME_Evolution_Calendar_AlarmNotify", 0, NULL, &ev);

    if (ev._major != CORBA_NO_EXCEPTION) {
        g_message ("stop_alarms(): Could not activate the alarm notification service");
        CORBA_exception_free (&ev);
        return;
    }
    CORBA_exception_free (&ev);

    /* Ask the service to remove the URI from its list of calendars */

    str_uri = gnome_vfs_uri_to_string (uri, GNOME_VFS_URI_HIDE_NONE);
    g_assert (str_uri != NULL);

    CORBA_exception_init (&ev);
    GNOME_Evolution_Calendar_AlarmNotify_removeCalendar (an, str_uri, &ev);
    g_free (str_uri);

    if (ev._major == CORBA_USER_EXCEPTION) {
        char *ex_id;

        ex_id = CORBA_exception_id (&ev);
        if (strcmp (ex_id, ex_GNOME_Evolution_Calendar_AlarmNotify_InvalidURI) == 0)
            g_message ("stop_alarms(): Invalid URI reported from the "
                   "alarm notification service");
        else if (strcmp (ex_id, ex_GNOME_Evolution_Calendar_AlarmNotify_NotFound) == 0) {
            /* This is OK; the service may not have loaded that calendar */
        }
    } else if (ev._major != CORBA_NO_EXCEPTION)
        g_message ("stop_alarms(): Could not issue the removeCalendar request");

    CORBA_exception_free (&ev);

    /* Get rid of the service */

    CORBA_exception_init (&ev);
    bonobo_object_release_unref (an, &ev);
    if (ev._major != CORBA_NO_EXCEPTION)
        g_message ("stop_alarms(): Could not unref the alarm notification service");

    CORBA_exception_free (&ev);
}

static void
remove_folder (EvolutionShellComponent *shell_component,
           const char *physical_uri,
           const char *type,
           const GNOME_Evolution_ShellComponentListener listener,
           void *closure)
{
    GnomeVFSURI *dir_uri, *data_uri, *backup_uri;
    GnomeVFSResult data_result, backup_result;

    /* check type */
    if (strcmp (type, FOLDER_CALENDAR) && strcmp (type, FOLDER_TASKS)) {
        CORBA_Environment ev;

        CORBA_exception_init (&ev);
        GNOME_Evolution_ShellComponentListener_notifyResult (
            listener,
            GNOME_Evolution_ShellComponentListener_UNSUPPORTED_TYPE,
            &ev);

        if (ev._major != CORBA_NO_EXCEPTION)
            g_message ("remove_folder(): Could not notify the listener of "
                   "an unsupported folder type");

        CORBA_exception_free (&ev);
        return;
    }

    /* check URI */
    dir_uri = gnome_vfs_uri_new (physical_uri);
    if (!dir_uri) {
        CORBA_Environment ev;

        CORBA_exception_init (&ev);
        GNOME_Evolution_ShellComponentListener_notifyResult (
            listener,
            GNOME_Evolution_ShellComponentListener_INVALID_URI,
            &ev);
        CORBA_exception_free (&ev);
        return;
    }

    /* Compute the URIs of the appropriate files */

    if (strcmp (type, FOLDER_CALENDAR) == 0) {
        data_uri = gnome_vfs_uri_append_file_name (dir_uri, "calendar.ics");
        backup_uri = gnome_vfs_uri_append_file_name (dir_uri, "calendar.ics~");
    } else if (strcmp (type, FOLDER_TASKS) == 0) {
        data_uri = gnome_vfs_uri_append_file_name (dir_uri, "tasks.ics");
        backup_uri = gnome_vfs_uri_append_file_name (dir_uri, "tasks.ics~");
    } else {
        g_assert_not_reached ();
        return;
    }

    if (!data_uri || !backup_uri) {
        CORBA_Environment ev;

        g_message ("remove_folder(): Could not generate the data/backup URIs");

        CORBA_exception_init (&ev);
        GNOME_Evolution_ShellComponentListener_notifyResult (
            listener,
            GNOME_Evolution_ShellComponentListener_INVALID_URI,
            &ev);

        if (ev._major != CORBA_NO_EXCEPTION)
            g_message ("remove_folder(): Could not notify the listener "
                   "of an invalid URI");

        CORBA_exception_free (&ev);

        goto out;
    }

    /* Ask the alarm daemon to stop monitoring this URI */

    stop_alarms (data_uri);

    /* Delete the data and backup files; the shell will take care of the rest */

    data_result = gnome_vfs_unlink_from_uri (data_uri);
    backup_result = gnome_vfs_unlink_from_uri (backup_uri);

    if ((data_result == GNOME_VFS_OK || data_result == GNOME_VFS_ERROR_NOT_FOUND)
        && (backup_result == GNOME_VFS_OK || backup_result == GNOME_VFS_ERROR_NOT_FOUND)) {
        CORBA_Environment ev;

        CORBA_exception_init (&ev);
        GNOME_Evolution_ShellComponentListener_notifyResult (
            listener,
            GNOME_Evolution_ShellComponentListener_OK,
            &ev);

        if (ev._major != CORBA_NO_EXCEPTION)
            g_message ("remove_folder(): Could not notify the listener about success");

        CORBA_exception_free (&ev);
    } else {
        CORBA_Environment ev;

        CORBA_exception_init (&ev);
        GNOME_Evolution_ShellComponentListener_notifyResult (
            listener,
            GNOME_Evolution_ShellComponentListener_PERMISSION_DENIED,
            &ev);

        if (ev._major != CORBA_NO_EXCEPTION)
            g_message ("remove_folder(): Could not notify the listener about failure");

        CORBA_exception_free (&ev);
    }

 out:

    gnome_vfs_uri_unref (dir_uri);

    if (data_uri)
        gnome_vfs_uri_unref (data_uri);

    if (backup_uri)
        gnome_vfs_uri_unref (backup_uri);
}

static GNOME_Evolution_ShellComponentListener_Result
xfer_file (GnomeVFSURI *base_src_uri,
       GnomeVFSURI *base_dest_uri,
       const char *file_name,
       int remove_source)
{
    GnomeVFSURI *src_uri, *dest_uri;
    GnomeVFSHandle *hin, *hout;
    GnomeVFSResult result;
    GnomeVFSFileInfo file_info;
    GnomeVFSFileSize size;
    char *buffer;

    src_uri = gnome_vfs_uri_append_file_name (base_src_uri, file_name);

    result = gnome_vfs_open_uri (&hin, src_uri, GNOME_VFS_OPEN_READ);
    if (result == GNOME_VFS_ERROR_NOT_FOUND) {
        gnome_vfs_uri_unref (src_uri);
        return GNOME_Evolution_ShellComponentListener_OK; /* No need to xfer anything.  */
    }
    if (result != GNOME_VFS_OK) {
        gnome_vfs_uri_unref (src_uri);
        return GNOME_Evolution_ShellComponentListener_PERMISSION_DENIED;
    }

    result = gnome_vfs_get_file_info_uri (src_uri, &file_info, GNOME_VFS_FILE_INFO_DEFAULT);
    if (result != GNOME_VFS_OK) {
        gnome_vfs_uri_unref (src_uri);
        return GNOME_Evolution_ShellComponentListener_PERMISSION_DENIED;
    }

    dest_uri = gnome_vfs_uri_append_file_name (base_dest_uri, file_name);

    result = gnome_vfs_create_uri (&hout, dest_uri, GNOME_VFS_OPEN_WRITE, FALSE, 0600);
    if (result != GNOME_VFS_OK) {
        gnome_vfs_close (hin);
        gnome_vfs_uri_unref (src_uri);
        gnome_vfs_uri_unref (dest_uri);
        return GNOME_Evolution_ShellComponentListener_PERMISSION_DENIED;
    }

    /* write source file to destination file */
    buffer = g_malloc (file_info.size);
    result = gnome_vfs_read (hin, buffer, file_info.size, &size);
    if (result != GNOME_VFS_OK) {
        gnome_vfs_close (hin);
        gnome_vfs_close (hout);
        gnome_vfs_uri_unref (src_uri);
        gnome_vfs_uri_unref (dest_uri);
        g_free (buffer);
        return GNOME_Evolution_ShellComponentListener_PERMISSION_DENIED;
    }

    result = gnome_vfs_write (hout, buffer, file_info.size, &size);
    if (result != GNOME_VFS_OK) {
        gnome_vfs_close (hin);
        gnome_vfs_close (hout);
        gnome_vfs_uri_unref (src_uri);
        gnome_vfs_uri_unref (dest_uri);
        g_free (buffer);
        return GNOME_Evolution_ShellComponentListener_PERMISSION_DENIED;
    }

    if (remove_source) {
        char *text_uri;

        /* Sigh, we have to do this as there is no gnome_vfs_unlink_uri(). :-(  */

        text_uri = gnome_vfs_uri_to_string (src_uri, GNOME_VFS_URI_HIDE_NONE);
        result = gnome_vfs_unlink (text_uri);
        g_free (text_uri);
    }

    gnome_vfs_close (hin);
    gnome_vfs_close (hout);
    gnome_vfs_uri_unref (src_uri);
    gnome_vfs_uri_unref (dest_uri);
    g_free (buffer);

    return GNOME_Evolution_ShellComponentListener_OK;
}

static void
xfer_folder (EvolutionShellComponent *shell_component,
         const char *source_physical_uri,
         const char *destination_physical_uri,
         const char *type,
         gboolean remove_source,
         const GNOME_Evolution_ShellComponentListener listener,
         void *closure)
{
    CORBA_Environment ev;
    GnomeVFSURI *src_uri;
    GnomeVFSURI *dest_uri;
    GnomeVFSResult result;
    char *filename, *backup_filename;

    CORBA_exception_init (&ev);

    /* check type */
    if (strcmp (type, FOLDER_CALENDAR) && strcmp (type, FOLDER_TASKS)) {
        GNOME_Evolution_ShellComponentListener_notifyResult (
            listener,
            GNOME_Evolution_ShellComponentListener_UNSUPPORTED_TYPE,
            &ev);
        CORBA_exception_free (&ev);
        return;
    }

    /* check URIs */
    src_uri = gnome_vfs_uri_new (source_physical_uri);
    dest_uri = gnome_vfs_uri_new (destination_physical_uri);
    if (!src_uri || ! dest_uri) {
        GNOME_Evolution_ShellComponentListener_notifyResult (
            listener,
            GNOME_Evolution_ShellComponentListener_INVALID_URI,
            &ev);
        gnome_vfs_uri_unref (src_uri);
        gnome_vfs_uri_unref (dest_uri);
        CORBA_exception_free (&ev);
        return;
    }

    if (strcmp (type, FOLDER_CALENDAR) == 0) {
        filename = "calendar.ics";
        backup_filename = "calendar.ics~";
    } else if (strcmp (type, FOLDER_TASKS) == 0) {
        filename = "tasks.ics";
        backup_filename = "tasks.ics~";
    } else {
        g_assert_not_reached ();
        return;
    }

    result = xfer_file (src_uri, dest_uri, filename, remove_source);
    if (result == GNOME_Evolution_ShellComponentListener_OK)
        result = xfer_file (src_uri, dest_uri, backup_filename, remove_source);
    
    GNOME_Evolution_ShellComponentListener_notifyResult (listener, result, &ev);

    gnome_vfs_uri_unref (src_uri);
    gnome_vfs_uri_unref (dest_uri);

        CORBA_exception_free (&ev); 
}

static GList *shells = NULL;

static void
owner_set_cb (EvolutionShellComponent *shell_component,
          EvolutionShellClient *shell_client,
          const char *evolution_homedir,
          gpointer user_data)
{
    static gboolean migrated = FALSE;
    
    evolution_dir = g_strdup (evolution_homedir);

    if (!migrated) {
        tasks_migrate ();
        migrated = TRUE;
    }

    shells = g_list_append (shells, shell_component);

    global_shell_client = shell_client;
}

static void
owner_unset_cb (EvolutionShellComponent *shell_component,
          gpointer user_data)
{
    shells = g_list_remove (shells, shell_component);
    
    if (g_list_length (shells) == 0)
        gtk_main_quit ();
}

/* Computes the final URI for a calendar component */
static char *
get_data_uri (const char *uri, CalComponentVType vtype)
{
    if (uri) {
        if (vtype == CAL_COMPONENT_EVENT)
            return g_concat_dir_and_file (uri, "calendar.ics");
        else if (vtype == CAL_COMPONENT_TODO)
            return g_concat_dir_and_file (uri, "tasks.ics");
        else
            g_assert_not_reached ();
    } else {
        if (vtype == CAL_COMPONENT_EVENT)
            return g_concat_dir_and_file (g_get_home_dir (),
                              "evolution/local/Calendar/calendar.ics");
        else if (vtype == CAL_COMPONENT_TODO)
            return g_concat_dir_and_file (g_get_home_dir (),
                              "evolution/local/Tasks/tasks.ics");
        else
            g_assert_not_reached ();
    }

    return NULL;
}

/* Creates a calendar component at a specified URI.  If the URI is NULL then it
 * uses the default folder for that type of component.
 */
static void
create_component (const char *uri, CalComponentVType vtype)
{
    char *real_uri;
    CORBA_Environment ev;
    GNOME_Evolution_Calendar_CalObjType corba_type;
    GNOME_Evolution_Calendar_CompEditorFactory factory;

    real_uri = get_data_uri (uri, vtype);

    switch (vtype) {
    case CAL_COMPONENT_EVENT:
        corba_type = GNOME_Evolution_Calendar_TYPE_EVENT;
        break;

    case CAL_COMPONENT_TODO:
        corba_type = GNOME_Evolution_Calendar_TYPE_TODO;
        break;

    default:
        g_assert_not_reached ();
        return;
    }

    /* Get the factory */

    CORBA_exception_init (&ev);
    factory = oaf_activate_from_id ("OAFIID:GNOME_Evolution_Calendar_CompEditorFactory",
                    0, NULL, &ev);

    if (ev._major != CORBA_NO_EXCEPTION) {
        g_message ("create_component(): Could not activate the component editor factory");
        CORBA_exception_free (&ev);
        g_free (real_uri);
        return;
    }
    CORBA_exception_free (&ev);

    /* Create the item */

    CORBA_exception_init (&ev);
    GNOME_Evolution_Calendar_CompEditorFactory_editNew (factory, real_uri, corba_type, &ev);

    if (ev._major != CORBA_NO_EXCEPTION)
        g_message ("create_component(): Exception while creating the component");

    CORBA_exception_free (&ev);
    g_free (real_uri);

    /* Get rid of the factory */

    CORBA_exception_init (&ev);
    bonobo_object_release_unref (factory, &ev);
    if (ev._major != CORBA_NO_EXCEPTION)
        g_message ("create_component(): Could not unref the calendar component factory");

    CORBA_exception_free (&ev);
}

/* Callback used when we must create a user-creatable item */
static void
sc_user_create_new_item_cb (EvolutionShellComponent *shell_component,
                const char *id,
                const char *parent_folder_physical_uri,
                const char *parent_folder_type)
{
    if (strcmp (id, CREATE_EVENT_ID) == 0) {
        if (strcmp (parent_folder_type, FOLDER_CALENDAR) == 0)
            create_component (parent_folder_physical_uri, CAL_COMPONENT_EVENT);
        else
            create_component (NULL, CAL_COMPONENT_EVENT);
    } else if (strcmp (id, CREATE_TASK_ID) == 0) {
        if (strcmp (parent_folder_type, FOLDER_TASKS) == 0)
            create_component (parent_folder_physical_uri, CAL_COMPONENT_TODO);
        else
            create_component (NULL, CAL_COMPONENT_TODO);
    } else
        g_assert_not_reached ();
}


/* The factory function.  */

static BonoboObject *
create_object (void)
{
    EvolutionShellComponent *shell_component;
    CalendarOfflineHandler *offline_handler;    

    shell_component = evolution_shell_component_new (folder_types,
                             NULL,
                             create_view,
                             create_folder,
                             remove_folder,
                             xfer_folder,
                             NULL, /* populate_folder_context_menu_fn */
                             NULL, /* get_dnd_selection_fn */
                             NULL  /* closure */);

    /* Offline handler */
    offline_handler = calendar_offline_handler_new ();
    bonobo_object_add_interface (BONOBO_OBJECT (shell_component), 
                     BONOBO_OBJECT (offline_handler));
    
    gtk_signal_connect (GTK_OBJECT (shell_component), "owner_set",
                GTK_SIGNAL_FUNC (owner_set_cb), NULL);
    gtk_signal_connect (GTK_OBJECT (shell_component), "owner_unset",
                GTK_SIGNAL_FUNC (owner_unset_cb), NULL);

    /* User creatable items */

    evolution_shell_component_add_user_creatable_item (shell_component,
                               CREATE_EVENT_ID,
                               _("Create a new appointment"),
                               _("New _Appointment"), 'a',
                               NULL);

    evolution_shell_component_add_user_creatable_item (shell_component,
                               CREATE_TASK_ID,
                               _("Create a new task"),
                               _("New _Task"), 't',
                               NULL);

    gtk_signal_connect (GTK_OBJECT (shell_component), "user_create_new_item",
                GTK_SIGNAL_FUNC (sc_user_create_new_item_cb), NULL);

    return BONOBO_OBJECT (shell_component);
}


void
component_factory_init (void)
{
    BonoboObject *object;
    int result;

    object = create_object ();

    result = oaf_active_server_register (COMPONENT_ID, bonobo_object_corba_objref (object));

    if (result == OAF_REG_ERROR)
        g_error ("Cannot initialize Evolution's calendar component.");
}