Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask
 
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 (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 ...

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 imbibing at the Monastery: (5)
As of 2015-07-04 01:41 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (57 votes), past polls