#!/usr/bin/perl -w
# translate CVE to CVSS
use strict;
use Data::Dumper;

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

require CanDBReader;

require SMASHData;

print "# cve, suse score, nvd score\n";
while (my $cve = <ARGV>) {
	chomp $cve;
	read_smash_issue($cve);
	my $basescore = "unknown";
	my $nvdbasescore = "unknown";
	my $nvdbasevector;
	my $basevector;

	if (defined($SMASHData::cvssv3{$cve}))  {
		my %entry = %{$SMASHData::cvssv3{$cve}};
		my %score;
		my %nvdscore;

		if (defined($entry{'SUSE'})) {
			%score = %{$entry{'SUSE'}};
			$basescore = $score{'base_score'};
			$basevector = $score{'base_vector'};
		}
		if (defined($entry{'National Vulnerability Database'})) {
			%nvdscore = %{$entry{'National Vulnerability Database'}};
			$nvdbasescore = $nvdscore{'base_score'};
			$nvdbasevector = $nvdscore{'base_vector'};
		}
	}
	print "$cve,$basescore,$nvdbasescore\n";
}