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