view gaim2blt.pl @ 4607:8742023570be

[gaim-migrate @ 4895] I even used 4 space tabs so my code would blend in with the rest of Christian's! This fixes 2 very very very minor bugs (they're no 18 yet). 1) When a file is finished, time remaining says "Unknown" 2) When a file finishes, the up/down/check icon doesn't update unless you've clicked on it (or maybe unless details are shown for that transfer) This might not be as pretty as Chip's code, but it looks ok to 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