Changeset 29515 for branches/eam_branches/ipp-20100823/DataStore/scripts/dsgetfileset

Timestamp:

Oct 21, 2010, 2:45:13 PM (16 years ago)

Author:

eugene

Message:

merge changes from trunk

File:

• branches/eam_branches/ipp-20100823/DataStore/scripts/dsgetfileset (modified) (4 diffs)

branches/eam_branches/ipp-20100823/DataStore/scripts/dsgetfileset

@@ -17 +17 @@
 use File::Basename qw( basename );
 
-my ($uri, $outdir, $timeout, $skip_checks, $unpack, $no_proxy, $verbose);
+my ($uri, $outdir, $timeout, $skip_checks, $unpack, $first_file, $no_proxy, $verbose);
 
 GetOptions(
@@ -25 +25 @@
     'skip-checks'       => \$skip_checks,
     'unpack'            => \$unpack,
+    'first-file=s'      => \$first_file,
     'no-proxy'          => \$no_proxy,
     'verbose|v'         => \$verbose,
@@ -75 +76 @@
     }
 
+    if ($first_file) {
+        next if $fs->fileid ne $first_file;
+        $first_file = undef;
+    }
     my $uri = $fs->uri;
     my $base = basename($uri);
@@ -153 +158 @@
 =item * --unpack
 
-Uncompress fits files if compressed
+Uncompress fits files if compressed.
+
+=item * --first-file <fileid>
+
+Skip files in fileset list prior to the given fileid.
 
 Optional.