view gaim2blt.pl @ 7715:9f6dc7b4fc57

[gaim-migrate @ 8360] I didn't do this earlier, because I figured people would still want to add their own HTML tags using CVS, but I strongly doubt anyone will be hit with the overwhelming desire to manually change the font size in an IM until that gets implemented. I'm escaping HTML now. This will only happen with protocols that support HTML, other protocols will receive just the text in the box. When the toolbar gets widgetized, it will become desensitive when the current account does not support HTML. Also, because it's been asked of me, your default outgoing font will be set in the wysiwyg entry widget, and ctrl-up will show the correct formatting. 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