oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

more session fixes.

Browse source
This commit is contained in:
Matthew Wilson 2006-01-18 06:26:40 +00:00
parent 8839c094c5
commit 8f12dae29c
4 changed files with 11 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lib/WebGUI/Session.pm
View file

@ -359,7 +359,7 @@ sub open {
my $self = {_config=>$config, _server=>$server};
bless $self , $class;
$self->{_request} = Apache2::Request->new($request, POST_MAX => 1024 * $self->setting->get("maxAttachmentSize")) if (defined $request);
my $sessionId = shift || $self->http->getCookies->{"wgSession"};
my $sessionId = shift || $self->http->getCookies->{"wgSession"} || $self->id->generate;
$self->{_var} = WebGUI::Session::Var->new($self,$sessionId);
return $self;
}
@ -375,7 +375,7 @@ Returns a WebGUI::Session::Os object.
sub os {
my $self = shift;
unless (exists $self->{_os}) {
$self->{_os} = WebGUI::Session::Os->new;
$self->{_os} = WebGUI::Session::Os->new();
}
return $self->{_os};
}

4
lib/WebGUI/Session/Var.pm
View file

@ -168,11 +168,11 @@ sub new {
$self->{_var} = $session->db->quickHashRef("select * from userSession where sessionId=".$session->db->quote($sessionId));
if ($self->{_var}{expires} && $self->{_var}{expires} < $session->datetime->time()) {
$self->end;
}
if ($self->{_var}{sessionId} ne "") {
} elsif ($self->{_var}{sessionId} ne "") {
$self->{_var}{lastPageView} = $session->datetime->time();
$self->{_var}{lastIP} = $session->env("REMOTE_ADDR");
$self->{_var}{expires} = $session->datetime->time() + $session->setting->get("sessionTimeout");
$self->session->{_sessionId} = $self->{_var}{sessionId};
$session->db->setRow("userSession","sessionId",$self->{_var});
} else {
$self->start(1,$sessionId);