Commit bfa21396 authored by Leigh B Stoller's avatar Leigh B Stoller

Add a method to delete reserved vlan tags for an experiment.

parent 989c1936
#!/usr/bin/perl -wT
#
# EMULAB-COPYRIGHT
# Copyright (c) 2005-2010 University of Utah and the Flux Group.
# Copyright (c) 2005-2011 University of Utah and the Flux Group.
# All rights reserved.
#
package Experiment;
......@@ -3416,6 +3416,28 @@ sub ClearPortRegistration($)
return 0;
}
#
# The reserved_vlantags table is special, and needs to be cleared only
# at certain times. See tbswap.
#
sub ClearReservedVlanTags($)
{
my ($self) = @_;
# Must be a real reference.
return -1
if (! ref($self));
my $pid = $self->pid();
my $eid = $self->eid();
return -1
if (! DBQueryWarn("delete from reserved_vlantags ".
"where pid='$pid' and eid='$eid'"));
return 0;
}
#
# Does experiment have any program agents.
#
......
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