view gaim2blt.pl @ 10282:778dd5d6d55e

[gaim-migrate @ 11451] Patch from Scott Shedden to have the blist hidden when Gaim starts. This actually probably won't work for most people currently, because on X11, the docklet is added asynchrously, so we usually won't realize the docklet exists until we've already created the blist. I'm sure there must be some way around this, though (Scott's solution was to manually hide the buddy list when the docklet was finally embedded. I may fall back on that). 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