view gaim2blt.pl @ 4755:54fbd9769677

[gaim-migrate @ 5072] This fixes the debug window. It's probably not an ideal fix, but it works. Some kind of core/ui splittage here would be nice. I also made the gtk convo destroy function remove the timer to redraw animated buddy icons, if it exists. This doesn't really affect anything, since the redraw function checks to make sure the convo exists, but it's probably more better this way. Also, I meant to misspell "definitely." Really. I did. You don't believe me? It's ok, I wouldn't believe me either. 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