Changeset 27517 for branches/eam_branches/20100225/DataStore/scripts/dsgetfileset

Timestamp:

Mar 29, 2010, 3:55:49 PM (16 years ago)

Author:

eugene

Message:

update merges from trunk

Location:

branches/eam_branches/20100225

Files:

• . (modified) (1 prop)
• DataStore/scripts/dsgetfileset (modified) (4 diffs)

branches/eam_branches/20100225/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,
@@ -36 +37 @@
 $timeout ||= 30;
 $no_proxy = 0 if !defined $no_proxy;
+
+if (!($uri =~ /\/index\.txt$/)) {
+    $uri .= '/index.txt'
+} 
 
 my $response = DataStore::FileSet->new( uri => $uri )->request(
@@ -75 +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;