Changeset 27905 for trunk/DataStore/scripts/dsgetfileset

Timestamp:

May 10, 2010, 1:36:36 PM (16 years ago)

Author:

bills

Message:

Add an option to run funpack on fits files

File:

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

trunk/DataStore/scripts/dsgetfileset

@@ -17 +17 @@
 use File::Basename qw( basename );
 
-my ($uri, $outdir, $timeout, $skip_checks, $no_proxy, $verbose);
+my ($uri, $outdir, $timeout, $skip_checks, $unpack, $no_proxy, $verbose);
 
 GetOptions(
@@ -24 +24 @@
     'timeout|t=s'       => \$timeout,
     'skip-checks'       => \$skip_checks,
+    'unpack'            => \$unpack,
     'no-proxy'          => \$no_proxy,
     'verbose|v'         => \$verbose,
@@ -89 +90 @@
         exit $status;
     }
+
+    if ($unpack) {
+        my $file_type = `file $outfile`;
+        if ($file_type =~ /FITS/) {
+            my $packed_file = "${outfile}.fz";
+            rename $outfile, $packed_file
+                or die "failed to rename $outfile $packed_file";
+
+            # unpack the fits file and delete the input
+            # This works whether or not the file is compressed
+            $command = "funpack -D $packed_file";
+            print "$command\n" if $verbose;
+            $rc = system $command;
+            if ($rc) {
+                my $status = $rc >> 8;
+                print STDERR "failed to funpack $outfile: rc: $rc status: $status\n";
+                exit $status;
+            }
+        }
+    }
 }
 
@@ -129 +150 @@
 
 Do not load proxy environment variables.
+
+=item * --unpack
+
+Uncompress fits files if compressed
 
 Optional.