Changeset 25255 for branches/pap_mops/ippScripts/scripts/publish_file.pl

Timestamp:

Sep 2, 2009, 12:51:06 PM (17 years ago)

Author:

Paul Price

Message:

Adding database columns.

File:

• branches/pap_mops/ippScripts/scripts/publish_file.pl (modified) (2 diffs)

branches/pap_mops/ippScripts/scripts/publish_file.pl

@@ -209 +209 @@
 unless ($no_update) {
     my $command = "$pubtool -add -pub_id $pub_id -path_base $outroot";
+    $command .= (" -dtime_script " . ((DateTime->now->mjd - $mjd_start) * 86400));
+    $command .= " -hostname $host" if defined $host;
+
     $command .= " -dbname $dbname" if defined $dbname;
 
@@ -303 +306 @@
         $command .= " -pub_id $pub_id";
         $command .= " -path_base $outroot";
+        $command .= (" -dtime_script " . ((DateTime->now->mjd - $mjd_start) * 86400));
+        $command .= " -hostname $host" if defined $host;
         $command .= " -fault $fault";
         $command .= " -dbname $dbname" if defined $dbname;