view gaim2blt.pl @ 5145:fc09679bffbe

[gaim-migrate @ 5509] (21:17:26) KingAnt: The thing Luke committed a few hours ago. I think it makes it so Buddies->Get User Info gets the info of whoever is highlighted in the buddy list instead of always opening the "enter screenname" box (21:18:25) LSchiere: KingAnt: correct, as the commit message states, that's exactly what it does (21:18:29) Robot101: KingAnt: the menus don't act on buddies in the list (21:18:34) Robot101: the buttons do, but the menus don't (21:18:40) Robot101: so now it's inconsistent. (21:18:47) KingAnt: That's what I was thinking (21:18:51) Robot101: revert. (21:18:53) LSchiere: kay (21:19:09) KingAnt: Well, I was thinking more... if I want to get info of someone who's not on my buddy list, I shouldn't have to unclick on people in the buddy list (21:19:25) Robot101: that too! (21:19:37) LSchiere: i always forget the menu, so that didn't occur to me: i'm used to unclicking 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