projects
/
pgp-tools.git
/ blobdiff
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
More input validation fixes. Thanks jon@aslund.org
[pgp-tools.git]
/
caff
/
caff
diff --git
a/caff/caff
b/caff/caff
index e4458a326d800074c4bbca55db17d633e98b93fd..bd15a779be60ba82a856d04657c288a3bef9d509 100755
(executable)
--- a/
caff/caff
+++ b/
caff/caff
@@
-715,7
+715,7
@@
usage(\*STDERR, 1) unless scalar @ARGV >= 1;
if ($params->{'local-user'}) {
$USER = $params->{'local-user'};
$USER =~ s/^0x//i;
if ($params->{'local-user'}) {
$USER = $params->{'local-user'};
$USER =~ s/^0x//i;
- unless ($USER =~ /^([A-
Z0-9]{8}|[A-Z0-9]{16}|[A-Z
0-9]{40})$/i) {
+ unless ($USER =~ /^([A-
F0-9]{8}|[A-F0-9]{16}|[A-F
0-9]{40})$/i) {
print STDERR "-u $USER is not a keyid.\n";
usage(\*STDERR, 1);
};
print STDERR "-u $USER is not a keyid.\n";
usage(\*STDERR, 1);
};
@@
-724,7
+724,7
@@
if ($params->{'local-user'}) {
for my $keyid (@ARGV) {
$keyid =~ s/^0x//i;
for my $keyid (@ARGV) {
$keyid =~ s/^0x//i;
- unless ($keyid =~ /^([A-
Z0-9]{8}|[A-Z0-9]{16}||[A-Z
0-9]{40})$/i) {
+ unless ($keyid =~ /^([A-
F0-9]{8}|[A-F0-9]{16}||[A-F
0-9]{40})$/i) {
print STDERR "$keyid is not a keyid.\n";
usage(\*STDERR, 1);
};
print STDERR "$keyid is not a keyid.\n";
usage(\*STDERR, 1);
};