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

Dump out nextosid,def_parentos on ez images.

parent 52143046
#!/usr/bin/perl -w
#
# EMULAB-COPYRIGHT
# Copyright (c) 2010-2011 University of Utah and the Flux Group.
# Copyright (c) 2010-2012 University of Utah and the Flux Group.
# All rights reserved.
#
use English;
......@@ -159,6 +159,22 @@ sub DumpImage($)
}
}
}
if (defined($osinfo->nextosid()) && $osinfo->nextosid()) {
my $nextosinfo = OSinfo->Lookup($osinfo->nextosid());
if (!defined($nextosinfo)) {
fatal("Could not look up nextosid for $osinfo");
}
$xmlfields{"nextosid"} =
$nextosinfo->pid() . "," . $nextosinfo->osname();
}
if (defined($osinfo->def_parentosid()) && $osinfo->def_parentosid()) {
my $nextosinfo = OSinfo->Lookup($osinfo->def_parentosid());
if (!defined($nextosinfo)) {
fatal("Could not look up def_parentosid for $osinfo");
}
$xmlfields{"def_parentosid"} =
$nextosinfo->pid() . "," . $nextosinfo->osname();
}
}
if ($dotypes) {
my @typelist = $image->TypeList();
......
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