view gaim2blt.pl @ 6639:1b91cb6be4c3

[gaim-migrate @ 7164] Ambrose C. LI (acli) updated the zh_TW.po and writes of the fi.po that: " Changes from previous submission: Safe changes: - Corrected some mistakes that I made in the last submission - Sync'd to anon cvs as of around 22:00 EDT - More strings pulled out from the old po file - More strings pulled out from non-gaim po files - Other strings obtained by relatively trivial editing Unsafe changes: - Some strings previously marked fuzzy has the fuzzy removed - Some new strings obtained by relatively non-trivial editing I think I have made enough of the unsafe changes that I should change Last-Translator to myself. Even if I don't make any more changes, I think it's not right if I don't say in the file that I'm the person who has made all the mistakes in the file" also Matias Vidal (matiasv) fixed plugin loading for hpux (see bug 720868) 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