#!/usr/bin/perl
#
# get list of DACS values from get_dac3 log table.
# and put into html table for inclusion into page...
#
# get commands to use
($source,$destination, $other) = @ARGV;
if($source eq "") {
print "usage: dacs_tbl.pl source destination ( source is path and file name of log file)\n";
exit(0);
}
if($destination eq "") {
print "usage: dacs_tbl.pl source destination ( destination is path and file name of html file )\n";
exit(0);
}
# get start time of run
$date = `date`;
@TMPLIST=(`tail -n 48 $source`);
# debug option
#print "@TMPLIST";
open ( FINDEX, ">$destination");
print FINDEX "DACS Report\n";
print FINDEX "DACS Report $date
\n\n";
print FINDEX "DACS report using Summary DATA \n
\n";
print FINDEX "
\n";
print FINDEX "
DACS = Data Acquisition And Control Board by BOBZ\n";
print FINDEX "
NOTE: data obtained by using the command s\n";
print FINDEX "
NOTE: not shown is command o~ which toggles outputs each reading\n";
print FINDEX "
Volts In: is battery voltage from Harbor Freight solar array.\n";
print FINDEX "
\n";
print FINDEX "
\n";
print FINDEX "| Date | Time | ";
print FINDEX "Inputs | Outputs | Volts In | Temperature |
|---|
\n";
foreach (sort @TMPLIST)
{
chomp;
($tdate, $ttime, $tt1, $tt2, $tt3, $tt4, $tt5, $junk) = split(/\|/, $_);
print FINDEX "| $tdate | $ttime | $tt2 | ";
print FINDEX "$tt3 | $tt4 | $tt5 | ";
print FINDEX "
\n";
}
print FINDEX "
\n";
print FINDEX "
\n\n";
print FINDEX "\n\n";
close FINDEX;
exit(0);