view gaim2blt.pl @ 8919:f37992e86e66

[gaim-migrate @ 9689] " Very simple patch that stores the arguments given to configure into config.h.. for example './configure --enable-debug' will set CONFIG_ARGS to "'--enable-debug'". This works just like php does when you do a phpinfo();" --Gary Kramlich the only real point of this is that it helps 3rd party plugin people in the case that the person installing said plugin compiled, or at least configured, gaim. but it shouldn't hurt anything either so... 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