Changeset 17528 for trunk/DataStore

Timestamp:

May 5, 2008, 10:45:53 AM (18 years ago)

Author:

jhoblitt

Message:

add dsget --timeout option

Location:

trunk/DataStore

Files:

• Changes (modified) (1 diff)
• scripts/dsget (modified) (5 diffs)

trunk/DataStore/Changes

@@ -2 +2 @@
 
 0.07
+    - add dsget --timeout option
     - change dsget to return the HTTP status code on failure
     - remove use of parse_neb_key() from dsget

trunk/DataStore/scripts/dsget

@@ -3 +3 @@
 # Copyright (C) 2006-2008  Joshua Hoblitt
 #
-# $Id: dsget,v 1.18 2008-05-05 20:38:34 jhoblitt Exp $
+# $Id: dsget,v 1.19 2008-05-05 20:45:53 jhoblitt Exp $
 
 use strict;
@@ -19 +19 @@
 use Pod::Usage qw( pod2usage );
 
-my ($uri, $bytes, $md5, $nebulous, $filename, $volume, $server, $compress);
+my ($uri,
+    $bytes,
+    $md5,
+    $nebulous,
+    $filename,
+    $volume,
+    $server,
+    $compress,
+    $timeout
+);
 
 $server = $ENV{'NEB_SERVER'} unless $server;
@@ -32 +41 @@
     'filename|f=s'  => \$filename,
     'compress|c'    => \$compress,
+    'timeout|t'     => \$timeout,
 ) or pod2usage( 2 );
 
@@ -56 +66 @@
 }
 
+# default http request timeout is 30s
 my %p = (
     uri     => $uri,
     type    => 'chip',
+    timeout => $timeout ||= 30,
 );
 
@@ -219 +231 @@
 Optional, implies C<--nebulous>
 
+=item * --timeout|-t
+
+The ammount of time (in seconds) to wait for a response from the DataStore
+after making an HTTP request.  The default is 30s.
+
+Optional.
+
 =back