Show checkLOGIN.pl syntax highlighted
## grab form parameters and saved cookies
use CGI ":all";
use PHP::Session;
$GV->{SessCookieName} = "PHPSESSID";
$GV->{SessLoginParam} = "PlantGDBlogin";
($cgi_paramHR->{USERid},$cgi_paramHR->{USERfname},$cgi_paramHR->{maintain}) = (getUserId(),"",0);
# copied from UCA/fuctions.pl
sub getUserId{
my @sessionCookie = cookie($GV->{SessCookieName}); # reads session id from cookie and accesses php session variables
my $id = $sessionCookie[0];
if (defined($id) && ($id ne "")){
my $session = PHP::Session->new($id, { create => 1 });
if ($session->is_registered($GV->{SessLoginParam})){
my $USERid = $session->get($GV->{SessLoginParam});
return $USERid;
}else{
$session->destroy;
return;
}
}
return;
}
See more files for this project here