Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much
 
PerlMonks  

Re: Re: Server wide spam stop with qmail

by Juerd (Abbot)
on Jan 04, 2003 at 09:23 UTC ( #224235=note: print w/replies, xml ) Need Help??


in reply to Re: Server wide spam stop with qmail
in thread Server wide spam stop with qmail

undef $/ my $body = <>;

E-Mail can be very large. Body includes attachments, so I prefer being slow over using a lot of memory.

- Yes, I reinvent wheels.
- Spam: Visit eurotraQ.

  • Comment on Re: Re: Server wide spam stop with qmail

Replies are listed 'Best First'.
Re^3: Server wide spam stop with qmail
by Aristotle (Chancellor) on Jan 04, 2003 at 13:01 UTC
    Ah, good point. In that case you might consider using, say, $/ = \32768; to read 32k chunks while printing the body - gets rid of the useless end-of-line scanning overhead.

    Makeshifts last the longest.

      you might consider using, say, $/ = \32768; to read 32k chunks while printing the body - gets rid of the useless end-of-line scanning overhead.

      Oh, that be a very good idea. *implements*

      Thanks!

      - Yes, I reinvent wheels.
      - Spam: Visit eurotraQ.
      

        When I ran the original code verbatim in my qfilter, the log reported: Not enough arguments for main::link at /usr/local/spam/redir line 34, near ""$maildir/tmp/$tph";" Any thoughts on my mistake?

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others rifling through the Monastery: (5)
As of 2020-04-01 15:32 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    The most amusing oxymoron is:
















    Results (17 votes). Check out past polls.

    Notices?