add new subroutines

1 files changed, 26 insertions, 0 deletions

diff --git a/english/security/mk-dsa-dla-list b/english/security/mk-dsa-dla-list
index 41c03c8590d..e9b179e8c66 100755
--- a/english/security/mk-dsa-dla-list
+++ b/english/security/mk-dsa-dla-list
@@ -220,6 +220,32 @@ sub check_fixes {
   }
 }
 
+create_dsa_redirect {
+
+  my $t = Time::Piece->new();
+  foreach (2000..$t->year) {
+    create_map(\%data, "$mldsa/$_/");
+  }
+  foreach (keys %data) {
+    print "$_ $data{$_}->[0]\n";
+  }
+}
+
+create_dla_redirect {
+
+  my $t = Time::Piece->new();
+  foreach my $y (2014..$t->year) {
+    for ("01".."12") {
+      # skip the future
+      next if ( $t->year == $y && $_ > $t->mon );
+      create_map(\%data, "$mldla/$y/$_/");
+    }
+  }
+  foreach (keys %data) {
+    print "$_ $data{$_}->[0]\n";
+  }
+}
+
 # main program
 
 getopts('sfF');