#! /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();