From 6f02293238aa90506150a4f7db68a74cd9cba0af Mon Sep 17 00:00:00 2001 From: "justdave%bugzilla.org" <> Date: Tue, 6 Jul 2004 04:54:00 +0000 Subject: Bug 239343: Contribution of sendbugmail.pl script, drop-in replacement for the no-longer-existing processmail for use by external scripts that used to use processmail's functionality. Contributed by Nick Barnes of Ravenbrook Ltd. a=justdave --- contrib/README | 10 +++++ contrib/sendbugmail.pl | 104 +++++++++++++++++++++++++++++++++++++++++++++++++ 2 files changed, 114 insertions(+) create mode 100644 contrib/sendbugmail.pl (limited to 'contrib') diff --git a/contrib/README b/contrib/README index 013cf421d..1c1c3e0f2 100644 --- a/contrib/README +++ b/contrib/README @@ -12,6 +12,16 @@ This directory includes: mysqld-watcher.pl -- This script can be installed as a frequent cron job to clean up stalled/dead queries. + sendbugmail.pl -- This script is a drop-in replacement for the + 'processmail' script which used to be shipped + with Bugzilla, but was replaced by the + Bugzilla/BugMail.pm Perl module. You can use + this script if you were previously calling + processmail from other scripts external to + Bugzilla. See the comments at the top of + the file for usage information. Contributed + by Nick Barnes of Ravenbrook Limited. + gnatsparse/ -- A Python script used to import a GNATS database into Bugzilla. diff --git a/contrib/sendbugmail.pl b/contrib/sendbugmail.pl new file mode 100644 index 000000000..2f30e2864 --- /dev/null +++ b/contrib/sendbugmail.pl @@ -0,0 +1,104 @@ +#!/usr/bin/perl -w +# +# sendbugmail.pl +# +# Nick Barnes, Ravenbrook Limited, 2004-04-01. +# +# $Id: sendbugmail.pl,v 1.1 2004/07/05 21:54:01 justdave%bugzilla.org Exp $ +# +# Bugzilla email script for Bugzilla 2.17.4 and later. Invoke this to send +# bugmail for a bug which has been changed directly in the database. +# This uses Bugzilla's own BugMail facility, and will email the +# users associated with the bug. Replaces the old "processmail" +# script. +# +# Usage: bugmail.pl bug_id user_email + +use lib qw(..); + +require "globals.pl"; +use Bugzilla::BugMail; + +sub usage { + print STDERR "Usage: $0 bug_id user_email\n"; + exit; +} + +if (($#ARGV < 1) || ($#ARGV > 2)) { + usage(); +} + +# Get the arguments. +my $bugnum = $ARGV[0]; +my $changer = $ARGV[1]; + +# Validate the bug number. +if (!($bugnum =~ /^(\d+)$/)) { + print STDERR "Bug number \"$bugnum\" not numeric.\n"; + usage(); +} + +SendSQL("SELECT bug_id FROM bugs WHERE bug_id = $bugnum"); + +if (!FetchOneColumn()) { + print STDERR "Bug number $bugnum does not exist.\n"; + usage(); +} + +# Validate the changer address. +my $match = Param('emailregexp'); +if ($changer !~ /$match/) { + print STDERR "Changer \"$changer\" doesn't match email regular expression.\n"; + usage(); +} +if(!DBname_to_id($changer)) { + print STDERR "\"$changer\" is not a login ID.\n"; + usage(); +} + +# Send the email. +my $outputref = Bugzilla::BugMail::Send($bugnum, {'changer' => $changer }); + +# Report the results. +my $sent = scalar(@{$outputref->{sent}}); +my $excluded = scalar(@{$outputref->{excluded}}); + +if ($sent) { + print "email sent to $sent recipients:\n"; +} else { + print "No email sent.\n"; +} + +foreach my $sent (@{$outputref->{sent}}) { + print " $sent\n"; +} + +if ($excluded) { + print "$excluded recipients excluded:\n"; +} else { + print "No recipients excluded.\n"; +} + +foreach my $excluded (@{$outputref->{excluded}}) { + print " $excluded\n"; +} + +# This document is copyright (C) 2004 Perforce Software, Inc. All rights +# reserved. +# +# Redistribution and use of this document in any form, with or without +# modification, is permitted provided that redistributions of this +# document retain the above copyright notice, this condition and the +# following disclaimer. +# +# THIS DOCUMENT IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS +# IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED +# TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A +# PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT +# HOLDERS AND CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, +# SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED +# TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR +# PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF +# LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING +# NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS +# DOCUMENT, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. -- cgit v1.2.3-24-g4f1b