# HG changeset patch
# User Eric Warmenhoven <eric@warmenhoven.org>
# Date 967526194 0
# Node ID 4c292b3f74eae2d165fd2062192271eb7bb96e5e
# Parent  5bad8e4d1c8837b6baa488edb6a87f1ab9d5dbd4
[gaim-migrate @ 794]
now all i have to do is add the UI and i'm set

committer: Tailor Script <tailor@pidgin.im>

diff -r 5bad8e4d1c88 -r 4c292b3f74ea src/aim.c
--- a/src/aim.c	Tue Aug 29 05:08:38 2000 +0000
+++ b/src/aim.c	Tue Aug 29 05:16:34 2000 +0000
@@ -114,6 +114,9 @@
 		c = c->next;
 	}
 #endif /* GAIM_PLUGINS */
+#ifdef USE_PERL
+	perl_end();
+#endif
 
 	exit(0);
 #endif /* USE_APPLET */
@@ -555,6 +558,10 @@
 
 	gdk_threads_enter();
 
+#ifdef USE_PERL
+	perl_init();
+#endif
+
 #ifdef USE_APPLET
 	applet_widget_register_callback(APPLET_WIDGET(applet),
 					"prefs",
diff -r 5bad8e4d1c88 -r 4c292b3f74ea src/buddy.c
--- a/src/buddy.c	Tue Aug 29 05:08:38 2000 +0000
+++ b/src/buddy.c	Tue Aug 29 05:16:34 2000 +0000
@@ -968,6 +968,9 @@
 		c = c->next;
 	}
 #endif
+#ifdef USE_PERL
+	perl_end();
+#endif
 
 	exit(0);
 }
diff -r 5bad8e4d1c88 -r 4c292b3f74ea src/gaim.h
--- a/src/gaim.h	Tue Aug 29 05:08:38 2000 +0000
+++ b/src/gaim.h	Tue Aug 29 05:16:34 2000 +0000
@@ -401,7 +401,7 @@
 #define TYPE_SIGNOFF   4
 #define TYPE_KEEPALIVE 5
 
-#define REVISION "gaim:$Revision: 790 $"
+#define REVISION "gaim:$Revision: 794 $"
 #define FLAPON "FLAPON\r\n\r\n"
 
 #define ROAST "Tic/Toc"
@@ -732,6 +732,13 @@
 /* Functions in sound.c */
 extern void play_sound(int);
 
+/* Functions in perl.c */
+#ifdef USE_PERL
+extern void perl_init();
+extern int perl_load_file(char *);
+extern void perl_end();
+extern int perl_event(enum gaim_event, char *);
+#endif
 
 /* Functions in plugins.c */
 #ifdef GAIM_PLUGINS
diff -r 5bad8e4d1c88 -r 4c292b3f74ea src/plugins.c
--- a/src/plugins.c	Tue Aug 29 05:08:38 2000 +0000
+++ b/src/plugins.c	Tue Aug 29 05:16:34 2000 +0000
@@ -657,7 +657,7 @@
 			sprintf(buf, "%s", (char *)arg1);
 			break;
 		case event_buddy_signoff:
-			sprint:
+			sprintf(buf, "%s", (char *)arg1);
 			break;
 		case event_buddy_away:
 			sprintf(buf, "%s", (char *)arg1);