view gaim2blt.pl @ 10658:61930cadca7c

[gaim-migrate @ 12190] sf patch #1108846, from Richard Laager This patch allows one to create protocol plugin options which are masked. This is useful for storing passwords, etc. This patch implements functions similar to the masking functions for general plugin preferences. I'm submitting this for inclusion in Gaim because I've written a plugin which hides the NickServ or Q (for QuakeNet) authentication details from the user. It makes IRC feel more like the other protocols in Gaim. I'd like to have the passwords masked in the preferences to match other password fields in Gaim. This is the only change to Gaim I need for my plugin to work. 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