From 025b09350142ffb76fe9a35597cdad6404dff7f7 Mon Sep 17 00:00:00 2001
From: "terry%netscape.com" <>
Date: Tue, 1 Sep 1998 11:22:32 +0000
Subject: Whine at people who haven't been checking their NEW bugs.

---
 whineatnews.tcl | 64 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 64 insertions(+)
 create mode 100755 whineatnews.tcl

(limited to 'whineatnews.tcl')

diff --git a/whineatnews.tcl b/whineatnews.tcl
new file mode 100755
index 000000000..c9ec42dac
--- /dev/null
+++ b/whineatnews.tcl
@@ -0,0 +1,64 @@
+#! /usr/bonsaitools/bin/mysqltcl
+# -*- Mode: tcl; indent-tabs-mode: nil -*-
+#
+# The contents of this file are subject to the Mozilla Public License
+# Version 1.0 (the "License"); you may not use this file except in
+# compliance with the License. You may obtain a copy of the License at
+# http://www.mozilla.org/MPL/
+# 
+# Software distributed under the License is distributed on an "AS IS"
+# basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See the
+# License for the specific language governing rights and limitations
+# under the License.
+# 
+# The Original Code is the Bugzilla Bug Tracking System.
+# 
+# The Initial Developer of the Original Code is Netscape Communications
+# Corporation. Portions created by Netscape are Copyright (C) 1998
+# Netscape Communications Corporation. All Rights Reserved.
+# 
+# Contributor(s): Terry Weissman <terry@mozilla.org>
+
+
+# This is a script suitable for running once a day from a cron job.  It 
+# looks at all the bugs, and sends whiny mail to anyone who has a bug 
+# assigned to them that has status NEW that has not been touched for
+# more than 7 days.
+
+source "globals.tcl"
+source "defparams.tcl"
+
+ConnectToDatabase
+
+SendSQL "select bug_id,login_name from bugs,profiles where bug_status = 'NEW' and to_days(now()) - to_days(delta_ts) > [Param whinedays] and userid=assigned_to"
+
+set bugs(zz) x
+unset bugs(zz)
+
+while {[MoreSQLData]} {
+    lassign [FetchSQLData] id email
+    if {$id == ""} {
+        continue
+    }
+    lappend bugs($email) $id
+}
+
+
+set template [Param whinemail]
+
+
+foreach i $param_list {
+    regsub -all "%$i%" $template [Param $i] template
+}
+
+
+foreach email [lsort [array names bugs]] {
+    
+    regsub -all {%email%} $template $email msg
+    set list [lsort -integer $bugs($email)]
+    foreach i $list {
+        append msg "  http://cvs-mirror.mozilla.org/webtools/bugzilla/show_bug.cgi?id=$i\n"
+    }
+    exec /usr/lib/sendmail -t << $msg
+    puts "$email      $list"
+}
-- 
cgit v1.2.3-24-g4f1b