changeset 1734:dd78a230aa06

[gaim-migrate @ 1744] fun stuff committer: Tailor Script <[e-mail]>

--- a/ChangeLog	Fri Apr 20 16:31:36 2001 +0000
+++ b/ChangeLog	Fri Apr 20 23:04:48 2001 +0000
@@ -12,6 +12,7 @@
 	* Jabber can send/accept chat invites (due to mid)
 	* Can rename groups/buddies in the Edit Buddies pane
 	  (thanks Neil Sanchala)
+	* Some perl updates (thanks to Sean Egan)
 
 version 0.11.0-pre10 (04/13/2001):
 	* Many, many bug fixes

--- a/plugins/PERL-HOWTO	Fri Apr 20 16:31:36 2001 +0000
+++ b/plugins/PERL-HOWTO	Fri Apr 20 23:04:48 2001 +0000
@@ -60,7 +60,10 @@
 	"idle" - the second arg is how long (in seconds) to set the idle time
 		 (this sets the idle time for all connections)
 	"warn" - the second arg is the name of the person to warn. this is
-		 especially evil since it warns the person from every connection.
+		 especially evil since it warns the person from every 
+		 connection.  The third argument is 1 if you want to warn
+		 anonymously.  If 0 or ommitted, it will warn normally.
+	"setinfo" - the second arg is what you want to set your profile to.
 
 GAIM::user_info(nick)
 	Returns 8 data items:
@@ -86,11 +89,13 @@
 	Since buddy lists are per-connection this goes through the connections
 	until it finds a matching buddy name.
 
-GAIM::print_to_conv(who, what)
+GAIM::print_to_conv(who, what, auto)
 	The question is not what does this do, it's who does this do it as. The
 	answer is "whatever the default is". It uses whichever connection is
 	selected in the conversation window's menu. If the conversation window
-	didn't exist beforehand, then it's the default (first) connection.
+	didn't exist beforehand, then it's the default (first) connection.  If
+	auto is one, it will send as an auto (read: away) message.  If 0 or
+	ommitted, it will send normally.
 
 GAIM::print_to_chat(room, what)
 	This goes through each connection. If it finds a room matching the name,

--- a/src/perl.c	Fri Apr 20 16:31:36 2001 +0000
+++ b/src/perl.c	Fri Apr 20 23:04:48 2001 +0000
@@ -456,7 +456,7 @@
 
 		while (c) {
 			gc = (struct gaim_connection *)c->data;
-			serv_warn(gc, SvPV(ST(1), junk), 0);
+			serv_warn(gc, SvPV(ST(1), junk), atoi(SvPV(ST(2), junk)));
 			c = c->next;
 		}
 	}

--- a/src/server.c	Fri Apr 20 16:31:36 2001 +0000
+++ b/src/server.c	Fri Apr 20 23:04:48 2001 +0000
@@ -52,6 +52,10 @@
 	if (p && p->login) {
 		debug_printf("Logging in using %s\n", (*p->name)());
 		(*p->login)(user);
+	} else {
+		do_error_dialog(_("You cannot log this account in; you do not have "
+				  "the protocol it uses loaded, or the protocol does "
+				  "not have a login function."), _("Login Error"));
 	}
 }