#!/usr/bin/perl
# from ~eichin/perl/checktemp.pl

$base="/home/therm/logs/temp-";
sub slow_tail {
    my $l, $m;
    open(TMP, "<$_[0]");
    while(<TMP>) { $m = $l; $l = $_; }
    close(TMP);
    $m;
}
sub tail {
    `/usr/bin/tail -n 1 $_[0]`;
}

%labels = ("a", "   Ceiling space above machine room [A]",
	   "b", "                       Machine room [B]",
	   "c", "Northwest corner (10' from windows) [C]",
	   "d", "Middle of office (15' from windows) [D]");

($ryy, $rmo, $rdd, $rhh, $rmm) = (localtime(time))[5,4,3,2,1];
$rmo += 1;
foreach $i ("a", "b", "c", "d") {
    $f = "$base$i.log";
    $_ = tail($f); chop;
    ($yy, $mo, $dd, $hh, $mm, $tmpC) = 
	m/(\d\d) (\d\d) (\d\d) (\d\d) (\d\d) (\d*\.\d*)/;
    if ($yy != $ryy
	or $mo != $rmo
	or $dd != $rdd
	or $hh != $rhh
	or ($mm != $rmm
	    and $mm != $rmm+1
	    and $mm+1 != $rmm)) {
	print "Time lag: ($i) data $yy$mo$dd $hh:$mm clock $ryy$rmo$rdd $rhh:$rmm\n";
    }

    $tmpF = 9*($tmpC/5) + 32;
    print "$labels{$i} = $tmpC C ($tmpF F)\n";

}