Bug 337717: whineatnews.pl sends email to users having "Bugmail Disabled = 1" - Patch...

diff --git a/whineatnews.pl b/whineatnews.pl
index 42df7be556fdd992831deca265353a7455b930ae..c6ab20af5d8e37bb7e7a1a44e23e22ee416a4ee3 100755 (executable)
--- a/whineatnews.pl
+++ b/whineatnews.pl
@@ -20,6 +20,7 @@
 #
 # Contributor(s): Terry Weissman <terry@mozilla.org>
 #                 Joseph Heenan <joseph@heenan.me.uk>
+#                 Frédéric Buclin <LpSolit@gmail.com>
 
 
 # This is a script suitable for running once a day from a cron job.  It 
@@ -33,6 +34,7 @@ use lib '.';
 use Bugzilla;
 use Bugzilla::Mailer;
 use Bugzilla::Util;
+use Bugzilla::User;
 
 # Whining is disabled if whinedays is zero
 exit unless Bugzilla->params->{'whinedays'} >= 1;
@@ -68,9 +70,10 @@ foreach my $bug (@$slt_bugs) {
 
 
 foreach my $email (sort (keys %bugs)) {
-    my $vars = {
-        'email' => $email
-    };
+    my $user = new Bugzilla::User({name => $email});
+    return if $user->email_disabled;
+
+    my $vars = {'email' => $email};
 
     my @bugs = ();
     foreach my $i (@{$bugs{$email}}) {