RE: [Declude.JunkMail] Perl Script Spamheaders
Title: Message
John, I'm
thinking that you're not qualifying the right hand side of the message-id
variable as text.
Let me put that
another way: why are you not putting quotes around the parts that are text, and
why are you only escaping the @ sign and not the hyphen or the GT and LT
signs?
What happens if
you change the line, on a trial basis, to:
Message-ID = '[EMAIL PROTECTED]',
(I don't know if
any of the text inside the quotes actually needs to be escaped, but it seems
worth mentioning.)
Andrew
8)
-Original Message-From: John Olden
[mailto:[EMAIL PROTECTED] Sent: Wednesday, April 28,
2004 7:53 AMTo: [EMAIL PROTECTED]Subject:
[Declude.JunkMail] Perl Script Spamheaders
Any Perl savy people out there using the Mime::Lite module
in any of their scripts figure out how to generate valid Message-IDs in mail
sent from online forms?
I'm trying to get our forms to pass the "Spamheaders" test
and this is a sticking point. I cannot find any information online on
implementation. The Cpan manuals just list "message-id" once and it's in a
list of items.
I've tried the following code but all I getis the
automatically generated Imail message-id:
===
sub smtp_mail {MIME::Lite-send('smtp',
"mail.mydomain.com"); $idnum = time(); $randnum = rand();
my $msg = MIME::Lite-new(
From =
$def_from,
To =
$def_to,
Cc = $def_cc,
Subject =
$def_subject, Message-ID
=
[EMAIL PROTECTED],
Type = 'multipart/related'
);
$msg-attach(
Type = 'text/html',
Data ="" qq|
$TG{'MessageBody'}|
);
$msg-attach(
Type
= 'text',
Path = $EmailTempFile,
);
$msg-send or die ("Error sending e-mail:
$!");}
===
John Olden -
Systems AdministratorChampaign Park
District
Re: [Declude.JunkMail] Perl Script Spamheaders
why are you not putting quotes around the parts that are text, and why are you only escaping the @ sign and not the hyphen or the GT and LT signs? Good question. I copied part of it from someone else's source and didn't pay attention to that. What happens if you change the line, on a trial basis, to: Message-ID = '[EMAIL PROTECTED]', The problem is still there. The message header has: Message-Id: [EMAIL PROTECTED] X-RBL-Warning: SPAMHEADERS: This E-mail has headers consistent with spam [421e]. I even tried changing your example to something more inline with the auto-generated one where the date and time were at the beginning. John Olden - Systems Administrator Champaign Park District --- [This E-mail was scanned for viruses by Declude Virus (http://www.declude.com)] --- This E-mail came from the Declude.JunkMail mailing list. To unsubscribe, just send an E-mail to [EMAIL PROTECTED], and type unsubscribe Declude.JunkMail. The archives can be found at http://www.mail-archive.com.
Re: [Declude.JunkMail] Perl Script Spamheaders
John Olden wrote:
Any Perl savy people out there using the Mime::Lite module in any of
their scripts figure out how to generate valid Message-IDs in mail
sent from online forms?
I'm trying to get our forms to pass the Spamheaders test and this is
a sticking point. I cannot find any information online on
implementation. The Cpan manuals just list message-id once and it's
in a list of items.
I've tried the following code but all I get is the automatically
generated Imail message-id:
===
sub smtp_mail {
MIME::Lite-send('smtp', mail.mydomain.com);
$idnum = time();
$randnum = rand();
my $msg = MIME::Lite-new(
From= $def_from,
To = $def_to,
Cc = $def_cc,
Subject = $def_subject,
Message-ID = [EMAIL PROTECTED],
Type= 'multipart/related'
);
$msg-attach(
Type = 'text/html',
Data = qq|
$TG{'MessageBody'}|
);
$msg-attach(
Type = 'text',
Path = $EmailTempFile,
);
$msg-send or die (Error sending e-mail: $!);
}
===
John Olden - Systems Administrator
Champaign Park District
Like Andrew Colbeck said, the right hand side of Message-ID is a bad
value. If you don't use double-quotes around that, then perl would be
evaluating that as a filehandle, and either spitting out errors ( if you
have strict and warnings turned on ) or returning undef, which is why
I'm assuming Imail is doing it for you. That's my best guess. HTH.
Ryan
---
[This E-mail was scanned for viruses by Declude Virus (http://www.declude.com)]
---
This E-mail came from the Declude.JunkMail mailing list. To
unsubscribe, just send an E-mail to [EMAIL PROTECTED], and
type unsubscribe Declude.JunkMail. The archives can be found
at http://www.mail-archive.com.
