summaryrefslogtreecommitdiffstats
path: root/scripts/chk_expiry
diff options
context:
space:
mode:
authorDaniel Baumann <daniel.baumann@progress-linux.org>2024-04-19 09:22:10 +0000
committerDaniel Baumann <daniel.baumann@progress-linux.org>2024-04-19 09:22:10 +0000
commitb27b0e35bd2fdc362ab255fddd7fadb8c3ce7fa9 (patch)
treeb2b985859a5711b7bd2ed35e729c49d78dc7902d /scripts/chk_expiry
parentAdding upstream version 2023.12.24. (diff)
downloaddebian-keyring-b27b0e35bd2fdc362ab255fddd7fadb8c3ce7fa9.tar.xz
debian-keyring-b27b0e35bd2fdc362ab255fddd7fadb8c3ce7fa9.zip
Adding upstream version 2024.03.24.upstream/2024.03.24
Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>
Diffstat (limited to '')
-rwxr-xr-xscripts/chk_expiry7
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);