#!/usr/bin/perl

while (<>) {
	chomp;
	my ($date,$src,$bins,@cves) = split(/,/);

	if ($src eq "") {
		$src = "libpng16" if ($bins =~ /libpng16-devel-/);
		$src = "orc" if ($bins =~ /orc-doc-/);
		$src = "samba" if ($bins =~ /ctdb-/);
		$src = "coreutils" if ($bins =~ /coreutils-lang-/);
		$src = "python-idna" if ($bins =~ /python3.*-idna-/);
		$src = "nova" if ($bins =~ /nova-bash-/);
		$src = "neatvnc" if ($bins =~ /neatvnc-devel-/);
		$src = "ini4j" if ($bins =~ /ini4j-javadoc-/);

		if ($src eq "") {
			my @bins = split(/;/,$bins);

			if ($#bins == 0) {
				$src = $bins[$[];
				$src =~ s/(-[^-]*-[^-]*$)//;

				print STDERR "auto: $bins -> $src\n";

				if ($src =~ /^ruby3.3-(.*)/) {
					$src = $1;
					print STDERR "ruby: $bins -> $src\n";
				}
			}

			if ($src eq "") {
				print STDERR "missing map for $bins\n";
			}
		}
	}
#	printf "$date,$src,$bins," . join(",",@cves) ."\n";
}