aboutsummaryrefslogtreecommitdiffstats
path: root/web/api/read/oplog
diff options
context:
space:
mode:
Diffstat (limited to 'web/api/read/oplog')
-rwxr-xr-xweb/api/read/oplog36
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();