Added a bugzilla.procmailrc as a sample procmailrc file

bugzilla_email_append.pl calls processmail.pl after writing out the changes.


git-svn-id: svn://10.0.0.236/trunk@63087 18797224-902f-48f8-a5cc-f745e15eee43
This commit is contained in:
seth%cs.brandeis.edu
2000-03-15 23:39:11 +00:00
parent fa8e95a9ef
commit df3d8f7f28
3 changed files with 37 additions and 2 deletions

View File

@@ -34,6 +34,9 @@ additional line to procmail :
fixes many problems.
See bugzilla.procmailrc for a sample procmailrc that works for me (SML) and
also deals with bugzilla_email_append.pl
Customation:
There are some values inside the script which need to be customized for your
@@ -74,4 +77,4 @@ There are two command line switches :
02/2000 - Klaas Freitag, SuSE GmbH <freitag@suse.de>
03/2000 - Seth M. Landsman <seth@cs.brandeis.edu>
bug_email.pl now lives out of bugzilla/contrib
added line about formail
added line about formail

View File

@@ -0,0 +1,30 @@
:0 fhw
| formail -I "From " -a "From "
BUGZILLA_HOME=/home/bugzilla/WEB/bugzilla/contrib
:0
* ^Subject: .*\[Bug .*\]
RESULT=|(cd $BUGZILLA_HOME && ./bugzilla_email_append.pl)
# Feed mail to stdin of bug_email.pl
:0 Ec
#* !^Subject: .*[Bug .*]
RESULT=|(cd $BUGZILLA_HOME && ./bug_email.pl )
# write result to a logfile
:0 c
|echo `date '+%d.%m.%y %H:%M: '` $RESULT >> $HOME/bug_email.log
:0 c
|echo "----------------------------------" >> $HOME/bug_email.log
:0 c
$HOME/bug_email.log
# Move mail to the inbox
:0
$HOME/Mail/INBOX

View File

@@ -18,6 +18,7 @@
# Contributor : Seth M. Landsman <seth@dworkin.net>
# 03/15/00 : Initial version by SML
# 03/15/00 : processmail gets called
# Email subject must be of format :
# .* Bug ### .*
@@ -26,7 +27,6 @@
# TODO :
# 1. better way to get the body text (I don't know what dump_entity() is
# actually doing
# 2. response emails
use diagnostics;
use strict;
@@ -115,6 +115,8 @@ my $Body = "Subject: " . $Subject . "\n" . $Comment;
my $long_desc_query = "INSERT INTO longdescs SET bug_id=$found_id, who=$userid, bug_when=NOW(), thetext=" . SqlQuote($Body) . ";";
SendSQL($long_desc_query);
system("cd .. ; ./processmail $found_id '$SenderShort'");
sub DealWithError {
my ($reason) = @_;
print $reason . "\n";