# HG changeset patch
# User Eric Warmenhoven <eric@warmenhoven.org>
# Date 967661203 0
# Node ID 9dc39872e1f9d22fa7d0f56b704c966010a0c682
# Parent  c13e78ae0f861fea2ef6b72665e505e3eadf361c
[gaim-migrate @ 808]
beginnings of perl interface

committer: Tailor Script <tailor@pidgin.im>

diff -r c13e78ae0f86 -r 9dc39872e1f9 src/buddy.c
--- a/src/buddy.c	Wed Aug 30 04:31:05 2000 +0000
+++ b/src/buddy.c	Wed Aug 30 18:46:43 2000 +0000
@@ -1722,6 +1722,9 @@
 	GtkWidget *sw;
 	GtkWidget *menu;
 	GtkWidget *findmenu;
+#ifdef USE_PERL
+	GtkWidget *perlmenu;
+#endif
 	GtkWidget *setmenu;
 	GtkWidget *menubar;
 	GtkWidget *vbox;
@@ -1828,6 +1831,25 @@
 #ifdef GAIM_PLUGINS
         gaim_new_item(menu, _("Plugins"), GTK_SIGNAL_FUNC(show_plugins));
 #endif
+#ifdef USE_PERL
+	perlmenu = gtk_menu_new();
+	gtk_widget_show(perlmenu);
+	menuitem = gaim_new_item(menu, _("Perl"), NULL);
+	gtk_menu_item_set_submenu(GTK_MENU_ITEM(menuitem), perlmenu);
+	gtk_widget_show(menuitem);
+	menuitem = gtk_menu_item_new_with_label(_("Load Script"));
+	gtk_menu_append(GTK_MENU(perlmenu), menuitem);
+	gtk_signal_connect(GTK_OBJECT(menuitem), "activate", GTK_SIGNAL_FUNC(load_perl_script), NULL);
+	gtk_widget_show(menuitem);
+	menuitem = gtk_menu_item_new_with_label(_("Unload All Scripts"));
+	gtk_menu_append(GTK_MENU(perlmenu), menuitem);
+	gtk_signal_connect(GTK_OBJECT(menuitem), "activate", GTK_SIGNAL_FUNC(unload_perl_scripts), NULL);
+	gtk_widget_show(menuitem);
+	menuitem = gtk_menu_item_new_with_label(_("List Scripts"));
+	gtk_menu_append(GTK_MENU(perlmenu), menuitem);
+	gtk_signal_connect(GTK_OBJECT(menuitem), "activate", GTK_SIGNAL_FUNC(list_perl_scripts), NULL);
+	gtk_widget_show(menuitem);
+#endif
 
 	menu = gtk_menu_new();
 
diff -r c13e78ae0f86 -r 9dc39872e1f9 src/gaim.h
--- a/src/gaim.h	Wed Aug 30 04:31:05 2000 +0000
+++ b/src/gaim.h	Wed Aug 30 18:46:43 2000 +0000
@@ -401,7 +401,7 @@
 #define TYPE_SIGNOFF   4
 #define TYPE_KEEPALIVE 5
 
-#define REVISION "gaim:$Revision: 807 $"
+#define REVISION "gaim:$Revision: 808 $"
 #define FLAPON "FLAPON\r\n\r\n"
 
 #define ROAST "Tic/Toc"
@@ -738,6 +738,9 @@
 extern int perl_load_file(char *);
 extern void perl_end();
 extern int perl_event(enum gaim_event, char *);
+extern void load_perl_script(GtkWidget *, gpointer);
+extern void unload_perl_scripts(GtkWidget *, gpointer);
+extern void list_perl_scripts(GtkWidget *, gpointer);
 #endif
 
 /* Functions in plugins.c */
diff -r c13e78ae0f86 -r 9dc39872e1f9 src/perl.c
--- a/src/perl.c	Wed Aug 30 04:31:05 2000 +0000
+++ b/src/perl.c	Wed Aug 30 18:46:43 2000 +0000
@@ -43,6 +43,10 @@
 #include <fcntl.h>
 #undef PACKAGE
 #include <stdio.h>
+#include <gtk/gtk.h>
+#include "pixmaps/add.xpm"
+#include "pixmaps/cancel.xpm"
+
 
 /* perl module support */
 extern void xs_init _((void));
@@ -499,4 +503,91 @@
 	XSRETURN_EMPTY;
 }
 
+static GtkWidget *config = NULL;
+static GtkWidget *entry = NULL;
+
+static void cfdes(GtkWidget *m, gpointer n) {
+	if (config) gtk_widget_destroy(config);
+	config = NULL;
+}
+
+static void do_load(GtkWidget *m, gpointer n) {
+	char *file = gtk_entry_get_text(GTK_ENTRY(entry));
+	if (!file || !strlen(file)) {
+		perl_end();
+		perl_init();
+		return;
+	}
+	perl_load_file(file);
+	gtk_widget_destroy(config);
+}
+
+void load_perl_script(GtkWidget *w, gpointer d)
+{
+	GtkWidget *frame;
+	GtkWidget *vbox;
+	GtkWidget *hbox;
+	GtkWidget *label;
+	GtkWidget *ok;
+	GtkWidget *cancel;
+
+	if (config) {
+		gtk_widget_show(config);
+		return;
+	}
+
+	config = gtk_window_new(GTK_WINDOW_DIALOG);
+	gtk_window_set_policy(GTK_WINDOW(config), 0, 0, 1);
+	gtk_window_set_title(GTK_WINDOW(config), "Gaim - Add Perl Script");
+	gtk_container_set_border_width(GTK_CONTAINER(config), 5);
+	gtk_signal_connect(GTK_OBJECT(config), "destroy", GTK_SIGNAL_FUNC(cfdes), 0);
+	gtk_widget_realize(config);
+	aol_icon(config->window);
+
+	frame = gtk_frame_new("Load Script");
+	gtk_container_add(GTK_CONTAINER(config), frame);
+	gtk_widget_show(frame);
+
+	vbox = gtk_vbox_new(FALSE, 5);
+	gtk_container_add(GTK_CONTAINER(frame), vbox);
+	gtk_widget_show(vbox);
+
+	hbox = gtk_hbox_new(FALSE, 5);
+	gtk_box_pack_start(GTK_BOX(vbox), hbox, TRUE, TRUE, 5);
+	gtk_widget_show(hbox);
+
+	label = gtk_label_new("File Name:");
+	gtk_box_pack_start(GTK_BOX(hbox), label, FALSE, FALSE, 5);
+	gtk_widget_show(label);
+
+	entry = gtk_entry_new();
+	gtk_box_pack_start(GTK_BOX(hbox), entry, FALSE, FALSE, 5);
+	gtk_signal_connect(GTK_OBJECT(entry), "activate", GTK_SIGNAL_FUNC(do_load), 0);
+	gtk_widget_show(entry);
+
+	hbox = gtk_hbox_new(TRUE, 10);
+	gtk_box_pack_start(GTK_BOX(vbox), hbox, TRUE, TRUE, 5);
+	gtk_widget_show(hbox);
+
+	ok = picture_button(config, "Load", add_xpm);
+	gtk_box_pack_start(GTK_BOX(hbox), ok, FALSE, FALSE, 5);
+	gtk_signal_connect(GTK_OBJECT(ok), "clicked", GTK_SIGNAL_FUNC(do_load), 0);
+
+	cancel = picture_button(config, "Cancel", cancel_xpm);
+	gtk_box_pack_start(GTK_BOX(hbox), cancel, FALSE, FALSE, 5);
+	gtk_signal_connect(GTK_OBJECT(cancel), "clicked", GTK_SIGNAL_FUNC(cfdes), 0);
+
+	gtk_widget_show(config);
+}
+
+extern void unload_perl_scripts(GtkWidget *w, gpointer d)
+{
+	perl_end();
+	perl_init();
+}
+
+extern void list_perl_scripts(GtkWidget *w, gpointer d)
+{
+	do_error_dialog("Implement me.", "FIXME");
+}
 #endif /* USE_PERL */