Changeset 14887 for trunk/DataStore/scripts/dsget

Timestamp:

Sep 18, 2007, 6:40:21 PM (19 years ago)

Author:

jhoblitt

Message:

nebulous support update

File:

• trunk/DataStore/scripts/dsget (modified) (3 diffs)

trunk/DataStore/scripts/dsget

@@ -3 +3 @@
 # Copyright (C) 2006  Joshua Hoblitt
 #
-# $Id: dsget,v 1.2 2007-09-15 02:22:20 jhoblitt Exp $
+# $Id: dsget,v 1.3 2007-09-19 04:40:21 jhoblitt Exp $
 
 use strict;
@@ -18 +18 @@
 use Pod::Usage qw( pod2usage );
 
-my ($uri, $bytes, $md5, $nebulous, $filename);
+my ($uri, $bytes, $md5, $nebulous, $filename, $node, $server);
+
+$server = $ENV{'NEB_SERVER'} unless $server;
 
 GetOptions(
     'uri|u=s'       => \$uri,
     'bytes|m=s'     => \$bytes,
-    'nebulous|n=s'  => \$nebulous,
+    'nebulous|n'  => \$nebulous,
+    'node|n=s'      => \$node,
+    'server|s=s'    => \$server,
     'md5|m=s'       => \$md5,
     'filename|f=s'  => \$filename,
@@ -78 +82 @@
     require File::Copy;
     my $neb = Nebulous::Client->new(
-#        proxy   => 'http://localhost:80/nebulous'
+        proxy   => $server,
     );
-    my $fh = $neb->open_create( $filename )
+
+    die "can't connected to Nebulous Server: $server"
+        unless defined $neb;
+
+    my $fh = $neb->open_create( $filename, $node )
         or die "Nebulous can't create key $filename";
     open(my $src_fh, $tmpfilename) or die "can't open file $tmpfilename: $!";