view gaim2blt.pl @ 5231:b5f912af996e

[gaim-migrate @ 5601] i missed that rant when i looked at this the first 2 times. it was MY fault that the original es.po patch, submitted to debian, was not committed. i was not yet on the debian Gaim PTS, and had committed a translation update that broke the one submitted to debian just before i was notified that the debian submitted patch existed. any rant about that patch not being accepted should be directed to/at me not robot101. i addressed this once in a reply to the aforementioned patch, but apparently the submitter is too dense to figure it out. hopefully this is the last time i will have to address the fact that because i get translation patches from a number of different sources, i sometimes break one patch by applying a different one. 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