Index: trunk/DataStore/scripts/dsleech
===================================================================
--- trunk/DataStore/scripts/dsleech	(revision 17739)
+++ trunk/DataStore/scripts/dsleech	(revision 26158)
@@ -18,5 +18,5 @@
 use Pod::Usage qw( pod2usage );
 
-my ($dir, $uri, $last_fileset, $overwrite, $recall, $remember, $verbose, $timeout);
+my ($dir, $uri, $last_fileset, $overwrite, $recall, $remember, $verbose, $timeout, $no_proxy);
 
 GetOptions(
@@ -29,4 +29,5 @@
     'verbose|v'         => \$verbose,
     'timeout|t'         => \$timeout,
+    'no-proxy'          => \$no_proxy,
 ) or pod2usage( 2 );
 
@@ -39,4 +40,5 @@
 # default http request timeout is 30s
 $timeout ||= 30;
+$no_proxy = 0 if !defined $no_proxy;
 
 my %p = (
@@ -65,4 +67,5 @@
 my $response = DataStore::Product->new(%p)->request(
     ua_args  => { timeout => $timeout },
+    no_proxy => $no_proxy,
 );
 
@@ -281,4 +284,10 @@
 Optional.
 
+=item * --no-proxy
+
+Do not load proxy environment variables.
+
+Optional.
+
 =back