| version 1.6, 2007/09/12 04:59:37 |
version 1.7, 2007/12/04 03:37:48 |
|
|
| #!/usr/bin/perl |
#!/usr/bin/perl |
| # $RedRiver: example3.pl,v 1.5 2007/08/10 04:13:31 andrew Exp $ |
# $RedRiver: example3.pl,v 1.6 2007/09/12 03:59:37 andrew Exp $ |
| ######################################################################## |
######################################################################## |
| # palmkeyring.pl *** a command line client for Keyring databases. |
# palmkeyring.pl *** a command line client for Keyring databases. |
| # |
# |
|
|
| get_password() || die "Couldn't decrypt file!"; |
get_password() || die "Couldn't decrypt file!"; |
| |
|
| foreach (0..$#{ $pdb->{'records'} }) { |
foreach (0..$#{ $pdb->{'records'} }) { |
| next if $_ == 0; |
|
| my $r = $pdb->{'records'}->[$_]; |
my $r = $pdb->{'records'}->[$_]; |
| |
|
| my $category = |
my $category = |
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to example3.pl CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / palm / Palm-Keyring / examples