# HG changeset patch
# User Eric Warmenhoven <eric@warmenhoven.org>
# Date 964513671 0
# Node ID 9ec08f6bb9443ac20981afb91e509028106f7150
# Parent  023c3851db0a1a1050af81b8439e6ddc0c56c77c
[gaim-migrate @ 534]
Added script to convert new winaim blt format to gaim/toc buddy list

committer: Tailor Script <tailor@pidgin.im>

diff -r 023c3851db0a -r 9ec08f6bb944 Makefile.am
--- a/Makefile.am	Tue Jul 25 05:09:14 2000 +0000
+++ b/Makefile.am	Tue Jul 25 08:27:51 2000 +0000
@@ -1,6 +1,6 @@
 
 EXTRA_DIST = gaim.spec.in gaim_applet.gnorba gaim.desktop gaim_applet.desktop gaim_applet.soundlist \
-	buddytrans README.plugins
+	buddytrans buddytrans2 README.plugins
 
 if GNOMEAPPLET
 
diff -r 023c3851db0a -r 9ec08f6bb944 buddytrans2
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/buddytrans2	Tue Jul 25 08:27:51 2000 +0000
@@ -0,0 +1,102 @@
+#!/usr/bin/perl -w
+#
+#  gaim
+# 
+#  Copyright (C) 1998 - 2000, Mark Spencer <markster@marko.net>
+# 
+#  This program is free software; you can redistribute it and/or modify
+#  it under the terms of the GNU General Public License as published by
+#  the Free Software Foundation; either version 2 of the License, or
+#  (at your option) any later version.
+# 
+#  This program is distributed in the hope that it will be useful,
+#  but WITHOUT ANY WARRANTY; without even the implied warranty of
+#  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+#  GNU General Public License for more details.
+# 
+#  You should have received a copy of the GNU General Public License
+#  along with this program; if not, write to the Free Software
+#  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+# 
+#  ---
+#
+#  Buddy List Conversion Script Written By: John Assalone <assalonej@kpe.com>
+#        Modifications by: Rob Flynn <IM: Rob Flynn> <rflynn@blueridge.net>
+#	 Obfuscated by: Schuyler Erle <IM: sderle> <schuyler@tridity.org>
+#
+#  Use this script to convert the new WinAIM buddy list format to gaim's format.
+#
+#  Syntax: ./buddytrans buddy.list gaimlist
+#
+
+use strict;
+use 5.003;
+
+sub translate_lst
+{
+	my $src = shift;
+	my ($line, $field, $name, $out);
+
+	$out = "m 1\n";
+
+	for $line (grep(/\w/o, split(/[\r\n]+/o, $src))) { 
+		($field, $name) = ($line =~ /^\s*(\w)\w*\s+(.+)$/go);
+		$name =~ y/"//d;
+		$out .= "$field $name\n" if $field and $name;
+	}
+
+	$out
+}
+
+sub translate_blt
+{
+	my $src		= shift;
+	my $out		= "m 1\n";
+	my $grp;
+
+	$src =~ s/^.*?Buddy\s+{.*?list\s+{//gos;
+
+	while ( $src =~ / } | 
+		(?: "([^"]+)" | (\S+) ) \s* 
+		(?: {(.+?)} | ([^\n]+) ) \s*/gosx ) { 
+
+		last unless defined( $grp = $1 || $2 );
+			
+		$out .= join( "\n", "g $grp", 
+			map 	{ "b $_" } 
+			grep 	{ defined($_) and /\S/o } 
+			split	( /"([^"]+)"|\s+/, ($3 || $4) ) ) 
+			. "\n" 
+	}
+
+	$out;
+}
+
+sub buddy_trans
+{
+	my ($src_file, $dest_file) = @_;
+
+	die "Syntax: $0 buddy.lst gaimlist\n"
+		unless ($src_file and $dest_file);
+	
+	
+	open SOURCE, "<$src_file" or die "$!: $src_file\n";
+	my $src = do { local $/ = undef; <SOURCE> };
+	close SOURCE;
+
+	if (-e $dest_file) {
+    		print STDERR "$dest_file already exists! Continue? ";
+    		unless (-t and <STDIN> =~ /^y/io) {
+			print STDERR "Aborted.\n";
+			exit -1
+		}
+	} 
+
+	open DEST, ">$dest_file" or die "$!: $dest_file\n";
+	print DEST ($src =~ /{/os) ? translate_blt($src) : translate_lst($src);
+	close DEST;
+
+	0;
+}
+
+buddy_trans( @ARGV );