Command Line tool, dont use it. It needs Redesign changes

svn path=/trunk/; revision=7487

1 files changed, 152 insertions, 0 deletions

diff --git a/cmdline/compose.c b/cmdline/compose.c
new file mode 100644
index 0000000000..95a39a3dec
--- /dev/null
+++ b/cmdline/compose.c
@@ -0,0 +1,152 @@
+/*
+ * compose.c: A commnand line tool to invoke the Evolution mail composer
+ *
+ * Author:
+ *   Miguel de Icaza (miguel@ximian.com)
+ *
+ * (C) 2001 Ximian, Inc.
+ */
+#include <config.h>
+#include <gnome.h>
+#include <liboaf/liboaf.h>
+#include <bonobo.h>
+#include "composer/Composer.h"
+
+static char *subject;
+static char *cc;
+static char *bcc;
+static char *body;
+static char *to = "";
+
+const struct poptOption compose_popt_options [] = {
+	{ "subject", 's', POPT_ARG_STRING,
+	  &subject,  0,   N_("Subject for the mail message"), N_("SUBJECT") },
+	{ "cc",      'c', POPT_ARG_STRING,
+	  &cc,       0,   N_("List of people that will be Carbo Copied"), N_("CC-LIST") },
+	{ "bcc",     'b', POPT_ARG_STRING,
+	  &bcc,      0,   N_("List of people to Blind Carbon Copy this mail to"), N_("BCC-LIST") },
+	{ "body",    0,   POPT_ARG_STRING,
+	  &body,     0,   N_("Filename containing the body of the message"), N_("BODY-FILE") },
+	{ NULL,      0, 0, NULL, 0 }
+};
+
+static void
+error (const char *msg)
+{
+	GtkWidget *dialog;
+	
+	dialog = gnome_message_box_new (
+		msg,
+		GNOME_MESSAGE_BOX_ERROR,
+		GNOME_STOCK_BUTTON_OK,
+		NULL);
+	
+	gnome_dialog_run_and_close (GNOME_DIALOG (dialog));
+	exit (1);
+	g_assert_not_reached ();
+}
+
+GNOME_Evolution_Composer_RecipientList *
+make_list (char *str)
+{
+	GNOME_Evolution_Composer_RecipientList *list;
+	char *p;
+	int count = 0;
+
+	if (str == NULL)
+		str = "";
+	
+	list = GNOME_Evolution_Composer_RecipientList__alloc();
+
+	if (*str)
+		count = 1;
+
+	for (p = str; *p; p++){
+		if (*p == ',')
+			count++;
+	}
+	list->_maximum = count;
+	list->_length = count;
+	list->_buffer = CORBA_sequence_GNOME_Evolution_Composer_Recipient_allocbuf (count);
+	
+	for (count = 0; (p = strtok (str, ",")) != NULL; count++){
+		GNOME_Evolution_Composer_Recipient *x;
+
+		x = GNOME_Evolution_Composer_Recipient__alloc ();
+
+		list->_buffer [count].name = CORBA_string_dup ("");
+		list->_buffer [count].address = CORBA_string_dup (p);
+		count++;
+		str = NULL;
+	}
+
+	return list;
+}
+
+gint
+do_launch (void)
+{
+	GNOME_Evolution_Composer_RecipientList *to_list, *cc_list, *bcc_list;
+	GNOME_Evolution_Composer composer;
+	CORBA_Environment ev;
+
+	CORBA_exception_init (&ev);
+	composer = bonobo_get_object (
+		"OAFIID:GNOME_Evolution_Mail_Composer",
+		"GNOME/Evolution/Composer", &ev);
+	CORBA_exception_free (&ev);
+
+	if (composer == CORBA_OBJECT_NIL)
+		error (_("It was not possible to start up the Evolution Mail Composer"));
+
+	to_list = make_list (to);
+	cc_list = make_list (cc);
+	bcc_list = make_list (bcc);
+
+	if (subject == NULL)
+		subject = "";
+	
+	GNOME_Evolution_Composer_setHeaders (composer, to_list, cc_list, bcc_list, subject, &ev);
+	GNOME_Evolution_Composer_show (composer, &ev);
+
+	return FALSE;
+}
+
+int 
+main (int argc, char *argv [])
+{
+	poptContext ctxt = NULL;
+	CORBA_ORB orb;
+	
+	gnomelib_register_popt_table (oaf_popt_options, _("Oaf options"));
+	gnome_init_with_popt_table ("Compose", "1.0", argc, argv,
+				    compose_popt_options, 0, &ctxt);
+
+	orb = oaf_init (argc, argv);
+	if (bonobo_init (NULL, NULL, NULL) == FALSE)
+		error (_("It was not possible to initialize the Bonobo component system"));
+
+	if (ctxt){
+		const char **to_args = NULL;
+		GString *to_str = g_string_new ("");
+		int i;
+		
+		to_args = poptGetArgs (ctxt);
+
+		if (to_args){
+			for (i = 0; to_args [i]; i++) {
+				if (i > 1)
+					g_string_append_c (to_str, ',');
+				
+				g_string_append (to_str, to_args [i]);
+			}
+		}
+		to = to_str->str;
+	}
+
+	gtk_idle_add (GTK_SIGNAL_FUNC (do_launch), NULL);
+	
+	bonobo_main ();
+	
+	return 0;
+}