Commit 937f1b80 authored by Leigh Stoller's avatar Leigh Stoller

Add image hash support.

parent c202f96a
#!/usr/bin/perl -wT
#
# EMULAB-COPYRIGHT
# Copyright (c) 2000-2011 University of Utah and the Flux Group.
# Copyright (c) 2000-2012 University of Utah and the Flux Group.
# All rights reserved.
#
use English;
......@@ -140,6 +140,7 @@ my %xmlfields =
"path" => ["path", $SLOT_OPTIONAL],
"mbr_version", => ["mbr_version", $SLOT_OPTIONAL],
"mtype_*" => ["mtype", $SLOT_OPTIONAL],
"hash", => ["hash", $SLOT_ADMINONLY],
);
#
# Need a list of node types. We join this over the nodes table so that
......@@ -252,7 +253,8 @@ foreach $key (keys(%{ $xmlparse->{'attribute'} })) {
}
}
if (!$wild) {
$errors{$key} = "Unknown attribute";
# Silently ignore, and delete.
delete($xmlfields{$key});
next; # foreach $key
}
}
......
......@@ -162,6 +162,7 @@ my %xmlfields =
"global", => ["global", $SLOT_ADMINONLY, 0],
"mbr_version", => ["mbr_version", $SLOT_OPTIONAL],
"reboot_waittime", => ["reboot_waittime", $SLOT_ADMINONLY],
"hash", => ["hash", $SLOT_ADMINONLY],
);
#
......
Markdown is supported
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