view gaim2blt.pl @ 6648:adf49a9bb9a0

[gaim-migrate @ 7173] [e-mail] noticed that: "With AIM and custom font faces, the attributes (bold, italics) will not be rendered in the conversation window. This is because gtk's "font" attribute wants the Pango font name for its selection, which goes in the form of: Font_Name attribs size The attribs are the bold, italic, or bold italic modifiers. Without these there will be no bold or italics. Using the "family" attribute instead will allow the bold and italic modifiers to change the text style. With the "font" attribute, it seems these aspects of the style are specified there and immutable." 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