Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris

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 drinking their drinks and smoking their pipes about the Monastery: (13)
As of 2017-07-26 13:28 GMT
Find Nodes?
    Voting Booth?
    I came, I saw, I ...

    Results (394 votes). Check out past polls.