Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked
 
PerlMonks  

Re^5: forwarding emails with perl??

by gellyfish (Monsignor)
on Sep 20, 2006 at 21:30 UTC ( #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;
where you could possibly better off doing something like
my $message = do { local $/; <> };
But the join you have is unnecessary as you haven't removed the line endings. A
my $message = join '', @email;
would be sufficient in your code.

/J\


Comment on Re^5: forwarding emails with perl??
Select or Download Code
Re^6: forwarding emails with perl??
by bfdi533 (Pilgrim) 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 ...

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://574014]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others chanting in the Monastery: (14)
As of 2014-08-27 13:20 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best computer themed movie is:











    Results (238 votes), past polls