Changeset 26333 for trunk/Nebulous/bin/neb-rm

Timestamp:

Dec 3, 2009, 3:31:01 PM (17 years ago)

Author:

watersc1

Message:

Changes to implement delete-invalid. Probably not 100% production ready.

File:

• trunk/Nebulous/bin/neb-rm (modified) (4 diffs)

trunk/Nebulous/bin/neb-rm

@@ -19 +19 @@
     $force,
     $move,
+    $invalid,
     $server,
 );
@@ -27 +28 @@
     'force|f'       => \$force,
     'move|m'        => \$move,
+    'invalid|i'     => \$invalid,
     'server|s=s'    => \$server,
 ) || pod2usage( 2 );
@@ -42 +44 @@
 foreach my $key (@ARGV) {
     unless (defined $move) {
-        $neb->delete($key, $force) or warn "failed to delete key: $key";
+        $neb->delete($key, $force,$invalid) or warn "failed to delete key: $key";
     } else {
         $neb->move($key, "${key}.rm") or warn "failed to move key: $key";
@@ -80 +82 @@
 When set, this flag causes C<<key>> to be renamed to C<<key>.rm> instead of
 being deleted.
+
+Optional.
+
+=item * --invalid|-i
+
+When set, unavailable instances of C<<key>> will be removed from the nebulous database.
 
 Optional.