Re: Perl NIS authentication

[VinsWorldcom]

in reply to Perl NIS authentication

Try:

use strict;
use warnings;

at the top of your code to see some warnings / errors with what you posted.

I don't have a NIS server to test against, but I'm willing to bet if your credentials are correct, the following (untested) may work:

#!/usr/bin/perl
use strict;
use warnings;

use Net::NIS;
use Authen::Simple::NIS;

my $default_domain = Net::NIS::yp_get_default_domain();
my $nis = Authen::Simple::NIS->new(domain => $default_domain);

if ($nis->authenticate("user", "testpass")) {
    print "Success\n"
}
print "done\n";