persistentperl-users

Re: [Persistentperl-users] RE: [Speedycgi-users] Help with STDOUT

[Sam H. <sa...@da...>]

You should be able to do email filtering with the current implementation.
Just read from STDIN.


 > ah, ignore my other post.  it looks like it's impossible at this point.   it would be cool if perperl could act like perl and suidperl in this case... it would speed up my email processing tremendously because i would have no overhead for the perl invocation or establishing a DBI connection on each email for logging.   
 > 
 > i'll keep an eye out for future releases.. i hope it is something you will consider. 

RE: [Persistentperl-users] RE: [Speedycgi-users] Help with STDOUT

[Dallas E. <da...@nm...>]

> -----Original Message-----
> From: Sam Horrocks [mailto:sa...@da...]
> Sent: Thursday, March 13, 2003 3:22 PM
> To: Dallas Engelken
> Cc: per...@li...;
> spe...@li...
> Subject: Re: [Persistentperl-users] RE: [Speedycgi-users] Help with
> STDOUT=20
>=20
>=20
> You should be able to do email filtering with the current=20
> implementation.
> Just read from STDIN.
>=20

Here is the problem...

SYNOPSIS
       qmail-queue

DESCRIPTION
       qmail-queue  reads a mail message from descriptor 0.  It then =
reads envelope information from descriptor 1.  It
       places the message into the outgoing queue for future delivery by =
qmail-send.

qmail-queue is what I am replacing with my own custom script.  =
qmail-queue is written in C, and can read descriptor 0 (the message) =
from qmail-smtpd, and read descriptor 1 (the envelope) from qmail-smtpd. =
  A script written in perl can read both descriptors also, but once I =
try to write the script in perperl, it wont work because it cannot read =
descriptor 1, and I cant get everything to pass out of qmail-smtpd on =
descriptor 0 without a major rewrite of the qmail-smtpd code.

Thanks,
Dallas

Re: [Persistentperl-users] RE: [Speedycgi-users] Help with STDOUT

[Sam H. <sa...@da...>]

How about putting a frontend in front of your script like this:

    (sed "s/^/MAIL/"; sed "s/^/ENVELOPE/" 0<&1) | yourscript.pl

Then in yourscript.pl do this:

    while (<STDIN>) {
	s/^(MAIL|ENVELOPE)//;
	if ($1 eq 'MAIL') {
	    # $_ is a line from the mail message
	}
	else {
	    # $_ is a line from the envelope
	}
    }

 > Here is the problem...
 > 
 > SYNOPSIS
 >        qmail-queue
 > 
 > DESCRIPTION
 >        qmail-queue  reads a mail message from descriptor 0.  It then reads envelope information from descriptor 1.  It
 >        places the message into the outgoing queue for future delivery by qmail-send.
 > 
 > qmail-queue is what I am replacing with my own custom script.  qmail-queue is written in C, and can read descriptor 0 (the message) from qmail-smtpd, and read descriptor 1 (the envelope) from qmail-smtpd.   A script written in perl can read both descriptors also, but once I try to write the script in perperl, it wont work because it cannot read descriptor 1, and I cant get everything to pass out of qmail-smtpd on descriptor 0 without a major rewrite of the qmail-smtpd code.
 > 
 > Thanks,
 > Dallas
 > 
 > 
 > -------------------------------------------------------
 > This SF.net email is sponsored by:Crypto Challenge is now open! 
 > Get cracking and register here for some mind boggling fun and 
 > the chance of winning an Apple iPod:
 > http://ads.sourceforge.net/cgi-bin/redirect.pl?thaw0031en
 > _______________________________________________
 > Persistentperl-users mailing list
 > Per...@li...
 > https://lists.sourceforge.net/lists/listinfo/persistentperl-users
 >