#!/usr/bin/perl -w
use strict;
use FileHandle;
print <<"ENDOFHERE";
Content-Type: text/html
Environment graph list
Environment Graphs
ENDOFHERE
my $localhost = `hostname`;
chomp $localhost;
my @hosts = ();
my $fh = new FileHandle;
my $fn = '/home/swarren/cron_scripts/monitor/conf.cgi.hosts.txt';
if (!$fh->open($fn)) {
die "Can't open '${fn}' to read: $!";
}
while (<$fh>) {
chomp;
if ($_ eq 'localhost') {
$_ = $localhost;
}
push(@hosts, $_);
}
$fh->close();
foreach my $host (@hosts) {
my $host_str = $host;
$fh = new FileHandle;
$fn = '/home/swarren/cron_scripts/monitor/' . $host . '/conf.vars.txt';
if (!$fh->open($fn)) {
die "Can't open '${fn}' to read: $!";
}
while (<$fh>) {
chomp;
my $line = $_;
$line =~ s:#.*$::;
$line =~ s:^\s+::;
$line =~ s:\s+$::;
if ($line eq '') {
next;
}
my @line = split('\s+', $line);
if ($#line < 8) {
die "Wrong field count in var line: ${line}\n";
}
my ($var_type, $params, $var_name, $low_set, $low_clear, $high_clear, $high_set, $graph_max, @description) = @line;
my $description = join(' ', @description);
print <<"ENDOFHERE";
| $host_str |
$description |
[1 Day] |
[1 Week] |
[2 Weeks] |
[4 Weeks] |
[8 Weeks] |
ENDOFHERE
$host_str = '';
}
$fh->close();
}
print <<"ENDOFHERE";
ENDOFHERE