> I would, however, suggest changing the code as following:
Of course i managed to introduce a bug into that code. So this one should
work:
my $command = $self->qp->config("smtpauth-checkpassword")
or return (DECLINED);
my ($binary, $params) = $command =~ /^(\S+)(.*)$/;
return(DECLINED) if ( ! -x $binary );
open(CPW,"|$binary $params 3<&0");
Regards
Michael
--
It's an insane world, but i'm proud to be a part of it. -- Bill Hicks
