Jeff Platter wrote:
[snip]
How does commandByEmail know to ignore this? Or doesnÂ’t it? And if not,
what can I do to prevent this from being a problem in the future?
Thanks,
-Jeff
[snip]
CommandByEmail has a rather simpleminded approach to parsing. Any 2
words starting at the beginning of a line separated by a colon are
treated as a command.
To deal with I use the attached perl script to filter out colons to
mail coming to rt queues exposed to the outside world. This could
easily be modified to add exceptions, other munging of the message, etc.
--
Robert G. Werner (Network Systems Administrator)
[EMAIL PROTECTED]
559.244.3734
#!/usr/local/bin/perl
#===============================================================================
#
# FILE: colon_filter.pl
#
# USAGE: ./colon_filter.pl
#
# DESCRIPTION: remove unnecessary colons from incoming email so that rt
# CommandByEmail will not choke. Check the message for spaminess too.
#
# OPTIONS: ---
# REQUIREMENTS: Mail::Audit and Mail::SpamAssassin
# NOTES: ---
# AUTHOR: Robert G. Werner, <[EMAIL PROTECTED]>
# COMPANY: US Script, Inc.
# VERSION: 1.0
# CREATED: 03/02/2007 02:42:03 PM PST
# UPDATED: $Date: 2007/03/05 19:01:56 $
# REVISION: $Revision: 1.2 $
#===============================================================================
use warnings;
use strict;
use Mail::Audit;
my $mail = Mail::Audit->new( emergency => '/tmp/colon_filter/' );
my $spam_score = $mail->get_header("X-Spam-Score");
# Only process mail with less than 5 on the spam score and the word
# "some_phrase" in the subject.
if ( $spam_score < 5 && $mail->subject =~ /.*some_phrase.*/i )
{
&munge_body;
}
else
{
# Doesn't match any of our criteria so ...
$mail->ignore();
}
# Remove the colon that confuses the CommandByEmail system and send
# the incoming mail on.
sub munge_body {
# contains the munged body
my @newbody;
# Deal with the mail differently if it's MIME encoded or not
if ( $mail->is_mime )
{
foreach my $part ( $mail->parts() )
{
if ( $part->head->mime_type !~ qr{^(text/plain|message/rfc822)$}i )
{
next;
}
else
{
my @lines = $part->bodyhandle->as_lines();
foreach ( @lines )
{
s/^(\w+):(.*)$/${1}${2}/;
push( @newbody, $_ );
}
my $mbody = MIME::Body::Scalar->new( [EMAIL PROTECTED] );
$part->bodyhandle( $mbody );
}
}
}
else
{
my $body = $mail->body;
foreach ( @{$body} )
{
s/^(\w+):(.*)$/${1}${2}/;
push( @newbody, $_)
}
$mail->body( [EMAIL PROTECTED] );
}
# Allow the script to handle -comment addresses too -RGW
my ($to) = $mail->to() =~ /^(.*)[EMAIL PROTECTED]/;
$mail->resend( $to . '@rt.example.com' );
}
_______________________________________________
http://lists.bestpractical.com/cgi-bin/mailman/listinfo/rt-users
Community help: http://wiki.bestpractical.com
Commercial support: [EMAIL PROTECTED]
Discover RT's hidden secrets with RT Essentials from O'Reilly Media.
Buy a copy at http://rtbook.bestpractical.com
