view gaim2blt.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 <[e-mail]>

#!/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