From 71cf359f2a6fb43f6cc529fb36f41000a7fd796e Mon Sep 17 00:00:00 2001
From: "bbaetz%student.usyd.edu.au" <>
Date: Mon, 4 Mar 2002 06:06:19 +0000
Subject: Bug 106377 - processmail rescanall should use lastdiffed r=justdave,
 ddkilzer@theracingworld.com

---
 sanitycheck.cgi | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)

(limited to 'sanitycheck.cgi')

diff --git a/sanitycheck.cgi b/sanitycheck.cgi
index c85a3668e..902557bb8 100755
--- a/sanitycheck.cgi
+++ b/sanitycheck.cgi
@@ -582,6 +582,30 @@ if (@badbugs > 0) {
           join (", ", @badbugs));
 }
 
+###########################################################################
+# Unsent mail
+###########################################################################
+
+Status("Checking for unsent mail");
+
+@badbugs = ();
+
+SendSQL("SELECT bug_id " .
+        "FROM bugs WHERE lastdiffed < delta_ts AND ".
+        "delta_ts < date_sub(now(), INTERVAL 30 minute) ".
+        "ORDER BY bug_id");
+
+while (@row = FetchSQLData()) {
+    my ($id) = (@row);
+    push(@badbugs, $id);
+}
+
+if (@badbugs > 0) {
+    Alert("Bugs that have changes but no mail sent for at least half an hour: " .
+          join (", ", @badbugs));
+    print("Run <code>processmail rescanall</code> to fix this<p>\n");
+}
+
 ###########################################################################
 # End
 ###########################################################################
-- 
cgit v1.2.3-24-g4f1b