view gaim2blt.pl @ 9387:bcdf6a530d41

[gaim-migrate @ 10195] (20:11:29) nosnilmot: s/To/Too/ in Chip's news entry :) (20:11:44) LSchiere: no, i'm not changing that one. he can fix his own grammer and spelling ;-) (20:11:53) LSchiere: then someone besides me can have spelling mistakes on file (20:11:55) nosnilmot: but he had to go... :) (20:11:58) SimGuy: LSchiere: I think you had a spelling error (20:12:04) LSchiere: see? someone has to keep me company (20:12:05) SimGuy: unless someone told you already (20:12:09) LSchiere: nope (20:12:32) SimGuy: s/writters/writers/ (20:12:38) LSchiere: *sigh* (20:12:56) nosnilmot: SimGuy: I don't know about you, but I'd be happy as a writter (20:13:16) aatharuv: LSchiere: oh, also s/Zepher/Zephyr/ :-) (20:13:23) nosnilmot: oh yeah, that too :) (20:13:24) LSchiere: where is that? (20:13:26) SimGuy: yeah, but I didn't contribute anything meaningful, so I don't get to be a writter, therefore I must take the honor from you (20:13:29) nosnilmot: ChangeLog (20:13:32) LSchiere: oh 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