diff options
Diffstat (limited to 'whineatnews.pl')
-rwxr-xr-x | whineatnews.pl | 26 |
1 files changed, 13 insertions, 13 deletions
diff --git a/whineatnews.pl b/whineatnews.pl index 660cc617f..2113bb819 100755 --- a/whineatnews.pl +++ b/whineatnews.pl @@ -47,28 +47,28 @@ 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} = []; + my ($id, $desc, $login) = @$bug; + if (!defined $bugs{$login}) { + $bugs{$login} = []; } - if (!defined $desc{$email}) { - $desc{$email} = []; + if (!defined $desc{$login}) { + $desc{$login} = []; } - push @{$bugs{$email}}, $id; - push @{$desc{$email}}, $desc; + push @{$bugs{$login}}, $id; + push @{$desc{$login}}, $desc; } -foreach my $email (sort (keys %bugs)) { - my $user = new Bugzilla::User({name => $email}); +foreach my $login (sort (keys %bugs)) { + my $user = new Bugzilla::User({name => $login}); next if $user->email_disabled; - my $vars = {'email' => $email}; + my $vars = {'email' => $user->email}; my @bugs = (); - foreach my $i (@{$bugs{$email}}) { + foreach my $i (@{$bugs{$login}}) { my $bug = {}; - $bug->{'summary'} = shift(@{$desc{$email}}); + $bug->{'summary'} = shift(@{$desc{$login}}); $bug->{'id'} = $i; push @bugs, $bug; } @@ -81,5 +81,5 @@ foreach my $email (sort (keys %bugs)) { MessageToMTA($msg); - say "$email " . join(" ", @{$bugs{$email}}); + say $user->email . " " . join(" ", @{$bugs{$login}}); } |