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

Return to example3.pl CVS log

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

version 1.7, 2007/12/04 03:37:48

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

Line 1

#!/usr/bin/perl

# $RedRiver: example3.pl,v 1.6 2007/09/12 03:59:37 andrew Exp $

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

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

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

Line 26

my $PDBFile;

my $Categories;

my $Names;

my $Accounts;

my $Action_List;

my $Action_Show;

Line 33

Line 34

"file|f=s" => \$PDBFile,

"categories|c:s@" => \$Categories,

"name|n=s@" => \$Names,

"account|a=s@" => \$Accounts,

"list|l" => \$Action_List,

"show|s" => \$Action_Show,

);

Line 110

Line 112

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);

}

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

# XXX Fix up formatting

print $a->{0}->{data} . "\n\t" .