Changeset 16368 for trunk/DataStore/scripts/dsget

Timestamp:

Feb 8, 2008, 9:30:38 AM (18 years ago)

Author:

eugene

Message:

added compress option

File:

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

trunk/DataStore/scripts/dsget

@@ -3 +3 @@
 # 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 +20 @@
 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 +32 @@
     'md5|m=s'       => \$md5,
     'filename|f=s'  => \$filename,
+    'compress'      => \$compress,
 ) or pod2usage( 2 );
 
@@ -62 +63 @@
 # 1) parse anyway and check for conflict
 # 2) drop --volume option
+
+if ($compress) {
+    $uri = "$uri?compress";
+}
 
 my %p = (
@@ -166 +171 @@
 =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>]