Index: /trunk/DataStore/lib/DataStore/File.pm
===================================================================
--- /trunk/DataStore/lib/DataStore/File.pm	(revision 26157)
+++ /trunk/DataStore/lib/DataStore/File.pm	(revision 26158)
@@ -233,4 +233,8 @@
                 optional    => 1,
             },
+            no_proxy     => {
+                type        => SCALAR,
+                optional    => 1,
+            },
         },
     );
@@ -245,4 +249,10 @@
         $ua = LWP::UserAgent->new;
     }
+
+    # load proxy environment variables (if any)
+    if (!$p{no_proxy}) {
+        $ua->env_proxy;
+    }
+
     my $request = HTTP::Request->new(GET => $self->uri);
     my $filename = $p{filename};
Index: /trunk/DataStore/lib/DataStore/FileSet.pm
===================================================================
--- /trunk/DataStore/lib/DataStore/FileSet.pm	(revision 26157)
+++ /trunk/DataStore/lib/DataStore/FileSet.pm	(revision 26158)
@@ -189,4 +189,8 @@
         {
             ua_args     => {
+                optional    => 1,
+            },
+            no_proxy     => {
+                type        => SCALAR,
                 optional    => 1,
             },
@@ -201,4 +205,10 @@
         $ua = LWP::UserAgent->new;
     }
+
+    if (!$p{no_proxy}) {
+        # load proxy environment variables (if any)
+        $ua->env_proxy;
+    }
+
     my $request = HTTP::Request->new(GET => $self->uri);
     my $response = $ua->request($request);
Index: /trunk/DataStore/lib/DataStore/Product.pm
===================================================================
--- /trunk/DataStore/lib/DataStore/Product.pm	(revision 26157)
+++ /trunk/DataStore/lib/DataStore/Product.pm	(revision 26158)
@@ -172,4 +172,8 @@
                 optional    => 1,
             },
+            no_proxy     => {
+                type        => SCALAR,
+                optional    => 1,
+            },
         },
     );
@@ -182,4 +186,9 @@
         $ua = LWP::UserAgent->new;
     }
+
+    if (!$p{no_proxy}) {
+        # load proxy environment variables (if any)
+        $ua->env_proxy;
+    } 
 
     my $request;
Index: /trunk/DataStore/lib/DataStore/Root.pm
===================================================================
--- /trunk/DataStore/lib/DataStore/Root.pm	(revision 26157)
+++ /trunk/DataStore/lib/DataStore/Root.pm	(revision 26158)
@@ -136,4 +136,8 @@
                 optional    => 1,
             },
+            no_proxy        => {
+                type        => SCALAR,
+                optional    => 1,
+            },
         },
     );
@@ -145,4 +149,9 @@
     } else {
         $ua = LWP::UserAgent->new;
+    }
+
+    if (!$p{no_proxy}) {
+        # load proxy environment variables (if any)
+        $ua->env_proxy;
     }
 
Index: /trunk/DataStore/scripts/dsfilesetls
===================================================================
--- /trunk/DataStore/scripts/dsfilesetls	(revision 26157)
+++ /trunk/DataStore/scripts/dsfilesetls	(revision 26158)
@@ -16,9 +16,10 @@
 use Pod::Usage qw( pod2usage );
 
-my ($uri, $timeout);
+my ($uri, $timeout, $no_proxy);
 
 GetOptions(
     'uri|u=s'           => \$uri,
     'timeout|t=s'       => \$timeout,
+    'no-proxy'          => \$no_proxy,
 ) or pod2usage( 2 );
 
@@ -31,7 +32,9 @@
 # default http request timeout is 30s
 $timeout ||= 30;
+$no_proxy = 0 if !defined $no_proxy;
 
 my $response = DataStore::FileSet->new( uri => $uri )->request(
         ua_args  => { timeout => $timeout },
+        no_proxy => $no_proxy,
     );
 
@@ -91,4 +94,10 @@
 Optional.
 
+=item * --no-proxy
+
+Do not load proxy environment variables.
+
+Optional.
+
 =back
 
Index: /trunk/DataStore/scripts/dsget
===================================================================
--- /trunk/DataStore/scripts/dsget	(revision 26157)
+++ /trunk/DataStore/scripts/dsget	(revision 26158)
@@ -28,4 +28,5 @@
     $timeout,
     @xattrs,
+    $no_proxy,
 );
 
@@ -44,4 +45,5 @@
     'timeout|t=s'   => \$timeout,
     'xattr|x=s'     => \@xattrs,
+    'no-proxy'      => \$no_proxy,
 ) or pod2usage( 2 );
 
@@ -80,4 +82,5 @@
 # default http request timeout is 30s
 $timeout ||= 30;
+$no_proxy = 0 if !defined $no_proxy;
 
 my %p = (
@@ -140,4 +143,5 @@
         filename => $tmpfilename,
         ua_args  => { timeout => $timeout },
+        no_proxy => $no_proxy,
     );
 
@@ -302,4 +306,10 @@
 Optional.
 
+=item * --no-proxy
+
+Do not load proxy environment variables.
+
+Optional.
+
 =item * --copies <n>
 
Index: /trunk/DataStore/scripts/dsgetfileset
===================================================================
--- /trunk/DataStore/scripts/dsgetfileset	(revision 26157)
+++ /trunk/DataStore/scripts/dsgetfileset	(revision 26158)
@@ -17,5 +17,5 @@
 use File::Basename qw( basename );
 
-my ($uri, $outdir, $timeout, $verbose);
+my ($uri, $outdir, $timeout, $no_proxy, $verbose);
 
 GetOptions(
@@ -23,4 +23,5 @@
     'outdir|o=s'        => \$outdir,
     'timeout|t=s'       => \$timeout,
+    'no-proxy'          => \$no_proxy,
     'verbose|v'         => \$verbose,
 ) or pod2usage( 2 );
@@ -34,7 +35,9 @@
 # default http request timeout is 30s
 $timeout ||= 30;
+$no_proxy = 0 if !defined $no_proxy;
 
 my $response = DataStore::FileSet->new( uri => $uri )->request(
         ua_args  => { timeout => $timeout },
+        no_proxy => $no_proxy,
     );
 
@@ -117,4 +120,10 @@
 Optional.
 
+=item * --no-proxy
+
+Do not load proxy environment variables.
+
+Optional.
+
 =back
 
Index: /trunk/DataStore/scripts/dsleech
===================================================================
--- /trunk/DataStore/scripts/dsleech	(revision 26157)
+++ /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
 
Index: /trunk/DataStore/scripts/dsproductls
===================================================================
--- /trunk/DataStore/scripts/dsproductls	(revision 26157)
+++ /trunk/DataStore/scripts/dsproductls	(revision 26158)
@@ -16,5 +16,5 @@
 use Pod::Usage qw( pod2usage );
 
-my ($uri, $last_fileset, $timeout, $extra);
+my ($uri, $last_fileset, $timeout, $extra, $no_proxy);
 
 GetOptions(
@@ -22,5 +22,6 @@
     'last_fileset|l=s'  => \$last_fileset,
     'timeout|t=s'       => \$timeout,
-    'extra|e'         => \$extra,
+    'extra|e'           => \$extra,
+    'no-proxy'          => \$no_proxy,
 ) or pod2usage( 2 );
 
@@ -33,4 +34,5 @@
 # default http request timeout is 30s
 $timeout ||= 30;
+$no_proxy = 0 if !defined $no_proxy;
 
 my %p = (
@@ -42,4 +44,5 @@
 my $response = DataStore::Product->new(%p)->request(
         ua_args  => { timeout => $timeout },
+        no_proxy => $no_proxy,
     );
 
@@ -111,4 +114,10 @@
 Optional.
 
+=item * --no-proxy
+
+Do not load proxy environment variables.
+
+Optional.
+
 =back
 
Index: /trunk/DataStore/scripts/dsrootls
===================================================================
--- /trunk/DataStore/scripts/dsrootls	(revision 26157)
+++ /trunk/DataStore/scripts/dsrootls	(revision 26158)
@@ -16,9 +16,10 @@
 use Pod::Usage qw( pod2usage );
 
-my ($uri, $timeout);
+my ($uri, $timeout, $no_proxy);
 
 GetOptions(
     'uri|u=s'       => \$uri,
     'timeout|t'     => \$timeout,
+    'no-proxy'      => \$no_proxy,
 ) or pod2usage( 2 );
 
@@ -31,4 +32,5 @@
 # default http request timeout is 30s
 $timeout ||= 30;
+$no_proxy = 0 if !defined $no_proxy;
 
 my %p = (
@@ -38,4 +40,5 @@
 my $response = DataStore::Root->new(%p)->request(
         ua_args  => { timeout => $timeout },
+        no_proxy => $no_proxy,
     );
 
@@ -93,4 +96,10 @@
 Optional.
 
+=item * --no-proxy
+
+Do not load proxy environment variables.
+
+Optional.
+
 =back