version 1.2, 2007/01/30 04:59:55 |
version 1.3, 2007/01/31 04:17:15 |
|
|
$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->{'data'}) eq uc($name); |
$matched++ if uc($r->{'name'}) eq uc($name); |
} |
} |
next if ( @{ $Categories } || @{ $Names } ) && not $matched; |
next if ( @{ $Categories } || @{ $Names } ) && not $matched; |
|
|
# XXX Fix up formatting |
# XXX Fix up formatting |
print $r->{'data'} . |
print $r->{'name'} . |
":" . |
":" . |
$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->{'data'}) eq uc($name); |
$matched++ if uc($r->{'name'}) eq uc($name); |
} |
} |
next if ( @{ $Categories } || @{ $Names } ) && not $matched; |
next if ( @{ $Categories } || @{ $Names } ) && not $matched; |
|
|
my $a = $pdb->Decrypt($r); |
my $a = $pdb->Decrypt($r); |
|
|
# XXX Fix up formatting |
# XXX Fix up formatting |
print $r->{'data'} . "\n\t" . |
print $r->{'name'} . "\n\t" . |
"Category: " . $category . "\n\t" . |
"Category: " . $category . "\n\t" . |
"Account: " . $a->{'account'} . "\n\t" . |
"Account: " . $a->{'account'} . "\n\t" . |
"Password: " . $a->{'password'} . "\n"; |
"Password: " . $a->{'password'} . "\n"; |