Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask

Re^4: Randomness encountered with CGI Session

by afoken (Chancellor)
on Jun 13, 2010 at 08:09 UTC ( [id://844411] : note . print w/replies, xml ) Need Help??

Help for this page

Select Code to Download

  1. or download this
    my $md5 = new Digest::MD5();
    $md5->add($$ , time() , rand(time) );
    return $md5->hexdigest();
  2. or download this
        my $IDFile = $args->{IDFile} or croak "Don't know where to store t
    +he id";
        my $IDIncr = $args->{IDIncr} || 1;
        print FH $ID;
        close(FH) or return $self->set_error("Couldn't close IDFile=>$IDFi
    +le: $!");
        return $ID;