Add openflow-vlans holding experiment.

install/updates/5/29

+#
+# 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: