view gaim2blt.pl @ 4622:56dde5f7d3a8

[gaim-migrate @ 4913] Fixed the "Closing a chat crashes gaim" bug, I think. There was a double-free going on with the chat topic and the user who set the topic. The first did checks to see if it was NULL, and if not, freed it. The second just freed it. The second should NOT have existed! Probably explains why I could only duplicate it in channels with no topic. Let me know if this still crashes for anybody. It stopped crashing here. 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