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.11, 2008/09/17 15:49:50

Line 1

#!/usr/bin/perl

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

# $RedRiver: example3.pl,v 1.10 2008/03/05 22:04:46 andrew Exp $

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

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

Line 17

Getopt::Long::Configure('bundling');

use Term::ReadLine;

use YAML;

use Palm::PDB;

use Palm::Keyring;

Line 95

Line 93

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 111

Line 107

}

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

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;