Changeset 30667

Timestamp:

Feb 17, 2011, 10:24:48 AM (15 years ago)

Author:

bills

Message:

if --unpack is supplied extract tgz files

File:

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

trunk/DataStore/scripts/dsgetfileset

@@ -113 +113 @@
                 exit $status;
             }
+        } elsif (($file_type =~ /gzip/) and ($outfile =~ /tgz/) ){
+            $command = "tar -x --directory $outdir -f $outfile";
+            $rc = system $command;
+            if ($rc) {
+                my $status = $rc >> 8;
+                print STDERR "failed to extract $outfile: rc: $rc status: $status\n";
+                exit $status;
+            }
         }
     }
@@ -158 +166 @@
 =item * --unpack
 
-Uncompress fits files if compressed.
+Uncompress fits files if compressed or extract files from gzipped tar (tgz) files.
 
 =item * --first-file <fileid>