1 files changed, 34 insertions, 33 deletions

diff --git a/whineatnews.pl b/whineatnews.pl
index 6f8643855..e79d3cf19 100755
--- a/whineatnews.pl
+++ b/whineatnews.pl
@@ -28,58 +28,59 @@ use Bugzilla::User;
 # Whining is disabled if whinedays is zero
 exit unless Bugzilla->params->{'whinedays'} >= 1;
 
-my $dbh = Bugzilla->dbh;
+my $dbh   = Bugzilla->dbh;
 my $query = q{SELECT bug_id, short_desc, login_name
                 FROM bugs
           INNER JOIN profiles
                   ON userid = assigned_to
                WHERE bug_status IN (?,?,?)
                  AND disable_mail = 0
-                 AND } . $dbh->sql_to_days('NOW()') . " - " .
-                       $dbh->sql_to_days('delta_ts') . " > " .
-                       Bugzilla->params->{'whinedays'} .
-          " ORDER BY bug_id";
+                 AND }
+  . $dbh->sql_to_days('NOW()') . " - "
+  . $dbh->sql_to_days('delta_ts') . " > "
+  . Bugzilla->params->{'whinedays'}
+  . " ORDER BY bug_id";
 
 my %bugs;
 my %desc;
 
-my $slt_bugs = $dbh->selectall_arrayref($query, undef, 'CONFIRMED', 'NEW',
-                                                       'REOPENED');
+my $slt_bugs
+  = $dbh->selectall_arrayref($query, undef, 'CONFIRMED', 'NEW', 'REOPENED');
 
 foreach my $bug (@$slt_bugs) {
-    my ($id, $desc, $email) = @$bug;
-    if (!defined $bugs{$email}) {
-        $bugs{$email} = [];
-    }
-    if (!defined $desc{$email}) {
-        $desc{$email} = [];
-    }
-    push @{$bugs{$email}}, $id;
-    push @{$desc{$email}}, $desc;
+  my ($id, $desc, $email) = @$bug;
+  if (!defined $bugs{$email}) {
+    $bugs{$email} = [];
+  }
+  if (!defined $desc{$email}) {
+    $desc{$email} = [];
+  }
+  push @{$bugs{$email}}, $id;
+  push @{$desc{$email}}, $desc;
 }
 
 
 foreach my $email (sort (keys %bugs)) {
-    my $user = new Bugzilla::User({name => $email});
-    next if $user->email_disabled;
+  my $user = new Bugzilla::User({name => $email});
+  next if $user->email_disabled;
 
-    my $vars = {'email' => $email};
+  my $vars = {'email' => $email};
 
-    my @bugs = ();
-    foreach my $i (@{$bugs{$email}}) {
-        my $bug = {};
-        $bug->{'summary'} = shift(@{$desc{$email}});
-        $bug->{'id'} = $i;
-        push @bugs, $bug;
-    }
-    $vars->{'bugs'} = \@bugs;
+  my @bugs = ();
+  foreach my $i (@{$bugs{$email}}) {
+    my $bug = {};
+    $bug->{'summary'} = shift(@{$desc{$email}});
+    $bug->{'id'}      = $i;
+    push @bugs, $bug;
+  }
+  $vars->{'bugs'} = \@bugs;
 
-    my $msg;
-    my $template = Bugzilla->template_inner($user->setting('lang'));
-    $template->process("email/whine.txt.tmpl", $vars, \$msg)
-      or die($template->error());
+  my $msg;
+  my $template = Bugzilla->template_inner($user->setting('lang'));
+  $template->process("email/whine.txt.tmpl", $vars, \$msg)
+    or die($template->error());
 
-    MessageToMTA($msg);
+  MessageToMTA($msg);
 
-    print "$email      " . join(" ", @{$bugs{$email}}) . "\n";
+  print "$email      " . join(" ", @{$bugs{$email}}) . "\n";
 }