|
|
|
| Perl-Sensitive Sunglasses | |
| PerlMonks |
Re^2: Perl NIS authenticationby tercel04 (Initiate) |
| on Jun 28, 2007 at 18:43 UTC ( [id://623963]=note: print w/replies, xml ) | Need Help?? |
|
I did not try that. But I got it to work this way use APR::Util(); @hashpasswd = split(":",chomp($yppasswd = `ypcat passwd | grep $user:`)); $ok = APR::Util::password_validate($passwd, $hashpasswd\1\); if($ok == 1) { ## Valid User }else { ## Invalid user } Thanks for the reply!
In Section
Seekers of Perl Wisdom
|
|
||||||||||||||||||||||