#!/usr/bin/perl

($dummy,$dummy,$dummy,$mday,$mon,$year,$dummy,$dummy,$dummy) = localtime(time);

if (@ARGV < 3) {
	die "usage: $0 ADVISORYID ADVISORYURL CVE1 ... CVEn";
}

$id = shift @ARGV;
$url = shift @ARGV;

foreach $cve (@ARGV) {
	die unless ($cve =~ /CVE-\d*-\d*/);
	open(CANDB,">>data/advisories")||die "data/advisories: $!  (run this from the cve-database root)";
	printf CANDB "$cve,%04d%02d%02d,ADVISORY:$url\n",$year+1900,$mon+1,$mday;
	printf CANDB "$cve,%04d%02d%02d,ADVISORYID:$id\n",$year+1900,$mon+1,$mday;
	close(CANDB);
}

$date=`LANG=C date`;
chomp $date;

open(SUSESA,">>data/suse-sa")||die "data/suse-sa: $!";
#SUSE-SU-2018:2322-1;http://lists.suse.com/pipermail/sle-security-updates/2018-August/004411.html;Tue Aug 14 10:09:49 MDT 2018
printf SUSESA "$id;$url;$date\n";
close(SUSESA);