|
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 1621-1627
sub checkpw {
Link Here
|
| 1621 |
|
1621 |
|
| 1622 |
# Then, we check if it matches a valid koha user |
1622 |
# Then, we check if it matches a valid koha user |
| 1623 |
if ($shib_login) { |
1623 |
if ($shib_login) { |
| 1624 |
my ( $retval, $retcard, $retuserid ) = C4::Auth_with_Shibboleth::checkpw_shib( $dbh, $shib_login ); # EXTERNAL AUTH |
1624 |
my ( $retval, $retcard, $retuserid ) = C4::Auth_with_shibboleth::checkpw_shib( $dbh, $shib_login ); # EXTERNAL AUTH |
| 1625 |
($retval) and return ( $retval, $retcard, $retuserid ); |
1625 |
($retval) and return ( $retval, $retcard, $retuserid ); |
| 1626 |
return 0; |
1626 |
return 0; |
| 1627 |
} |
1627 |
} |