Changeset 42755 for branches/eam_branches/ipp-20230313/ippScripts/scripts/dist_bundle.pl

Timestamp:

Dec 6, 2024, 1:30:43 PM (20 months ago)

Author:

eugene

Message:

merge from trunk: nightly science updates; magic file

File:

• branches/eam_branches/ipp-20230313/ippScripts/scripts/dist_bundle.pl (modified) (2 diffs)

branches/eam_branches/ipp-20230313/ippScripts/scripts/dist_bundle.pl

@@ -25 +25 @@
 
 my $ipprc = PS::IPP::Config->new(); # IPP configuration
+
+# we can record the location an appropriate magic.mdc file for the file command 
+my $file_magic = "$ENV{PSCONFDIR}/$ENV{PSCONFIG}/etc/compress.mgc";
+### TEST print "magic: $file_magic\n";
+### TEST system ("file -m $file_magic o60523g0045o.2132764.wrp.2688740.skycell.1566.004.pswarp.mdc");
 
 use Getopt::Long qw( GetOptions :config auto_help auto_version gnu_getopt );
@@ -682 +687 @@
     my $mdc_compressed;
     {
-        my $command = "$file_cmd $resolved";
+        my $command = "$file_cmd -m $file_magic $resolved";
+#        my $command = "$file_cmd $resolved";
         my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
             run(command => $command, verbose => $verbose);