Changeset 39491 for trunk/ippScripts/scripts/minidvodb_premerge.pl

Timestamp:

Mar 29, 2016, 2:43:58 PM (10 years ago)

Author:

heather

Message:

changes to the premerge script: delstar no longer runs (was doing the wrong thing for diffs)

File:

• trunk/ippScripts/scripts/minidvodb_premerge.pl (modified) (1 diff)

trunk/ippScripts/scripts/minidvodb_premerge.pl

@@ -85 +85 @@
         #this is chopped into several parts: delstar,addstar, relphot, relastro, dvoverify
         #delstar - first step: are there duplicates, if so remove them
-        {
-            my $command  = "$delstar -update -dup-images  -skip-diff-pairs";
-            #$command .= " -D CAMERA $camera";
-            $command .= " -D CATDIR $minidvodb";
-                        my $mjd_delstar_start = DateTime->now->mjd;   # MJD of starting script
-            print "\n$command\n";
-            my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
-                run(command => $command, verbose => $verbose);
-            unless ($success) {
-                $error_code = (($error_code >> 8) or $PS_EXIT_PROG_ERROR);
-                &my_die("Unable to perform delstar: $error_code", $minidvodb_id, $error_code);
-            }
-            print $full_buf;
-            $dtime_delstar = 86400.0*(DateTime->now->mjd - $mjd_delstar_start);  
+#       {
+#            my $command  = "$delstar -update -dup-images  -skip-diff-pairs";
+#            $command .= " -D CATDIR $minidvodb";
+#                        my $mjd_delstar_start = DateTime->now->mjd;   # MJD of starting script
+#           print "\n$command\n";
+#            my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
+#                run(command => $command, verbose => $verbose);
+#            unless ($success) {
+#                $error_code = (($error_code >> 8) or $PS_EXIT_PROG_ERROR);
+#                &my_die("Unable to perform delstar: $error_code", $minidvodb_id, $error_code);
+#            }
+#           print $full_buf;
+#            $dtime_delstar = 86400.0*(DateTime->now->mjd - $mjd_delstar_start);  
             # MJD of starting script
-            print "delstar time $dtime_delstar\n";
-        }
+#           print "delstar time $dtime_delstar\n";
+#        }