view gaim2blt.pl @ 10349:655c48791b3c

[gaim-migrate @ 11563] Removed "Use remote alias when no alias is set" Defaulted to: Conversation titles: No Conversation messages: Yes Buddy list: Yes I barely use MSN, and I use ICQ even less, so if someone thinks of better defaults let me know. These seem to be the best for me. The trick is that on MSN, the server alias usually is less helpful than the screenname and on ICQ, it's more helpful. An alternative is to have the prpl specify which to use, but that's dumb. 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