Changeset 27229

Timestamp:

Mar 9, 2010, 3:29:56 PM (16 years ago)

Author:

bills

Message:

add option for debugging --skip-checks to omit the md5sum and filesize checks

File:

• trunk/DataStore/scripts/dsgetfileset (modified) (3 diffs)

trunk/DataStore/scripts/dsgetfileset

@@ -17 +17 @@
 use File::Basename qw( basename );
 
-my ($uri, $outdir, $timeout, $no_proxy, $verbose);
+my ($uri, $outdir, $timeout, $skip_checks, $no_proxy, $verbose);
 
 GetOptions(
@@ -23 +23 @@
     'outdir|o=s'        => \$outdir,
     'timeout|t=s'       => \$timeout,
+    'skip-checks'       => \$skip_checks,
     'no-proxy'          => \$no_proxy,
     'verbose|v'         => \$verbose,
@@ -79 +80 @@
     my $bytes = $fs->bytes;
 
-    my $command = "dsget --uri $uri --filename $outfile --md5 $md5 --bytes $bytes --timeout $timeout";
+    my $command = "dsget --uri $uri --filename $outfile --timeout $timeout";
+    $command .= " --md5 $md5 --bytes $bytes" if !$skip_checks;
     print "$command\n" if $verbose;
     my $rc = system $command;