/* -*- 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 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.
*
* 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 <bonobo/bonobo-generic-factory.h>
#include <bonobo/bonobo-context.h>
#include "evolution-shell-component.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 factory */
#define COMPONENT_FACTORY_ID "OAFIID:GNOME_Evolution_Calendar_ShellComponentFactory"
/* IDs for user creatable items */
#define CREATE_EVENT_ID "event"
#define CREATE_TASK_ID "task"
static BonoboGenericFactory *factory = NULL;
char *evolution_dir;
static const EvolutionShellComponentFolderType folder_types[] = {
{ "calendar", "evolution-calendar.png", N_("Calendar"), N_("Folder containing appointments and events"), TRUE, NULL, NULL },
{ "tasks", "evolution-tasks.png", N_("Tasks"), N_("Folder containing to-do items"), TRUE, NULL, NULL },
{ NULL, NULL }
};
/* Utility functions. */
static const char *
get_local_file_name_for_folder_type (const char *type)
{
if (strcmp (type, "calendar") == 0)
return "calendar.ics";
else if (strcmp (type, "tasks") == 0)
return "tasks.ics";
else
return 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;
CORBA_exception_init(&ev);
/* FIXME: I don't think we have to do anything to create a calendar
or tasks folder - the '.ics' files are created automatically when
needed. But I'm not sure - Damon. */
if (!strcmp(type, "calendar") || !strcmp(type, "tasks")) {
GNOME_Evolution_ShellComponentListener_notifyResult(listener, GNOME_Evolution_ShellComponentListener_OK, &ev);
} else {
GNOME_Evolution_ShellComponentListener_notifyResult(listener, GNOME_Evolution_ShellComponentListener_UNSUPPORTED_TYPE, &ev);
}
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)
{
CORBA_Environment ev;
const char *file_name;
gchar *path;
int rv;
CORBA_exception_init(&ev);
/* check URI */
if (strncmp (physical_uri, "file://", 7)) {
GNOME_Evolution_ShellComponentListener_notifyResult (
listener,
GNOME_Evolution_ShellComponentListener_INVALID_URI,
&ev);
CORBA_exception_free (&ev);
return;
}
/* FIXME: check if there are subfolders? */
file_name = get_local_file_name_for_folder_type (type);
if (file_name == NULL) {
GNOME_Evolution_ShellComponentListener_notifyResult (listener,
GNOME_Evolution_ShellComponentListener_UNSUPPORTED_TYPE,
&ev);
CORBA_exception_free (&ev);
return;
}
/* remove the .ics file */
path = g_concat_dir_and_file (physical_uri + 7, file_name);
rv = unlink (path);
g_free (path);
if (rv == 0) {
/* everything OK; notify the listener */
GNOME_Evolution_ShellComponentListener_notifyResult (
listener,
GNOME_Evolution_ShellComponentListener_OK,
&ev);
}
else {
if (errno == EACCES || errno == EPERM)
GNOME_Evolution_ShellComponentListener_notifyResult (
listener,
GNOME_Evolution_ShellComponentListener_PERMISSION_DENIED,
&ev);
else
GNOME_Evolution_ShellComponentListener_notifyResult (
listener,
GNOME_Evolution_ShellComponentListener_INVALID_URI, /*XXX*/
&ev);
}
CORBA_exception_free(&ev);
}
/* callback used from icalparser_parse */
static char *
get_line_fn (char *s, size_t size, void *data)
{
FILE *file;
file = data;
return fgets (s, size, file);
}
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;
gchar *source_path;
FILE *fin;
icalparser *parser;
icalcomponent *icalcomp;
GnomeVFSHandle *handle;
GnomeVFSURI *uri;
GnomeVFSFileSize out;
char *buf;
const char *file_name;
CORBA_exception_init (&ev);
/* check URI */
if (strncmp (source_physical_uri, "file://", 7)
|| strncmp (destination_physical_uri, "file://", 7)) {
GNOME_Evolution_ShellComponentListener_notifyResult (
listener,
GNOME_Evolution_ShellComponentListener_INVALID_URI,
&ev);
CORBA_exception_free (&ev);
return;
}
file_name = get_local_file_name_for_folder_type (type);
if (file_name == NULL) {
GNOME_Evolution_ShellComponentListener_notifyResult (listener,
GNOME_Evolution_ShellComponentListener_UNSUPPORTED_TYPE,
&ev);
CORBA_exception_free (&ev);
return;
}
/* open source and destination files */
source_path = g_concat_dir_and_file (source_physical_uri + 7, "calendar.ics");
fin = fopen (source_path, "r");
if (!fin) {
GNOME_Evolution_ShellComponentListener_notifyResult (
listener,
GNOME_Evolution_ShellComponentListener_PERMISSION_DENIED,
&ev);
g_free (source_path);
CORBA_exception_free (&ev);
return;
}
parser = icalparser_new ();
icalparser_set_gen_data (parser, fin);
icalcomp = icalparser_parse (parser, get_line_fn);
icalparser_free (parser);
if (!icalcomp
|| icalcomponent_isa (icalcomp) != ICAL_VCALENDAR_COMPONENT) {
GNOME_Evolution_ShellComponentListener_notifyResult (
listener,
GNOME_Evolution_ShellComponentListener_PERMISSION_DENIED,
&ev);
fclose (fin);
g_free (source_path);
if (icalcomp)
icalcomponent_free (icalcomp);
CORBA_exception_free (&ev);
return;
}
/* now, write the new file out */
uri = gnome_vfs_uri_new (destination_physical_uri);
if (gnome_vfs_create_uri (&handle, uri, GNOME_VFS_OPEN_WRITE, FALSE, 0666)
!= GNOME_VFS_OK) {
GNOME_Evolution_ShellComponentListener_notifyResult (
listener,
GNOME_Evolution_ShellComponentListener_INVALID_URI,
&ev);
fclose (fin);
g_free (source_path);
icalcomponent_free (icalcomp);
CORBA_exception_free (&ev);
return;
}
buf = icalcomponent_as_ical_string (icalcomp);
if (gnome_vfs_write (handle, buf, strlen (buf) * sizeof (char), &out)
!= GNOME_VFS_OK) {
GNOME_Evolution_ShellComponentListener_notifyResult (
listener,
GNOME_Evolution_ShellComponentListener_PERMISSION_DENIED,
&ev);
}
else {
GNOME_Evolution_ShellComponentListener_notifyResult (
listener,
GNOME_Evolution_ShellComponentListener_OK,
&ev);
}
gnome_vfs_close (handle);
gnome_vfs_uri_unref (uri);
/* free resources */
fclose (fin);
if (remove_source)
unlink (source_path);
g_free (source_path);
icalcomponent_free (icalcomp);
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);
calendar_config_init ();
if (!migrated) {
tasks_migrate ();
migrated = TRUE;
}
shells = g_list_append (shells, shell_component);
}
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 ();
}
/* 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)
{
/* FIXME */
}
#if 0
static void
destroy_cb (EvolutionShellComponent *shell_component,
gpointer user_data)
{
shells = g_list_remove (shells, shell_component);
if (g_list_length (shells) == 0)
gtk_main_quit ();
}
#endif
/* The factory function. */
static BonoboObject *
factory_fn (BonoboGenericFactory *factory,
void *closure)
{
EvolutionShellComponent *shell_component;
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 */);
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);
#if 0
gtk_signal_connect (GTK_OBJECT (shell_component), "destroy",
GTK_SIGNAL_FUNC (destroy_cb), NULL);
shells = g_list_append (shells, shell_component);
#endif
/* User creatable items */
evolution_shell_component_add_user_creatable_item (shell_component,
CREATE_EVENT_ID,
_("Create a new appointment"),
_("New _Appointment"),
'a');
evolution_shell_component_add_user_creatable_item (shell_component,
CREATE_TASK_ID,
_("Create a new task"),
_("New _Task"),
't');
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)
{
if (factory != NULL)
return;
factory = bonobo_generic_factory_new (COMPONENT_FACTORY_ID, factory_fn, NULL);
bonobo_running_context_auto_exit_unref (BONOBO_OBJECT (factory));
if (factory == NULL)
g_error ("Cannot initialize Evolution's calendar component.");
}