version 1.7, 2007/12/04 03:37:48 |
version 1.8, 2008/02/27 23:54:02 |
|
|
#!/usr/bin/perl |
#!/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. |
# palmkeyring.pl *** a command line client for Keyring databases. |
# |
# |
|
|
my $PDBFile; |
my $PDBFile; |
my $Categories; |
my $Categories; |
my $Names; |
my $Names; |
|
my $Accounts; |
my $Action_List; |
my $Action_List; |
my $Action_Show; |
my $Action_Show; |
|
|
|
|
"file|f=s" => \$PDBFile, |
"file|f=s" => \$PDBFile, |
"categories|c:s@" => \$Categories, |
"categories|c:s@" => \$Categories, |
"name|n=s@" => \$Names, |
"name|n=s@" => \$Names, |
|
"account|a=s@" => \$Accounts, |
"list|l" => \$Action_List, |
"list|l" => \$Action_List, |
"show|s" => \$Action_Show, |
"show|s" => \$Action_Show, |
); |
); |
|
|
next if ( @{ $Categories } || @{ $Names } ) && not $matched; |
next if ( @{ $Categories } || @{ $Names } ) && not $matched; |
|
|
my $a = $pdb->Decrypt($r); |
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 |
# XXX Fix up formatting |
print $a->{0}->{data} . "\n\t" . |
print $a->{0}->{data} . "\n\t" . |