path: root/calendar/gui/e-itip-control.c

/* -*- Mode: C; tab-width: 8; indent-tabs-mode: t; c-basic-offset: 8 -*- */
/* Evolution calendar - Control for displaying iTIP mail messages
 *
 * Copyright (C) 2000 Helix Code, Inc.
 * Copyright (C) 2000 Ximian, Inc.
 *
 * Author: Jesse Pavel <jpavel@ximian.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 <time.h>
#include <glib.h>
#include <gtk/gtkobject.h>
#include <gtk/gtkwidget.h>
#include <libgnome/gnome-defs.h>
#include <libgnome/gnome-i18n.h>
#include <libgnomeui/gnome-dialog.h>
#include <libgnomeui/gnome-dialog-util.h>
#include <bonobo/bonobo-generic-factory.h>
#include <bonobo/bonobo-persist-stream.h>
#include <bonobo/bonobo-stream-client.h>
#include <bonobo/bonobo-context.h>

#include <glade/glade.h>
#include <ical.h>
#include <Evolution-Composer.h>

#include "e-itip-control.h"
#include <cal-util/cal-component.h>
#include <cal-client/cal-client.h>
#include <e-util/e-time-utils.h>
#include "calendar-config.h"
#include "itip-utils.h"

#define MAIL_COMPOSER_OAF_IID "OAFIID:GNOME_Evolution_Mail_Composer"

#define DEFAULT_WIDTH 400
#define DEFAULT_HEIGHT 300

extern gchar *evolution_dir;

typedef struct _EItipControlPrivate EItipControlPrivate;

struct _EItipControlPrivate {
    GladeXML *xml, *xml2;
    GtkWidget *main_frame;
    GtkWidget *organizer_entry, *dtstart_label, *dtend_label;
    GtkWidget *summary_entry, *description_box, *message_text;
    GtkWidget *button_box;
    GtkWidget *address_entry;
    GtkWidget *add_button;
    GtkWidget *loading_window;
    GtkWidget *loading_progress;

    icalcomponent *main_comp, *comp;
    CalComponent *cal_comp;
    char *vcalendar;
    gchar *from_address, *my_address, *organizer;
    icalparameter_partstat new_partstat;
};

enum E_ITIP_BONOBO_ARGS {
    FROM_ADDRESS_ARG_ID,
    MY_ADDRESS_ARG_ID
};


/********
 * find_attendee() searches through the attendee properties of `comp'
 * and returns the one the value of which is the same as `address' if such
 * a property exists. Otherwise, it will return NULL.
 ********/
static icalproperty *
find_attendee (icalcomponent *comp, char *address)
{
    icalproperty *prop;
    const char *attendee, *text;
    icalvalue *value;
    
    for (prop = icalcomponent_get_first_property (comp, ICAL_ATTENDEE_PROPERTY);
         prop != NULL;
         prop = icalcomponent_get_next_property (comp, ICAL_ATTENDEE_PROPERTY))
    {
        value = icalproperty_get_value (prop);
        if (!value)
            continue;

        attendee = icalvalue_get_string (value);

        /* Here I strip off the "MAILTO:" if it is present. */
        text = strchr (attendee, ':');
        if (text != NULL)
            text++;
        else
            text = attendee;

        if (strcmp (text, address) == 0) {
            /* We have found the correct property. */
            break;
        }
    }
            
    return prop;
}

static void
itip_control_destroy_cb (GtkObject *object,
            gpointer data)
{
    EItipControlPrivate *priv = data;

    gtk_object_unref (GTK_OBJECT (priv->xml));
    gtk_object_unref (GTK_OBJECT (priv->xml2));

    if (priv->main_comp != NULL) {
        if (priv->comp != NULL)
            icalcomponent_remove_component (priv->main_comp, priv->comp);
    
        icalcomponent_free (priv->main_comp);
    }


    if (priv->cal_comp != NULL) {
        gtk_object_unref (GTK_OBJECT (priv->cal_comp));
    }

    if (priv->from_address != NULL)
        g_free (priv->from_address);
    
    if (priv->organizer != NULL)
        g_free (priv->organizer);

    if (priv->vcalendar != NULL)
        g_free (priv->vcalendar);

    g_free (priv);
}
    

static void
cal_opened_cb (CalClient *client, CalClientOpenStatus status, gpointer data)
{
    EItipControlPrivate *priv = data;

    gtk_widget_hide (priv->loading_progress);

    if (status == CAL_CLIENT_OPEN_SUCCESS) {
        if (cal_client_update_object (client, priv->cal_comp) == FALSE) {
            GtkWidget *dialog;
    
            dialog = gnome_warning_dialog(_("I couldn't update your calendar file!\n"));
            gnome_dialog_run (GNOME_DIALOG(dialog));
        } else {
            /* We have success. */
            GtkWidget *dialog;
    
            dialog = gnome_ok_dialog(_("Component successfully updated."));
            gnome_dialog_run (GNOME_DIALOG(dialog));
        }
    } else {
        GtkWidget *dialog;

        dialog = gnome_ok_dialog(_("There was an error loading the calendar file."));
        gnome_dialog_run (GNOME_DIALOG(dialog));
    }

    gtk_object_unref (GTK_OBJECT (client));
    return;
}

static void
update_calendar (EItipControlPrivate *priv)
{
    gchar cal_uri[255];
    CalClient *client;

    snprintf (cal_uri, 250, "%s/local/Calendar/calendar.ics", evolution_dir);
    
    client = cal_client_new ();

    gtk_signal_connect (GTK_OBJECT (client), "cal_opened",
                    GTK_SIGNAL_FUNC (cal_opened_cb), priv);
    
    if (cal_client_open_calendar (client, cal_uri, FALSE) == FALSE) {
        GtkWidget *dialog;

        dialog = gnome_warning_dialog(_("I couldn't open your calendar file!\n"));
        gnome_dialog_run (GNOME_DIALOG(dialog));
        gtk_object_unref (GTK_OBJECT (client));
    
        return;
    }

    gtk_progress_bar_update (GTK_PROGRESS_BAR (priv->loading_progress), 0.5);
    gtk_widget_show (priv->loading_progress);

    return;
}

static void
add_button_clicked_cb (GtkWidget *widget, gpointer data)
{
    EItipControlPrivate *priv = data;

    update_calendar (priv);

    return;
}

static void
change_my_status (icalparameter_partstat status, EItipControlPrivate *priv)
{
    icalproperty *prop;

    prop = find_attendee (priv->comp, priv->my_address);
    if (prop) {
        icalparameter *param;

        icalproperty_remove_parameter (prop, ICAL_PARTSTAT_PARAMETER);
        param = icalparameter_new_partstat (status);
        icalproperty_add_parameter (prop, param);
    }
}

static void
accept_button_clicked_cb (GtkWidget *widget, gpointer data)
{
    EItipControlPrivate *priv = data;

    change_my_status (ICAL_PARTSTAT_ACCEPTED, priv);
    itip_send_comp (CAL_COMPONENT_METHOD_REPLY, priv->cal_comp);
    update_calendar (priv);
    
    return;
}

static void
tentative_button_clicked_cb (GtkWidget *widget, gpointer data)
{
    EItipControlPrivate *priv = data;

    change_my_status (ICAL_PARTSTAT_TENTATIVE, priv);
    itip_send_comp (CAL_COMPONENT_METHOD_REPLY, priv->cal_comp);
    update_calendar (priv);
    
    return;
}

static void
decline_button_clicked_cb (GtkWidget *widget, gpointer data)
{
    EItipControlPrivate *priv = data;

    change_my_status (ICAL_PARTSTAT_DECLINED, priv);
    itip_send_comp (CAL_COMPONENT_METHOD_REPLY, priv->cal_comp);
    
    return;
}


/********
 * load_calendar_store() opens and loads the calendar referred to by cal_uri
 * and sets cal_client as a client for that store. If cal_uri is NULL,
 * we load the default calendar URI.  If all goes well, it returns TRUE;
 * otherwise, it returns FALSE.
 ********/
static gboolean
load_calendar_store (char *cal_uri, CalClient **cal_client)
{
    char uri_buf[255];
    char *uri;
    
    if (cal_uri == NULL) {
        snprintf (uri_buf, 250, "%s/local/Calendar/calendar.ics", evolution_dir);
        uri = uri_buf;
    }
    else {
        uri = cal_uri;
    }

    *cal_client = cal_client_new ();
    if (cal_client_open_calendar (*cal_client, uri, FALSE) == FALSE) {
        return FALSE;
    }

    /* FIXME!!!!!!  This is fucking ugly. */

    while (!cal_client_get_load_state (*cal_client) != CAL_CLIENT_LOAD_LOADED) {
        gtk_main_iteration_do (FALSE);  /* Do a non-blocking iteration. */
        usleep (200000L);   /* Pause for 1/5th of a second before checking again.*/
    }

    return TRUE;
}


static void
update_reply_cb (GtkWidget *widget, gpointer data)
{
    EItipControlPrivate *priv = data;
    CalClient *cal_client;
    CalComponent *cal_comp;
    icalcomponent *comp;
    icalproperty *prop;
    icalparameter *param;
    const char *uid;

    if (load_calendar_store (NULL, &cal_client) == FALSE) {
        GtkWidget *dialog;

        dialog = gnome_warning_dialog(_("I couldn't load your calendar file!\n"));
        gnome_dialog_run (GNOME_DIALOG(dialog));
        gtk_object_unref (GTK_OBJECT (cal_client));
    
        return;
    }
    

    cal_component_get_uid (priv->cal_comp, &uid);
    if (cal_client_get_object (cal_client, uid, &cal_comp) != CAL_CLIENT_GET_SUCCESS) {
        GtkWidget *dialog;

        dialog = gnome_warning_dialog(_("I couldn't read your calendar file!\n"));
        gnome_dialog_run (GNOME_DIALOG(dialog));
        gtk_object_unref (GTK_OBJECT (cal_client));
    
        return;
    }

    comp = cal_component_get_icalcomponent (cal_comp);

    prop = find_attendee (comp, priv->from_address);
    if (!prop) {
        GtkWidget *dialog;

        dialog = gnome_warning_dialog(_("This is a reply from someone who was uninvited!"));
        gnome_dialog_run (GNOME_DIALOG(dialog));
        gtk_object_unref (GTK_OBJECT (cal_client));
        gtk_object_unref (GTK_OBJECT (cal_comp));
    
        return;
    }
    
    icalproperty_remove_parameter (prop, ICAL_PARTSTAT_PARAMETER);
    param = icalparameter_new_partstat (priv->new_partstat);
    icalproperty_add_parameter (prop, param);

    /* Now we need to update the object in the calendar store. */
    if (!cal_client_update_object (cal_client, cal_comp)) {
        GtkWidget *dialog;

        dialog = gnome_warning_dialog(_("I couldn't update your calendar store."));
        gnome_dialog_run (GNOME_DIALOG(dialog));
        gtk_object_unref (GTK_OBJECT (cal_client));
        gtk_object_unref (GTK_OBJECT (cal_comp));
    
        return;
    }
    else {
        /* We have success. */
        GtkWidget *dialog;

        dialog = gnome_ok_dialog(_("Component successfully updated."));
        gnome_dialog_run (GNOME_DIALOG(dialog));
    }

    
    gtk_object_unref (GTK_OBJECT (cal_client));
    gtk_object_unref (GTK_OBJECT (cal_comp));
}

static void
cancel_meeting_cb (GtkWidget *widget, gpointer data)
{
    EItipControlPrivate *priv = data;
    CalClient *cal_client;
    const char *uid;

    if (load_calendar_store (NULL, &cal_client) == FALSE) {
        GtkWidget *dialog;

        dialog = gnome_warning_dialog(_("I couldn't load your calendar file!\n"));
        gnome_dialog_run (GNOME_DIALOG(dialog));
        gtk_object_unref (GTK_OBJECT (cal_client));
    
        return;
    }

    cal_component_get_uid (priv->cal_comp, &uid);
    if (cal_client_remove_object (cal_client, uid) == FALSE) {
        GtkWidget *dialog;

        dialog = gnome_warning_dialog(_("I couldn't delete the calendar component!\n"));
        gnome_dialog_run (GNOME_DIALOG(dialog));
        gtk_object_unref (GTK_OBJECT (cal_client));
    
        return;
    }
    else {
        /* We have success! */
        GtkWidget *dialog;

        dialog = gnome_ok_dialog(_("Component successfully deleted."));
        gnome_dialog_run (GNOME_DIALOG(dialog));
    }
        
}



/*
 * Bonobo::PersistStream
 *
 * These two functions implement the Bonobo::PersistStream load and
 * save methods which allow data to be loaded into and out of the
 * BonoboObject.
 */

static char *
stream_read (Bonobo_Stream stream)
{
    Bonobo_Stream_iobuf *buffer;
    CORBA_Environment    ev;
    gchar *data = NULL;
    gint length = 0;

    CORBA_exception_init (&ev);
    do {
#define READ_CHUNK_SIZE 65536
        Bonobo_Stream_read (stream, READ_CHUNK_SIZE,
                    &buffer, &ev);

        if (ev._major != CORBA_NO_EXCEPTION) {
            CORBA_exception_free (&ev);
            return NULL;
        }

        if (buffer->_length <= 0)
            break;

        data = g_realloc (data,
                  length + buffer->_length);

        memcpy (data + length,
            buffer->_buffer, buffer->_length);

        length += buffer->_length;

        CORBA_free (buffer);
#undef READ_CHUNK_SIZE
    } while (1);

    CORBA_free (buffer);
    CORBA_exception_free (&ev);

    if (data == NULL)
      data = g_strdup("");

    return data;
} /* stream_read */

/*
 * This function implements the Bonobo::PersistStream:load method.
 */
static void
pstream_load (BonoboPersistStream *ps, const Bonobo_Stream stream,
          Bonobo_Persist_ContentType type, void *data,
          CORBA_Environment *ev)
{
    EItipControlPrivate *priv = data;
    CalComponentText text;
    CalComponentDateTime datetime;
    CalComponentOrganizer organizer;
    icalproperty *prop;
    GSList *list, *l;
    time_t t;
    gint pos = 0;
    icalcompiter iter;
    icalcomponent_kind comp_kind;
    char message[256];
    

    if (type && g_strcasecmp (type, "text/calendar") != 0 &&        
        g_strcasecmp (type, "text/x-calendar") != 0) {      
        CORBA_exception_set (ev, CORBA_USER_EXCEPTION,
                     ex_Bonobo_Persist_WrongDataType, NULL);
        return;
    }

    if ((priv->vcalendar = stream_read (stream)) == NULL) {
        CORBA_exception_set (ev, CORBA_USER_EXCEPTION,
                     ex_Bonobo_Persist_FileNotFound, NULL);
        return;
    }

    /* Do something with the data, here. */

    priv->main_comp = icalparser_parse_string (priv->vcalendar);
    if (priv->main_comp == NULL) {
        g_printerr ("e-itip-control.c: the iCalendar data was invalid!\n");
        return;
    }

    iter = icalcomponent_begin_component (priv->main_comp, ICAL_ANY_COMPONENT);
    priv->comp = icalcompiter_deref (&iter);

    {   
        FILE *fp;

        fp = fopen ("/tmp/evo.debug", "w");

        fputs ("The raw vCalendar data:\n\n", fp);
        fputs (priv->vcalendar, fp);

        fputs ("The main component:\n\n", fp);
        fputs (icalcomponent_as_ical_string (priv->main_comp), fp);

        fputs ("The child component:\n\n", fp);
        fputs (icalcomponent_as_ical_string (priv->comp), fp);

        fclose (fp);
    }

    if (priv->comp == NULL) {
        g_printerr ("e-itip-control.c: I could not extract a proper component from\n"
                "     the vCalendar data.\n");
        icalcomponent_free (priv->main_comp);
        return;
    }

    comp_kind = icalcomponent_isa (priv->comp);

    switch (comp_kind) {
    case ICAL_VEVENT_COMPONENT:
    case ICAL_VTODO_COMPONENT:
    case ICAL_VJOURNAL_COMPONENT:
        priv->cal_comp = cal_component_new ();
        if (cal_component_set_icalcomponent (priv->cal_comp, priv->comp) == FALSE) {
            g_printerr ("e-itip-control.c: I couldn't create a CalComponent from the iTip data.\n");
            gtk_object_unref (GTK_OBJECT (priv->cal_comp));
        }
        break;
    case ICAL_VFREEBUSY_COMPONENT:
        /* Take care of busy time information. */
        return;
        break;
    default:
        /* We don't know what this is, so bail. */
    {
        GtkWidget *dialog;

        dialog = gnome_warning_dialog(_("I don't recognize this type of calendar component."));
        gnome_dialog_run (GNOME_DIALOG(dialog));

        g_free (priv->vcalendar);
        priv->vcalendar = NULL;

        return;
    }
        break;
    } /* End switch. */

    
    /* Fill in the gui */
    cal_component_get_organizer (priv->cal_comp, &organizer);
    priv->organizer = g_strdup (organizer.value);
    gtk_entry_set_text (GTK_ENTRY (priv->organizer_entry), priv->organizer);
    
    cal_component_get_summary (priv->cal_comp, &text);
    gtk_entry_set_text (GTK_ENTRY (priv->summary_entry), text.value);

    cal_component_get_description_list (priv->cal_comp, &list);
    for (l = list; l != NULL; l = l->next) {
        text = *((CalComponentText *)l->data);
        
        gtk_editable_insert_text (GTK_EDITABLE (priv->description_box),
                      text.value, strlen (text.value), &pos);
    }
    cal_component_free_text_list (list);
    
    cal_component_get_dtstart (priv->cal_comp, &datetime);
    t = icaltime_as_timet (*datetime.value);
    e_time_format_date_and_time (localtime (&t), 
                     calendar_config_get_24_hour_format (), 
                     FALSE, FALSE, message, sizeof (message));
    gtk_label_set_text (GTK_LABEL (priv->dtstart_label), message);
    
    cal_component_get_dtend (priv->cal_comp, &datetime);
    t = icaltime_as_timet (*datetime.value);
    e_time_format_date_and_time (localtime (&t), 
                     calendar_config_get_24_hour_format (), 
                     FALSE, FALSE, message, sizeof (message));
    gtk_label_set_text (GTK_LABEL (priv->dtend_label), message);

        /* Clear out any old-assed text that's been lying around in my message box. */
    gtk_editable_delete_text (GTK_EDITABLE (priv->message_text), 0, -1);
    
#if 0
    prop = icalcomponent_get_first_property (priv->comp, ICAL_ORGANIZER_PROPERTY);
    if (prop) {
        organizer = icalproperty_get_organizer (prop);
        
        /* Here I strip off the "MAILTO:" if it is present. */
        new_text = strchr (organizer, ':');
        if (new_text != NULL)
            new_text++;
        else
            new_text = organizer;

        priv->organizer = g_strdup (new_text);
        gtk_entry_set_text (GTK_ENTRY (priv->organizer_entry), new_text);
    }
#endif

    prop = icalcomponent_get_first_property (priv->main_comp, ICAL_METHOD_PROPERTY);
    switch (icalproperty_get_method (prop)) {
    case ICAL_METHOD_PUBLISH:
    {
        GtkWidget *button;

        snprintf (message, 250, "%s has published calendar information, "
              "which you can add to your own calendar. "
              "No reply is necessary.", 
              priv->from_address);
            
        button =  gtk_button_new_with_label (_("Add to Calendar"));
        gtk_box_pack_start (GTK_BOX (priv->button_box), button, FALSE, FALSE, 3);
        gtk_widget_show (button);

        gtk_signal_connect (GTK_OBJECT (button), "clicked",
                    GTK_SIGNAL_FUNC (add_button_clicked_cb), priv);
            
        break;
    }
    case ICAL_METHOD_REQUEST:
    {
        /* I'll check if I have to rsvp. */
        icalproperty *prop;
        icalparameter *param;
        int rsvp = FALSE;

        prop = find_attendee (priv->comp, priv->my_address);
        if (prop) {
            param = get_icalparam_by_type (prop, ICAL_RSVP_PARAMETER);
    
            if (param) {
                if (icalparameter_get_rsvp (param))
                    rsvp = TRUE;
            }
        }

        snprintf (message, 250, "This is a meeting organized by %s, "
              "who indicated that you %s RSVP.",
              (priv->organizer ? priv->organizer : "an unknown person"), 
              (rsvp ? "should" : "don't have to") );

        if (rsvp) {
            GtkWidget *accept_button, *decline_button, *tentative_button;

            accept_button = gtk_button_new_with_label (_(" Accept "));
            decline_button = gtk_button_new_with_label (_(" Decline "));
            tentative_button = gtk_button_new_with_label (_(" Tentative "));

            gtk_box_pack_start (GTK_BOX (priv->button_box), decline_button, FALSE, FALSE, 3);
            gtk_box_pack_end (GTK_BOX (priv->button_box), accept_button, FALSE, FALSE, 3);
            gtk_box_pack_end (GTK_BOX (priv->button_box), tentative_button, FALSE, FALSE, 3);

            gtk_signal_connect (GTK_OBJECT (accept_button), "clicked",
                        GTK_SIGNAL_FUNC (accept_button_clicked_cb), priv);
            gtk_signal_connect (GTK_OBJECT (tentative_button), "clicked",
                        GTK_SIGNAL_FUNC (tentative_button_clicked_cb), priv);
            gtk_signal_connect (GTK_OBJECT (decline_button), "clicked",
                        GTK_SIGNAL_FUNC (decline_button_clicked_cb), priv);

            gtk_widget_show (accept_button);
            gtk_widget_show (tentative_button);
            gtk_widget_show (decline_button);
        }

    }
    break;
    case ICAL_METHOD_REPLY:
    {
        icalproperty *prop;
        icalparameter *param;
        gboolean success = FALSE;

        prop = find_attendee (priv->comp, priv->from_address);
        if (prop) {
            param = get_icalparam_by_type (prop, ICAL_PARTSTAT_PARAMETER);
            if (param) {
                success = TRUE;

                priv->new_partstat = icalparameter_get_partstat (param);
            }
        }

        if (!success) {
            snprintf (message, 250, "%s sent a reply to a meeting request, but "
                  "the reply is not properly formed.",
                  priv->from_address);
        }
        else {
            GtkWidget *button;
        
            button =  gtk_button_new_with_label (_("Update Calendar"));
            gtk_box_pack_start (GTK_BOX (priv->button_box), button, FALSE, FALSE, 3);
            gtk_widget_show (button);
    
            gtk_signal_connect (GTK_OBJECT (button), "clicked",
                        GTK_SIGNAL_FUNC (update_reply_cb), priv);
                
            snprintf (message, 250, "%s responded to your request, replying with: %s",
                  priv->from_address, partstat_values[priv->new_partstat]);
        }

    }
    break;
    case ICAL_METHOD_CANCEL:
        if (strcmp (priv->organizer, priv->from_address) != 0) {
            snprintf (message, 250, "%s sent a cancellation request, but is not "
                  "the organizer of the meeting.",
                  priv->from_address);
        } else {
            GtkWidget *button;

            button =  gtk_button_new_with_label (_("Cancel Meeting"));
            gtk_box_pack_start (GTK_BOX (priv->button_box), button, FALSE, FALSE, 3);
            gtk_widget_show (button);

            gtk_signal_connect (GTK_OBJECT (button), "clicked",
                        GTK_SIGNAL_FUNC (cancel_meeting_cb), priv);

            snprintf (message, 250, "%s sent a cancellation request. You can"
                  " delete this event from your calendar, if you wish.",
                  priv->organizer);
        }
        break;
    default:
        snprintf (message, 250, "I haven't the slightest notion what this calendar "
              "object represents. Sorry.");
    }

    pos = 0;
    gtk_editable_insert_text (GTK_EDITABLE (priv->message_text), 
                  message, strlen (message), &pos);
} /* pstream_load */

/*
 * This function implements the Bonobo::PersistStream:save method.
 */
static void
pstream_save (BonoboPersistStream *ps, const Bonobo_Stream stream,
          Bonobo_Persist_ContentType type, void *data,
          CORBA_Environment *ev)
{
    EItipControlPrivate *priv = data;
    int                  length;

    if (type && g_strcasecmp (type, "text/calendar") != 0 &&        
        g_strcasecmp (type, "text/x-calendar") != 0) {      
        CORBA_exception_set (ev, CORBA_USER_EXCEPTION,
                     ex_Bonobo_Persist_WrongDataType, NULL);
        return;
    }

    /* Put something into vcalendar here. */
    length = strlen (priv->vcalendar);

    bonobo_stream_client_write (stream, priv->vcalendar, length, ev);
} /* pstream_save */

static CORBA_long
pstream_get_max_size (BonoboPersistStream *ps, void *data,
              CORBA_Environment *ev)
{
    EItipControlPrivate *priv = data;
  
    if (priv->vcalendar)
        return strlen (priv->vcalendar);
    else
        return 0L;
}

static Bonobo_Persist_ContentTypeList *
pstream_get_content_types (BonoboPersistStream *ps, void *closure,
               CORBA_Environment *ev)
{
    return bonobo_persist_generate_content_types (2, "text/calendar", "text/x-calendar");
}

static void
get_prop ( BonoboPropertyBag *bag, 
       BonoboArg *arg,
       guint arg_id,          
       CORBA_Environment *ev,
       gpointer user_data)
{
    EItipControlPrivate *priv = user_data;

    if (arg_id == FROM_ADDRESS_ARG_ID) {
        BONOBO_ARG_SET_STRING (arg, priv->from_address);
    }
    else if (arg_id == MY_ADDRESS_ARG_ID) {
        BONOBO_ARG_SET_STRING (arg, priv->my_address);
    }
}

static void
set_prop ( BonoboPropertyBag *bag, 
       const BonoboArg *arg,
       guint arg_id, 
       CORBA_Environment *ev,
       gpointer user_data)
{
    EItipControlPrivate *priv = user_data;

    if (arg_id == FROM_ADDRESS_ARG_ID) {
        if (priv->from_address)
            g_free (priv->from_address);
    
        
        priv->from_address = g_strdup (BONOBO_ARG_GET_STRING (arg));

        /* Let's set the widget here, though I'm not sure if
           it will work. */
        gtk_entry_set_text (GTK_ENTRY (priv->address_entry), priv->from_address);
        
    }
    else if (arg_id == MY_ADDRESS_ARG_ID) {
        if (priv->my_address)
            g_free (priv->my_address);
        
        priv->my_address = g_strdup (BONOBO_ARG_GET_STRING (arg));
    }
}


static BonoboObject *
e_itip_control_factory (BonoboGenericFactory *Factory, void *closure)
{
    BonoboControl      *control;
    BonoboPropertyBag *prop_bag;
    BonoboPersistStream *stream;
    EItipControlPrivate *priv;

    priv = g_new0 (EItipControlPrivate, 1);

    priv->xml = glade_xml_new (EVOLUTION_GLADEDIR "/" "e-itip-control.glade", "main_frame");

    /* Create the control. */
    priv->main_frame = glade_xml_get_widget (priv->xml, "main_frame");
    priv->organizer_entry = glade_xml_get_widget (priv->xml, "organizer_entry");
    priv->dtstart_label = glade_xml_get_widget (priv->xml, "dtstart_label");
    priv->dtend_label = glade_xml_get_widget (priv->xml, "dtend_label");
    priv->summary_entry = glade_xml_get_widget (priv->xml, "summary_entry");
    priv->description_box = glade_xml_get_widget (priv->xml, "description_box");
    /* priv->add_button = glade_xml_get_widget (priv->xml, "add_button"); */
    priv->button_box = glade_xml_get_widget (priv->xml, "button_box");
    priv->address_entry = glade_xml_get_widget (priv->xml, "address_entry");
    priv->message_text = glade_xml_get_widget (priv->xml, "message_text");

    gtk_text_set_word_wrap (GTK_TEXT (priv->message_text), TRUE);
    
    priv->xml2 = glade_xml_new (EVOLUTION_GLADEDIR "/" "e-itip-control.glade", "loading_window");
    priv->loading_progress = glade_xml_get_widget (priv->xml2, "loading_progress");
    priv->loading_window = glade_xml_get_widget (priv->xml2, "loading_window");

    gtk_signal_connect (GTK_OBJECT (priv->main_frame), "destroy",
                GTK_SIGNAL_FUNC (itip_control_destroy_cb), priv);

    gtk_widget_show (priv->main_frame);

    control = bonobo_control_new (priv->main_frame);

    /* create a property bag */
    prop_bag = bonobo_property_bag_new ( get_prop, set_prop, priv );
    bonobo_property_bag_add (prop_bag, "from_address", FROM_ADDRESS_ARG_ID, BONOBO_ARG_STRING, NULL,
                 "from_address", 0 );
    bonobo_property_bag_add (prop_bag, "my_address", MY_ADDRESS_ARG_ID, BONOBO_ARG_STRING, NULL,
                 "my_address", 0 );

    bonobo_control_set_properties (control, prop_bag);
    bonobo_object_unref (BONOBO_OBJECT (prop_bag));

    bonobo_control_set_automerge (control, TRUE);   

    stream = bonobo_persist_stream_new (pstream_load, pstream_save,
                        pstream_get_max_size,
                        pstream_get_content_types,
                        priv);

    if (stream == NULL) {
        bonobo_object_unref (BONOBO_OBJECT (control));
        return NULL;
    }

    bonobo_object_add_interface (BONOBO_OBJECT (control),
                    BONOBO_OBJECT (stream));

    return BONOBO_OBJECT (control);
}

void
e_itip_control_factory_init (void)
{
    static BonoboGenericFactory *factory = NULL;

    if (factory != NULL)
        return;

    factory = bonobo_generic_factory_new (
        "OAFIID:GNOME_Evolution_Calendar_iTip_ControlFactory",
        e_itip_control_factory, NULL);
    bonobo_running_context_auto_exit_unref (BONOBO_OBJECT (factory));;
    
    if (factory == NULL)
        g_error ("I could not register an iTip control factory.");
}