Perl NIS authentication

NASAdave has asked for the wisdom of the Perl Monks concerning the following question:

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" ;
[download]

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?

Comment on Perl NIS authentication Download Code

Replies are listed 'Best First'.
Re: Perl NIS authentication by VinsWorldcom (Prior) on Feb 20, 2013 at 19:59 UTC
Try: `use strict; use warnings;` [download] 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";` [download]	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re: Perl NIS authentication
by VinsWorldcom (Prior) on Feb 20, 2013 at 19:59 UTC

Try:

use strict;
use warnings;
[download]

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";
[download]

[reply]
[d/l]
[select]