Changeset 26236 for branches/eam_branches/20091113/DataStore/scripts/dsrootls

Timestamp:

Nov 20, 2009, 4:13:39 PM (17 years ago)

Author:

eugene

Message:

updates from head

File:

• branches/eam_branches/20091113/DataStore/scripts/dsrootls (modified) (4 diffs)

branches/eam_branches/20091113/DataStore/scripts/dsrootls

@@ -16 +16 @@
 use Pod::Usage qw( pod2usage );
 
-my ($uri, $timeout);
+my ($uri, $timeout, $no_proxy);
 
 GetOptions(
     'uri|u=s'       => \$uri,
-    'timeout|t'     => \$timeout,
+    'timeout|t=i'   => \$timeout,
+    'no-proxy'      => \$no_proxy,
 ) or pod2usage( 2 );
 
@@ -31 +32 @@
 # default http request timeout is 30s
 $timeout ||= 30;
+$no_proxy = 0 if !defined $no_proxy;
 
 my %p = (
@@ -38 +40 @@
 my $response = DataStore::Root->new(%p)->request(
         ua_args  => { timeout => $timeout },
+        no_proxy => $no_proxy,
     );
 
@@ -93 +96 @@
 Optional.
 
+=item * --no-proxy
+
+Do not load proxy environment variables.
+
+Optional.
+
 =back