From ae128442a868d553f3ec024af4b5bb6955013093 Mon Sep 17 00:00:00 2001
From: Pragmatic Software <pragma78@gmail.com>
Date: Sat, 23 May 2015 06:24:22 -0700
Subject: [PATCH] Add date for quickest/longest answer qstat

---
 modules/cjeopardy/QStatskeeper.pm     | 15 +++++++++++++++
 modules/cjeopardy/cjeopardy_answer.pl |  2 ++
 2 files changed, 17 insertions(+)

diff --git a/modules/cjeopardy/QStatskeeper.pm b/modules/cjeopardy/QStatskeeper.pm
index 75aeaf05..832a65ab 100644
--- a/modules/cjeopardy/QStatskeeper.pm
+++ b/modules/cjeopardy/QStatskeeper.pm
@@ -44,8 +44,10 @@ CREATE TABLE IF NOT EXISTS QStats (
    highest_wrong_streak  INTEGER DEFAULT 0,
    hints                 INTEGER DEFAULT 0,
    quickest_answer_time  NUMERIC DEFAULT 0,
+   quickest_answer_date  NUMERIC DEFAULT 0,
    quickest_answer_nick  TEXT COLLATE NOCASE DEFAULT NULL,
    longest_answer_time   NUMERIC DEFAULT 0,
+   longest_answer_date   NUMERIC DEFAULT 0,
    longest_answer_nick   TEXT COLLATE NOCASE DEFAULT NULL,
    average_answer_time   NUMERIC DEFAULT 0
 )
@@ -74,6 +76,19 @@ sub end {
   }
 }
 
+sub find_question {
+  my ($self, $id) = @_;
+
+  my $exists = eval {
+    my $sth = $self->{dbh}->prepare('SELECT 1 FROM QStats WHERE id = ?');
+    $sth->bind_param(1, $id);
+    $sth->execute();
+    return $sth->fetchrow_hashref();
+  };
+  print STDERR $@ if $@;
+  return $exists;
+}
+
 sub add_question {
   my ($self, $id) = @_;
 
diff --git a/modules/cjeopardy/cjeopardy_answer.pl b/modules/cjeopardy/cjeopardy_answer.pl
index 2d12a414..859105b8 100755
--- a/modules/cjeopardy/cjeopardy_answer.pl
+++ b/modules/cjeopardy/cjeopardy_answer.pl
@@ -197,11 +197,13 @@ foreach my $answer (@valid_answers) {
 
     if ($qdata->{quickest_answer_time} == 0 or $elapsed < $qdata->{quickest_answer_time}) {
       $qdata->{quickest_answer_time} = $elapsed;
+      $qdata->{quickest_answer_date} = gettimeofday;
       $qdata->{quickest_answer_nick} = $nick;
     }
 
     if ($elapsed > $qdata->{longest_answer_time}) {
       $qdata->{longest_answer_time} = $elapsed;
+      $qdata->{longest_answer_date} = gettimeofday;
       $qdata->{longest_answer_nick} = $nick;
     }