pgm2 support for Oregon PCR800 rain gauge added

git-svn-id: https://svn.fhem.de/fhem/trunk@701 2b470e98-0d58-463d-a4d8-8e2adae1ed80

fhem/webfrontend/pgm2/oregon_rain.gplot

@@ -0,0 +1,53 @@
+############################
+# Display the temperature and the humidity values of a Oregon PCR800 rain gauge
+#
+# FileLog definition: 
+# define <filelogname> FileLog /var/log/fhem/<devname>-%Y.log <devname>
+# Filelog example:
+# define FileLog_PCR800_7a FileLog /var/log/fhem/PCR800_7a-%Y.log PCR800_7a.*rain.*
+#
+# Logfile record example:
+# 2010-08-16_19:44:34 PCR800_7a rain_rate: 0
+# 2010-08-16_19:44:35 PCR800_7a rain_total: 2.08
+
+
+
+set terminal png transparent size <SIZE> crop
+set output '<OUT>.png'
+set xdata time
+set timefmt "%Y-%m-%d_%H:%M:%S"
+set xlabel " "
+set ytics nomirror
+set y2tics
+set title '<L1>'
+set grid
+
+set y2label "Rain rate mm/hr"
+set format y "%0.1f"
+set ylabel "Rain (l/m2)"
+set yrange [0:]
+
+# Computing Rain/h and Rain/d values by accumulating the changes.
+
+#FileLog 4:rain_rate:0:
+#FileLog 4:rain_total:0:delta-h
+#FileLog 4:rain_total:0:delta-d
+
+plot "< awk $3=="rain_rate:" {print $1, $4}' <IN>"\
+     using 1:2 axes x1y2 title 'Rain Rate' with lines lw 2,\
+     "<grep rain_total <IN> | perl -ane '\
+        @a = split(\" \", $F[0]);\
+        if(defined($lh) && $lh ne $a[1])\
+          { printf(\"${ld}_$lh:30:00 %f\n\", $hv); $hv = 0; }\
+        if($lv) { $hv += ($F[4]-$lv); }\
+        $lh = $a[1]; $ld = $a[0]; $lv = $F[4];\
+        END { printf(\"${ld}_$lh:30:00 %f\n\", $hv) }'"\
+     using 1:2 axes x1y1 title 'Rain/h' with histeps,\
+     "<grep rain_total <IN> | perl -ane '\
+        @a = split(\" \", $F[0]);\
+        if(defined($ld) && $ld ne $a[0]) {\
+          printf(\"${ld}_12:00:00 %f\n\", $dv); $dv = 0; }\
+          if($lv) { $dv += ($F[4]-$lv); }\
+          $ld = $a[0]; $lv = $F[4];\
+          END {printf(\"${ld}_12:00:00 %f\n\", $dv)}'"\
+     using 1:2 axes x1y1 title 'Rain/day' with histeps