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

unique id generator

Browse source
This commit is contained in:
JT Smith 2004-08-09 16:01:25 +00:00
parent 48fd2d44e9
commit 93caa5131b
1 changed files with 64 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

64
lib/WebGUI/Id.pm Normal file
View file

@ -0,0 +1,64 @@
package WebGUI::Id;
=head1 LEGAL
-------------------------------------------------------------------
WebGUI is Copyright 2001-2004 Plain Black LLC.
-------------------------------------------------------------------
Please read the legal notices (docs/legal.txt) and the license
(docs/license.txt) that came with this distribution before using
this software.
-------------------------------------------------------------------
http://www.plainblack.com info@plainblack.com
-------------------------------------------------------------------
=cut
use Digest::MD5;
use strict;
use Time::HiRes qw( gettimeofday usleep );
use WebGUI::Session;
=head1 NAME
Package WebGUI::Id
=head1 DESCRIPTION
This package generates global unique ids, sometimes called GUIDs. A global unique ID is guaranteed to be unique everywhere and at everytime.
NOTE: There is no such thing as perfectly unique ID's, but the chances of a duplicate ID are so minute that they are effectively unique.
=head1 SYNOPSIS
use WebGUI::Id;
my $id = WebGUI::Id::generate();
=head1 FUNCTIONS
These subroutines are available from this package:
=cut
#-------------------------------------------------------------------
=head2 generate
This function generates a global unique id.
=cut
sub generate {
my($s,$us)=gettimeofday();
my($v)=sprintf("%06d%10d%06d%255s",$us,$s,$$,$session{config}{defaultSiteName});
return Digest::MD5::md5_base64($v);
}
1;