working version of sensor display

diff --git a/sensors/style.css b/sensors/style.css
index 42a67179197454aa8b9285baabddb46682f4df7e..2e255d4952f78ecf5be1d3a930bf037eb6871258 100644 (file)
--- a/sensors/style.css
+++ b/sensors/style.css
@@ -52,7 +52,7 @@ h1{
   height:100%;
   margin-left:5px;
   margin-top:2px;
-  font-size:20px;
+  font-size:17px;
   user-select: none;
   -moz-user-select: none;
 }

diff --git a/sensors/update.pl b/sensors/update.pl
index eb6812adb3308436762764b21b6e80a0e15442a8..dcef9967d815bc0bde7932b2ff896422ba04d3a3 100755 (executable)
--- a/sensors/update.pl
+++ b/sensors/update.pl
@@ -4,6 +4,7 @@ print "Content-Type: text/html; charset=utf-8\r\n\r\n";
 use warnings;
 use strict;
 use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
+use CGI;
 use utf8;
 use POSIX;
 use List::Util qw(min max);
@@ -11,10 +12,14 @@ use List::Util qw(min max);
 my $min = 1000;
 my $max = -1000;
 
+my $query = CGI->new;
+my $lines = $query->param('lines') || 50;
+
+
 sub defineScale {
   my $aref = shift @_;
-  $min = min(@{$aref});
-  $max = max(@{$aref});
+  $min = min(grep {defined $_} @{$aref});
+  $max = max(grep {defined $_} @{$aref});
   
   $min = floor($min/5)*5;
   $max = ceil($max/5)*5;
@@ -79,7 +84,8 @@ sub DrawScale {
 }
 
 my $values;
-my $tfile = "tail -n40 data/pt100.log";
+my $count;
+my $tfile = "tail -n$lines data/pt100.log";
 open(my $tdata, '-|', $tfile) or die "Could not open '$tfile' $!\n";
 while (my $line = <$tdata>) {
   #AT051028a0
@@ -87,10 +93,16 @@ while (my $line = <$tdata>) {
     next if $2 >= 8;
     my $v = hex($4);
     $v -= 0x100000 if $v >= 0x80000;
-    $values->[$1*8+$2] = $v/1000.;
-    $values->[$1*8+$2] = undef unless $3;
+    $values->[$1*8+$2] += $v/1000.;
+    $count->[$1*8+$2]++;
+    $values->[$1*8+$2] = undef if $3;
     }
   }
+
+for (my $i = 0; $i < scalar @{$values};$i++){
+  $values->[$i] = $values->[$i] / $count->[$i] if defined $values->[$i];
+  }
+
   
 defineScale($values);
 
@@ -106,7 +118,7 @@ while (my $line = <$cdata>) {
     print "
       <div class=\"sensor\" id=\"$f[0].$f[1]\" style=\"left:".($f[3]*20)."px;top:".($f[2]*20)."px;background:".findcolor($values->[$f[0]*8+$f[1]],$min,$max)."\">
         <div class=\"value\">$val</div>
-        <div class=\"sid\">$f[0]/$f[1]</div>
+        <div class=\"sid\">$f[0].$f[1]/".($count->[$f[0]*8+$f[1]]||0)."</div>
         <div class=\"name\">$f[4]</div>
       </div>      
       ";
@@ -115,4 +127,4 @@ while (my $line = <$cdata>) {
   }
  
 print '<div class="scale">'.DrawScale($min,$max,50).'</div>';
-  
\ No newline at end of file
+