view gaim2blt.pl @ 8944:f041cc8d86cf

[gaim-migrate @ 9716] Fully replace Ignore colors, Ignore font faces and Ignore font sizes with Ignore formatting on incoming messages. nosnilmot: I chose not to apply your change to set_away_option because people should not attempt to set a preference with a NULL value, and if they do we might as well just have Gaim crash so they know about it. My reasoning might be flawed. Eh. Also, Chip and Etan were both against consolidating these options, so someone might want to keep a patch of this commit handy so we can revert it, if necessary. 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