#!/usr/bin/perl -w
# This code generates a static web page that contains the past monthly bills.
# It is essentially a wrapper for the monthlytable.pl script that does all the
# main work. This script only generates a HTML page wrapper.
# Directories where the log files reside in; gets configured
# $progroot="/home/chris/construction/BTUmetering";
$progroot="MAINPROGROOT";
$sumdir="$progroot/scripts";
$htimgroot="/img2";
# generate HTML page header
print "CQT chilled water consumption
";
# General blurb and image reference
print "CQT chilled water consumption - all monthly records
![\"montly](\"$htimgroot/overview.png\")
";
# Generate main table list
$a=`$sumdir/monthlytable.pl all`;
print $a;
# Link to main page of this server
print "Back to main page.
";
# Finish html page
print "\n\n";