changeset 591:a26eb4c472d8

[gaim-migrate @ 601] plugins makefile script works better. perl is getting added to. committer: Tailor Script <[e-mail]>

--- a/plugins/ChangeLog	Wed Aug 02 19:15:13 2000 +0000
+++ b/plugins/ChangeLog	Thu Aug 03 02:05:26 2000 +0000
@@ -1,3 +1,11 @@
+version 0.10.0:
+	Rather than have a separate CFLAGS and LDFLAGS for the plugins than
+	for gaim, and doing all kinds of crazy things to work around the
+	problems that creates, the plugins now have the same CFLAGS and LIBS.
+	The plugins also have PLUGIN_LIBS which can be passed at make time.
+	This makes things like #ifdef USE_APPLET and #ifdef USE_PERL much more
+	reliable.
+
 version 0.9.20:
 	It's 3 am the night before finals, it's obviously a good time to hack
 	gaim.

--- a/plugins/Makefile.am	Wed Aug 02 19:15:13 2000 +0000
+++ b/plugins/Makefile.am	Thu Aug 03 02:05:26 2000 +0000
@@ -1,15 +1,7 @@
-if GNOMEAPPLET
-CFLAGS += $(GTK_CFLAGS) $(GNOME_INCLUDEDIR) -I../src -DUSE_APPLET
-else
-CFLAGS += $(GTK_CFLAGS) -I../src -I../libfaim/faim -I../libfaim
-endif
-
-
-
-LDFLAGS += -ggdb $(GTK_LIBS) -shared
+LDFLAGS += $(LIBS) -ggdb -shared
 SUFFIXES = .c .so
 .c.so:
-	$(CC) $(CFLAGS) -DVERSION=\"$(VERSION)\" -fPIC -DPIC -o $@ $< $(LDFLAGS) $(PLUGIN_LIBS)
+	$(CC) $(CFLAGS) -I../src -DVERSION=\"$(VERSION)\" -fPIC -DPIC -o $@ $< $(LDFLAGS) $(PLUGIN_LIBS)
 
 
 

--- a/src/perl.c	Wed Aug 02 19:15:13 2000 +0000
+++ b/src/perl.c	Thu Aug 03 02:05:26 2000 +0000
@@ -66,24 +66,26 @@
 static PerlInterpreter *my_perl = NULL;
 
 /* dealing with gaim */
-XS(XS_AIM_register);
-XS(XS_AIM_get_info);
+XS(XS_AIM_register); /* set up hooks for script */
+XS(XS_AIM_get_info); /* version, last to attempt signon, protocol */
 XS(XS_AIM_print); /* lemme figure this one out... */
 
 /* list stuff */
-XS(XS_AIM_buddy_list);
-XS(XS_AIM_online_list);
+XS(XS_AIM_buddy_list); /* all buddies */
+XS(XS_AIM_online_list); /* online buddies */
 XS(XS_AIM_deny_list); /* also returns permit list */
 
 /* server stuff */
-XS(XS_AIM_command);
+XS(XS_AIM_command); /* send command to server */
 XS(XS_AIM_user_info); /* given name, return struct buddy members */
 
 /* handler commands */
-XS(XS_AIM_add_message_handler);
-XS(XS_AIM_add_command_handler);
-XS(XS_AIM_add_timeout_handler);
+XS(XS_AIM_add_message_handler); /* when people talk */
+XS(XS_AIM_add_command_handler); /* when servers talk */
+XS(XS_AIM_add_timeout_handler); /* figure it out */
 
+/* cool stuff */
+XS(XS_AIM_print_to_conv); /* send message to someone */
 
 void xs_init()
 {
@@ -240,6 +242,14 @@
 	case 1:
 		XST_mPV(0, current_user->username);
 		break;
+	case 2:
+		if (!blist)
+			XST_mPV(0, "Offline");
+		else if (!USE_OSCAR)
+			XST_mPV(0, "TOC");
+		else
+			XST_mPV(0, "Oscar");
+		break;
 	/* FIXME */
 	default:
 		XST_mPV(0, "Error2");
@@ -380,4 +390,9 @@
 	XSRETURN_EMPTY;
 }
 
+XS (XS_AIM_print_to_conv)
+{
+	/* FIXME */
+}
+
 #endif /* USE_PERL */