Blame contrib/mrtgidx/mrtgidx
|
Packit |
667938 |
#!/usr/tardis/local/gnu/bin/perl5
|
|
Packit |
667938 |
|
|
Packit |
667938 |
# mrtgidx - generate html index page based on mrtg.cfg
|
|
Packit |
667938 |
#
|
|
Packit |
667938 |
# Syntax: mrtgidx <pathname-of-mrtg.cfg>
|
|
Packit |
667938 |
#
|
|
Packit |
667938 |
# v0.1 1996-11 by Axel Dunkel (ad@Dunkel.de)
|
|
Packit |
667938 |
#
|
|
Packit |
667938 |
|
|
Packit |
667938 |
# --- start of configuration section ---
|
|
Packit |
667938 |
|
|
Packit |
667938 |
$include_inactive = 1; # include interfaces that are commented out
|
|
Packit |
667938 |
|
|
Packit |
667938 |
# --- eof of configuration section ---
|
|
Packit |
667938 |
|
|
Packit |
667938 |
if ($#ARGV < 0) {
|
|
Packit |
667938 |
print "mrtgidx: generate HTML index page based on MRTG config file\n";
|
|
Packit |
667938 |
print "\nUsage: mrtgidx <pathname-of-mrtg.cfg-file>\n";
|
|
Packit |
667938 |
exit 2;
|
|
Packit |
667938 |
}
|
|
Packit |
667938 |
|
|
Packit |
667938 |
while ($line = <>) {
|
|
Packit |
667938 |
chop $line;
|
|
Packit |
667938 |
if ($line =~ /^(#*).*Title\[(\S+)\]:\s*([^:]*):\s*(.*)$/) {
|
|
Packit |
667938 |
$cmt = $1;
|
|
Packit |
667938 |
$itf = $2;
|
|
Packit |
667938 |
$title = $3;
|
|
Packit |
667938 |
$title_if = $4;
|
|
Packit |
667938 |
if ($cmt ne "#" || $include_inactive) {
|
|
Packit |
667938 |
if ($itf =~ /(.*)\.([0-9]+)/) {
|
|
Packit |
667938 |
$router{$1,$2} = $title_if;
|
|
Packit |
667938 |
$router_f{$1,$2} = $itf;
|
|
Packit |
667938 |
$router_n{$1} = $title;
|
|
Packit |
667938 |
$active{$1,$2} = $cmt;
|
|
Packit |
667938 |
} else {
|
|
Packit |
667938 |
print STDERR "Warning: can not interpret : $itf\n";
|
|
Packit |
667938 |
}
|
|
Packit |
667938 |
}
|
|
Packit |
667938 |
}
|
|
Packit |
667938 |
}
|
|
Packit |
667938 |
|
|
Packit |
667938 |
# print HTML header
|
|
Packit |
667938 |
|
|
Packit |
667938 |
print "<HTML><HEAD><TITLE>MRTG Index</TITLE></HEAD>\n";
|
|
Packit |
667938 |
print "<BODY>\n";
|
|
Packit |
667938 |
print "MRTG - Index\n";
|
|
Packit |
667938 |
print "<FONT SIZE=-2>generated by mrtgidx by Axel Dunkel</FONT>\n";
|
|
Packit |
667938 |
print "
|
|
Packit |
667938 |
|
|
Packit |
667938 |
foreach $r (sort keys %router_n) {
|
|
Packit |
667938 |
print "$r
|
|
Packit |
667938 |
foreach $i (0..200) {
|
|
Packit |
667938 |
if (defined $router{$r,$i}) {
|
|
Packit |
667938 |
print "";
|
|
Packit |
667938 |
if ($active{$r,$i} ne "#") { print ""; }
|
|
Packit |
667938 |
print "$router{$r,$i}";
|
|
Packit |
667938 |
if ($active{$r,$i} ne "#") { print "\n"; }
|
|
Packit |
667938 |
}
|
|
Packit |
667938 |
}
|
|
Packit |
667938 |
print "\n";
|
|
Packit |
667938 |
}
|
|
Packit |
667938 |
|
|
Packit |
667938 |
print "</BODY></HTML>\n";
|
|
Packit |
667938 |
|