view gaim2blt.pl @ 8252:10a41e67a800

[gaim-migrate @ 8975] I'm tired, so I probably broke something... 1. clean up warnings trying to put chats into the blist before the blist is there to put chats in 2. clean up warnings trying to mess with the buddy pounce menu before the buddy pounce menu is there to be messed with 3. clean up warnings with reconnecting and the progress bars in the connection dialog, i think 4. re-order things so the tab doesn't go grey if it's already red. this annoyed me. 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