Changeset 27838 for branches/tap_branches/Nebulous/bin/neb-rm

Timestamp:

May 3, 2010, 8:41:49 AM (16 years ago)

Author:

eugene

Message:

updates from trunk

Location:

branches/tap_branches

Files:

• . (modified) (1 prop)
• Nebulous/bin/neb-rm (modified) (4 diffs)

branches/tap_branches/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.