Mercurial > pidgin
changeset 2803:e967c0d93930
[gaim-migrate @ 2816]
thanks Arturo Cisneros, Jr.
committer: Tailor Script <tailor@pidgin.im>
| author | Eric Warmenhoven <eric@warmenhoven.org> |
|---|---|
| date | Tue, 27 Nov 2001 20:54:17 +0000 |
| parents | f7375f78d0f9 |
| children | 1648c703ddc2 |
| files | ChangeLog Makefile.am TODO licq2gaim.pl |
| diffstat | 4 files changed, 83 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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
--- 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
--- 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:
--- /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); +}