Index: trunk/ippScripts/scripts/night_report.pl
===================================================================
--- trunk/ippScripts/scripts/night_report.pl	(revision 41754)
+++ trunk/ippScripts/scripts/night_report.pl	(revision 42009)
@@ -365,4 +365,46 @@
     }
     if (!$doHeader) { print "\n"; }
+    
+    #Check for dropped warp exposures
+    $query = "SELECT exp_name,warp_id, warpRun.state,comment,chipRun.workdir,exp_id,cam_id";
+    $query .= "    FROM rawExp LEFT JOIN chipRun USING (exp_id) LEFT JOIN camRun USING (chip_id) JOIN camProcessedExp USING (cam_id)";
+    $query .= "    LEFT JOIN fakeRun USING (cam_id) LEFT JOIN warpRun USING (fake_id)";
+    $query .= "    WHERE dateobs like '$date%' AND exp_id > $refExpID AND obs_mode NOT LIKE 'ENGINEERING' AND obs_mode NOT LIKE 'MANUAL'";
+    $query .= "    AND (camRun.label LIKE '%SS%' OR camRun.label LIKE '%EU%' OR camRun.label LIKE '%Bright.%')";
+    $query .= "    AND exp_type = 'OBJECT' AND warpRun.state LIKE 'drop'";
+    $query .= "    GROUP BY exp_name ORDER BY exp_id asc";
+
+    my $result = &mysql_select ($query);
+
+    $doHeader = 1; 
+
+    while (@row = $result->fetchrow_array()) {
+        if ($doHeader) {
+            print "Dropped warpRun exposures:\n";
+            printf "%15s | %9s | %9s | %16s | %15s\n", "exp_name","warp_id","state", "dropped fraction", "comment";
+            $doHeader = 0;
+        }
+        $nall = 0;
+        $nbad = 0;
+        my $cmd = "neb-ls -p $row[4]/$row[0].$row[5]/$row[0].$row[5].cm.$row[6].smf";
+        my @output1 = `$cmd`;    
+        chomp @output1;
+
+        foreach my $line (@output1) {
+          my $cmd2 = "echo $line | fields -n hdr CERROR";
+
+          my @output2 = `$cmd2`;    
+          chomp @output2;
+
+          foreach my $line2 (@output2) {
+	    my ($name, $cerror) = split /  /, $line2;
+            $nall++ ;
+            if($cerror > 0.1) {$nbad++};
+          }
+        }
+        printf "%15s | %9s | %9s | %16.2f | %15s\n", $row[0], $row[1], $row[2],$nbad/$nall, $row[3] ;  
+    }
+    if (!$doHeader) { print "\n"; }    
+    
 
 }
@@ -1071,6 +1113,6 @@
 }
 
-# check for bad quality camera exposurs
 if (1) {
+    # check for bad quality camera exposures
     my $query = "SELECT exp_name, camProcessedExp.quality, comment, chipRun.workdir,exp_id,cam_id";
     $query .= " FROM rawExp";
@@ -1106,5 +1148,50 @@
     if (($verbose or $report) && !$doHeader) { print "\n"; }
     if (!($verbose or $report)) { print "$NbadCam bad quality camera exposures\n\n"; }
-}
+
+
+    #Check for dropped warp exposures
+    $query = "SELECT exp_name,warp_id, warpRun.state,comment,chipRun.workdir,exp_id,cam_id";
+    $query .= "    FROM rawExp LEFT JOIN chipRun USING (exp_id) LEFT JOIN camRun USING (chip_id) JOIN camProcessedExp USING (cam_id)";
+    $query .= "    LEFT JOIN fakeRun USING (cam_id) LEFT JOIN warpRun USING (fake_id)";
+    $query .= "    WHERE dateobs like '$date%' AND exp_id > $refExpID AND obs_mode NOT LIKE 'ENGINEERING' AND obs_mode NOT LIKE 'MANUAL'";
+    $query .= "    AND (camRun.label LIKE '%SS%' OR camRun.label LIKE '%EU%' OR camRun.label LIKE '%Bright.%')";
+    $query .= "    AND exp_type = 'OBJECT' AND warpRun.state LIKE 'drop'";
+    $query .= "    GROUP BY exp_name ORDER BY exp_id asc";
+
+    my $result = &mysql_select ($query);
+
+    $doHeader = 1; 
+
+    while (@row = $result->fetchrow_array()) {
+        if ($doHeader) {
+            print "Dropped warpRun exposures:\n";
+            printf "%15s | %9s | %9s | %16s | %15s\n", "exp_name","warp_id","state", "dropped fraction", "comment";
+            $doHeader = 0;
+        }
+        $nall = 0;
+        $nbad = 0;
+        my $cmd = "neb-ls -p $row[4]/$row[0].$row[5]/$row[0].$row[5].cm.$row[6].smf";
+        my @output1 = `$cmd`;    
+        chomp @output1;
+
+        foreach my $line (@output1) {
+          my $cmd2 = "echo $line | fields -n hdr CERROR";
+
+          my @output2 = `$cmd2`;    
+          chomp @output2;
+
+          foreach my $line2 (@output2) {
+	    my ($name, $cerror) = split /  /, $line2;
+            $nall++ ;
+            if($cerror > 0.1) {$nbad++};
+          }
+        }
+        printf "%15s | %9s | %9s | %16.2f | %15s\n", $row[0], $row[1], $row[2],$nbad/$nall, $row[3] ;  
+    }
+    if (!$doHeader) { print "\n"; }    
+
+}
+
+
 
 # check the status of diff runs NOT for Solar System: