Perl NIS authentication

[NASAdave]

So I am trying to get a script to authenticate against NIS - here is code that I am using to test:

#!/usr/bin/perl
    use Authen::Simple::NIS;
    use Net::NIS;

my $default_domain = Net::NIS::yp_get_default_domain();
my %nis_hash = ();
%nis_hash->{'domain'} = Net::NIS::yp_get_default_domain();
my $nis = Authen::Simple::NIS->new(%nis_hash);

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

It always returns 0 even though I know the user is valid in NIS, and doing a strace shows it using the correct NIS server and securenets looks good... - I swear I have checked everything - any ideas?

[VinsWorldcom]

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";