diff options
Diffstat (limited to 'web/api/read/oplog')
-rwxr-xr-x | web/api/read/oplog | 36 |
1 files changed, 0 insertions, 36 deletions
diff --git a/web/api/read/oplog b/web/api/read/oplog deleted file mode 100755 index 22e21ac..0000000 --- a/web/api/read/oplog +++ /dev/null @@ -1,36 +0,0 @@ -#! /usr/bin/perl -# vim:ts=8:sw=8 - -use lib '/opt/gondul/include'; -use nms::web; -use strict; -use warnings; - -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; - if (!defined($ref->{'log'})) { - next; - } - $meh{'time'} = $ref->{'h'} . ":" . $ref->{'m'}; - $meh{'log'} = $ref->{'log'} || "weird?"; - $meh{'username'} = $ref->{'username'} || "undefined"; - $meh{'id'} = $ref->{'id'}; - $meh{'systems'} = $ref->{'systems'}; - $meh{'timestamp'} = $ref->{'timestamp'}; - $meh{'timestamp'} =~ s/ /T/; - $meh{'timestamp'} =~ s/\+00$/Z/; - $meh{'timestamp'} =~ s/\+(\d\d)$/+$1:00/; - - push @{$nms::web::json{'oplog'}},\%meh; -} - -nms::web::finalize_output(); |