Project

General

Profile

Download (9.71 KB) Statistics
| Branch: | Revision:

root/mrtg.cgi @ b3b1c0a2

5b3eb8e6 Hamish Coleman
#!/usr/bin/perl
11780c4c Hamish Coleman
#
# Flexible MRTG index page
#
# Based on original work done by mick@lowdown.com, mostly rewritten
# by Hamish@zot.org
#
5b3eb8e6 Hamish Coleman
# (c) 1997, Mick Ghazey mick@lowdown.com
# Thanks to Dave Rand, Peter W. Osel and Tobias Oetiker.
11780c4c Hamish Coleman
#
# Requires the CGI package (in mandriva this is perl-CGI)

b992b8e4 Hamish Coleman
our $VERSION=3;
4ee5ba7c Hamish Coleman
11780c4c Hamish Coleman
use strict;
use warnings;
5b3eb8e6 Hamish Coleman
use CGI ':all';
use CGI::Carp qw(fatalsToBrowser);
use Sys::Hostname;

11780c4c Hamish Coleman
my @config_files = (
'/etc/mrtg.cfg',
'/usr/share/WWW/mrtg/mrtg.cfg',
);

# FIXME - globals
my $gifdone = 0; # Scan for newest graph and save info for later
my $warnings;

e3f912fb Hamish Coleman
sub init_tests(@) {
my (@config_files) = @_;

2361679c Hamish Coleman
my $xsize_default = 500;
f9ec5168 Hamish Coleman
my $ysize_default = 135;

11780c4c Hamish Coleman
my $testmax=0;
my @list;
my %tests;

while(@config_files > 0){
my $cfg;

if (!open(In, $cfg = shift @config_files) ) {
$warnings .= "Warning: Could not open $cfg file\n";
next;
}

while(<In>){

#TODO - parse WorkDir: directives
2361679c Hamish Coleman
#TODO - instantiate new tests from the "_" defaults
11780c4c Hamish Coleman
if ( $_ =~ /^([^#[][^[]+)\[(.*)\]:\s*(.+)$/ ) {
2361679c Hamish Coleman
my $testnr;
my $var=lc $1;
my $testname=lc $2;
my $val=$3;

my $this_ysize;
my $this_xsize;
my $this_title;

if ( $var eq 'ysize' ) {
$this_ysize = $val +35;
} elsif ( $var eq 'xsize' ) {
$this_xsize = $val +100;
} elsif ( $var eq 'title' ) {
$this_title = $val;
}

# Skip any default initializers
if ($testname eq '_') {
f9ec5168 Hamish Coleman
# FIXME - quick-hack
if($this_xsize) {
$xsize_default = $this_xsize;
}
2361679c Hamish Coleman
next;
}
if ($testname eq '^') {
next;
}
11780c4c Hamish Coleman
if (! exists $tests{$testname}) {
f9ec5168 Hamish Coleman
# initialize
$list[$testmax]->{xsize} = $xsize_default;
$list[$testmax]->{ysize} = $ysize_default;

11780c4c Hamish Coleman
$tests{$testname}=$testmax;
$list[$testmax]->{name} = $testname;
$testnr = $testmax;
2361679c Hamish Coleman
# TODO - replace testmax with (scalar @list)
11780c4c Hamish Coleman
$testmax++;
} else {
$testnr=$tests{$testname};
}

e3f912fb Hamish Coleman
$list[$testnr]->{ysize} = $this_ysize if $this_ysize;
$list[$testnr]->{xsize} = $this_xsize if $this_xsize;
$list[$testnr]->{title} = $this_title if $this_title;
11780c4c Hamish Coleman
}
}
close In;
5b3eb8e6 Hamish Coleman
}
11780c4c Hamish Coleman
2361679c Hamish Coleman
# check and update details for all known tests;
11780c4c Hamish Coleman
for my $i (@list) {
my $testname = $i->{name};
if (!exists($i->{title})) {
$i->{title}='UNTITLED';
}

# Default is GIF, unless a PNG file exists
$i->{imagetype} = 'gif';
if ( -e "$testname-day.png" ) {
$i->{imagetype} = "png";
}

2361679c Hamish Coleman
# TODO - change the filename based on the displayed period
11780c4c Hamish Coleman
my $filename = $testname . "-day." . $i->{imagetype};
my ($dev, $ino, $mode, $nlink, $uid, $gid, $rdev, $size,
$atime,$mtime,$ctime,$blksize,$blocks)
= stat($filename);
if (!defined $mtime) {
2361679c Hamish Coleman
# if we cannot stat the file, skip it
11780c4c Hamish Coleman
next;
}

$i->{mtime} = $mtime;

# find the newest file
if ($mtime > $gifdone) {
$gifdone = $mtime;
}
5b3eb8e6 Hamish Coleman
}
11780c4c Hamish Coleman
return @list;
}

sub init_lists(@) {
my (@tests) = @_;

e3f912fb Hamish Coleman
my $l;
11780c4c Hamish Coleman
my %hostlist;
my %hosttypelist;
my %hosttypecount;

e3f912fb Hamish Coleman
@{$l->{ALL}->{ALL}}=@tests;
11780c4c Hamish Coleman
for my $i (0..$#tests) {
my $testname = $tests[$i]->{name};

e3f912fb Hamish Coleman
# Do not classify any test with no separators in it
if ($testname !~ /,/) {
push @{$l->{OTHER}->{OTHER}}, $tests[$i];
11780c4c Hamish Coleman
next;
}

my ($group,$host,$test) = split ',', $testname;

if (defined $group) {
e3f912fb Hamish Coleman
push @{$l->{GROUP}->{$group}}, $tests[$i];
11780c4c Hamish Coleman
}
if (defined $host) {
e3f912fb Hamish Coleman
push @{$l->{HOST}->{$host}}, $tests[$i];
11780c4c Hamish Coleman
}
if (defined $test) {
e3f912fb Hamish Coleman
push @{$l->{TEST}->{$test}}, $tests[$i];
11780c4c Hamish Coleman
}

# TODO - this needs to have a better way...
# hosttype is the non digit hostname prefix - thus
# "proxy-1" and "proxy-2" would both end up in the
# "proxy-" hosttype
if ($host =~ m/^(.*[^0-9])(\d+)$/) {
e3f912fb Hamish Coleman
my $hosttype = $1.'*';
11780c4c Hamish Coleman
e3f912fb Hamish Coleman
# count each host only once
11780c4c Hamish Coleman
if (!defined $hostlist{$host}) {
$hostlist{$host}=1;
$hosttypecount{$hosttype}++;
}

push @{$hosttypelist{$hosttype}}, $tests[$i];
}
5b3eb8e6 Hamish Coleman
}

11780c4c Hamish Coleman
for my $i (keys %hosttypelist) {
if ($hosttypecount{$i} >1) {
e3f912fb Hamish Coleman
push @{$l->{TYPE}->{$i}}, @{$hosttypelist{$i}};
11780c4c Hamish Coleman
}
}
e3f912fb Hamish Coleman
return $l;
5b3eb8e6 Hamish Coleman
}

f9ec5168 Hamish Coleman
sub print_menu_table($$) {
b992b8e4 Hamish Coleman
my ($lists,$style) = @_;

90053cde Hamish Coleman
my $target;
if ($style eq 'wide') {
$target="_self";
} else {
$target="list";
}

b992b8e4 Hamish Coleman
print "\n<table border=2 cellpadding=2 cellspacing=0 style=\"margin: 1em 1em 1em 0; background: #f9f9f9; border: 1px #aaa solid; border-collapse: collapse; font-size: 95%;\">\n";

if ($style eq 'wide') {
print "<tr>\n";

# print headings
for my $i (sort keys %{$lists}) {
print "<th>$i</th>\n";
}

print "</tr>";
}
if ($style eq 'wide') {
print "<tr>\n";
}

# print contents
for my $i (sort keys %{$lists}) {
if ($style eq 'high') {
print "<tr><th>$i</tr>\n";
print "<tr>";
}
print " <td valign=top>\n";
for my $j (sort keys %{$lists->{$i}}) {
90053cde Hamish Coleman
print " ".a({-href=>"?page=list&list=$i,$j",-target=>$target},"$j")."<br>\n";
b992b8e4 Hamish Coleman
}
print " </td>\n";

if ($style eq 'high') {
print "</tr>\n";
}
}

if ($style eq 'wide') {
print "</tr>";
}

print "</table>\n";
}

sub print_list($$$) {
my ($lists,$graph,$list) = @_;

if (!defined $list) {
return undef;
}
90053cde Hamish Coleman
if (!defined $lists) {
return undef;
}
b992b8e4 Hamish Coleman
my @wantlist = split /,/,$list;

my @list = @{$lists->{$wantlist[0]}->{$wantlist[1]}};

f9ec5168 Hamish Coleman
for my $router_num (0..$#list){
my $router = $list[$router_num];
b992b8e4 Hamish Coleman
# FIXME - what if mtime is undef?
f9ec5168 Hamish Coleman
my $time = localtime $router->{mtime}; # $st_mtime saved in above loop
($time) = $time =~ /(\d+:\d+:\d+)/; # Just the time

print "$time <b>$router->{title}</b><br/>";

my ($ysize, $xsize);
b992b8e4 Hamish Coleman
$ysize = $router->{ysize};
$xsize = $router->{xsize};

90053cde Hamish Coleman
print a({-href=>$router->{name}.".html",-target=>"list"},
f9ec5168 Hamish Coleman
img{
-src=>$router->{name}."-$graph.".$router->{imagetype},
-height=>"$ysize",
-width=>"$xsize"
}
);
print hr,"\n";
b992b8e4 Hamish Coleman
}
90053cde Hamish Coleman
return 1;
b992b8e4 Hamish Coleman
}

f9ec5168 Hamish Coleman
sub print_graph_chooser($$) {
my ($this_graph,$selfurl) = @_;

90053cde Hamish Coleman
$selfurl .= 'page=list&';

f9ec5168 Hamish Coleman
if ($this_graph eq 'day') {
print 'Daily';
} else {
90053cde Hamish Coleman
print a({-href=>$selfurl.'graph=day&',-target=>'_self'}, 'Daily');
f9ec5168 Hamish Coleman
}
print '&nbsp;';
if ($this_graph eq 'week') {
print 'Weekly';
} else {
90053cde Hamish Coleman
print a({-href=>$selfurl.'graph=week&',-target=>'_self'}, 'Weekly')
f9ec5168 Hamish Coleman
}
print '&nbsp;';
if ($this_graph eq 'month') {
print 'Monthly';
} else {
90053cde Hamish Coleman
print a({-href=>$selfurl.'graph=month&',-target=>'_self'}, 'Monthly')
f9ec5168 Hamish Coleman
}
print '&nbsp;';
if ($this_graph eq 'year') {
print 'Yearly';
} else {
90053cde Hamish Coleman
print a({-href=>$selfurl.'graph=year&',-target=>'_self'}, 'Yearly')
f9ec5168 Hamish Coleman
}
print '&nbsp;';

print '&nbsp;';
print a({-href=>'?'}, 'Change List'),
'&nbsp;',
90053cde Hamish Coleman
'(This List is ',param('list'),")\n";
f9ec5168 Hamish Coleman
}

90053cde Hamish Coleman
my $page = param('page') || 'none';
5b3eb8e6 Hamish Coleman
my $this_host = hostname;
90053cde Hamish Coleman
my @tests;
my $lists;

if($page eq 'frame') {
print "Content-type: text/html\n\n";
print "<html><head><title>$this_host MRTG Index (V$VERSION)</title></head>\n";
print '<frameset cols="200,*">'; # FIXME onresize if navigator.family==nn4
print '<frame src="?page=menu" name=menu>';
print '<frame src="?page=list&list=OTHER,OTHER" name=list>';
print "</frameset>\n";
print "</html>\n";

} elsif($page eq 'none') {
print header,
start_html(-TITLE=>"$this_host MRTG Index (V$VERSION)", -BGCOLOR=>'#e6e6e6'),
"\n";

@tests = init_tests(@config_files);
$lists = init_lists(@tests);
b992b8e4 Hamish Coleman
print table(
{-width=>"100\%"},
TR(td("Select which list to show"))
);
f9ec5168 Hamish Coleman
print_menu_table($lists,'wide');
90053cde Hamish Coleman
print "\n","Direct questions and feedback to ",
a({-href=>"mailto:hamish\@zot.org"}, "Hamish"),
" (Version $VERSION)",
end_html;

} elsif($page eq 'list') {
print header,
start_html(-TITLE=>"$this_host MRTG Index (V$VERSION)", -BGCOLOR=>'#e6e6e6'),
"\n";

@tests = init_tests(@config_files);
$lists = init_lists(@tests);

# Time the next update to occur a little while after the next interval completes
my $interval = 300; # 5 min update interval
my $guardband = 15; # updates occur this many seconds after predicted gif completion
my $refresh = $interval + $guardband + $gifdone - time; # predict how long until next update
$refresh = $interval if $refresh <= $guardband;
my $expires = gmtime (time + $interval * 2 + $guardband);
11780c4c Hamish Coleman
90053cde Hamish Coleman
my $graph = param('graph') || 'day';
my $selfurl ='?list='.param('list').'&';
11780c4c Hamish Coleman
print
"<meta http-equiv=\"expires\" content=\"$expires GMT\">\n",
"<meta http-equiv=\"refresh\" content=$refresh>\n";
90053cde Hamish Coleman
print_graph_chooser($graph,$selfurl);
print "<br/>";
print_list($lists,$graph,param('list')||'none');
print end_html;
} elsif($page eq 'menu') {
print header,
start_html(-TITLE=>"$this_host MRTG Index (V$VERSION)", -BGCOLOR=>'#e6e6e6'),
"\n";

@tests = init_tests(@config_files);
$lists = init_lists(@tests);
print_menu_table($lists,'high');
print end_html;
} elsif($page eq 'noframe') {
print header,
start_html(-TITLE=>"$this_host MRTG Index (V$VERSION)", -BGCOLOR=>'#e6e6e6'),
"\n";

@tests = init_tests(@config_files);
$lists = init_lists(@tests);

# FIXME - duplicated time calculations from above
# Time the next update to occur a little while after the next interval completes
my $interval = 300; # 5 min update interval
my $guardband = 15; # updates occur this many seconds after predicted gif completion
my $refresh = $interval + $guardband + $gifdone - time; # predict how long until next update
$refresh = $interval if $refresh <= $guardband;
my $expires = gmtime (time + $interval * 2 + $guardband);
b992b8e4 Hamish Coleman
90053cde Hamish Coleman
my $graph = param('graph') || 'day';
f9ec5168 Hamish Coleman
90053cde Hamish Coleman
my $selfurl.='list='.param('list').'&';
b992b8e4 Hamish Coleman
90053cde Hamish Coleman
print
"<meta http-equiv=\"expires\" content=\"$expires GMT\">\n",
"<meta http-equiv=\"refresh\" content=$refresh>\n";

print "<table cellpadding=2 cellspacing=0>\n";

print "<tr><td valign=top>";
f9ec5168 Hamish Coleman
print_menu_table($lists,'high');
11780c4c Hamish Coleman
90053cde Hamish Coleman
print "<td valign=top>\n";
print_graph_chooser($graph,$selfurl);
print "<br/>";
f9ec5168 Hamish Coleman
print_list($lists,$graph,param('list'));
b992b8e4 Hamish Coleman
print "</table>\n";
90053cde Hamish Coleman
print end_html;
11780c4c Hamish Coleman
}
5b3eb8e6 Hamish Coleman
11780c4c Hamish Coleman
if ($warnings) {
print "<pre>\n", "$warnings", "</pre>\n";
5b3eb8e6 Hamish Coleman
}