root/mrtg.cgi @ 1519ec69
| 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 {
|
||||
| 6982850b | Hamish Coleman | $target="basefrm";
|
||
| 90053cde | Hamish Coleman | }
|
||
| 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";
|
||||
}
|
||||
| 6982850b | Hamish Coleman | sub print_treemenu($) {
|
||
my ($lists) = @_;
|
||||
print "USETEXTLINKS = 1\n";
|
||||
print "STARTALLOPEN = 0\n";
|
||||
print "ICONPATH = ''\n";
|
||||
| 1519ec69 | Hamish Coleman | print 'foldersTree = gFld("<i>MRTG Tree</i>", "javascript:parent.op()")',"\n";
|
||
| 6982850b | Hamish Coleman | print 'foldersTree.treeID = "Frameset"',"\n";
|
||
# print contents
|
||||
for my $i (sort keys %{$lists}) {
|
||||
| 1519ec69 | Hamish Coleman | print "m$i = insFld(foldersTree, gFld(\"$i\", \"javascript:parent.op()\"))\n";
|
||
| 6982850b | Hamish Coleman | |||
for my $j (sort keys %{$lists->{$i}}) {
|
||||
print "insDoc(m$i, gLnk(\"R\", \"$j\", \"?page=list&list=$i,$j\"))\n";
|
||||
}
|
||||
}
|
||||
}
|
||||
| b992b8e4 | Hamish Coleman | 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};
|
||||
| 6982850b | Hamish Coleman | print a({-href=>$router->{name}.".html",-target=>"basefrm"},
|
||
| 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 ' ';
|
||||
if ($this_graph eq 'week') {
|
||||
print 'Weekly';
|
||||
} else {
|
||||
| 90053cde | Hamish Coleman | print a({-href=>$selfurl.'graph=week&',-target=>'_self'}, 'Weekly')
|
||
| f9ec5168 | Hamish Coleman | }
|
||
print ' ';
|
||||
if ($this_graph eq 'month') {
|
||||
print 'Monthly';
|
||||
} else {
|
||||
| 90053cde | Hamish Coleman | print a({-href=>$selfurl.'graph=month&',-target=>'_self'}, 'Monthly')
|
||
| f9ec5168 | Hamish Coleman | }
|
||
print ' ';
|
||||
if ($this_graph eq 'year') {
|
||||
print 'Yearly';
|
||||
} else {
|
||||
| 90053cde | Hamish Coleman | print a({-href=>$selfurl.'graph=year&',-target=>'_self'}, 'Yearly')
|
||
| f9ec5168 | Hamish Coleman | }
|
||
print ' ';
|
||||
print ' ';
|
||||
print a({-href=>'?'}, 'Change List'),
|
||||
' ',
|
||||
| 90053cde | Hamish Coleman | '(This List is ',param('list'),")\n";
|
||
| f9ec5168 | Hamish Coleman | }
|
||
| 6982850b | Hamish Coleman | my $page = param('page') || 'treeview';
|
||
| 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";
|
||||
| 6982850b | Hamish Coleman | print '<frameset cols="200,*">';
|
||
print '<frame src="?page=menu" name=treeframe>';
|
||||
print '<frame src="?page=list&list=OTHER,OTHER" name=basefrm>';
|
||||
| 90053cde | Hamish Coleman | print "</frameset>\n";
|
||
print "</html>\n";
|
||||
| 6982850b | Hamish Coleman | } elsif($page eq 'treeview') {
|
||
print "Content-type: text/html\n\n";
|
||||
print "<html><head><title>$this_host MRTG Index (V$VERSION)</title></head>\n";
|
||||
print "<script>\n";
|
||||
print "function op() { }\n";
|
||||
print "</script>\n";
|
||||
print '<frameset cols="200,*">'; # FIXME onresize if navigator.family==nn4
|
||||
print '<frame src="?page=treemenu" name=treeframe>';
|
||||
| 1519ec69 | Hamish Coleman | print '<frame src="javascript:parent.op()" name=basefrm>';
|
||
| 6982850b | Hamish Coleman | print "</frameset>\n";
|
||
print "</html>\n";
|
||||
| 90053cde | Hamish Coleman | |||
} 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');
|
||||
| 6982850b | Hamish Coleman | print end_html;
|
||
} elsif($page eq 'treemenu') {
|
||||
print header,
|
||||
start_html(-TITLE=>"$this_host MRTG Index (V$VERSION)", -BGCOLOR=>'#e6e6e6'),
|
||||
"\n";
|
||||
@tests = init_tests(@config_files);
|
||||
$lists = init_lists(@tests);
|
||||
print '<script src="ua.js"></script>';
|
||||
print '<script src="ftiens4.js"></script>';
|
||||
print '<script>';
|
||||
print_treemenu($lists);
|
||||
print '</script>';
|
||||
print '<DIV style="position:absolute; top:0; left:0;"><TABLE border=0><TR><TD><FONT size=-2><A style="font-size:7pt;text-decoration:none;color:silver" href="http://www.treemenu.net/" target=_blank>Javascript Tree Menu</A></FONT></TD></TR></TABLE></DIV>';
|
||||
print '<script>initializeDocument()</script>';
|
||||
print '<NOSCRIPT>A tree for site navigation will open here if you enable JavaScript in your browser.</NOSCRIPT>';
|
||||
| 90053cde | Hamish Coleman | 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;
|
||
| 6982850b | Hamish Coleman | } 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);
|
||||
print table(
|
||||
{-width=>"100\%"},
|
||||
TR(td("Select which list to show"))
|
||||
);
|
||||
print_menu_table($lists,'wide');
|
||||
print "\n","Direct questions and feedback to ",
|
||||
a({-href=>"mailto:hamish\@zot.org"}, "Hamish"),
|
||||
" (Version $VERSION)",
|
||||
end_html;
|
||||
| 11780c4c | Hamish Coleman | }
|
||
| 5b3eb8e6 | Hamish Coleman | |||
| 11780c4c | Hamish Coleman | if ($warnings) {
|
||
print "<pre>\n", "$warnings", "</pre>\n";
|
||||
| 5b3eb8e6 | Hamish Coleman | }
|