Commit 46ab7b48 authored by Leigh Stoller's avatar Leigh Stoller

Add force option.

parent 248593cc
#!/usr/bin/perl -w
#
# Copyright (c) 2008-2011 University of Utah and the Flux Group.
# Copyright (c) 2008-2013 University of Utah and the Flux Group.
#
# {{{GENIPUBLIC-LICENSE
#
......@@ -109,7 +109,7 @@ if (!defined($geniuser)) {
fatal("No such user");
}
my @slices = GeniSlice->LookupByCreator($geniuser);
if (@slices) {
if (@slices && !$force) {
fatal("$geniuser has active slices. Not deleting.\n");
}
$geniuser->Delete() == 0
......
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