Re^2: Simple .forward email parse

Thank you both. It appears that Email::Filter has replaced Email::Audit. So I tried it and the following works! Thank you.

#!/usr/bin/perl

use Email::Filter;
my $mail = Email::Filter->new;
my $myFrom = $mail->from;
my $mySubject = $mail->subject;
exec "echo \"From: $myFrom \nSubject: $mySubject\" > temp.log";
[download]

Comment on Re^2: Simple .forward email parse Download Code

Replies are listed 'Best First'.
Re^3: Simple .forward email parse by MidLifeXis (Monsignor) on Sep 16, 2008 at 20:21 UTC
Unless Email::Filter is making the results taint-safe, you are passing unvalidated data directly to a shell. Big time security no-no. It is better to open the file from within perl, and write escaped data to the file. Depending on your mailer, you could also have a race condition on temp.log. Might be better to lock that file prior to writing to it. --MidLifeXis	[reply]
Re^4: Simple .forward email parse by docster (Novice) on Sep 17, 2008 at 15:08 UTC
Hey there. This was just an example of getting the address and subject and certainly nothing that I would use in production! ;) The goal is for people to email reports@domain.com and get a report back on their email account. All I really care for is the email address to reply to and all the rest of the email is ignored. After this I can generate a report for that email account and email it back to the address.	[reply]