gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

adding LDAP auth. 

Introduce a new Perl dependency Net:LDAP
This commit is contained in:
tipaul 2004-03-04 16:49:09 +00:00
parent b5113b8e5b
commit 7d08d249a0
1 changed files with 36 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
C4/Auth.pm
View File

@ -28,6 +28,8 @@ use C4::Context;
use C4::Output; # to get the template
use C4::Interface::CGI::Output;
use C4::Circulation::Circ2; # getpatroninformation
use Net::LDAP;
use Net::LDAP qw(:all);
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
@ -45,7 +47,7 @@ C4::Auth - Authenticates Koha users
my $query = new CGI;
my ($template, $borrowernumber, $cookie)
my ($template, $borrowernumber, $cookie)
= get_template_and_user({template_name => "opac-main.tmpl",
query => $query,
type => "opac",
@ -177,7 +179,7 @@ user has authenticated, C<&checkauth> restarts the original script
(this time, C<&checkauth> returns).
The login page is provided using a HTML::Template, which is set in the
systempreferences table or at the top of this file. The variable C<$type>
systempreferences table or at the top of this file. The variable C<$type>
selects which template to use, either the opac or the intranet
authentification template.
@ -347,6 +349,36 @@ sub checkpw {
# tables passwd field
#
my ($dbh, $userid, $password) = @_;
# LDAP
my $sth=$dbh->prepare("select value from systempreferences where variable=?");
$sth->execute("ldapserver");
my $ldapserver = C4::Context->preferences('ldapserver');
if ($ldapserver) {
my $ldapinfos = C4::Context->preferences('ldapinfos');
my %bindargs;
my $nom = "uid=$userid, $ldapinfos";
my $db = Net::LDAP->new( $ldapserver );
$bindargs{dn}=$nom;
$bindargs{password}=$password;
my $res =$db->bind(%bindargs);
if($res->code) {
# auth refused
return 0;
} else {
#get the cardnumber
my $sth=$dbh->prepare("select cardnumber from borrowers where userid=?");
$sth->execute($userid);
if ($sth->rows) {
my $cardnumber = $sth->fetchrow;
#we have the cardnumber
return 1,$cardnumber;
}
if ($userid eq C4::Context->config('user') && $password eq C4::Context->config('pass')) {
# Koha superuser account
return 2;
}
}
# INTERNAL AUTH
my $sth=$dbh->prepare("select password,cardnumber from borrowers where userid=?");
$sth->execute($userid);
if ($sth->rows) {
@ -375,8 +407,6 @@ sub checkpw {
return 0;
}
sub getuserflags {
my $cardnumber=shift;
my $dbh=shift;
@ -405,8 +435,8 @@ sub haspermission {
if ($userid eq C4::Context->config('user')) {
# Super User Account from /etc/koha.conf
$flags->{'superlibrarian'}=1;
}
if ($userid eq 'demo' && C4::Context->config('demo')) {
}
if ($userid eq 'demo' && C4::Context->config('demo')) {
# Demo user that can do "anything" (demo=1 in /etc/koha.conf)
$flags->{'superlibrarian'}=1;
}