view gaim2blt.pl @ 10253:949b7986f42c

[gaim-migrate @ 11393] Ok, this fixes up the m4 macro to what I think we want. I removed the thread checks, we never use its pthread support. Removed the /proc checks, so method #2 can actually work. Someone might want to check that it does work on a /procless or nonlinux system. So basicly binreloc is always enabled unless you disable it with a configure option, OR unless you set stuff like libdir (again, via configure) to something different than the others, such that deprefixification doesn't make sense (i.e. you're not installing stuff in its standard location within a prefix). 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