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