aboutsummaryrefslogtreecommitdiffstats
path: root/mkadvisories
diff options
context:
space:
mode:
Diffstat (limited to 'mkadvisories')
-rwxr-xr-xmkadvisories11
1 files changed, 11 insertions, 0 deletions
diff --git a/mkadvisories b/mkadvisories
index c3fdeec..5b5dbf8 100755
--- a/mkadvisories
+++ b/mkadvisories
@@ -63,6 +63,16 @@ sub get_advisories {
return \%advisories;
}
+sub publish_advisories {
+ my ($advdb) = @_;
+ foreach my $adv (keys %{$advdb->{advisories}}) {
+ next if $advdb->{advisories}{$adv}{status}{published};
+ $advdb->{advisories}{$adv}{status}{published} =
+ $advdb->{advisories}{$adv}{pubtime} || time();
+ save_status($advdb, $adv);
+ }
+}
+
sub sort_advisories {
my ($advdb) = @_;
foreach my $adv (keys $advdb->{advisories}) {
@@ -200,6 +210,7 @@ sub dumpdb {
my %advdb;
$advdb{advisories} = get_advisories();
+publish_advisories(\%advdb);
sort_advisories(\%advdb);
output_pages(\%advdb);
dumpdb(\%advdb);