add option -m, add check_fixes for redirects

1 files changed, 14 insertions, 2 deletions

diff --git a/english/security/mk-dsa-dla-list b/english/security/mk-dsa-dla-list
index 2606f6fc573..3a24a31baba 100755
--- a/english/security/mk-dsa-dla-list
+++ b/english/security/mk-dsa-dla-list
@@ -24,7 +24,7 @@ use HTTP::Tiny;
 use YAML::Tiny;
 use XML::FeedPP;
 
-our ($opt_s,$opt_f,$opt_F);
+our ($opt_s,$opt_f,$opt_F,$opt_m);
 
 our $dsafile  = "data/dsa.data";
 our $dsafixes = "data/dsa.fixes";
@@ -56,6 +56,7 @@ sub usage {
 
   type    can be DSA or DLA
   count   list the last count reports
+  -m create apache redirect map for all DSA and DLA (no type needed)
   -s short list, no HTML
   -f create RSS feed short version
   -F create RSS feed long version including the description
@@ -226,6 +227,7 @@ sub create_dsa_redirect {
   foreach (2000..$t->year) {
     create_map(\%data, "$mldsa/$_/");
   }
+  check_fixes(\%data,$dsafixes);
   foreach (keys %data) {
     print "$_ $data{$_}->[0]\n";
   }
@@ -241,14 +243,24 @@ sub create_dla_redirect {
       create_map(\%data, "$mldla/$y/$_/");
     }
   }
+  check_fixes(\%data,$dsafixes);
   foreach (keys %data) {
     print "$_ $data{$_}->[0]\n";
   }
 }
 
+sub create_redirect_maps {
+
+  create_dsa_redirect;
+  undef %data;
+  create_dla_redirect;
+  exit 0;
+}
+
 # main program
 
-getopts('sfF');
+getopts('sfFm');
+$opt_m && create_redirect_maps;
 my $type = shift;
 usage unless $type =~/^D[SL]A$/;