add humidity scale

[dweather.git] / loop.pl

diff --git a/loop.pl b/loop.pl
index e287ce5913b0370d0aa32345ac6348b42b343541..7abba2d70408881c61ace5f86599da67f4d3e8ea 100755 (executable)
--- a/loop.pl
+++ b/loop.pl
@@ -19,6 +19,7 @@ use IO::File;
 
 use constant pi => 3.14159265358979; 
 
+my $randomfn = '/dev/urandom';
 my $devname = "/dev/davis";
 my $datafn = ".loop_data";
 my $dataf;
@@ -161,11 +162,17 @@ for (my $i = 0-$histdays; $i < 0; ++$i ) {
 @last10minsr = map {my ($t, $js) = split(/\s/, $_, 2); $js} grab_history(SMGLog->new("debug"), "r", $tnow-(60*$windmins), $dayno);
 dbg sprintf("last5days = %d last10mins = %d", scalar @last5daysh, scalar @last10minsr);
 
+sysopen(R, $randomfn, 0) or die "cannot open $randomfn $!\n";
+my $rs;
+sysread(R, $rs, 32) or die "not enough randomness available\n";
+close R;
+
+app->secrets([qw(Here's something that's really seakrett), $rs]);
+
 our $dlog = SMGLog->new("day");
 dbg "before next tick";
 Mojo::IOLoop->next_tick(sub { loop() });       
 dbg "before app start";
-app->secrets([qw(Here's something that's really seakrett)]);
 app->start;
 dbg "after app start";