Lines 58-70
BEGIN {
Link Here
|
58 |
$shib = C4::Context->config('useshibboleth') || 0; |
58 |
$shib = C4::Context->config('useshibboleth') || 0; |
59 |
$caslogout = C4::Context->preference('casLogout'); |
59 |
$caslogout = C4::Context->preference('casLogout'); |
60 |
require C4::Auth_with_cas; # no import |
60 |
require C4::Auth_with_cas; # no import |
61 |
require C4::Auth_with_Shibboleth; |
61 |
require C4::Auth_with_shibboleth; |
62 |
if ($ldap) { |
62 |
if ($ldap) { |
63 |
require C4::Auth_with_ldap; |
63 |
require C4::Auth_with_ldap; |
64 |
import C4::Auth_with_ldap qw(checkpw_ldap); |
64 |
import C4::Auth_with_ldap qw(checkpw_ldap); |
65 |
} |
65 |
} |
66 |
if ($shib) { |
66 |
if ($shib) { |
67 |
import C4::Auth_with_Shibboleth |
67 |
import C4::Auth_with_shibboleth |
68 |
qw(checkpw_shib logout_shib login_shib_url get_login_shib); |
68 |
qw(checkpw_shib logout_shib login_shib_url get_login_shib); |
69 |
|
69 |
|
70 |
# Get shibboleth login attribute |
70 |
# Get shibboleth login attribute |
Lines 1624-1630
sub checkpw {
Link Here
|
1624 |
|
1624 |
|
1625 |
# Then, we check if it matches a valid koha user |
1625 |
# Then, we check if it matches a valid koha user |
1626 |
if ($shib_login) { |
1626 |
if ($shib_login) { |
1627 |
my ( $retval, $retcard, $retuserid ) = C4::Auth_with_Shibboleth::checkpw_shib( $dbh, $shib_login ); # EXTERNAL AUTH |
1627 |
my ( $retval, $retcard, $retuserid ) = C4::Auth_with_shibboleth::checkpw_shib( $dbh, $shib_login ); # EXTERNAL AUTH |
1628 |
($retval) and return ( $retval, $retcard, $retuserid ); |
1628 |
($retval) and return ( $retval, $retcard, $retuserid ); |
1629 |
return 0; |
1629 |
return 0; |
1630 |
} |
1630 |
} |