~kosova/+junk/tuxfamily-twiki

package CGI::Session::ID::md5;

 

# $Id: md5.pm 420 2008-07-08 01:23:06Z markstos $

 

use strict;

use Digest::MD5;

use CGI::Session::ErrorHandler;

 

$CGI::Session::ID::md5::VERSION = '4.33';

@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