diff options
Diffstat (limited to 'qooxdoo/source/perl/CGI/Session/ID/md5.pm')
-rw-r--r-- | qooxdoo/source/perl/CGI/Session/ID/md5.pm | 41 |
1 files changed, 0 insertions, 41 deletions
diff --git a/qooxdoo/source/perl/CGI/Session/ID/md5.pm b/qooxdoo/source/perl/CGI/Session/ID/md5.pm deleted file mode 100644 index 82864e0..0000000 --- a/qooxdoo/source/perl/CGI/Session/ID/md5.pm +++ /dev/null @@ -1,41 +0,0 @@ -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 |