OSEC

Neohapsis is currently accepting applications for employment. For more information, please visit our website www.neohapsis.com or email hr@neohapsis.com
 
Subject: Re: Content filtering 101
From: Bennett Todd (betrahul.net)
Date: Thu Jun 08 2000 - 18:32:15 CDT

2000-06-07-20:33:30 Liviu Daia:
> : syntax error at ./tailbiter line 106, near ") for "
> : Global symbol "smtp" requires explicit package name at ./tailbiter line 107.
> : Global symbol "msg" requires explicit package name at ./tailbiter line 110.
> : syntax error at ./tailbiter line 111, near "} else"
> : Execution of ./tailbiter aborted due to compilation errors.

Sorry, it's been so long since I touched a perl that old, I forgot
another limitation it has. I'm rather fond of the

        expression for conditional;

loop statement that got introduced in 5.005. The line that was
bombing was

        $smtp->to($_) or DIE($msg, "$0: RCPT TO $_: $!\n") for {$msg->{TO}};

and there are two like that, one in either branch of the if ($eek)
conditional. Recode each to

        for ({$msg->{TO}}) {
                $smtp->to($_) or DIE($msg, "$0: RCPT TO $_: $!\n");
        }

and the old perl should swallow it.

-Bennett

  • application/pgp-signature attachment: stored