changeset 565:7209b474bdc3

[gaim-migrate @ 575] perl changes committer: Tailor Script <tailor@pidgin.im>
author Eric Warmenhoven <eric@warmenhoven.org>
date Tue, 01 Aug 2000 05:10:53 +0000
parents c6f1e88ec3cb
children 59564dbeddc8
files configure.in src/perl.c
diffstat 2 files changed, 31 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/configure.in	Tue Aug 01 04:45:44 2000 +0000
+++ b/configure.in	Tue Aug 01 05:10:53 2000 +0000
@@ -84,7 +84,7 @@
 		AC_MSG_RESULT([not found, building without perl.])
 		enable_perl = no
 	else
-		PERL_LDFLAGS=`$perlpath -MExtUtils::Embed -e ldopts |$sedpath 's/-lgdbm //'`
+		PERL_LDFLAGS=`$perlpath -MExtUtils::Embed -e ldopts 2>/dev/null |$sedpath 's/-lgdbm //'`
 		PERL_LDFLAGS=`echo $PERL_LDFLAGS |$sedpath 's/-ldb //'`
 		PERL_LDFLAGS=`echo $PERL_LDFLAGS |$sedpath 's/-lndbm //'`
 		if test "$system" = "Linux"; then
--- a/src/perl.c	Tue Aug 01 04:45:44 2000 +0000
+++ b/src/perl.c	Tue Aug 01 05:10:53 2000 +0000
@@ -29,7 +29,7 @@
 #undef PACKAGE
 
 /* #ifdef USE_PERL */
-#if 0 /* still has problems */
+#if 0
 
 #include <EXTERN.h>
 #ifndef _SEM_SEMUN_UNDEFINED
@@ -174,6 +174,19 @@
 
 void perl_end()
 {
+	struct perlscript *scp;
+
+	while (perl_list) {
+		scp = perl_list->data;
+		perl_list = g_list_remove(perl_list, scp);
+		if (scp->shutdowncallback[0])
+			execute_perl(scp->shutdowncallback, "");
+		g_free(scp->name);
+		g_free(scp->version);
+		g_free(scp->shutdowncallback);
+		g_free(scp);
+	}
+
 	if (my_perl != NULL) {
 		perl_destruct(my_perl);
 		perl_free(my_perl);
@@ -242,6 +255,22 @@
 
 XS (XS_AIM_get_info)
 {
+	int junk;
+	dXSARGS;
+	items = 0;
+
+	switch(atoi(SvPV(ST(0), junk))) {
+	case 0:
+		XST_mPV(0, VERSION);
+		break;
+	case 1:
+		XST_mPV(0, current_user->username);
+		break;
+	default:
+		XST_mPV(0, "Error2");
+	}
+
+	XSRETURN(1);
 }
 
 #endif /* USE_PERL */