http://perlq.org/tinyldap/auth_ldap.html http://perlq.org/tinyldap/
./plugins/extra/auth_ldap works but only if I take out the "-T" in ./qpsmtpd
I guess forking and pipe like qmail-queue would work with -T?
our $LDAPCLIENT = "/usr/local/bin/ldapclient" ;
...............
my ( $x , $u , $d , $a ) = ( $LDAPCLIENT , $pw_name ,
$pw_domain , "userPassword" ) ;
my @ldaplines = ( grep { /userPassword/ } (
`$x 127.0.0.1 \"o\=q\" \"\([EMAIL PROTECTED])\" $a 2>/dev/null`
) ) if -x $x ;
if ( @ldaplines ) {
$ldaplines[0] =~ s/^.* (\w+)/$1/ ;
chomp $ldaplines[0] ;
$auth_pass = $ldaplines[0] ;
}-Bob Dodds
