#!/usr/bin/perl

use strict;
use warnings;
use Template;
use CGI;
use CGI::Carp qw(fatalsToBrowser);

my $cgi = new CGI;
my $var = {
	GRAPH => $cgi->param('graph')
};

my $template = Template->new({
	INCLUDE_PATH => '/var/www/mrtg/tmpl',
	INTERPOLATE  => 1,
});

$|++;
print $cgi->header();
$template->process('details.tmpl',$var);