Re: [AMaViS-user] amavis-perl-11 and net::smtp performance ?

[Lars H. <lhe...@us...>]

Jarno Huuskonen writes:
[...]
>    while (<$fh>) {
>        next if ($seen_xheader == 0 && m/^$X_HEADER_TAG:/o);
>        if ($seen_xheader == 0 && m/\A\r?\n\Z/) {
>            $SMTP_HANDLE->datasend("$X_HEADER_TAG" . ": "
> . "$X_HEADER_LINE\n")\
> ;
>            $seen_xheader = 1;
>        }
>        $SMTP_HANDLE->datasend($_);
>    }
> 
> I did some quick test and changed the loop to:
>     while ((read($fh, $bigbuf, 32768) > 0)) {
>         $SMTP_HANDLE->datasend($bigbuf);
>     }
 
 I could change the code along the lines of fh_copy(), which uses sysread
 and syswrite, but the (big) problem is, how do I add the X-Header then?

 Modifying $TEMPDIR/email.txt directly is out of the question.