#!/usr/bin/perl

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

$can = shift @ARGV;
$txt = join(" ",@ARGV);
die unless ($can =~ /CVE-\d*-\d*/);
open(CANDB,">>data/notes")||die "data/notes: $!  (run this from the cve-database root)";
printf CANDB "$can,%04d%02d%02d,NOTE:$txt\n",$year+1900,$mon+1,$mday;
close(CANDB);