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

fixing bugs

Browse source 
preparing for 6.2.7 bugfix cycle
This commit is contained in:
JT Smith 2004-10-03 19:47:25 +00:00
parent 1835437de4
commit b985eec1b1
9 changed files with 42 additions and 29 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lib/WebGUI/Id.pm
View file

@ -20,7 +20,9 @@ use strict;
use Time::HiRes qw( gettimeofday usleep );
use WebGUI::Session;
BEGIN {
srand;
}
=head1 NAME
@ -55,7 +57,7 @@ This function generates a global unique id.
sub generate {
my($s,$us)=gettimeofday();
my($v)=sprintf("%06d%10d%06d%255s",$us,$s,$$,$WebGUI::Session::session{config}{defaultSiteName});
my($v)=sprintf("%09d%06d%10d%06d%255s",rand(999999999),$us,$s,$$,$WebGUI::Session::session{config}{defaultSiteName});
my $id = Digest::MD5::md5_base64($v);
$id =~ s/\+/_/g;
$id =~ s/\//-/g;