view gaim2blt.pl @ 5149:387aafe957c4

[gaim-migrate @ 5513] Hmm. So I couldn't really find out what was wrong with lround, so I just wrote a function in oscar.c to round to the nearest integer from a double and return an int. My man page for lround says it's in math.h, and it compiled fine, and it ran fine, but it gave me a function undeclared warning or whatever for lround, which made me unhappy. I tried including math.h and tgmath.h to no avail. If anyone wants to find out what's up with that, or just tell me about some new and trendy round function, please be a doll and do so. Until then, this is ace reporter Mark "The Spark Plug" Doliner, signing off. 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