Changeset 39926 for trunk/Nebulous/lib

Timestamp:

Jan 6, 2017, 11:30:10 AM (10 years ago)

Author:

eugene

Message:

merging changes from czw dev branch (compare with r39924)

Location:

trunk

Files:

• . (modified) (1 prop)
• Nebulous/lib/Nebulous/Client.pm (modified) (3 diffs)

trunk/Nebulous/lib/Nebulous/Client.pm

@@ -18 +18 @@
 use Params::Validate qw( validate validate_pos SCALAR UNDEF BOOLEAN );
 #use SOAP::Lite +trace => [qw( debug )];
+use Sys::Hostname;
 use SOAP::Lite;
 use Time::HiRes qw( sleep );
@@ -858 +859 @@
 
     $log->debug( "entered - @_" );
+    
+    unless(defined($params[0])) {
+        $params[0] = hostname() . ".0";
+#       print STDERR "Setting host to $params[0]\n";
+    }
 
     my $response = $self->{ 'server' }->find_instances( $key, @params );
@@ -980 +986 @@
     $log->debug( "entered - @_" );
 
+    my $find_volume = hostname() . ".0";
+    $params[0] = $find_volume;
     my $locations = $self->find_instances( $key, @params );
     unless (defined $locations) {