Add force option.

46ab7b48 · Leigh B Stoller · 248593cc · 46ab7b48
Commit 46ab7b48 authored Sep 09, 2013 by Leigh B Stoller
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 2 deletions

protogeni/scripts/delgeniuser.in protogeni/scripts/delgeniuser.in +2 -2

No files found.
--- a/protogeni/scripts/delgeniuser.in
+++ b/protogeni/scripts/delgeniuser.in
 #!/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