IPP Software Navigation Tools IPP Links Communication Pan-STARRS Links

Changeset 40876 for trunk/ippScripts


Ignore:
Timestamp:
Aug 27, 2019, 11:01:09 AM (7 years ago)
Author:
tdeboer
Message:

added more information output in the case of discrepant number of diffs in expected vs published

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ippScripts/scripts/night_report.pl

    r40835 r40876  
    433433    print " * $diffExpect diffRuns expected *\n";
    434434    if ($verbose) { print "\n"; }
     435
     436
     437
    435438}
    436439
     
    520523    if ($diffDone != $diffExpect) {
    521524        print "*** WARNING: Expect $diffExpect diffRuns, complete $diffDone diffRuns: inconsistent ***\n";
     525
     526        if ($verbose) {
     527           print "Published diffs split by Nvisit :\n";
     528           printf "%8s %10s\n", "Nvisit", "N_pubdiff";
     529
     530           my $query = "SELECT Nvisit, SUM(Ndiffs) FROM ";
     531           $query .= " (SELECT object, filter, chunk, count(*) as Nvisit,count(DISTINCT diff_id) as Ndiffs FROM";
     532           $query .= "  (SELECT expall.object, expall.filter, expall.chunk as chunk, expall.exp_name,exppub.diff_id from";
     533           $query .= "  (";
     534           $query .= "    SELECT object, filter,exp_name, substr(comment, 1, position(' ' in comment)) as chunk, dateobs, warp_id";
     535           $query .= "    FROM rawExp";
     536           $query .= "    JOIN chipRun using (exp_id)";
     537           $query .= "    JOIN camRun using (chip_id)";
     538           $query .= "    JOIN camProcessedExp using (cam_id)";
     539           $query .= "    JOIN fakeRun using (cam_id)";
     540           $query .= "    JOIN warpRun using (fake_id)";
     541           $query .= "    WHERE dateobs like '$date%'";
     542           $query .= "    AND exp_id > $refExpID";
     543           $query .= "    AND (camProcessedExp.quality = 0)";
     544           $query .= "    AND (comment NOT LIKE '%twilight%')";
     545           $query .= "  ) AS expall";
     546           $query .= "  JOIN";
     547           $query .= "  (SELECT * FROM (";
     548           $query .= "  (SELECT exp_name, warpRun.warp_id, diffRun.diff_id, publishRun.state as pubstate FROM";
     549           $query .= "    diffRun JOIN diffInputSkyfile USING (diff_id) JOIN publishRun ON (diff_id = stage_id)";
     550           $query .= "    JOIN warpRun ON (warp1=warp_id) JOIN fakeRun USING (fake_id) JOIN camRun USING (cam_id)";
     551           $query .= "    JOIN camProcessedExp USING (cam_id) JOIN chipRun USING (chip_id) JOIN rawExp USING (exp_id)";
     552           $query .= "    WHERE rawExp.dateobs like '$date%' AND diffRun.label NOT LIKE '%WS.nigh%' AND diffRun.label NOT LIKE 'goto_cleaned'";
     553           $query .= "    AND stack2 IS NULL AND diffRun.data_group LIKE '%.$dataGroupDate')";
     554           $query .= "  UNION";
     555           $query .= "  (SELECT exp_name, warpRun.warp_id, diffRun.diff_id, publishRun.state as pubstate FROM";
     556           $query .= "    diffRun JOIN diffInputSkyfile USING (diff_id) JOIN publishRun ON (diff_id = stage_id)";
     557           $query .= "    JOIN warpRun ON (warp2=warp_id) JOIN fakeRun USING (fake_id) JOIN camRun USING (cam_id)";
     558           $query .= "    JOIN camProcessedExp USING (cam_id) JOIN chipRun USING (chip_id) JOIN rawExp USING (exp_id)";
     559           $query .= "    WHERE rawExp.dateobs like '$date%' AND diffRun.label NOT LIKE '%WS.nigh%' AND diffRun.label NOT LIKE 'goto_cleaned'";
     560           $query .= "    AND stack2 IS NULL AND diffRun.data_group LIKE '%.$dataGroupDate')";
     561           $query .= "  ) AS diffgather";
     562           $query .= "  GROUP BY diffgather.exp_name)";
     563           $query .= "  AS exppub";
     564           $query .= " ON expall.exp_name = exppub.exp_name";
     565           $query .= " ) AS pubdiffgather GROUP BY object, filter, chunk";
     566           $query .= " ) AS tableVisits GROUP BY Nvisit";
     567
     568           my $result = &mysql_select ($query);
     569           while (@row = $result->fetchrow_array()) {
     570                printf "%8s %10s\n", $row[0], $row[1];
     571           }
     572
     573           #-------------------------------------------------------------
     574           print "\n";
     575           print "Listing objects with 1< Nvisits < 4:\n";
     576           printf "| %8s | %8s | %17s | %8s |\n", "object", "filter", "chunk", "Nvisit";
     577
     578           my $query = "SELECT * FROM";
     579           $query .= " (";
     580           $query .= "   SELECT object, filter, chunk, count(*) as Nvisit FROM";
     581           $query .= "   (";
     582           $query .= "     SELECT object, filter, substr(comment, 1, position(' ' in comment)) as chunk";
     583           $query .= "     FROM rawExp";
     584           $query .= "     LEFT JOIN chipRun using (exp_id)";
     585           $query .= "     LEFT JOIN camRun using (chip_id)";
     586           $query .= "     LEFT JOIN camProcessedExp using (cam_id)";
     587           $query .= "     WHERE dateobs LIKE '$date%'";
     588           $query .= "     AND exp_id > $refExpID"; #REF
     589           $query .= "     AND exp_type = 'OBJECT'";
     590           $query .= "     AND obs_mode NOT LIKE 'ENGINEERING'";
     591           $query .= "     AND (obs_mode LIKE '%SS%' OR obs_mode LIKE '%BRIGHT%')";
     592           $query .= "     AND rawExp.comment like '%visit%'";
     593           $query .= "     AND (camProcessedExp.quality IS NULL or camProcessedExp.quality = 0)";
     594           $query .= "     GROUP BY comment, filter, substr(comment, 1, position(' ' in comment))";
     595           $query .= "   ) AS tableChunks GROUP BY object, filter, chunk";
     596           $query .= " ) AS tableVisits WHERE Nvisit > 1 AND Nvisit < 4 ORDER BY Nvisit ";
     597           my $result = &mysql_select ($query);
     598
     599           while (@row = $result->fetchrow_array()) {
     600                printf "| %8s | %8s | %17s | %8s |\n", $row[0], $row[1], $row[2], $row[3];
     601           }
     602           print "\n";
     603        }
     604
    522605    } else {
    523606        if (not $report) { print " * $diffDone of $diffExpect diffRuns completed *\n";  }
Note: See TracChangeset for help on using the changeset viewer.