#!/usr/bin/perl -w
# Directories where the log files reside in; get configured
# $logdir="/home/chris/construction/BTUmetering/log";
$logdir="MAINPROGROOT/log";
# $htdocsroot="/srv/www/htdocs/static";
$htdocsroot="HTDOCROOT/static";
#$htimgroot="/srv/www/htdocs/img2";
# pressure files to log
@filecores=("AHU2");
%wcolor=("AHU2" => "#efdfff"
);
sub sortbyname {
(reverse $a) cmp (reverse $b);
}
@showelist=sort sortbyname (keys %eunits);
# generate some header
print "content-type: text/html
CQT utility consumption server
";
# General blurb:
print "
CQT Chilled water differential pressure display
The values shown below reflect the reading of the metering device
at the indicated date/time.
";
# Generate the table header
print "
Location
Date MM/DD/YY
Time hh:mm:ss
Sensor reading
Voltage
Current
Δp
";
# make list of all entries
foreach $core (@filecores) {
# generate logging file name
$file=$logdir."/pressure_".$core.".log";
# read last line from that file (latest entry)
open LOGHANDLE, "tail -n 1 ".$file." |";
$logline=;
close LOGHANDLE ;
# split it in different entries
@loglist=split ' ', $logline;
if ($#loglist <1) {
# No file/entry present
print "