oplog: Add support fort "when"/dated replay

Makes the replay so much more "alive" :D

1 files changed, 8 insertions, 1 deletions

diff --git a/web/api/read/oplog b/web/api/read/oplog
index fb187ea..f2ed3a7 100755
--- a/web/api/read/oplog
+++ b/web/api/read/oplog
@@ -6,7 +6,14 @@ use nms::web;
 use strict;
 use warnings;
 
-my $query = $nms::web::dbh->prepare('select id,date_trunc(\'second\',time) as timestamp,extract(hour from time) as h, extract(minute from time) as m,systems,username,log from oplog order by id desc;');
+my $filter = '';
+
+if (defined($get_params{'now'})) {
+	$filter = "where time < timestamp with time zone 'epoch' + " . db_safe_quote('now') . " * INTERVAL '1 second' ";
+}
+my $query = $nms::web::dbh->prepare('select id,date_trunc(\'second\',time) as timestamp,extract(hour from time) as h, extract(minute from time) as m,systems,username,log from oplog ' 
+        . $filter . 
+'order by id desc;');
 $query->execute();
 while (my $ref = $query->fetchrow_hashref()) {
 	my %meh;