view gaim2blt.pl @ 10147:a485dedd6ba2

[gaim-migrate @ 11224] Minor privacy dialog changes from Bleeter. 1. Force-save blist.xml when privacy stuff changes instead of when Gaim shutdowns (or when something else triggers a blist-save) 2. Don't redraw stuff in the dialog if you select the same privacy option that was previously selected. Someone can commit this to oldstatus, if you really want. I'm not going to because I don't want to test it and I don't want to be responsible if it breaks something there, and I don't consider the changes to be that dire. 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