Commit e686f45a authored by Ryan Jackson's avatar Ryan Jackson

Create holding experiment for subboss nodes

parent cc578ec6
......@@ -21,6 +21,8 @@ my %EXPERIMENTS =
"description" => "Nodes in limbo during nfree"},
"opsnodes" => {"pid" => "emulab-ops",
"description" => "Nodes designated as Ops Nodes"},
"subbossnodes" => {"pid" => "emulab-ops",
"description" => "Nodes designated as subbosses"},
"holding" => {"pid" => "emulab-ops",
"description" => "Nodes in a holding pattern"},
"shared-nodes" => {"pid" => "emulab-ops",
......
#
# Create new holding experiment for subboss nodes
#
use strict;
use libinstall;
use emdb;
use OSinfo;
use NodeType;
my $EID = "subbossnodes";
my $DESC = "Holding experiment for internal vlans";
my $SUDO = "/usr/local/bin/sudo";
my $BATCHEXP = "$TBROOT/bin/batchexp";
sub InstallUpdate($$)
{
my ($version, $phase) = @_;
my $pid = "emulab-ops";
if ($phase eq "pre") {
Phase "subbosses", "Setting up subboss support", sub {
#
# Holding experiment.
#
Phase "experiment", "Creating subboss holding experiment", sub {
PhaseSkip("Experiment exists")
if (-d "$PROJROOT/$pid/exp/$EID");
ExecQuietFatal("$SUDO -u $PROTOUSER $WAP $BATCHEXP ".
" -q -i -k -j -w -f -n ".
" -S 'System Experiment' ".
" -L 'System Experiment' ".
" -E '$DESC - DO NOT DELETE' ".
" -p $pid -e $EID");
PhaseSucceed();
};
PhaseSucceed();
};
}
return 0;
}
1;
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