Index: trunk/ippScripts/scripts/warp_skycell.pl
===================================================================
--- trunk/ippScripts/scripts/warp_skycell.pl	(revision 19561)
+++ trunk/ippScripts/scripts/warp_skycell.pl	(revision 19932)
@@ -9,4 +9,7 @@
 print "\n\n";
 print "Starting script $0 on $host\n\n";
+
+use DateTime;
+my $mjd_start = DateTime->now->mjd;   # MJD of starting script
 
 use vars qw( $VERSION );
@@ -252,4 +255,5 @@
             $command .= " -ignore"           if not $accept; # Completed succesfully, but can't produce product
             $command .= " -uri $outputImage" if $accept;
+            $command .= (" -dtime_script " . (($mjd_start - DateTime->now->mjd) * 86400));
             $command .= $stats->cmdflags()   if $accept;
             $command .= " -hostname $host"   if defined $host;
@@ -305,4 +309,5 @@
         $command .= " -warp_id $warp_id";
         $command .= " -skycell_id $skycell_id";
+        $command .= (" -dtime_script " . (($mjd_start - DateTime->now->mjd) * 86400));
         $command .= " -code $exit_code";
         $command .= " -dbname $dbname" if defined $dbname;