Changeset 19932 for trunk/ippScripts/scripts/diff_skycell.pl

Timestamp:

Oct 6, 2008, 2:03:10 PM (18 years ago)

Author:

Paul Price

Message:

Adding dtime_script calculation. Updating the database tables.

File:

• trunk/ippScripts/scripts/diff_skycell.pl (modified) (3 diffs)

trunk/ippScripts/scripts/diff_skycell.pl

@@ -9 +9 @@
 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 );
@@ -241 +244 @@
         my $command = "$difftool -adddiffskyfile -diff_id $diff_id -uri $outputName -path_base $outroot";
         $command .= $stats->cmdflags();
+        $command .= (" -dtime_script " . (($mjd_start - DateTime->now->mjd) * 86400));
         $command .= " -hostname $host" if defined $host;
         $command .= " -dbname $dbname" if defined $dbname;
@@ -263 +267 @@
     if (defined $diff_id and not $no_update) {
         my $command = "$difftool -adddiffskyfile -diff_id $diff_id -code $exit_code";
+        $command .= (" -dtime_script " . (($mjd_start - DateTime->now->mjd) * 86400));
         $command .= " -hostname $host" if defined $host;
         $command .= " -dbname $dbname" if defined $dbname;