# HG changeset patch
# User Eric Warmenhoven <eric@warmenhoven.org>
# Date 986438423 0
# Node ID e8e190793fe3d2c8e3c4ac98684b6a675f61e0c1
# Parent  89c19002e73d8cc7c751583eda10de436d428fc5
[gaim-migrate @ 1695]
mm. fun stuff

committer: Tailor Script <tailor@pidgin.im>

diff -r 89c19002e73d -r e8e190793fe3 ChangeLog
--- a/ChangeLog	Thu Apr 05 01:04:10 2001 +0000
+++ b/ChangeLog	Thu Apr 05 02:40:23 2001 +0000
@@ -6,6 +6,7 @@
 	* Uh... Oscar works? For now?
 	* IRC Plugin can do whois (right click and info)
 	* IRC Plugin got away message support
+	* Gaim blist to WinAIM blt perl script (courtesy Andy Harrison)
 
 version 0.11.0-pre9 (03/26/2001):
 	* Can register Jabber accounts (load the Jabber plugin and click
diff -r 89c19002e73d -r e8e190793fe3 Makefile.am
--- a/Makefile.am	Thu Apr 05 01:04:10 2001 +0000
+++ b/Makefile.am	Thu Apr 05 02:40:23 2001 +0000
@@ -1,6 +1,6 @@
 
 EXTRA_DIST = gaim.spec.in gaim_applet.gnorba gaim.desktop gaim_applet.desktop \
-	README.plugins HACKING STATUS
+	README.plugins HACKING STATUS gaim2blt.pl
 
 if GNOMEAPPLET
 
diff -r 89c19002e73d -r e8e190793fe3 doc/CREDITS
--- a/doc/CREDITS	Thu Apr 05 01:04:10 2001 +0000
+++ b/doc/CREDITS	Thu Apr 05 02:40:23 2001 +0000
@@ -37,7 +37,7 @@
 Ari Pollak      <IM: Ari Pollak>	compwiz.dhs.org
 	Resize conversation window patch   
 Decklin Foster
-	Info box looks nicer
+	Many GUI improvements, other nifty additions and fixes
 David <IM: CrazyDavy>
 	The neato-bigger text box
 S D Erle
diff -r 89c19002e73d -r e8e190793fe3 gaim2blt.pl
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/gaim2blt.pl	Thu Apr 05 02:40:23 2001 +0000
@@ -0,0 +1,30 @@
+#!/usr/bin/perl 
+
+##  gaim buddy list to aim blt format converter
+
+if ($ARGV[0] && $ARGV[1]) {
+	open (FILE,$ARGV[0]);
+	print "Config {\n version 1\n}\nUser {\n screename $ARGV[1]\n}\nBuddy {\n list {\n  ";
+	foreach $line (<FILE>) {
+		chomp ($line);
+		$line =~ s/^ +//;			## strip any preceding spaces
+		next unless $line =~ /^[bg]/;    	## Ignore everything but the b and g lines
+		@buddy = split(//,$line);		## strip off the first 2 chars of the line.
+		shift @buddy;				##   crappy way to do it, but I didn't want to
+		shift @buddy;				##   mess up screen names with spaces in them.
+		foreach $char (@buddy) {
+			$buddy .= $char;
+		}
+		@screenname = split(/:/,$buddy);	## split off the aliases
+		
+		if ($line =~ /^g/) {
+			print "  }\n  $screenname[0] {\n";
+		} elsif ($line =~ /^b/) {
+			print "   $screenname[0]\n";
+		}
+	$buddy = undef;
+	}
+	print "  }\n";
+} else {
+	print "\n\n\n\tExample:\n\n\t\tgaim2blt.pl gaim.buddy.file YourScreenName\n\n\n\n";
+}