Changeset 17534 for trunk/DataStore/scripts/dsget

Timestamp:

May 5, 2008, 4:35:36 PM (18 years ago)

Author:

jhoblitt

Message:

Change DateStore::File to handle passing args to LWP::UserAgent

File:

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

trunk/DataStore/scripts/dsget

@@ -3 +3 @@
 # Copyright (C) 2006-2008  Joshua Hoblitt
 #
-# $Id: dsget,v 1.19 2008-05-05 20:45:53 jhoblitt Exp $
+# $Id: dsget,v 1.20 2008-05-06 02:35:22 jhoblitt Exp $
 
 use strict;
@@ -67 +67 @@
 
 # default http request timeout is 30s
+$timeout ||= 30;
+
 my %p = (
     uri     => $uri,
     type    => 'chip',
-    timeout => $timeout ||= 30,
 );
 
@@ -123 +124 @@
 
 # request the file from the remote data store server (save in tmpfilename)
-my $response = DataStore::File->new(%p)->request( filename => $tmpfilename );
+my $response = DataStore::File->new(%p)->request(
+    filename => $tmpfilename,
+    ua_args  => { timeout => $timeout},
+);
 
 die "request failed" unless defined $response;