view gaim2blt.pl @ 8638:0706d86ecec2

[gaim-migrate @ 9390] Fix http://sourceforge.net/tracker/index.php?func=detail&aid=932986&group_id=235&atid=100235 "Change Password Crash" (when leaving a field empty) I made the 3 fields in the change password dialog mandatory, and then I added a check for null values, just to be double sure. Chip, is it bad that stuff using the request API can get NULL like that? It seems like it might be better if stuff just got an empty string? I dunno 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