wanna go HOME now...

Welcome to WORM NERD lite++

query("select * from wormwords where created >= date('now') limit 1")) { if ($wordrow = $result->fetchObject()) { $word = $wordrow->word; $result->closeCursor(); } } if (empty($wordrow)) { list($word) = $dbh->query('select word from dictionary where did = abs(random()) % ' . MAXDID)->fetchAll(PDO::FETCH_COLUMN); if ($isth = $dbh->prepare('insert into wormwords (word, created) values (:word, date(:created))')) { if ($isth->execute(array(':word' => $word, ':created' => 'now'))) { if ($fsth = $dbh->prepare('select * from wormwords where word = :word')) { if ($fsth->execute(array(':word' => $word))) { $wordrow = $fsth->fetchObject(); } else { print "fsth execute failo\n"; var_dump($fsth->errorInfo()); var_dump($db->errorInfo()); } } else { print "fsth prepare failo\n"; var_dump($fsth->errorInfo()); var_dump($db->errorInfo()); } } else { print "isth execute failo\n"; var_dump($isth->errorInfo()); var_dump($db->errorInfo()); } } else { print "isth prepare failo\n"; var_dump($isth->errorInfo()); var_dump($db->errorInfo()); } } // print "\n"; var_dump($word, $wordrow); print "\n"; $empty = array( 'word' => '', 'sentence' => '', 'signed' => '', 'word_up' => '', ); $params = $_POST + $empty; if (request_value('submit') == 'The Button') { if ($word_up = write_word($params)) { $params['word_up'] = $word_up; } else { $params = $empty; } if ($params['word'] != $word) { // the clock ticks for all $params = $empty; } } ?>

Today's word is

You know the rules. Enter your submission and push the button. Then go talk amongst yourselves.

PS: OK, no, seriously, this time, I think it's better.
If you run into any problems, leave me a note.
- The Mgmt


Yours truly, , Mrs.

And here are today's entries...
EOT; $count = 0; if ($result = $dbh->query('select * from wormlines where wid = ' . $wordrow->wid)) { while ($row = $result->fetchObject()) { $row->sentence = stripslashes($row->sentence); $row->signed = stripslashes($row->signed); $count++; print $row->sentence; if ($row->signed) { print ' (' . $row->signed . ')'; } print "
\n"; } } if (!$count) { print "Congratulations! You're our first player today!\n"; } print <<

NEW! Take revenge on an uncaring society! Encourage beauty, defy darkness! Make other people feel bad! Vote on your favorite - or least-favorite - entries. If you hate it, it will get darker; enough hate and it will turn black. If you love it, it will start turning pretty colors. Well, something other than black and white, anyway.

EOT; } ?>

Some Past Entries

1)'; $link .= 'good=be&'; } $page_string = '

Page '; for ($i = 1; $i < $page; ++$i) { $page_string .= '' . $i . "\n"; } $page_string .= '' . $i++ . "\n"; $page_string .= 'Next page' . "\n"; $page_string .= '   '; if ($good) { $page_string .= 'Show me everything'; } else { $page_string .= 'Just show me the good ones'; } $page_string .= "

\n"; print $page_string; $offset = ($page - 1) * $words_per; $sql .= ' order by wid desc limit %d offset %d'; $query = sprintf($sql , $wordrow->wid , $words_per , $offset ); // print "

{$query}

\n"; if ($result = $dbh->query($query)) { $sql = 'select * from wormlines where wid = :wid'; if ($good) { $sql .= ' and score > 1'; } $lsth = $dbh->prepare($sql); while ($wrow = $result->fetchObject()) { // print "\n"; var_dump($wrow); print "\n"; print <<
{$wrow->word} EOT; $lsth->execute(array(':wid' => $wrow->wid)); while ($row = $lsth->fetchObject()) { // print "\n"; var_dump($row); print "\n"; $row->sentence = stripslashes($row->sentence); $row->signed = stripslashes($row->signed); $signed = ($row->signed) ? '(' . $row->signed . ')' : ''; $color = '#FFFFFF'; $score = $row->score; if ($score > 0) { $score = $score > 16 ? 16 : $score; $color = strtoupper(sprintf('#F%x%x%x%x%x' , (16 - (2*$score)) , (16 - ($score)) , (16 - (2*$score)) , (16 - (2*$score)) , (16 - ($score)) )); } elseif ($score < 0) { $score = $score < -16 ? -16 : $score; $color = strtoupper(sprintf('#%x%x%x%x%x%x' , (16 + (2*$score)) , (16 + (2*$score)) , (16 + (2*$score)) , (16 + (2*$score)) , (16 + (2*$score)) , (16 + (2*$score)) )); } if ($error = check_entry($wrow->word, $row->sentence)) { $row->sentence .= "\n
{$error}\n"; } print << EOT; } print <<
{$row->sentence} {$signed}
EOT; } } else { print "

kaboom.

\n"; var_dump($dbh->errorInfo()); } print $page_string; ?>