diff options
| author |   gerv%gerv.net <> | 2005-03-30 05:42:53 +0000 |
|---|---|---|
| committer | gerv%gerv.net <> | 2005-03-30 05:42:53 +0000 |
| commit | 882dcc873146d665f2d1257b89e588ae6e6356f0 (patch) | |
| tree | ceb5ac9f6378961fbc009216e09447e45b8886e0 /contrib | |
| parent | Bug 272321: action should default to edit in editproducts.cgi if a product is... (diff) | |
| download | bugzilla-882dcc873146d665f2d1257b89e588ae6e6356f0.tar.gz bugzilla-882dcc873146d665f2d1257b89e588ae6e6356f0.tar.bz2 bugzilla-882dcc873146d665f2d1257b89e588ae6e6356f0.zip | |
Bug 73665 - migrate email preferences to their own table, and rearchitect email internals. Patch by gerv; r=jake, a=justdave.
Diffstat (limited to 'contrib')
| -rw-r--r-- | contrib/sendunsentbugmail.pl | 19 |
1 files changed, 16 insertions, 3 deletions
diff --git a/contrib/sendunsentbugmail.pl b/contrib/sendunsentbugmail.pl index 9184e0be2..c82c0ae30 100644 --- a/contrib/sendunsentbugmail.pl +++ b/contrib/sendunsentbugmail.pl @@ -47,9 +47,22 @@ if (scalar(@list) > 0) { my $start_time = time; print "Sending mail for bug $bugid...\n"; my $outputref = Bugzilla::BugMail::Send($bugid); - my ($sent, $excluded) = (scalar(@{$outputref->{sent}}),scalar(@{$outputref->{excluded}})); - print "$sent mails sent, $excluded people excluded.\n"; - print "Took " . (time - $start_time) . " seconds.\n\n"; + if ($ARGV[0] && $ARGV[0] eq "--report") { + print "Mail sent to:\n"; + foreach (sort @{$outputref->{sent}}) { + print $_ . "\n"; + } + + print "Excluded:\n"; + foreach (sort @{$outputref->{excluded}}) { + print $_ . "\n"; + } + } + else { + my ($sent, $excluded) = (scalar(@{$outputref->{sent}}),scalar(@{$outputref->{excluded}})); + print "$sent mails sent, $excluded people excluded.\n"; + print "Took " . (time - $start_time) . " seconds.\n\n"; + } } print "Unsent mail has been sent.\n"; } |