From 6e1ea06ff20549af8d302ae1277a32935a14e778 Mon Sep 17 00:00:00 2001 From: mgehre <> Date: Mon, 6 Apr 2015 08:53:12 +0000 Subject: [PATCH] MAX: Add DbLog_splitFn (patch provided by juniormajor) git-svn-id: https://svn.fhem.de/fhem/trunk@8382 2b470e98-0d58-463d-a4d8-8e2adae1ed80 --- fhem/FHEM/10_MAX.pm | 19 +++++++++++++++++++ 1 file changed, 19 insertions(+) diff --git a/fhem/FHEM/10_MAX.pm b/fhem/FHEM/10_MAX.pm index 9770f20f2..db94c1c8e 100755 --- a/fhem/FHEM/10_MAX.pm +++ b/fhem/FHEM/10_MAX.pm @@ -16,6 +16,7 @@ sub MAX_Parse($$); sub MAX_Set($@); sub MAX_MD15Cmd($$$); sub MAX_DateTime2Internal($); +sub MAX_DbLog_splitFn($); my @ctrl_modes = ( "auto", "manual", "temporary", "boost" ); @@ -75,6 +76,7 @@ MAX_Initialize($) $hash->{AttrList} = "IODev do_not_notify:1,0 ignore:0,1 dummy:0,1 " . "showtime:1,0 keepAuto:0,1 scanTemp:0,1 ". $readingFnAttributes; + $hash->{DbLog_splitFn} = "MAX_DbLog_splitFn"; return undef; } @@ -870,6 +872,23 @@ MAX_Parse($$) return $shash->{NAME} } +############################# +sub +MAX_DbLog_splitFn($) +{ + my ($event) = @_; + my ($reading, $value, $unit) = ""; + + my @parts = split(/ /,$event); + $reading = shift @parts; + $reading =~ tr/://d; + $value = $parts[0]; + $value = $parts[1] if (lc($value) =~ m/auto/); + $unit = "\xB0C" if(lc($reading) =~ m/temp/); + $unit = "%" if(lc($reading) =~ m/valve/); + return ($reading, $value, $unit); +} + 1; =pod