view gaim2blt.pl @ 10683:e11f3e1599d4

[gaim-migrate @ 12230] A guy named Martin noticed that if you read the info of an ICQ user, and they have more than one email address listed, the mailto link for all addresses after the first are missing a colon. And I also removed some no-longer-needed \n's that were causing some extra white space in the output. I'm glad those aren't needed--yay for improvements to gtkimhtml. Let me go crazy on ya Crazy on you Let me go crazy, crazy on you, ohhh 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