summaryrefslogtreecommitdiffstats
path: root/contrib/sendunsentbugmail.pl
diff options
context:
space:
mode:
authorgerv%gerv.net <>2005-03-30 07:42:53 +0200
committergerv%gerv.net <>2005-03-30 07:42:53 +0200
commit882dcc873146d665f2d1257b89e588ae6e6356f0 (patch)
treeceb5ac9f6378961fbc009216e09447e45b8886e0 /contrib/sendunsentbugmail.pl
parent13e55e5e4b0338848274ebdf258c8e60d826e7fe (diff)
downloadbugzilla-882dcc873146d665f2d1257b89e588ae6e6356f0.tar.gz
bugzilla-882dcc873146d665f2d1257b89e588ae6e6356f0.tar.xz
Bug 73665 - migrate email preferences to their own table, and rearchitect email internals. Patch by gerv; r=jake, a=justdave.
Diffstat (limited to 'contrib/sendunsentbugmail.pl')
-rw-r--r--contrib/sendunsentbugmail.pl19
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";
}