diff options
| author | Kristian Lyngstol <kly@kly.no> | 2016-03-31 20:44:38 +0200 |
|---|---|---|
| committer | Kristian Lyngstol <kly@kly.no> | 2016-03-31 20:44:38 +0200 |
| commit | 51e9872f4ac5db633c12862dec951e0b91b1b132 (patch) | |
| tree | ff156c63ba964357e955bfcf4634f0d02ea12609 /include | |
| parent | 37d9d6b9d78fcda093dfc37dc36ed8eb0eb09cd2 (diff) | |
NMS: Fix historic review, part one
The actual replay might still be bugged, but fixed-point review works.
Diffstat (limited to 'include')
| -rwxr-xr-x | include/nms/web.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/include/nms/web.pm b/include/nms/web.pm index 889e774..7c9339e 100755 --- a/include/nms/web.pm +++ b/include/nms/web.pm @@ -15,7 +15,7 @@ package nms::web; use base 'Exporter'; our %get_params; our %json; -our @EXPORT = qw(finalize_output json $dbh db_safe_quote %get_params get_input %json); +our @EXPORT = qw(finalize_output now json $dbh db_safe_quote %get_params get_input %json); our $dbh; our $now; our $when; @@ -66,7 +66,7 @@ sub setwhen { $offset = $_[1]; } if (defined($get_params{'now'})) { - $now = db_safe_quote('now') . "::timestamp "; + $now = db_safe_quote('now') . "::timestamp with time zone "; $cc{'max-age'} = "3600"; } $now = "(" . $now . " - '" . $offset . "'::interval)"; @@ -77,10 +77,10 @@ sub finalize_output { my $query; my $hash = Digest::SHA::sha512_base64(FreezeThaw::freeze(%json)); $dbh->commit; - $query = $dbh->prepare('select to_char(' . $now . ', \'YYYY-MM-DD"T"HH24:MI:SS\') as time;'); + $query = $dbh->prepare('select extract(epoch from date_trunc(\'seconds\', ' . $now . ')) as time;'); $query->execute(); - $json{'time'} = $query->fetchrow_hashref()->{'time'}; + $json{'time'} = int($query->fetchrow_hashref()->{'time'}); $json{'hash'} = $hash; printcc; |