|
Lines 814-820
sub checkauth {
Link Here
|
| 814 |
_version_check( $type, $query ); |
814 |
_version_check( $type, $query ); |
| 815 |
|
815 |
|
| 816 |
# state variables |
816 |
# state variables |
| 817 |
my $loggedin = 0; |
|
|
| 818 |
my $auth_state = 'failed'; |
817 |
my $auth_state = 'failed'; |
| 819 |
my %info; |
818 |
my %info; |
| 820 |
my ( $userid, $cookie, $sessionID, $flags ); |
819 |
my ( $userid, $cookie, $sessionID, $flags ); |
|
Lines 854-860
sub checkauth {
Link Here
|
| 854 |
-secure => ( C4::Context->https_enabled() ? 1 : 0 ), |
853 |
-secure => ( C4::Context->https_enabled() ? 1 : 0 ), |
| 855 |
-sameSite => 'Lax', |
854 |
-sameSite => 'Lax', |
| 856 |
)); |
855 |
)); |
| 857 |
$loggedin = 1; |
|
|
| 858 |
} |
856 |
} |
| 859 |
elsif ( $emailaddress) { |
857 |
elsif ( $emailaddress) { |
| 860 |
# the Google OpenID Connect passes an email address |
858 |
# the Google OpenID Connect passes an email address |
|
Lines 1200-1206
sub checkauth {
Link Here
|
| 1200 |
my $domain = $branches->{$branchcode}->{'branchip'}; |
1198 |
my $domain = $branches->{$branchcode}->{'branchip'}; |
| 1201 |
$domain =~ s|\.\*||g; |
1199 |
$domain =~ s|\.\*||g; |
| 1202 |
if ( $ip !~ /^$domain/ ) { |
1200 |
if ( $ip !~ /^$domain/ ) { |
| 1203 |
$loggedin = 0; |
|
|
| 1204 |
$cookie = $cookie_mgr->replace_in_list( $cookie, $query->cookie( |
1201 |
$cookie = $cookie_mgr->replace_in_list( $cookie, $query->cookie( |
| 1205 |
-name => 'CGISESSID', |
1202 |
-name => 'CGISESSID', |
| 1206 |
-value => '', |
1203 |
-value => '', |
| 1207 |
- |
|
|