|
Lines 74-89
BEGIN {
Link Here
|
| 74 |
qw(shib_ok checkpw_shib logout_shib login_shib_url get_login_shib); |
74 |
qw(shib_ok checkpw_shib logout_shib login_shib_url get_login_shib); |
| 75 |
|
75 |
|
| 76 |
# Check for good config |
76 |
# Check for good config |
| 77 |
if ( shib_ok() ) { |
77 |
$shib = 0 unless shib_ok(); |
| 78 |
|
|
|
| 79 |
# Get shibboleth login attribute |
| 80 |
$shib_login = get_login_shib(); |
| 81 |
} |
| 82 |
|
| 83 |
# Bad config, disable shibboleth |
| 84 |
else { |
| 85 |
$shib = 0; |
| 86 |
} |
| 87 |
} |
78 |
} |
| 88 |
if ($cas) { |
79 |
if ($cas) { |
| 89 |
import C4::Auth_with_cas qw(check_api_auth_cas checkpw_cas login_cas logout_cas login_cas_url); |
80 |
import C4::Auth_with_cas qw(check_api_auth_cas checkpw_cas login_cas logout_cas login_cas_url); |
|
Lines 159-164
sub get_template_and_user {
Link Here
|
| 159 |
my $in = shift; |
150 |
my $in = shift; |
| 160 |
my ( $user, $cookie, $sessionID, $flags ); |
151 |
my ( $user, $cookie, $sessionID, $flags ); |
| 161 |
|
152 |
|
|
|
153 |
# Get shibboleth login attribute |
| 154 |
$shib_login = get_login_shib() if $shib; |
| 155 |
|
| 162 |
C4::Context->interface( $in->{type} ); |
156 |
C4::Context->interface( $in->{type} ); |
| 163 |
|
157 |
|
| 164 |
my $safe_chars = 'a-zA-Z0-9_\-\/'; |
158 |
my $safe_chars = 'a-zA-Z0-9_\-\/'; |
|
Lines 749-754
sub checkauth {
Link Here
|
| 749 |
my $query = shift; |
743 |
my $query = shift; |
| 750 |
$debug and warn "Checking Auth"; |
744 |
$debug and warn "Checking Auth"; |
| 751 |
|
745 |
|
|
|
746 |
# Get shibboleth login attribute |
| 747 |
$shib_login = get_login_shib() if $shib; |
| 748 |
|
| 752 |
# $authnotrequired will be set for scripts which will run without authentication |
749 |
# $authnotrequired will be set for scripts which will run without authentication |
| 753 |
my $authnotrequired = shift; |
750 |
my $authnotrequired = shift; |
| 754 |
my $flagsrequired = shift; |
751 |
my $flagsrequired = shift; |