version 1.2, 2007/01/30 04:59:55 |
version 1.3, 2007/01/31 04:17:15 |
|
|
#!/usr/bin/perl |
#!/usr/bin/perl |
# $RedRiver$ |
# $RedRiver: example2.pl,v 1.2 2007/01/30 04:59:55 andrew Exp $ |
use strict; |
use strict; |
use warnings; |
use warnings; |
|
|
|
|
my $rec = $pdb->{'records'}->[$_]; |
my $rec = $pdb->{'records'}->[$_]; |
my $acct = $pdb->Decrypt($rec); |
my $acct = $pdb->Decrypt($rec); |
|
|
print join ":", $rec->{'data'} , $acct->{'account'}, |
print join ":", $rec->{'name'} , $acct->{'account'}, |
$acct->{'password'}, $acct->{'notes'}; |
$acct->{'password'}, $acct->{'notes'}; |
print "\n"; |
print "\n"; |
} |
} |