FORUM.M.NU

Kod: Markera allt

*/2.5 * * * *           /home/anders/bin/get_temp.sh
*/2.5 * * * *           export LANG=sv_SE.utf8 && /home/anders/bin/graph_temp.pl

Kod: Markera allt

#!/bin/bash

OutsideTempSensor="xxxxxxxxxxxxxx"
IndoorTempSensor="yyyyyyyyyyyyyy"
AquaTempSensor="zzzzzzzzzzzzzzzz"
RRDDataDirectory="/home/huskii/rrddata/"
RRDDataFileOut="outside_temp.rrd"
RRDDataFileIn="indoor_temp.rrd"
RRDDataFileAqua="aqua_temp.rrd"

# Get temps
OutsideTemp=`cat /mnt/1wire/$OutsideTempSensor/temperature|sed -e s/" "//g|awk '{$1=$1 + 0.005;printf "%.2f", $1}'`
sleep 2;
IndoorTemp=`cat /mnt/1wire/$IndoorTempSensor/temperature|sed -e s/" "//g|awk '{$1=$1 + 0.005;printf "%.2f", $1}'`
sleep 2;
AquaTemp=`cat /mnt/1wire/$AquaTempSensor/temperature|sed -e s/" "//g|awk '{$1=$1 + 0.005;printf "%.2f", $1}'`

#Update RRD database
rrdtool update $RRDDataDirectory$RRDDataFileOut N:$OutsideTemp
sleep 5;
rrdtool update $RRDDataDirectory$RRDDataFileIn N:$IndoorTemp
sleep 5;
rrdtool update $RRDDataDirectory$RRDDataFileAqua N:$AquaTemp
#echo $OutsideTemp
#echo $AquaTemp

Kod: Markera allt

#!/usr/bin/perl

sleep 25;

use RRDs;

my $cur_time = time();
my $start_time = $cur_time - 604800;     # set end time to 7*24 hours ago

RRDs::graph "/var/www/graph_temp_w.png",
         "--start= $start_time",
         "--end= $cur_time",
         "--title= Temp ute/inne",
         "--height= 300",
         "--width= 500",
         "--vertical-label= °C",
         "DEF:OutsideTemp=/root/rrddata/outside_temp.rrd:outsidetemp:AVERAGE",
         "DEF:IndoorTemp=/root/rrddata/indoor_temp.rrd:outsidetemp:AVERAGE",
         "COMMENT:\t\t\t\tNu     Medel    Max    Min\\n",
         "HRULE:0#FF00FF",
         "LINE2:OutsideTemp#0000FF:Ute\t\t\t",
         "GPRINT:OutsideTemp:LAST:%6.1lf",
         "GPRINT:OutsideTemp:AVERAGE:%6.1lf",
         "GPRINT:OutsideTemp:MAX:%6.1lf",
         "GPRINT:OutsideTemp:MIN:%6.1lf\\n",
         "HRULE:18#FFFF00",
         "LINE2:IndoorTemp#00FF00:Inne\t\t",
         "GPRINT:IndoorTemp:LAST:%6.1lf",
         "GPRINT:IndoorTemp:AVERAGE:%6.1lf",
         "GPRINT:IndoorTemp:MAX:%6.1lf",
         "GPRINT:IndoorTemp:MIN:%6.1lf\\n";

my $err=RRDs::error;
if ($err) {print "problem generating the graph: $err\n";}

print "Done!\n"