Converted changes.added to timestamptz

That was the last one. I hope I haven't forgotten to update anything.

6 files changed, 19 insertions, 17 deletions

diff --git a/lib/Multi/IRC.pm b/lib/Multi/IRC.pm
index 8c5d4143..6b3a1dbb 100644
--- a/lib/Multi/IRC.pm
+++ b/lib/Multi/IRC.pm
@@ -261,7 +261,7 @@ sub notify { # name, pid, payload
     LEFT JOIN releases_rev rr ON c.type = 1 AND c.id = rr.id
     LEFT JOIN producers_rev pr ON c.type = 2 AND c.id = pr.id
     JOIN users u ON u.id = c.requester
-    WHERE c.added > ?
+    WHERE c.added > to_timestamp(?)
     ORDER BY c.added|
   : $_[ARG0] eq 'newpost' ? q|SELECT
       't' AS type, tp.tid AS id, tp.num AS rev, t.title, u.username, |.GETBOARDS.q|
diff --git a/lib/Multi/Sitemap.pm b/lib/Multi/Sitemap.pm
index 175b170a..85afae57 100644
--- a/lib/Multi/Sitemap.pm
+++ b/lib/Multi/Sitemap.pm
@@ -80,41 +80,41 @@ sub generate {
     for (map { 'v/'.$_, 'p/'.$_ } 'a'..'z', 0, 'all');
 
   # /v+
-  $_[KERNEL]->post(pg => query => '
-    SELECT v.id, c.added
+  $_[KERNEL]->post(pg => query => q|
+    SELECT v.id, extract('epoch' from c.added) as added
       FROM vn v
       JOIN vn_rev vr ON vr.id = v.latest
       JOIN changes c ON vr.id = c.id
       WHERE v.hidden = FALSE
-      ORDER BY v.id',
+      ORDER BY v.id|,
     undef, 'addquery', [ 'v', 0.7 ]);
 
   # /r+
-  $_[KERNEL]->post(pg => query => '
-    SELECT r.id, c.added
+  $_[KERNEL]->post(pg => query => q|
+    SELECT r.id, extract('epoch' from c.added) as added
       FROM releases r
       JOIN releases_rev rr ON rr.id = r.latest
       JOIN changes c ON c.id = rr.id
       WHERE r.hidden = FALSE
-      ORDER BY r.id',
+      ORDER BY r.id|,
     undef, 'addquery', [ 'r', 0.5 ]);
 
   # /p+
-  $_[KERNEL]->post(pg => query => '
-    SELECT p.id, c.added
+  $_[KERNEL]->post(pg => query => q|
+    SELECT p.id, extract('epoch' from c.added) as added
       FROM producers p
       JOIN producers_rev pr ON pr.id = p.latest
       JOIN changes c ON c.id = pr.id
       WHERE p.hidden = FALSE
-      ORDER BY p.id',
+      ORDER BY p.id|,
     undef, 'addquery', [ 'p', 0.3 ]);
 
   # /g+
-  $_[KERNEL]->post(pg => query => '
-    SELECT t.id, t.added
+  $_[KERNEL]->post(pg => query => q|
+    SELECT t.id, extract('epoch' from t.added) as added
       FROM tags t
       WHERE state = 2
-      ORDER BY t.id',
+      ORDER BY t.id|,
     undef, 'addquery', [ 'g', 0.3, 1 ]);
 }
 
diff --git a/lib/VNDB/DB/Misc.pm b/lib/VNDB/DB/Misc.pm
index 1c21675e..eeb860b0 100644
--- a/lib/VNDB/DB/Misc.pm
+++ b/lib/VNDB/DB/Misc.pm
@@ -127,7 +127,8 @@ sub dbRevisionGet {
   );
 
   my @select = (
-    qw|c.id c.type c.added c.requester c.comments c.rev c.causedby|,
+    qw|c.id c.type c.requester c.comments c.rev c.causedby|,
+    q|extract('epoch' from c.added) as added|,
     $o{what} =~ /user/ ? 'u.username' : (),
     $o{what} =~ /item/ ? (
       'COALESCE(vr.vid, rr.rid, pr.pid) AS iid',
diff --git a/lib/VNDB/DB/Producers.pm b/lib/VNDB/DB/Producers.pm
index 7a63d1a2..65d1fbca 100644
--- a/lib/VNDB/DB/Producers.pm
+++ b/lib/VNDB/DB/Producers.pm
@@ -43,7 +43,7 @@ sub dbProducerGet {
 
   my $select = 'p.id, pr.type, pr.name, pr.original, pr.lang';
   $select .= ', pr.desc, pr.alias, pr.website, p.hidden, p.locked' if $o{what} =~ /extended/;
-  $select .= ', c.added, c.requester, c.comments, p.latest, pr.id AS cid, u.username, c.rev' if $o{what} =~ /changes/;
+  $select .= q|, extract('epoch' from c.added) as added, c.requester, c.comments, p.latest, pr.id AS cid, u.username, c.rev| if $o{what} =~ /changes/;
 
   my($r, $np) = $self->dbPage(\%o, q|
     SELECT !s
diff --git a/lib/VNDB/DB/Releases.pm b/lib/VNDB/DB/Releases.pm
index bf40d8c2..672596da 100644
--- a/lib/VNDB/DB/Releases.pm
+++ b/lib/VNDB/DB/Releases.pm
@@ -73,7 +73,8 @@ sub dbReleaseGet {
     qw|r.id rr.title rr.original rr.website rr.released rr.minage rr.type rr.patch|,
     'rr.id AS cid',
     $o{what} =~ /extended/ ? qw|rr.notes rr.catalog rr.gtin rr.resolution rr.voiced rr.freeware rr.doujin rr.ani_story rr.ani_ero r.hidden r.locked| : (),
-    $o{what} =~ /changes/ ? qw|c.added c.requester c.comments r.latest u.username c.rev| : (),
+    $o{what} =~ /changes/ ?
+      (qw|c.requester c.comments r.latest u.username c.rev|, q|extract('epoch' from c.added) as added|) : (),
   );
 
   my($r, $np) = $self->dbPage(\%o, q|
diff --git a/lib/VNDB/DB/VN.pm b/lib/VNDB/DB/VN.pm
index 49077aee..b3603985 100644
--- a/lib/VNDB/DB/VN.pm
+++ b/lib/VNDB/DB/VN.pm
@@ -85,7 +85,7 @@ sub dbVNGet {
     $o{what} =~ /extended/ ? (
       qw|vr.alias vr.image vr.img_nsfw vr.length vr.desc vr.l_wp vr.l_encubed vr.l_renai vr.l_vnn| ) : (),
     $o{what} =~ /changes/ ? (
-      qw|c.added c.requester c.comments v.latest u.username c.rev c.causedby|) : (),
+      qw|c.requester c.comments v.latest u.username c.rev c.causedby|, q|extract('epoch' from c.added) as added|) : (),
     $o{what} =~ /relgraph/ ? 'rg.cmap' : (),
     $o{what} =~ /ranking/ ? '(SELECT COUNT(*)+1 FROM vn iv WHERE iv.hidden = false AND iv.c_popularity > v.c_popularity) AS ranking' : (),
     $tag_ids ?