palm/Palm-Keyring/examples/example3.pl - diff

Return to example3.pl CVS log

Up to [local] / palm / Palm-Keyring / examples

version 1.8, 2008/02/27 23:54:02

version 1.9, 2008/02/28 00:17:33

Line 1

#!/usr/bin/perl

# $RedRiver: example3.pl,v 1.7 2007/12/04 03:37:48 andrew Exp $

# $RedRiver: example3.pl,v 1.8 2008/02/27 23:54:02 andrew Exp $

########################################################################

# palmkeyring.pl *** a command line client for Keyring databases.

Line 94

sub show_items

{

get_password() || die "Couldn't decrypt file!";

foreach (0..$#{ $pdb->{'records'} }) {

my $r = $pdb->{'records'}->[$_];

Line 110

Line 108

$matched++ if uc($r->{plaintext}->{0}->{data}) eq uc($name);

}

next if ( @{ $Categories } || @{ $Names } ) && not $matched;

get_password() || die "Couldn't decrypt file!";

my $a = $pdb->Decrypt($r);

$matched = 0;