view gaim2blt.pl @ 4348:922b66840a51

[gaim-migrate @ 4613] Nicola's Lichtmaier (niqueco) writes: "I've redone the UI to make it use GTK2, and to make it prettier. I've rewritten loading and saving... Well.. here it is. (This will probably sit here forever)." he further writes: "I've added safe saving of the file (disk full and other errors won't make it leave a 0 bytes file). I've also added a check so that the user can't leave a field empty after editing." apparently he was wrong about it sitting forever. 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