Add advisories pages by CVE, release, source package

1 files changed, 14 insertions, 1 deletions

diff --git a/mkadvisories b/mkadvisories
index 110a791..97a0072 100755
--- a/mkadvisories
+++ b/mkadvisories
@@ -22,7 +22,7 @@ my %basename = (
     CVE => sub { $_[0] },
     ID  => sub { $_[0] },
     rel => sub { $_[0] },
-    pkg => sub { 'pkg_' . $_[0] },
+    src => sub { 'src_' . $_[0] },
 );
 
 my %tools = (
@@ -110,6 +110,18 @@ sub output_pages {
         };
         process_template($template, 'advisory', $vars, $basename{ID}->($adv));
     }
+    foreach my $by (['rel', 'by_rel'], ['CVE', 'by_cve'], ['src', 'by_src']) {
+        foreach my $r (keys %{$advdb->{$by->[1]}}) {
+            my $vars = {
+                config   => $config,
+                $by->[0] => $r,
+                advdb    => $advdb,
+                basename => \%basename,
+                tools    => \%tools,
+            };
+            process_template($template, $by->[1], $vars, $basename{$by->[0]}->($r));
+        }
+    }
     my $vars = {
         config   => $config,
         advdb    => $advdb,
@@ -117,6 +129,7 @@ sub output_pages {
         tools    => \%tools,
     };
     process_template($template, 'index', $vars, 'index');
+    process_template($template, 'advisories', $vars, 'advisories');
 }
 
 sub send_adv_mail {