Changeset 26158 for trunk/DataStore/scripts/dsproductls

Timestamp:

Nov 16, 2009, 3:51:29 PM (16 years ago)

Author:

bills

Message:

Add support for running the data store tools using a proxy server.
This is accomplished by using 'standard' environment variables like
http_proxy and https_proxy.
--no-proxy argument is added to the tools to prevent this behavior.

File:

• trunk/DataStore/scripts/dsproductls (modified) (5 diffs)

trunk/DataStore/scripts/dsproductls

@@ -16 +16 @@
 use Pod::Usage qw( pod2usage );
 
-my ($uri, $last_fileset, $timeout, $extra);
+my ($uri, $last_fileset, $timeout, $extra, $no_proxy);
 
 GetOptions(
@@ -22 +22 @@
     'last_fileset|l=s'  => \$last_fileset,
     'timeout|t=s'       => \$timeout,
-    'extra|e'         => \$extra,
+    'extra|e'           => \$extra,
+    'no-proxy'          => \$no_proxy,
 ) or pod2usage( 2 );
 
@@ -33 +34 @@
 # default http request timeout is 30s
 $timeout ||= 30;
+$no_proxy = 0 if !defined $no_proxy;
 
 my %p = (
@@ -42 +44 @@
 my $response = DataStore::Product->new(%p)->request(
         ua_args  => { timeout => $timeout },
+        no_proxy => $no_proxy,
     );
 
@@ -111 +114 @@
 Optional.
 
+=item * --no-proxy
+
+Do not load proxy environment variables.
+
+Optional.
+
 =back