Commit 8a528029 authored by Mike Hibler's avatar Mike Hibler

Merge remote branch 'origin/master'

parents 43735189 5799b8f1
......@@ -980,7 +980,6 @@ sub Start($$$)
print STDERR "$NAMEDSETUP failed\n";
return -1;
}
if ($restart) {
my @diff = ();
my @same = ();
......@@ -995,7 +994,6 @@ sub Start($$$)
return -1;
}
}
}
system("$SNMPIT -q -t $pid $eid");
if ($?) {
print STDERR "$SNMPIT failed\n";
......
......@@ -4032,6 +4032,7 @@ sub CleanupDeadSlice($;$)
{
my ($slice, $purge) = @_;
require Firewall;
require Lan;
# Default to full purge.
$purge = 1
......@@ -4051,6 +4052,23 @@ sub CleanupDeadSlice($;$)
return -1;
}
#
# Remove any stale vlans.
#
my @stale;
if (VLan->StaleVlanList($experiment, \@stale) != 0) {
print STDERR "Failed to get stale VLANs\n";
return -1;
}
if (@stale) {
print STDERR "Removing stale vlans @stale\n";
system("$SNMPIT -f ". join(" ", map("-o $_", @stale)));
if ($?) {
print STDERR "Failed to remove stale VLANs\n";
return -1;
}
}
#
# A firewalled slice gets special treatment.
#
......
......@@ -218,10 +218,6 @@ sub Resolve($)
if (defined($ticket)) {
$blob->{'ticket_urn'} = $ticket->urn();
}
my $manifest = $aggregate->GetManifest(1);
if (defined($manifest)) {
$blob->{'manifest'} = $manifest;
}
return GeniResponse->Create(GENIRESPONSE_SUCCESS, $blob);
}
if ($type eq "sliver") {
......
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