# HG changeset patch
# User Eric Warmenhoven <eric@warmenhoven.org>
# Date 967059789 0
# Node ID 94edd99b730255153622d94a29624cf440fff10e
# Parent  c32d4fae9bbdda9b7e9850ada978da18c69581c0
[gaim-migrate @ 759]
la la la. i suppose sooner or later i should document how to write a perl script.

committer: Tailor Script <tailor@pidgin.im>

diff -r c32d4fae9bbd -r 94edd99b7302 HACKING
--- a/HACKING	Wed Aug 23 18:30:35 2000 +0000
+++ b/HACKING	Wed Aug 23 19:43:09 2000 +0000
@@ -143,7 +143,7 @@
   of it works, but it has functionsLikeThis. I hate looking at this
   file, but I'm too lazy to change the functions. The best functions
   are things like set_applet_draw_open, whose sole purpose is to set a
-  global variable to TRUE.
+  global variable to TRUE. [ note 8/22/00 - I finally changed this file. ]
 
 gtkhtml.c:
   This is really just one big hack. It started off as an HTML widget that
diff -r c32d4fae9bbd -r 94edd99b7302 plugins/perl.c
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/plugins/perl.c	Wed Aug 23 19:43:09 2000 +0000
@@ -0,0 +1,106 @@
+/*
+ * This is a plugin to load perl scripts. If you don't enter
+ * in a name of a script to load it will unload all perl
+ * scripts. This is just to test that perl is working in gaim
+ * before the UI comes in. You can use this to start building
+ * perl scripts, but don't use this for anything real yet.
+ *
+ */
+
+#define GAIM_PLUGINS
+#include "gaim.h"
+#include "pixmaps/add.xpm"
+#include "pixmaps/cancel.xpm"
+
+char *name() {
+	return "Perl Plug";
+}
+
+char *description() {
+	return "Interface for loading perl scripts";
+}
+
+int gaim_plugin_init(void *h) {
+	perl_init();
+}
+
+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 gaim_plugin_config() {
+	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);
+}
+
+void gaim_plugin_remove() {
+	if (config) gtk_widget_destroy(config);
+	perl_end();
+}
diff -r c32d4fae9bbd -r 94edd99b7302 src/perl.c
--- a/src/perl.c	Wed Aug 23 18:30:35 2000 +0000
+++ b/src/perl.c	Wed Aug 23 19:43:09 2000 +0000
@@ -361,7 +361,8 @@
 	} else if (!strncasecmp(command, "idle", 4)) {
 		serv_set_idle(atoi(SvPV(ST(1), junk)));
 	} else if (!strncasecmp(command, "warn", 4)) {
-		/* FIXME */
+		char *name = SvPV(ST(1), junk);
+		serv_warn(name, 0);
 	}
 
 	XSRETURN(0);