Re^5: forwarding emails with perl??


Problems? Is your data what you think it is?
	PerlMonks

Re^5: forwarding emails with perl??

by gellyfish (Monsignor)

on Sep 20, 2006 at 21:30 UTC ( [id://574014]=note: print w/replies, xml )

Need Help??

in reply to Re^4: forwarding emails with perl??
in thread forwarding emails with perl??

I can't be bothered to test at the moment but I think your problem is the

@email = <>;
my $message = join "\n", @email;
[download]

where you could possibly better off doing something like

my $message = do { local $/; <> };
[download]

But the join you have is unnecessary as you haven't removed the line endings. A

my $message = join '', @email;
[download]

would be sufficient in your code.

/J\

Comment on Re^5: forwarding emails with perl?? Select or Download Code

Replies are listed 'Best First'.

Re^6: forwarding emails with perl??
by bfdi533 (Friar) on Sep 21, 2006 at 16:34 UTC

The my $message = join '', @email; worked perfectly. Thanks.

Now I have other issues about relay being denied because I am trying to keep the originator email address (from header) in place so as to make it a bounce and I cannot relay for addresses outside of my domain. But, that is a problem that I need to fix locally somehow, I guess.

Still, if there were a better way to do this without having to open relay up ...

[reply]
[d/l]

In Section Seekers of Perl Wisdom