# HG changeset patch
# User Eric Warmenhoven <eric@warmenhoven.org>
# Date 1006894457 0
# Node ID e967c0d939306ab146e4525eae1e6c4f852687cb
# Parent  f7375f78d0f9855d37262ec91860c6c6efcaebd2
[gaim-migrate @ 2816]
thanks Arturo Cisneros, Jr.

committer: Tailor Script <tailor@pidgin.im>

diff -r f7375f78d0f9 -r e967c0d93930 ChangeLog
--- a/ChangeLog	Tue Nov 27 20:50:58 2001 +0000
+++ b/ChangeLog	Tue Nov 27 20:54:17 2001 +0000
@@ -8,6 +8,8 @@
 	  resized ICQ icons)
 	* Updated Dutch translation (thanks Floris Eshuis)
 	* Option to show aliases in conversation tabs
+	* Option to hide windows after sending messages
+	* licq2gaim.pl conversion script (thanks Arturo Cisneros, Jr.)
 
 version 0.48 (11/18/2001):
 	* Right-click on links to open/copy URL
diff -r f7375f78d0f9 -r e967c0d93930 Makefile.am
--- a/Makefile.am	Tue Nov 27 20:50:58 2001 +0000
+++ b/Makefile.am	Tue Nov 27 20:54:17 2001 +0000
@@ -1,6 +1,6 @@
 
 EXTRA_DIST = gaim.spec.in gaim_applet.gnorba gaim.desktop gaim_applet.desktop \
-	HACKING STATUS gaim2blt.pl
+	HACKING STATUS gaim2blt.pl licq2gaim.pl
 
 if DISTRIB
 
diff -r f7375f78d0f9 -r e967c0d93930 TODO
--- a/TODO	Tue Nov 27 20:50:58 2001 +0000
+++ b/TODO	Tue Nov 27 20:54:17 2001 +0000
@@ -25,6 +25,8 @@
 		*cough*GTK*cough* that they don't.
 
 	Need to write the core side of the core-ui protocol
+	Non-blocking gethostbyname()
+	Cancelable proxy_connect
 
 ----
 THE PROTOCOLS:
diff -r f7375f78d0f9 -r e967c0d93930 licq2gaim.pl
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/licq2gaim.pl	Tue Nov 27 20:54:17 2001 +0000
@@ -0,0 +1,78 @@
+#!/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);
+}