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 |
- |
|
|