Changeset 19938 for trunk/ippScripts/scripts/fake_imfile.pl

Timestamp:

Oct 6, 2008, 4:11:11 PM (18 years ago)

Author:

Paul Price

Message:

Let's do the time warp again!

File:

• trunk/ippScripts/scripts/fake_imfile.pl (modified) (2 diffs)

trunk/ippScripts/scripts/fake_imfile.pl

@@ -197 +197 @@
 $command .= " -path_base $outroot";
 $command .= " -dbname $dbname" if defined $dbname;
-$command .= (" -dtime_script " . (($mjd_start - DateTime->now->mjd) * 86400));
+$command .= (" -dtime_script " . ((DateTime->now->mjd - $mjd_start) * 86400));
 # XXX add this after defined
 # $command .= $stats->cmdflags();
@@ -229 +229 @@
         $command .= " -class_id $class_id";
         $command .= " -path_base $outroot";
-        $command .= (" -dtime_script " . (($mjd_start - DateTime->now->mjd) * 86400));
+        $command .= (" -dtime_script " . ((DateTime->now->mjd - $mjd_start) * 86400));
         $command .= " -code $exit_code";
         $command .= " -dbname $dbname" if defined $dbname;