Lines 54-60
BEGIN {
Link Here
|
54 |
%EXPORT_TAGS = ( EditPermissions => [qw(get_all_subpermissions get_user_subpermissions)] ); |
54 |
%EXPORT_TAGS = ( EditPermissions => [qw(get_all_subpermissions get_user_subpermissions)] ); |
55 |
$ldap = C4::Context->config('useldapserver') || 0; |
55 |
$ldap = C4::Context->config('useldapserver') || 0; |
56 |
$cas = C4::Context->preference('casAuthentication'); |
56 |
$cas = C4::Context->preference('casAuthentication'); |
57 |
$shib = C4::Context->preference('shibbolethAuthentication'); |
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; |
Lines 805-811
sub checkauth {
Link Here
|
805 |
|| $userid |
805 |
|| $userid |
806 |
|| $shib |
806 |
|| $shib |
807 |
|| $pki_field ne 'None' |
807 |
|| $pki_field ne 'None' |
808 |
|| $persona ) |
808 |
|| $persona ) |
809 |
{ |
809 |
{ |
810 |
my $password = $query->param('password'); |
810 |
my $password = $query->param('password'); |
811 |
|
811 |
|
Lines 1063-1069
sub checkauth {
Link Here
|
1063 |
login => 1, |
1063 |
login => 1, |
1064 |
INPUTS => \@inputs, |
1064 |
INPUTS => \@inputs, |
1065 |
casAuthentication => C4::Context->preference("casAuthentication"), |
1065 |
casAuthentication => C4::Context->preference("casAuthentication"), |
1066 |
shibbolethAuthentication => C4::Context->preference("shibbolethAuthentication"), |
1066 |
shibbolethAuthentication => $shib, |
1067 |
suggestion => C4::Context->preference("suggestion"), |
1067 |
suggestion => C4::Context->preference("suggestion"), |
1068 |
virtualshelves => C4::Context->preference("virtualshelves"), |
1068 |
virtualshelves => C4::Context->preference("virtualshelves"), |
1069 |
LibraryName => "" . C4::Context->preference("LibraryName"), |
1069 |
LibraryName => "" . C4::Context->preference("LibraryName"), |
Lines 1581-1591
sub checkpw {
Link Here
|
1581 |
# (defined in the shibbolethLoginAttribute) tto contain the login of the |
1581 |
# (defined in the shibbolethLoginAttribute) tto contain the login of the |
1582 |
# shibboleth-authenticated user |
1582 |
# shibboleth-authenticated user |
1583 |
|
1583 |
|
1584 |
# Shibboleth attributes are mapped into http environmement variables, |
|
|
1585 |
# so we're getting the login of the user this way |
1586 |
my $attributename = C4::Context->preference('shibbolethLoginAttribute'); |
1587 |
my $attributevalue = $ENV{$attributename}; |
1588 |
|
1589 |
# Then, we check if it matches a valid koha user |
1584 |
# Then, we check if it matches a valid koha user |
1590 |
if ($shib_login) { |
1585 |
if ($shib_login) { |
1591 |
my ( $retval, $retcard, $retuserid ) = C4::Auth_with_Shibboleth::checkpw_shib( $dbh, $shib_login ); # EXTERNAL AUTH |
1586 |
my ( $retval, $retcard, $retuserid ) = C4::Auth_with_Shibboleth::checkpw_shib( $dbh, $shib_login ); # EXTERNAL AUTH |