sleeplog format update

[mirrors/Programs.git] / c / goertzel / sleepmon.sh

diff --git a/c/goertzel/sleepmon.sh b/c/goertzel/sleepmon.sh
index cb28c7187de5e2a7d82c66cfa7f70024293fd5b9..72c827530ab6c3f5c78aca90644be6c72a9d6bc5 100755 (executable)
--- a/c/goertzel/sleepmon.sh
+++ b/c/goertzel/sleepmon.sh
@@ -1,4 +1,4 @@
-#!/bin/sh
+#!/bin/bash
 # Simple sleep monitor (Harvie 2012)
 #
 # You probably have soundcard with one output and input
@@ -12,33 +12,72 @@
 # Wake up
 # Enjoy your data
 
+out=/tmp/sleeplog-"$(date +%F_%T)".txt
+graphout="${out%%.*}.png"
 
-out=/tmp/sleeplog-"$(date +%F_%r)".txt
+killall speaker-test &>/dev/null
 speaker-test -t sine &>/dev/null &
+pid_test=$!
+
 tresh=10
-lastdate=0
+lastdate="$(date +%s)"
+laststate=0
+history='';
+historymax=120;
+historylen='10 30 60 90 120'
 screen=false
-while getopts "s" OPT; do
+graph=false
+
+export LC_ALL=C
+
+while getopts "sg" OPT; do
        test "$OPT" == 's' && screen=true;
+       test "$OPT" == 'g' && graph=true;
 done
-arecord | ./goertzel -i -q -a -t $tresh -s 2000 | while read line; do
+
+echo "Writing log to: $out";
+$graph && echo "Writing graph to: $graphout"
+echo
+arecord | ./goertzel -n i -q -l c -t $tresh -d 4 | while read line; do
        date="$(date +%s)"
        time="$(echo "$line" | cut -f 1)"
        level="$(echo "$line" | cut -f 2)"
-       echo -ne "$time\t$date\t$(date '+%F%t%r')\t"
-       test "$level" -gt "$tresh" && {
-               echo -n "Nothing detected...";
+       test "$level" -gt "$tresh" && state=false || state=true
+       $state && statenum=1 || statenum=0;
+       $state && statename='MOTION!' || statename='Nothing';
+
+       printf  "%.2f\t %s %s %d" "$time" "$date" "$(date '+%F %T')" "$statenum"
+
+       #History
+       after=$(( $date - $lastdate))
+       test $historymax -gt 0 && {
+               history=$(echo -n "$(yes | tr '\ny' $laststate | head -c $after)$history" | head -c $historymax)
+               for len in $historylen; do
+                       on="$(echo -n ${history::$len} | tr -d 0 | wc -c)"
+                       on="$(echo "scale=2; $on/$len" | bc)"
+                       printf " %.2f" "$on"
+               done
+       }
+
+       #Debug
+       printf " (%s %3d After %4d secs)\n" "$statename" "$level" "$after";
+
+       #Fun with values
+       $state && {
                $screen && xset dpms force off || true;
        } || {
-               echo -n "Motion detected!!!!";
                $screen && xset dpms force on;
        }
-       test "$lastdate" != 0 && {
-               after=$(( $date - $lastdate))
-               echo -ne "\t$level After $after secs";
-       }
-       echo;
+       $graph && ./sleepplot.sh "$out" "$graphout" &>/dev/null &
+
+       #Prepare invariants for next round
        lastdate="$date";
+       laststate="$statenum";
 done | tee "$out"
-kill $!
-echo "Your file: $out"
+kill $pid_test; sleep 0.2
+echo
+echo "Your log: $out"
+$graph && {
+       ./sleepplot.sh "$out" "$graphout" &>/dev/null
+       echo "Your graph: $graphout"
+}