Changeset 28003 for branches/pap/ippScripts/scripts/warp_skycell.pl

Timestamp:

May 18, 2010, 12:49:05 PM (16 years ago)

Author:

eugene

Message:

merging changes from trunk into branches/pap

Location:

branches/pap

Files:

• . (modified) (1 prop)
• ippScripts/scripts/warp_skycell.pl (modified) (3 diffs)

branches/pap/ippScripts/scripts/warp_skycell.pl

@@ -7 +7 @@
 use Sys::Hostname;
 my $host = hostname();
+my $date = `date`;
 print "\n\n";
-print "Starting script $0 on $host\n\n";
+print "Starting script $0 on $host at $date\n\n";
 
 use DateTime;
@@ -299 +300 @@
             $command .= " -tess_id $tess_dir";
             $command .= " -path_base $outroot"; # needed for logfile lookups
-            $command .= " -magicked $magicked" if $magicked;
+            $command .= " -set_magicked $magicked" if $magicked;
 
             $command .= " -uri $outputImage" if !$quality;
@@ -321 +322 @@
             $command .= " -warp_id $warp_id";
             $command .= " -skycell_id $skycell_id";
+            $command .= " -set_magicked $magicked" if $magicked;
             $command .= " -dbname $dbname"   if defined $dbname;