22 lines
332 B
Perl
Executable File
22 lines
332 B
Perl
Executable File
#!/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);
|