my ( $userid, $cookie, $sessionID, $flags, $barshelves, $pubshelves );
my $logout = $query->param('logout.x');
- if ( $userid = $ENV{'REMOTE_USER'} ) {
+ $userid = $ENV{'REMOTE_USER'};
+ if ( $userid && $userid ne '_everyone' ) { # anonymous SAML user
# Using Basic Authentication, no cookies required
$cookie = $query->cookie(
-name => 'CGISESSID',
-expires => ''
);
$loggedin = 1;
+ warn "# userid: $userid";
}
elsif ( $sessionID = $query->cookie("CGISESSID")) { # assignment, not comparison
my $session = get_session($sessionID);