Commit 31c447c9 authored by Leigh B Stoller's avatar Leigh B Stoller

Add openflow-vlans holding experiment.

parent 25b8c8dc
#
# Create new holding experiment for openflow vlans
#
use strict;
use libinstall;
use emdb;
use OSinfo;
use NodeType;
my $EID = "openflow-vlans";
my $DESC = "Holding experiment for static openflow 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") {
#
# Holding experiment.
#
Phase "experiment", "Creating openflow vlan 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();
};
}
return 0;
}
1;
# Local Variables:
# mode:perl
# End:
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