From 2c148a8ed56c09cb34ba4c44f5d6b84c06afb50c Mon Sep 17 00:00:00 2001 From: Michael Gernoth Date: Tue, 9 Feb 2010 19:23:32 +0100 Subject: [PATCH] intra page links for different hosts --- upsgraph.pl | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) diff --git a/upsgraph.pl b/upsgraph.pl index 2e40196..24d196a 100755 --- a/upsgraph.pl +++ b/upsgraph.pl @@ -241,10 +241,17 @@ exit 0 if ($child != 0); while(1) { open(HTML, ">${outdir}/index.html.new"); - print HTML 'USV status'; + print HTML 'Status'; print HTML ''; foreach my $host (@$hosts) { + print HTML "[{'name'}."\">".${host}->{'name'}."] "; + } + print HTML "
\n"; + + foreach my $host (@$hosts) { + print HTML "
\n"; + print HTML "{'name'}."\">\n"; my $vars = $host->{'vars'}; my $rrdfile = $host->{'rrdfile'}; my $hostname = $host->{'name'}; @@ -292,7 +299,7 @@ while(1) { rename("${outdir}/${hostname}.${var}.png.new", "${outdir}/${hostname}.${var}.png"); } - print HTML ""; + print HTML "
\n"; open (HTML2, ">${outdir}/${hostname}.${var}.html.new"); print HTML2 "" . $vars->{$var}->{'name'} . ""; -- 2.39.2