Changeset 685 for LATMOS-Accounts/bin/la-delete

Timestamp:

01/21/10 02:33:29 (14 years ago)

Author:

nanardon

Message:

• ask user to confirm object deletion

File:

• LATMOS-Accounts/bin/la-delete (modified) (3 diffs)

LATMOS-Accounts/bin/la-delete

@@ -21 +21 @@
     'b|base=s'   => \my $base,
     'o|object=s' => \my $otype,
+    'force'      => \my $force,
     'help'       => sub { pod2usage(0) },
 ) or pod2usage();
@@ -42 +43 @@
 Query will be performed on this object. Default is the 'User' object.
 
+=item --force
+
+Do not ask confirmation before deleting
+
 =back
 
@@ -53 +58 @@
 $labase->wexported(1);
 
+if (!$labase->get_object($otype, $ARGV[0])) {
+    die "Cannot find object $otype $ARGV[0]\n";
+}
+
+if (!$force) {
+    my $alea = int(rand(1000));
+    print "Deleting object is definitive !\n";
+    print "Are you sure you want to delete objet $otype $ARGV[0] ?\n";
+    print "To confirm please enter this number: $alea\n";
+    my $enter = <STDIN>;
+    chomp($enter);
+    if (!($enter =~ /^\d+$/ && $enter == $alea)) {
+        die "Wonrg input, aborting\n";
+    }
+}
+
 if ($labase->delete_object($otype, $ARGV[0])) {
     $labase->commit;