diff options
author | Daniel Baumann <daniel.baumann@progress-linux.org> | 2024-04-19 09:22:10 +0000 |
---|---|---|
committer | Daniel Baumann <daniel.baumann@progress-linux.org> | 2024-04-19 09:22:10 +0000 |
commit | b27b0e35bd2fdc362ab255fddd7fadb8c3ce7fa9 (patch) | |
tree | b2b985859a5711b7bd2ed35e729c49d78dc7902d /scripts | |
parent | Adding upstream version 2023.12.24. (diff) | |
download | debian-keyring-6953690193680e3ca1763e95f60b6533d804dc62.tar.xz debian-keyring-6953690193680e3ca1763e95f60b6533d804dc62.zip |
Adding upstream version 2024.03.24.upstream/2024.03.24
Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>
Diffstat (limited to 'scripts')
-rwxr-xr-x | scripts/chk_expiry | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/scripts/chk_expiry b/scripts/chk_expiry index 2d6b020..fffbb09 100755 --- a/scripts/chk_expiry +++ b/scripts/chk_expiry @@ -17,12 +17,13 @@ for my $keyring (@{$conf{keyrings}}) { print "============================================================\n"; print "Processing keyring: $keyring\n\n"; for my $line (query_keyring($keyring)) { + chomp($line); my ($key, $y, $m, $d); - unless ($line =~ m![ps]ub\s+\d+[RDg]/ - ([\dABCDEF]{8}) + unless ($line =~ m![ps]ub\s+(?:rsa|dsa|elg|cv|ed)\d+/ + (?:0x)?([\dABCDEF]{16}) \s.+expire[ds]:\s (\d{4})-(\d{2})-(\d{2})!x) { - warn "Unrecognized: $line"; + warn "Unrecognized: «$line»"; next; } ($key, $y, $m, $d) = ($1, $2, $3, $4); |