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

Return to example3.pl CVS log

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

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

version 1.10, 2008/03/05 22:04:46

Line 1

#!/usr/bin/perl

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

# $RedRiver: example3.pl,v 1.9 2008/02/28 00:17:33 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'}->[$_];

my $category =

$pdb->{'appinfo'}->{'categories'}->[ $r->{'category'} ]->{'name'};

Line 109

}

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

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

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

$matched = 0;

foreach my $account (@{ $Accounts }) {

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

$matched++ if uc($a->{1}->{data}) eq uc($account);

}

next if ( @{ $Accounts } ) && not $matched;