Index: /trunk/DataStore/scripts/dsget
===================================================================
--- /trunk/DataStore/scripts/dsget	(revision 16367)
+++ /trunk/DataStore/scripts/dsget	(revision 16368)
@@ -3,5 +3,5 @@
 # Copyright (C) 2006-2008  Joshua Hoblitt
 #
-# $Id: dsget,v 1.13 2008-02-06 23:48:13 eugene Exp $
+# $Id: dsget,v 1.14 2008-02-08 19:30:38 eugene Exp $
 
 use strict;
@@ -20,5 +20,5 @@
 use Pod::Usage qw( pod2usage );
 
-my ($uri, $bytes, $md5, $nebulous, $filename, $volume, $server);
+my ($uri, $bytes, $md5, $nebulous, $filename, $volume, $server, $compress);
 
 $server = $ENV{'NEB_SERVER'} unless $server;
@@ -32,4 +32,5 @@
     'md5|m=s'       => \$md5,
     'filename|f=s'  => \$filename,
+    'compress'      => \$compress,
 ) or pod2usage( 2 );
 
@@ -62,4 +63,8 @@
 # 1) parse anyway and check for conflict
 # 2) drop --volume option
+
+if ($compress) {
+    $uri = "$uri?compress";
+}
 
 my %p = (
@@ -166,5 +171,5 @@
 =head1 SYNOPSIS
 
-    dsget --uri <uri> --filename <filename> [--bytes <nbytes>] [--md5 <hex>]
+    dsget --uri <uri> --filename <filename> [--bytes <nbytes>] [--md5 <hex>] [--compress]
         [--nebulous] [--volume <volume name>]