Changeset 28446 for trunk/Nebulous

Timestamp:

Jun 23, 2010, 5:51:46 PM (16 years ago)

Author:

watersc1

Message:

Updates to add neb-migrate code, and to fix repeated "can't find device info" bug in nebdiskd.

Location:

trunk/Nebulous

Files:

• Build.PL (modified) (1 diff)
• MANIFEST (modified) (1 diff)
• bin/neb-migrate (added)
• bin/neb-shift (added)
• lib/Nebulous/Client.pm (modified) (1 diff)

trunk/Nebulous/Build.PL

@@ -113 +113 @@
         bin/neb-locate
         bin/neb-ls
+        bin/neb-migrate
         bin/neb-mv
         bin/neb-replicate
         bin/neb-rm
+        bin/neb-shift
         bin/neb-stat
         bin/neb-swap

trunk/Nebulous/MANIFEST

@@ -14 +14 @@
 bin/neb-insert
 bin/neb-ls
+bin/neb-migrate
 bin/neb-mv
 bin/neb-replicate
 bin/neb-rm
+bin/neb-shift
 bin/neb-stat
 bin/neb-swap

trunk/Nebulous/lib/Nebulous/Client.pm

@@ -790 +790 @@
 }
 
+sub find_ext_id_by_volume
+{
+    my $self = shift;
+    my ($vol_name, $limit) = validate_pos( @_,
+                                           { 
+                                               type => SCALAR,
+                                           },
+                                           {
+                                               type => SCALAR|UNDEF,
+                                               optional => 1,
+                                           },
+        );
+    
+    $log->debug( "entered - @_" );
+
+    my $response = $self->{ 'server' }->find_ext_id_by_volume( $vol_name, $limit);
+    if ( $response->fault ) {
+        $self->set_err($response->faultstring);
+        if ($response->faultstring =~ /no instances on storage volume/) {
+            $log->debug( "leaving" );
+            return;
+        }
+
+        $log->logdie("unhandled fault - ", $self->err);
+    }
+
+    my $ext_ids = $response->result;
+    
+    $log->debug( "server found @$ext_ids" );
+    $log->debug( "leaving" );
+    
+    return($ext_ids);
+}
+
 sub find_instances_for_cull
 {