view gaim2blt.pl @ 5294:d579d5367836

[gaim-migrate @ 5666] When you "get info" for AIM now, and someone has their info set to "http://google.com" (and not "<A HREF="http://google.com">http://google.com</a> the link will now be clickable. The function I changed is used by irc, gg, jabber, toc, and zephyr, so I'm not sure what side affects this might have. It should all be good though. If anyone thinks this should be reverted, feel free. Oh, and I'll be really busy with exams for the next 9 or so days. 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