# HG changeset patch
# User Mark Doliner <mark@kingant.net>
# Date 1111963366 0
# Node ID 897f98b4ca85fda0d4628bb67659a11b08c5663e
# Parent  fffc664d5294a9fa72824ae7d0e2c53c7f04898c
[gaim-migrate @ 12359]
These were written for the old buddy list style.

committer: Tailor Script <tailor@pidgin.im>

diff -r fffc664d5294 -r 897f98b4ca85 gaim2blt.pl
--- a/gaim2blt.pl	Sun Mar 27 19:29:18 2005 +0000
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,44 +0,0 @@
-#!/usr/bin/perl -w
-# Original by Andy Harrison,
-# Rewrite by Decklin Foster,
-# Available under the GPL.
-
-package Gaim2Blt;
-use strict;
-use Getopt::Std;
-use vars qw(%opts $in_group);
-
-getopts('s:', \%opts);
-die "usage: $0 -s 'screen name' gaim.buddy\n" unless $opts{s};
-
-print <<"EOF";
-Config {
-  version 1
-}
-User {
-  screenname "$opts{s}"
-}
-Buddy {
-  list {
-EOF
-
-while (<>) {
-    chomp;
-    my ($type, $args) = split ' ', $_, 2;
-    next unless $type;
-
-    if ($type eq 'g') {
-        print "    }\n" if ($in_group);
-        print qq(    "$args" {\n);
-        $in_group = 1;
-    } elsif ($type eq 'b') {
-        my ($buddy, $alias) = split /:/, $args;
-        print qq(      "$buddy"\n);
-    }
-}
-
-print <<"EOF";
-    }
-  }
-}
-EOF
diff -r fffc664d5294 -r 897f98b4ca85 licq2gaim.pl
--- a/licq2gaim.pl	Sun Mar 27 19:29:18 2005 +0000
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,78 +0,0 @@
-#!/usr/bin/perl -w
-# licq2gaim.pl
-#
-# Arturo Cisneros, Jr <acjr@hal-pc.org>
-# GPL'd
-
-use strict;
-
-my $DIR = "$ENV{HOME}/.licq";
-my $GAIM = "$ENV{HOME}/.gaim";
-my (@UINS, %USERS) = ();
-my $OWNER = "";
-
-
-get_uins();
-
-foreach my $uin (@UINS) {
-	$USERS{$uin} = get_alias($uin);
-}
-
-get_owner();
-write_list();
-
-
-sub get_uins {
-
-	opendir(DIR, "$DIR/users") or die "Couldn't open dir $DIR/users/: $!";
-	@UINS = grep !/^\./, readdir DIR;
-	closedir(DIR);
-}
-
-sub get_owner {
-
-	my @foo = ();
-
-	open(FILE, "<$DIR/owner.uin") or die "Couldn't open file $DIR/owner.uin $!";
-	while(<FILE>) {
-		next unless /^Uin/;
-		@foo = split;
-		last;
-	}
-	close(FILE);
-
-	$OWNER = $foo[2];
-}
-
-sub get_alias {
-
-	my @foo = ();
-
-	open(FILE, "<$DIR/users/$_[0]") or die "Couldn't open $DIR/users/$_[0]: $!";
-	while(<FILE>) {
-		next unless /^Alias/;
-		@foo = split / /, $_, 3;
-		last;
-	}
-	close(FILE);
-
-	return $foo[2];
-}
-
-sub write_list {
-
-	# Backup Original
-	if( -e "$GAIM/$OWNER.3.blist") {
-		rename("$GAIM/$OWNER.3.blist","$GAIM/$OWNER.3.bak");
-	}
-
-	# Write new file
-	open(FILE, ">$GAIM/$OWNER.3.blist") or die "Couldn't open file for writing: $!";
-	print FILE "m 1\n";
-	print FILE "g ICQBuddies\n";
-	while(my($key, $value) = each %USERS) {
-		$key =~ s/\.uin$//;
-		print FILE "b $key:$value";
-	}
-	close(FILE);
-}