path: root/tools/evolution-launch-composer.c

/* -*- Mode: C; tab-width: 8; indent-tabs-mode: t; c-basic-offset: 8 -*- */
/* 
 * evolution-sendmail.c - 
 * Copyright (C) 2002, Ximian, Inc.
 *
 * Authors:
 *   Christopher James Lahey <clahey@ximian.com>
 *
 * This file 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 file 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 file; if not, write to
 * the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
 * Boston, MA 02110-1301, USA.
 **/

#include <config.h>

#include <Evolution-Composer.h>

#include <string.h>
#include <e-util/e-util.h>
#include <bonobo-activation/bonobo-activation.h>
#include <gtk/gtkmain.h>

#include <bonobo/bonobo-main.h>

#include <glib/gi18n.h>
#include <libgnomeui/gnome-ui-init.h>

#include <libgnomevfs/gnome-vfs-ops.h>
#include <libgnomevfs/gnome-vfs-uri.h>
#include <libgnomevfs/gnome-vfs-utils.h>
#include <libgnomevfs/gnome-vfs-xfer.h>
#include <libgnomevfs/gnome-vfs-init.h>

#define READ_CHUNK_SIZE 8192

#define E_SHELL_OAFIID  "OAFIID:GNOME_Evolution_Shell"
#define COMPOSER_OAFIID "OAFIID:GNOME_Evolution_Mail_Composer"
#define NOTNULL(x) ((x) ? (x) : "")

typedef struct {
    char *filename;
    char *basename;
    char *content;
    int   size;
    char *description;
    char *content_type;
    gboolean show_inline;
} attachment_t;

GList *attachments; /* Of type attachment_t */

char *subject;

static void
free_attachment (attachment_t *attachment)
{
    g_free (attachment->content);
    g_free (attachment->filename);
    g_free (attachment->basename);
    g_free (attachment->content_type);
    g_free (attachment->description);
    g_free (attachment);
}

static GnomeVFSResult
elc_read_entire_file (const char *uri,
              int *file_size,
              char **file_contents,
              char **content_type)
{
    GnomeVFSResult result;
    GnomeVFSHandle *handle;
    char *buffer;
    GnomeVFSFileSize total_bytes_read;
    GnomeVFSFileSize bytes_read;

    *file_size = 0;
    *file_contents = NULL;

    /* Open the file. */
    result = gnome_vfs_open (&handle, uri, GNOME_VFS_OPEN_READ);
    if (result != GNOME_VFS_OK) {
        return result;
    }

    /* Read the whole thing. */
    buffer = NULL;
    total_bytes_read = 0;
    do {
        buffer = g_realloc (buffer, total_bytes_read + READ_CHUNK_SIZE);
        result = gnome_vfs_read (handle,
                     buffer + total_bytes_read,
                     READ_CHUNK_SIZE,
                     &bytes_read);
        if (result != GNOME_VFS_OK && result != GNOME_VFS_ERROR_EOF) {
            g_free (buffer);
            gnome_vfs_close (handle);
            return result;
        }

        /* Check for overflow. */
        if (total_bytes_read + bytes_read < total_bytes_read) {
            g_free (buffer);
            gnome_vfs_close (handle);
            return GNOME_VFS_ERROR_TOO_BIG;
        }

        total_bytes_read += bytes_read;
    } while (result == GNOME_VFS_OK);

    if (content_type) {
        GnomeVFSFileInfo *info;

        info = gnome_vfs_file_info_new ();
        result = gnome_vfs_get_file_info_from_handle (handle, info,
                                  GNOME_VFS_FILE_INFO_GET_MIME_TYPE |
                                  GNOME_VFS_FILE_INFO_FOLLOW_LINKS);
        if (result == GNOME_VFS_OK)
            *content_type = g_strdup (gnome_vfs_file_info_get_mime_type (info));
        else
            *content_type = g_strdup ("application/octet-stream");

        gnome_vfs_file_info_unref (info);
    }

    /* Close the file. */
    result = gnome_vfs_close (handle);
    if (result != GNOME_VFS_OK) {
        g_free (buffer);
        return result;
    }

    /* Return the file. */
    *file_size = total_bytes_read;
    *file_contents = g_realloc (buffer, total_bytes_read);
    return GNOME_VFS_OK;
}


static void
do_send (GNOME_Evolution_Composer composer_server)
{
    CORBA_Environment ev;

    GNOME_Evolution_Composer_AttachmentData *attach_data;

    GNOME_Evolution_Composer_RecipientList *to_list, *cc_list, *bcc_list;

    CORBA_exception_init (&ev);

    attachments = g_list_reverse (attachments);

    while (attachments) {
        attachment_t *attachment = attachments->data;

        attach_data = GNOME_Evolution_Composer_AttachmentData__alloc();
        attach_data->_maximum = attach_data->_length = attachment->size;
        attach_data->_buffer = CORBA_sequence_CORBA_char_allocbuf (attach_data->_length);
        strcpy (attach_data->_buffer, attachment->content);

        GNOME_Evolution_Composer_attachData (composer_server, 
                             NOTNULL (attachment->content_type),
                             NOTNULL (attachment->basename),
                             NOTNULL (attachment->description),
                             attachment->show_inline,
                             attach_data,
                             &ev);

        if (ev._major != CORBA_NO_EXCEPTION) {
            g_printerr ("evolution-sendmail.c: I couldn't attach data to the composer via CORBA! Aagh.\n");
            CORBA_exception_free (&ev);
            return;
        }

        CORBA_free (attach_data);

        free_attachment (attachment);

        attachments = g_list_delete_link (attachments, attachments);
    }

    to_list = GNOME_Evolution_Composer_RecipientList__alloc ();
    to_list->_maximum = to_list->_length = 0;

    cc_list = GNOME_Evolution_Composer_RecipientList__alloc ();
    cc_list->_maximum = cc_list->_length = 0;

    bcc_list = GNOME_Evolution_Composer_RecipientList__alloc ();
    bcc_list->_maximum = bcc_list->_length = 0;

    GNOME_Evolution_Composer_setHeaders (composer_server, "", to_list, cc_list, bcc_list, NOTNULL (subject), &ev);

    CORBA_free (to_list);
    CORBA_free (cc_list);
    CORBA_free (bcc_list);

    GNOME_Evolution_Composer_show (composer_server, &ev);

    if (ev._major != CORBA_NO_EXCEPTION) {
        g_printerr ("evolution-sendmail.c: I couldn't show the composer via CORBA! Aagh.\n");
        CORBA_exception_free (&ev);
        return;
    }

    CORBA_exception_free (&ev);
}


static GNOME_Evolution_Composer
get_composer ()
{
    CORBA_Object shell;
    GNOME_Evolution_Composer composer;

    /* First, I obtain an object reference that represents the Shell, to make sure it's running. */
    shell = bonobo_activation_activate_from_id (E_SHELL_OAFIID, 0, NULL, NULL);

    printf ("shell == %p\n", shell);

    g_return_val_if_fail (shell != CORBA_OBJECT_NIL, NULL);

    /* Next, I obtain an object reference that represents the Composer. */
    composer = bonobo_activation_activate_from_id (COMPOSER_OAFIID, 0, NULL, NULL);

    printf ("composer == %p\n", composer);

    return composer;
}

static gboolean
composer_timeout (gpointer data)
{
    GNOME_Evolution_Composer composer;

    composer = get_composer ();

    if (composer != CORBA_OBJECT_NIL) {
        do_send (composer);
        gtk_main_quit ();
        return FALSE;
    } else {
        return TRUE;
    }
}

static void
cb (poptContext con, 
    enum poptCallbackReason reason,
    /*@null@*/ const struct poptOption * opt,
    /*@null@*/ const char * arg,
    /*@null@*/ const void * data)
{
       const char *name = opt->longName;
       if (!strcmp (name, "add-attachment")) {
               attachment_t *new_attach = g_new (attachment_t, 1);
               new_attach->filename = g_strdup (arg);
               new_attach->basename = strrchr (new_attach->filename, '/');
               if (new_attach->basename)
                       new_attach->basename ++;
               else
                       new_attach->basename = new_attach->filename;
               new_attach->basename = g_strdup (new_attach->basename);
               if (new_attach->filename)
                       elc_read_entire_file (new_attach->filename,
                                             &new_attach->size,
                                             &new_attach->content,
                                             &new_attach->content_type);
               new_attach->description = NULL;
               new_attach->show_inline = FALSE;
               if (new_attach->content) {
                       attachments = g_list_prepend (attachments, new_attach);
               } else {
                       free_attachment (new_attach);
               }
       } else if (!strcmp (name, "file-name")) {
               if (attachments) {
                       attachment_t *attachment = attachments->data;
                       g_free (attachment->basename);
                       attachment->basename = g_strdup (arg);
               } else {
               }
       } else if (!strcmp (name, "content-type")) {
               if (attachments) {
                       attachment_t *attachment = attachments->data;
                       if (attachment->content_type) {
                       }
                       attachment->content_type = g_strdup (arg);
               } else {
               }
       } else if (!strcmp (name, "description")) {
               if (attachments) {
                       attachment_t *attachment = attachments->data;
                       if (attachment->description) {
                       }
                       attachment->description = g_strdup (arg);
               } else {
               }
       } else if (!strcmp (name, "show-inline")) {
               if (attachments) {
                       attachment_t *attachment = attachments->data;
                       if (attachment->show_inline) {
                       }
                       attachment->show_inline = TRUE;
               } else {
               }
       }
}

static struct poptOption cap_options[] = {
       { NULL, '\0', POPT_ARG_CALLBACK, cb, 0, NULL, NULL },
       { "add-attachment", 'a', POPT_ARG_STRING, NULL, 0, N_("An attachment to add."), NULL },
       { "content-type", 't', POPT_ARG_STRING, NULL, 0, N_("Content type of the attachment."), NULL },
       { "file-name", 'f', POPT_ARG_STRING, NULL, 0, N_("The filename to display in the mail."), NULL },
       { "description", 'd', POPT_ARG_STRING, NULL, 0, N_("Description of the attachment."), NULL },
       { "show-inline", 'i', POPT_ARG_NONE, NULL, 0, N_("Mark attachment to be shown inline by default."), NULL },
       { "subject", 's', POPT_ARG_STRING, &subject, 0, N_("Default subject for the message."), NULL },
       { NULL, '\0', 0, NULL, 0 }
};

int
main(int argc, char *argv[])
{
    GNOME_Evolution_Composer composer;

        bindtextdomain (PACKAGE, EVOLUTION_LOCALEDIR);
        textdomain (PACKAGE);

    gnome_program_init ("evolution-launch-composer", VERSION,
                LIBGNOMEUI_MODULE, argc, argv,
                GNOME_PROGRAM_STANDARD_PROPERTIES,
                GNOME_PARAM_POPT_TABLE, cap_options,
                NULL);

    composer = get_composer ();

    if (composer != CORBA_OBJECT_NIL) {
        do_send (composer);
    } else {
        g_timeout_add(1000, composer_timeout, NULL);
        bonobo_main ();
    }

    return 0;
}