Commit fcbfd5a4 authored by Leigh B. Stoller's avatar Leigh B. Stoller

Make sure slice is locked before cleanup.

parent ab124aba
#!/usr/bin/perl -w
#
# EMULAB-COPYRIGHT
# Copyright (c) 2008 University of Utah and the Flux Group.
# Copyright (c) 2008-2009 University of Utah and the Flux Group.
# All rights reserved.
#
use strict;
......@@ -87,6 +87,9 @@ if (!$this_user->IsAdmin() &&
GeniUtil::FlipToGeniUser();
if ($slice->Lock() != 0) {
fatal("Could not lock slice $slice");
}
if (GeniCM::CleanupDeadSlice($slice) != 0) {
fatal("Could not clean up slice $slice");
}
......
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