view gaim2blt.pl @ 9848:f462f91edeb2

[gaim-migrate @ 10726] " After an account was disconnected or signed off, Gaim was not forgetting that it knew the password of the user while in the same application session. This patch causes gaim to blank the password for accounts that do not have "Remember password" set when an account is disconnected by request or forced." --Dave West our rationale for remembering them during that instance of gaim was that you probly do not want to have to type it in again if you are disconnected. after seeing numerous bug reports about people mis-typing their password and people afraid that someone else will sit down at their computer, i decided that this rationale isn't as compelling. 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