#!/usr/bin/perl -w
use strict;

my $dn = `dirname $0`;chomp($dn);
my $pwd = `pwd`;chomp($pwd);
if ($dn !~ /^\//) { $dn = $pwd . "/" . $dn; }
push @INC,$dn;

use DateTime;

# require ModuleContained;
require CanDBReader;
require UpdateInfoReader;
UpdateInfoReader->import_product_updates();
# require SMASHData;

foreach my $patch (sort keys %UpdateInfoReader::patchtitle) {
	next if ($UpdateInfoReader::patchtype{$patch} ne "security");
	next if ($patch =~ / GA /);
	if (!defined($CanDBReader::patch2susenotice{$patch})) {
		print "missing advisory for $patch\n";
	}
}