Beefy Boxes and Bandwidth Generously Provided by pair Networks
go ahead... be a heretic

Re: Cookies without

by diotalevi (Canon)
on Sep 25, 2002 at 15:23 UTC ( #200646=note: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download

  1. or download this
    open RANDOM, RANDOM_DEVICE or die "Cannot open " . RANDOM_DEVICE . ": 
    $rc = read RANDOM, $secret, $bytes;
    # quote the binary value for inclusion in a double-quote string
    $secret =~ s/[\x00-\xff]/sprintf '\\%o', ord $&/gex;
  2. or download this
        my $sessionid = $dbh->selectrow_array
          ( "SELECT nextval('UserSessionSeq')" );
  3. or download this
    my $sessiondigest = md5_hex(sprintf("%u %s", $sessionid, Voter->SECRET
  4. or download this
          ( "SELECT UserID, Activeuser, Created, Modified" .
            $sessiondigest );
      # if a row was returned then it was a good match otherwise something
    + is wrong (the session might have just expired as well - views are us
    +eful for that)

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://200646]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others musing on the Monastery: (3)
As of 2017-03-25 05:24 GMT
Find Nodes?
    Voting Booth?
    Should Pluto Get Its Planethood Back?

    Results (311 votes). Check out past polls.