blob: 82864e00b602b0844adc574dfe7fdd12bdc9ef36 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
|
package CGI::Session::ID::md5;
# $Id: md5.pm 351 2006-11-24 14:16:50Z markstos $
use strict;
use Digest::MD5;
use CGI::Session::ErrorHandler;
$CGI::Session::ID::md5::VERSION = '4.20';
@CGI::Session::ID::md5::ISA = qw( CGI::Session::ErrorHandler );
*generate = \&generate_id;
sub generate_id {
my $md5 = new Digest::MD5();
$md5->add($$ , time() , rand(time) );
return $md5->hexdigest();
}
1;
=pod
=head1 NAME
CGI::Session::ID::md5 - default CGI::Session ID generator
=head1 SYNOPSIS
use CGI::Session;
$s = new CGI::Session("id:md5", undef);
=head1 DESCRIPTION
CGI::Session::ID::MD5 is to generate MD5 encoded hexadecimal random ids. The library does not require any arguments.
=head1 LICENSING
For support and licensing see L<CGI::Session|CGI::Session>
=cut
|
