# HG changeset patch
# User Eric Warmenhoven <eric@warmenhoven.org>
# Date 967661642 0
# Node ID 72f8ac951c11403d1ea27078b61cbd7ff7d1f349
# Parent  9dc39872e1f9d22fa7d0f56b704c966010a0c682
[gaim-migrate @ 809]
list perl scripts

committer: Tailor Script <tailor@pidgin.im>

diff -r 9dc39872e1f9 -r 72f8ac951c11 src/perl.c
--- a/src/perl.c	Wed Aug 30 18:46:43 2000 +0000
+++ b/src/perl.c	Wed Aug 30 18:54:02 2000 +0000
@@ -588,6 +588,19 @@
 
 extern void list_perl_scripts(GtkWidget *w, gpointer d)
 {
-	do_error_dialog("Implement me.", "FIXME");
+	GList *s = perl_list;
+	struct perlscript *p;
+	char buf[BUF_LONG * 4];
+	int at = 0;
+
+	at += g_snprintf(buf + at, sizeof(buf) - at, "Loaded scripts:\n");
+	while (s) {
+		p = (struct perlscript *)s->data;
+		at += g_snprintf(buf + at, sizeof(buf) - at, "%s\n", p->name);
+		s = s->next;
+	}
+
+	do_error_dialog(buf, _("Perl Scripts"));
 }
+
 #endif /* USE_PERL */