Re: [exim] redirecting email to perl script

Αρχική Σελίδα
Delete this message
Reply to this message
Συντάκτης: Drav Sloan
Ημερομηνία:  
Προς: peter
Υ/ο: Exim Users Mailing List
Αντικείμενο: Re: [exim] redirecting email to perl script
Peter Bowyer wrote:
> > $email = <STDIN>;
> >
> > open (LOGGING, ">>/var/log/dnsbl_log");
> > print LOGGING "$email\n";
> > close LOGGING;
> > ---end---
> >
> > i only get this:
> > From root@??? Fri Apr 22 13:00:35
> > 2005
> >
> > so how to get the email with it's full header?
>
> You need to brush up on your perl. The code you wrote grabs the first
> line from stdin - hence your results. You need a loop to process the
> whole stream.
>
> open (LOGGING, ">>/var/log/dnsbl_log");
> while (<STDIN>) {
> print LOGGING "$_\n";


Why have a loop?

{ local($/) = undef; $email = <STDIN>; }

(note the { }'s are important to change the scope of $/)

D.