blob: fb187eaefcfa5a56ccad6db98c338a317161fc4d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
#! /usr/bin/perl
# vim:ts=8:sw=8
use lib '/opt/gondul/include';
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;');
$query->execute();
while (my $ref = $query->fetchrow_hashref()) {
my %meh;
$meh{'time'} = $ref->{'h'} . ":" . $ref->{'m'};
$meh{'log'} = $ref->{'log'};
$meh{'username'} = $ref->{'username'};
$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();
|
