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

switched session id generator to use guid

Browse source
This commit is contained in:
JT Smith 2005-04-01 19:12:56 +00:00
parent c23e22a3b4
commit ae691afe94
3 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lib/WebGUI/Session.pm
View file

@ -23,6 +23,7 @@ use strict;
use Tie::CPHash;
use WebGUI::Config;
use WebGUI::ErrorHandler;
use WebGUI::Id;
use WebGUI::SQL;
use WebGUI::Utility;
use URI::Escape;
@ -136,7 +137,7 @@ sub _time {
#-------------------------------------------------------------------
# This routine returns an unique session Id.
sub _uniqueSessionId {
my $sessionId = crypt((_time()*rand(1000)),rand(99));
my $sessionId = WebGUI::Id::generate();
my ($isDuplicate) = WebGUI::SQL->buildArray("select count(*) from userSession where sessionId =".quote($sessionId));
if ($isDuplicate) {
return _uniqueSessionId();