#!/usr/bin/env perl

use strict;
use warnings;
use Template;
use POSIX qw(strftime);

my $outfile = "/var/lib/sitesummary/www/index.html";
my $tplfile = "/usr/share/sitesummary/www/default.html";

my $tpl = Template->new();

my @cmds = qw(
	site-summary
	hostclass-summary
	kernelversion-summary
	agesinceseen-summary
	hardware-model-summary
	debian_edu-version
	);

my $vars = {};

for my $cmd (@cmds) {
	$vars->{'results'}->{$cmd} = `/usr/lib/sitesummary/$cmd`;
}

$vars->{'last_updated'} = strftime("%a %b %d %H:%M:%S %Z %Y", localtime);

$tpl->process($tplfile, $vars, \&write_out);

exit 0;

sub write_out {
	my $output = shift;

	open FH, ">$outfile";
	print FH "$output";
	close FH;
}