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