diff options
| author | Lee Garrett <lgarrett@rocketjump.eu> | 2023-03-07 19:14:18 +0100 |
|---|---|---|
| committer | Lee Garrett <lgarrett@rocketjump.eu> | 2023-03-09 16:57:10 +0100 |
| commit | f677cc4f76f70f008fd17091c3c991007eec8ecc (patch) | |
| tree | 476293505c53fac21e552d94dd81e6370206ce8d | |
| parent | 9ea390d9fcc7ffffbfbe306a11be62ef88e4b227 (diff) | |
parse-dla.pl: or match DLA from advisory header
| -rwxr-xr-x | english/lts/security/parse-dla.pl | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/english/lts/security/parse-dla.pl b/english/lts/security/parse-dla.pl index cb057bc573f..cedcf962820 100755 --- a/english/lts/security/parse-dla.pl +++ b/english/lts/security/parse-dla.pl @@ -43,7 +43,11 @@ $date = strftime "%Y-%m-%d", localtime; my ($nl, $mi, $headersnearingend); foreach my $l (<$fh>) { $l = decode_qp($l); - if ($l =~ /Subject.*:.*\[(DLA[- ]\d+-\d+)\]/) { + # match Subject line or advisory header to retrieve DLA string + if ( + ($l =~ /Subject.*:.*\[(DLA[- ]\d+-\d+)\]/) + or ($l =~ /^Debian LTS Advisory (DLA[- ]\d+-\d+)/) + ) { $dla = $1; } if ($l =~ /Date.*:.*\s(\d+)\s+(\w+)\s+(\d+)/) { |