view gaim2blt.pl @ 4161:c79961f48063

[gaim-migrate @ 4390] David Brigada (jsi) writes: "User <youssef> claims that there were a couple of bad translations of the word "account" into French. I don't speak French and therefore cannot verify the translation. However, the patch is here." if the translations are bad, be aware that the gaim developers are pretty much just accepting patches for them, the only way to get them fixed is to submit more patches, as we can't really tell the difference between a good patch and a bad one in languages we don't know. 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