comparison src/perl.c @ 799:72f8ac951c11

[gaim-migrate @ 809] list perl scripts committer: Tailor Script <[e-mail]>

798:9dc39872e1f9

	perl_init();
}

extern void list_perl_scripts(GtkWidget *w, gpointer d)
{
	do_error_dialog("Implement me.", "FIXME");
}
#endif /* USE_PERL */

799:72f8ac951c11

	perl_init();
}

extern void list_perl_scripts(GtkWidget *w, gpointer d)
{
	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 */