viewvc.cgi/perl/dump-moz.pl

#!/usr/bin/perl -w

use strict;
use MIME::Base64;

my @data;
while(<>) {
        chomp;
print "## read: $_\n";
        push @data,$_;
}

my $skip = 1;

# skip "don't save password for host" list
while(@data && $skip) {
        my $d = shift @data;
print "## $d\n";
        $skip = 0 if ($d eq ".");
}

while(@data) {

        my $host = shift @data;

        my $user_fld = shift @data;
        $user_fld =~ s/^.*?=//g;
        $user_fld =~ s/=.*$//g;

        my $user = shift @data;
        if ($user =~ /^\~([A-Za-z0-9\+\=\/]+)/) {
                $user = decode_base64($1),"\n";
        } else {
                die "can't decode username '$user'!";
        }

        my $passwd_fld = shift @data;
        $passwd_fld =~ s/^.*?=//g;
        $passwd_fld =~ s/=.*$//g;

        my $passwd = shift @data;
        if ($passwd =~ /^\~([A-Za-z0-9\+\=\/]+)/) {
                $passwd = decode_base64($1),"\n";
        } else {
                die "can't decode password '$passwd'!";
        }

        printf("%30s -- %10s: %10s %10s: %10s\n",$host,$user_fld,$user,$passwd_fld,$passwd);

        my $sep = shift @data;
        if ($sep ne ".") {
                die "can't find separator! [$sep]";
        }

}
1	dpavlin	1.1	#!/usr/bin/perl -w
2
3			use strict;
4			use MIME::Base64;
5
6			my @data;
7			while(<>) {
8			chomp;
9			print "## read: $_\n";
10			push @data,$_;
11			}
12
13			my $skip = 1;
14
15			# skip "don't save password for host" list
16			while(@data && $skip) {
17			my $d = shift @data;
18			print "## $d\n";
19			$skip = 0 if ($d eq ".");
20			}
21
22			while(@data) {
23
24			my $host = shift @data;
25
26			my $user_fld = shift @data;
27			$user_fld =~ s/^.*?=//g;
28			$user_fld =~ s/=.*$//g;
29
30			my $user = shift @data;
31			if ($user =~ /^\~([A-Za-z0-9\+\=\/]+)/) {
32			$user = decode_base64($1),"\n";
33			} else {
34			die "can't decode username '$user'!";
35			}
36
37			my $passwd_fld = shift @data;
38			$passwd_fld =~ s/^.*?=//g;
39			$passwd_fld =~ s/=.*$//g;
40
41			my $passwd = shift @data;
42			if ($passwd =~ /^\~([A-Za-z0-9\+\=\/]+)/) {
43			$passwd = decode_base64($1),"\n";
44			} else {
45			die "can't decode password '$passwd'!";
46			}
47
48			printf("%30s -- %10s: %10s %10s: %10s\n",$host,$user_fld,$user,$passwd_fld,$passwd);
49
50			my $sep = shift @data;
51			if ($sep ne ".") {
52			die "can't find separator! [$sep]";
53			}
54
55			}