Email Forwarding

Am sending an email to an Address on a linux server in the aliases file, it then runs script. Works great, but I need to include the message not the "test" that I send to that email. Basically, I need a script to forward a email message but change the From and Subject.

#!/usr/bin/perl -w
print "Content-type: text/html\n\n";
#$title='Perl Mail demo';
$to='newaddress@mydomain.com';
$from= 'newfrom@anotherdomain.com';
$subject='newsubject';
$body='This is a test';

open(MAIL, "|/usr/sbin/sendmail -t");

## Mail Header
print MAIL "To: $to\n";
print MAIL "From: $from\n";
print MAIL "Subject: $subject\n\n";
## Mail Body
print MAIL "$body\n";
$body = substr($body,0,500);
close(MAIL);

print "<html><head><title>$title</title></head>\n<body>\n\n";

## HTML content sent, let use know we sent an email
print "<h1>$title</h1><p>A message has been sent from $from to
$to</p></body></html>";

[download]

Thanks for the Help

Comment on Email Forwarding Download Code
Re: Email Forwarding by aitap (Chaplain) on Feb 05, 2013 at 18:24 UTC
Where do you want to get the message from, system mailbox? Try reading `/var/mail/$username` (and parsing it with help from some MIME-parsing/creating module, like Email::MIME or MIME::Tools). Sorry if my advice was wrong.	[reply] [d/l]
Re^2: Email Forwarding by Anonymous Monk on Feb 05, 2013 at 18:32 UTC
The email would come from "replaceme@thedomain.com" w/ Subject: "this is the subject to replace" Which "replaceme" is in the Aliase file as: replaceme: "\|/msg/forward.pl" When an email is received, the perl script is ran, but I need it to include the Message that is sent.	[reply]
Re^3: Email Forwarding by aitap (Chaplain) on Feb 05, 2013 at 18:42 UTC
Then use one of the modules specified to read and parse the text going from STDIN. You can read from STDIN filehandle using diamond operator (<>), like this: `my $whole_message = do { local $/; <STDIN> };` (see also $/ for more information on slurping filehandle contents). Sorry if my advice was wrong.	[reply] [d/l]


"be consistent"
	PerlMonks

Email Forwarding

The best material for plates (tableware) is: