Changeset 26333

Timestamp:

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

Author:

watersc1

Message:

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

Location:

trunk/Nebulous

Files:

• bin/neb-rm (modified) (4 diffs)
• lib/Nebulous/Client.pm (modified) (3 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.

trunk/Nebulous/lib/Nebulous/Client.pm

@@ -755 +755 @@
             optional    => 1,
         },
+        {
+            #find_invalid
+            type        => SCALAR|UNDEF,
+            optional    => 1,
+        },
     );
 
@@ -951 +956 @@
     my $self = shift;
 
-    my ($key, $force) = validate_pos( @_,
+    my ($key, $force, $invalid) = validate_pos( @_,
         {
             type        => SCALAR,
@@ -965 +970 @@
             },
         },
-    );
-
-    $log->debug( "entered - @_" );
-
-    my $locations = $self->find_instances( $key, 'any' );
+        {
+            type        => BOOLEAN,
+            optional    => 1,
+            default     => undef,
+            callbacks   => {
+                'is boolean' => sub {
+                    $_[0] == 0 or $_[0] == 1 or $_[0] == undef;
+                },
+            },
+        },
+    );
+
+    $log->debug( "entered - @_" );
+
+
+    my $locations;
+    if ($invalid) {
+        $locations = $self->find_instances( $key, 'any', 'find them all');
+    }
+    else {
+        $locations = $self->find_instances( $key, 'any' );
+    }
 
     return undef unless $locations;