view gaim2blt.pl @ 5250:649e54d617da

[gaim-migrate @ 5622] If your partition was full when saving preferences, .gaimrc.save could get created or half created, and then that file would get renamed to .gaimrc, which is bad, because the new rc file would be corrupt or whatever. So I just added an ugly little check for "if I can add a newline on to the end of ~/.gaimrc.save, then it probably got written ok." I'm not really a big fan of .gaimrc. Someone with some skills might want to rewrite it? Or maybe we should use xml or something? I dunno. Hooverphonic is cool 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