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

Return to example3.pl CVS log

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

version 1.5, 2007/08/10 05:13:31

version 1.6, 2007/09/12 04:59:37

Line 1

#!/usr/bin/perl

# $RedRiver: example3.pl,v 1.4 2007/02/10 16:24:16 andrew Exp $

# $RedRiver: example3.pl,v 1.5 2007/08/10 04:13:31 andrew Exp $

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

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

Line 71

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

# XXX Fix up formatting

print $r->{decrypted}->{0}->{data} .

print $r->{plaintext}->{0}->{data} .

":" .

$r->{category} .

":" .

Line 106

$matched++ if uc($category) eq uc($cat);

}

foreach my $name (@{ $Names}) {

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

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

}

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