Help for this page
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;
my $sessionid = $dbh->selectrow_array
( "SELECT nextval('UserSessionSeq')" );
my $sessiondigest = md5_hex(sprintf("%u %s", $sessionid, Voter->SECRET
( "SELECT UserID, Activeuser, Created, Modified" .
# 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)
Conway's Game of Life
Perl regular expressions
My Magic 8-Ball™
Results (187 votes). Check out past polls.