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

Add force option.

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