Displaying 1 result from an estimated 1 matches for "is_good_pam".
2005 Sep 24
0
question regarding Perl + PAM + Winbindd
...ever, when I use the Perl script (Authen::SimplePam package and calling
the service foobar), the winbind log shows that the user is authenticated
only using Plain-text. Why not challenge-response?
******************************************
package FOO::PAM;
use Authen::SimplePam;
use strict;
sub is_good_pam
{
my ($user, $pass) = @_;
my $service = "foobar";
my $authn = new Authen::SimplePam();
if ($authn->auth_user($user, $pass, $service) eq 1) {
debug("success, returning 1");
return 1;
}
else {
debug("failure, returning 0 with user=$user and pass=$pass");
return 0;
}...