Mercurial > pidgin
view licq2gaim.pl @ 5124:2e78141ec1b5
[gaim-migrate @ 5487]
The change to gaim-remote.c let me compile again.
This fixes the proxy problems with AIM and ICQ.
Tha Problem:
AIM and ICQ accounts would get signed off when receiving large chunks of
data that spanned multiple TCP packets. For people with big buddy lists,
this meant you would get kicked offline as soon as you signed on (because
you buddy list would have to be sent in more than one TCP packet), for
other people, you would get kicked offline when receiving someone's buddy
icon.
The Solution:
I checked out about 20 CVS from different times and narrowed the commit
to between February 23rd and 27th. I then looked at the commit log
for src/protocols/oscar/conn.c between those days and looked for something
that might cause problems, and reverted it.
The Culprit:
Herman's commit on February 25, 2003. It fixed some initite lizooping
when connecting to oscar accounts in Windows.
http://cvs.sourceforge.net/cgi-bin/viewcvs.cgi/gaim/gaim/src/protocols/oscar/conn.c.diff?r1=1.17&r2=1.18
committer: Tailor Script <tailor@pidgin.im>
author | Mark Doliner <mark@kingant.net> |
---|---|
date | Sun, 13 Apr 2003 22:19:43 +0000 |
parents | e967c0d93930 |
children |
line wrap: on
line source
#!/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); }