version 1.5, 2007/08/10 05:13:31 |
version 1.6, 2007/09/12 04:59:37 |
|
|
#!/usr/bin/perl |
#!/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. |
# palmkeyring.pl *** a command line client for Keyring databases. |
# |
# |
|
|
next if ( @{ $Categories } || @{ $Names } ) && not $matched; |
next if ( @{ $Categories } || @{ $Names } ) && not $matched; |
|
|
# XXX Fix up formatting |
# XXX Fix up formatting |
print $r->{decrypted}->{0}->{data} . |
print $r->{plaintext}->{0}->{data} . |
":" . |
":" . |
$r->{category} . |
$r->{category} . |
":" . |
":" . |
|
|
$matched++ if uc($category) eq uc($cat); |
$matched++ if uc($category) eq uc($cat); |
} |
} |
foreach my $name (@{ $Names}) { |
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; |
next if ( @{ $Categories } || @{ $Names } ) && not $matched; |
|
|