Commit b4293a4b authored by Leigh B Stoller's avatar Leigh B Stoller
Browse files

For now, we have to hardwire the types_known_working list to all known

types, until we have image testing and reporting.
parent 500caf22
...@@ -74,6 +74,13 @@ my $API_VERSION = 1.01; ...@@ -74,6 +74,13 @@ my $API_VERSION = 1.01;
# #
my $SERVERVERSION = 1; my $SERVERVERSION = 1;
#
# Yuck, until we have image testing in place, we have to hardwire the
# x86 types.
#
my $X86TYPES = ("C240M4","C220M4","pcvm","r320","c6220","dl360","r720",
"c8220","c8220x","d2100","d710","d820","pc3000");
# We are using a different DB. # We are using a different DB.
my $DB; my $DB;
...@@ -399,6 +406,11 @@ sub NewImage($) ...@@ -399,6 +406,11 @@ sub NewImage($)
return GeniResponse->Create(GENIRESPONSE_ERROR); return GeniResponse->Create(GENIRESPONSE_ERROR);
} }
} }
my %types_known_working = ();
foreach my $type (split(",", $blob->{'types_known_working'}), $X86TYPES) {
$types_known_working{$type} = $type;
}
# #
# Insert new version of the image. # Insert new version of the image.
# #
...@@ -421,7 +433,7 @@ sub NewImage($) ...@@ -421,7 +433,7 @@ sub NewImage($)
"virtualizaton" => $blob->{'virtualizaton'}, "virtualizaton" => $blob->{'virtualizaton'},
"osfeatures" => $blob->{'osfeatures'}, "osfeatures" => $blob->{'osfeatures'},
"metadata_url" => $blob->{'metadata_url'}, "metadata_url" => $blob->{'metadata_url'},
"types_known_working" => $blob->{'types_known_working'}, "types_known_working" => join(",", sort(keys(%types_known_working))),
); );
my $created = timelocal(strptime($blob->{'created'})); my $created = timelocal(strptime($blob->{'created'}));
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment