FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-04-22 14:16:42 +00:00
Code Issues Releases Wiki Activity

14_Hideki.pm 14_SD_WS.pm 14_SD_WS07.pm 14_SD_WS09.pm 41_OREGON.pm: add batteryState (Forum #87575)

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@16935 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
sidey79 2018-07-02 20:22:34 +00:00
parent 34a028b0dd
commit 5d916cc5eb
6 changed files with 161 additions and 125 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
fhem/CHANGED
View File

@ -1,5 +1,10 @@
# Add changes at the top of the list. Keep it in ASCII, and 80-char wide. # Add changes at the top of the list. Keep it in ASCII, and 80-char wide.
# Do not insert empty lines here, update check depends on it. # Do not insert empty lines here, update check depends on it.
- changed: 14_Hideki: standard battery readings
- changed: 14_SD_WS: standard battery readings
- changed: 14_SD_WS07: standard battery readings
- changed: 14_SD_WS09: standard battery readings
- changed: 41_Oregon: standard battery readings
- change: 76_SMAInverter: Internal MODEL added - change: 76_SMAInverter: Internal MODEL added
- feature: 49_SSCam: V5.3.0, new createStreamDev generic, control elements - feature: 49_SSCam: V5.3.0, new createStreamDev generic, control elements
for runView content within fhemweb, some new CamLive- for runView content within fhemweb, some new CamLive-

1
fhem/FHEM/14_Hideki.pm
View File

@ -216,6 +216,7 @@ Hideki_Parse($$)
readingsBeginUpdate($hash); readingsBeginUpdate($hash);
readingsBulkUpdate($hash, "state", $val); readingsBulkUpdate($hash, "state", $val);
readingsBulkUpdate($hash, "battery", $bat) if ($bat ne ""); readingsBulkUpdate($hash, "battery", $bat) if ($bat ne "");
readingsBulkUpdate($hash, "batteryState", $bat) if ($bat ne "");
readingsBulkUpdate($hash, "channel", $channel) if ($channel ne ""); readingsBulkUpdate($hash, "channel", $channel) if ($channel ne "");
readingsBulkUpdate($hash, "temperature", $temp) if ($temp ne ""); readingsBulkUpdate($hash, "temperature", $temp) if ($temp ne "");
readingsBulkUpdate($hash, "package_number", $count) if ($count ne ""); readingsBulkUpdate($hash, "package_number", $count) if ($count ne "");

238
fhem/FHEM/14_SD_WS.pm
View File

@ -155,7 +155,7 @@ sub SD_WS_Parse($$)
temp => sub {my (undef,$bitData) = @_; return (((SD_WS_binaryToNumber($bitData,22,25)*256 + SD_WS_binaryToNumber($bitData,18,21)*16 + SD_WS_binaryToNumber($bitData,14,17)) *10 -12200) /18)/10; }, #temp temp => sub {my (undef,$bitData) = @_; return (((SD_WS_binaryToNumber($bitData,22,25)*256 + SD_WS_binaryToNumber($bitData,18,21)*16 + SD_WS_binaryToNumber($bitData,14,17)) *10 -12200) /18)/10; }, #temp
hum => sub {my (undef,$bitData) = @_; return (SD_WS_binaryToNumber($bitData,30,33)*16 + SD_WS_binaryToNumber($bitData,26,29)); }, #hum hum => sub {my (undef,$bitData) = @_; return (SD_WS_binaryToNumber($bitData,30,33)*16 + SD_WS_binaryToNumber($bitData,26,29)); }, #hum
channel => sub {my (undef,$bitData) = @_; return (SD_WS_binaryToNumber($bitData,12,13)+1 ); }, #channel channel => sub {my (undef,$bitData) = @_; return (SD_WS_binaryToNumber($bitData,12,13)+1 ); }, #channel
bat => sub {my (undef,$bitData) = @_; return SD_WS_binaryToNumber($bitData,34) eq "1" ? "ok" : "critical";}, bat => sub {my (undef,$bitData) = @_; return SD_WS_binaryToNumber($bitData,34) eq "0" ? "ok" : "low";},
# sync => sub {my (undef,$bitData) = @_; return (SD_WS_binaryToNumber($bitData,35,35) eq "1" ? "true" : "false");}, # sync => sub {my (undef,$bitData) = @_; return (SD_WS_binaryToNumber($bitData,35,35) eq "1" ? "true" : "false");},
} , } ,
51 => 51 =>
@ -169,7 +169,7 @@ sub SD_WS_Parse($$)
temp => sub {my (undef,$bitData) = @_; return round(((SD_WS_binaryToNumber($bitData,16,27)) -1220) *5 /90.0,1); }, #temp temp => sub {my (undef,$bitData) = @_; return round(((SD_WS_binaryToNumber($bitData,16,27)) -1220) *5 /90.0,1); }, #temp
hum => sub {my (undef,$bitData) = @_; return (SD_WS_binaryToNumber($bitData,28,31)*10) + (SD_WS_binaryToNumber($bitData,32,35)); }, #hum hum => sub {my (undef,$bitData) = @_; return (SD_WS_binaryToNumber($bitData,28,31)*10) + (SD_WS_binaryToNumber($bitData,32,35)); }, #hum
channel => sub {my (undef,$bitData) = @_; return (SD_WS_binaryToNumber($bitData,36,39) ); }, #channel channel => sub {my (undef,$bitData) = @_; return (SD_WS_binaryToNumber($bitData,36,39) ); }, #channel
bat => sub {my (undef,$bitData) = @_; return SD_WS_binaryToNumber($bitData,13) eq "1" ? "crititcal" : "ok";}, bat => sub {my (undef,$bitData) = @_; return SD_WS_binaryToNumber($bitData,13) eq "1" ? "low" : "ok";},
trend => sub {my (undef,$bitData) = @_; return SD_WS_binaryToNumber($bitData,15,16) eq "01" ? "rising" : SD_WS_binaryToNumber($bitData,14,15) eq "00" ? "neutral" : "rising";}, trend => sub {my (undef,$bitData) = @_; return SD_WS_binaryToNumber($bitData,15,16) eq "01" ? "rising" : SD_WS_binaryToNumber($bitData,14,15) eq "00" ? "neutral" : "rising";},
# sync => sub {my (undef,$bitData) = @_; return (SD_WS_binaryToNumber($bitData,35,35) eq "1" ? "true" : "false");}, # sync => sub {my (undef,$bitData) = @_; return (SD_WS_binaryToNumber($bitData,35,35) eq "1" ? "true" : "false");},
} , } ,
@ -219,7 +219,7 @@ sub SD_WS_Parse($$)
} }
}, },
id => sub {my (undef,$bitData) = @_; return SD_WS_binaryToNumber($bitData,8,15); }, # random id id => sub {my (undef,$bitData) = @_; return SD_WS_binaryToNumber($bitData,8,15); }, # random id
bat => sub {my (undef,$bitData) = @_; return SD_WS_binaryToNumber($bitData,16) eq "1" ? "crititcal" : "ok";}, # bat? bat => sub {my (undef,$bitData) = @_; return SD_WS_binaryToNumber($bitData,16) eq "1" ? "low" : "ok";}, # bat?
channel => sub {my (undef,$bitData) = @_; return (SD_WS_binaryToNumber($bitData,17,19)+1 ); }, # channel channel => sub {my (undef,$bitData) = @_; return (SD_WS_binaryToNumber($bitData,17,19)+1 ); }, # channel
temp => sub {my (undef,$bitData) = @_; return round((SD_WS_binaryToNumber($bitData,20,31)-720)*0.0556,1); }, # temp temp => sub {my (undef,$bitData) = @_; return round((SD_WS_binaryToNumber($bitData,20,31)-720)*0.0556,1); }, # temp
hum => sub {my (undef,$bitData) = @_; return (SD_WS_binaryToNumber($bitData,32,39)); }, # hum hum => sub {my (undef,$bitData) = @_; return (SD_WS_binaryToNumber($bitData,32,39)); }, # hum
@ -398,129 +398,130 @@ sub SD_WS_Parse($$)
} elsif ($protocol eq "64") # WH2 } elsif ($protocol eq "64") # WH2
{ {
#* Fine Offset Electronics WH2 Temperature/Humidity sensor protocol #* Fine Offset Electronics WH2 Temperature/Humidity sensor protocol
#* aka Agimex Rosenborg 66796 (sold in Denmark) #* aka Agimex Rosenborg 66796 (sold in Denmark)
#* aka ClimeMET CM9088 (Sold in UK) #* aka ClimeMET CM9088 (Sold in UK)
#* aka TFA Dostmann/Wertheim 30.3157 (Temperature only!) (sold in Germany) #* aka TFA Dostmann/Wertheim 30.3157 (Temperature only!) (sold in Germany)
#* aka ... #* aka ...
#* #*
#* The sensor sends two identical packages of 48 bits each ~48s. The bits are PWM modulated with On Off Keying #* The sensor sends two identical packages of 48 bits each ~48s. The bits are PWM modulated with On Off Keying
# * The data is grouped in 6 bytes / 12 nibbles # * The data is grouped in 6 bytes / 12 nibbles
#* [pre] [pre] [type] [id] [id] [temp] [temp] [temp] [humi] [humi] [crc] [crc] #* [pre] [pre] [type] [id] [id] [temp] [temp] [temp] [humi] [humi] [crc] [crc]
#* #*
#* pre is always 0xFF #* pre is always 0xFF
#* type is always 0x4 (may be different for different sensor type?) #* type is always 0x4 (may be different for different sensor type?)
#* id is a random id that is generated when the sensor starts #* id is a random id that is generated when the sensor starts
#* temp is 12 bit signed magnitude scaled by 10 celcius #* temp is 12 bit signed magnitude scaled by 10 celcius
#* humi is 8 bit relative humidity percentage #* humi is 8 bit relative humidity percentage
#* Based on reverse engineering with gnu-radio and the nice article here: #* Based on reverse engineering with gnu-radio and the nice article here:
#* http://lucsmall.com/2012/04/29/weather-station-hacking-part-2/ #* http://lucsmall.com/2012/04/29/weather-station-hacking-part-2/
# 0x4A/74 0x70/112 0xEF/239 0xFF/255 0x97/151 | Sensor ID: 0x4A7 | 255% | 239 | OK # 0x4A/74 0x70/112 0xEF/239 0xFF/255 0x97/151 | Sensor ID: 0x4A7 | 255% | 239 | OK
#{ Dispatch($defs{sduino}, "W64#FF48D0C9FFBA", undef) } #{ Dispatch($defs{sduino}, "W64#FF48D0C9FFBA", undef) }
#* Message Format: #* Message Format:
#* .- [0] -. .- [1] -. .- [2] -. .- [3] -. .- [4] -. #* .- [0] -. .- [1] -. .- [2] -. .- [3] -. .- [4] -.
#* | | | | | | | | | | #* | | | | | | | | | |
#* SSSS.DDDD DDN_.TTTT TTTT.TTTT WHHH.HHHH CCCC.CCCC #* SSSS.DDDD DDN_.TTTT TTTT.TTTT WHHH.HHHH CCCC.CCCC
#* | | | || | | | | | | || | | | #* | | | || | | | | | | || | | |
#* | | | || | | | | | | || | `--------- CRC #* | | | || | | | | | | || | `--------- CRC
#* | | | || | | | | | | |`-------- Humidity #* | | | || | | | | | | |`-------- Humidity
#* | | | || | | | | | | | #* | | | || | | | | | | |
#* | | | || | | | | | | `---- weak battery #* | | | || | | | | | | `---- weak battery
#* | | | || | | | | | | #* | | | || | | | | | |
#* | | | || | | | | `----- Temperature T * 0.1 #* | | | || | | | | `----- Temperature T * 0.1
#* | | | || | | | | #* | | | || | | | |
#* | | | || | | `---------- Temperature T * 1 #* | | | || | | `---------- Temperature T * 1
#* | | | || | | #* | | | || | |
#* | | | || `--------------- Temperature T * 10 #* | | | || `--------------- Temperature T * 10
#* | | | | `--- new battery #* | | | | `--- new battery
#* | | `---------- ID #* | | `---------- ID
#* `---- START = 9 #* `---- START = 9
#* #*
#*/ #*/
$msg = substr($msg,0,16); $msg = substr($msg,0,16);
my (undef ,$rawData) = split("#",$msg); my (undef ,$rawData) = split("#",$msg);
my $hlen = length($rawData); my $hlen = length($rawData);
my $blen = $hlen * 4; my $blen = $hlen * 4;
my $msg_vor ="W64#"; my $msg_vor ="W64#";
my $bitData20; my $bitData20;
my $sign = 0; my $sign = 0;
my $rr2; my $rr2;
my $vorpre = -1; my $vorpre = -1;
my $bitData = unpack("B$blen", pack("H$hlen", $rawData)); my $bitData = unpack("B$blen", pack("H$hlen", $rawData));
my $temptyp = substr($bitData,0,8); my $temptyp = substr($bitData,0,8);
if( $temptyp == "11111110" ) { if( $temptyp == "11111110" ) {
$rawData = SD_WS_WH2SHIFT($rawData); $rawData = SD_WS_WH2SHIFT($rawData);
$msg = $msg_vor.$rawData; $msg = $msg_vor.$rawData;
$bitData = unpack("B$blen", pack("H$hlen", $rawData)); $bitData = unpack("B$blen", pack("H$hlen", $rawData));
Log3 $iohash, 4, "$name: SD_WS_WH2_1 msg=$msg length:".length($bitData) ; Log3 $iohash, 4, "$name: SD_WS_WH2_1 msg=$msg length:".length($bitData) ;
Log3 $iohash, 4, "$name: SD_WS_WH2_1 bitdata: $bitData" ; Log3 $iohash, 4, "$name: SD_WS_WH2_1 bitdata: $bitData" ;
} else{ } else{
if ( $temptyp == "11111101" ) { if ( $temptyp == "11111101" ) {
$rawData = SD_WS_WH2SHIFT($rawData); $rawData = SD_WS_WH2SHIFT($rawData);
$rawData = SD_WS_WH2SHIFT($rawData); $rawData = SD_WS_WH2SHIFT($rawData);
$msg = $msg_vor.$rawData; $msg = $msg_vor.$rawData;
$bitData = unpack("B$blen", pack("H$hlen", $rawData)); $bitData = unpack("B$blen", pack("H$hlen", $rawData));
Log3 $iohash, 4, "$name: SD_WS_WH2_2 msg=$msg length:".length($bitData) ; Log3 $iohash, 4, "$name: SD_WS_WH2_2 msg=$msg length:".length($bitData) ;
Log3 $iohash, 4, "$name: SD_WS_WH2_2 bitdata: $bitData" ; Log3 $iohash, 4, "$name: SD_WS_WH2_2 bitdata: $bitData" ;
} }
} }
if( $temptyp == "11111111" ) { if( $temptyp == "11111111" ) {
$vorpre = 8; $vorpre = 8;
}else{ }else{
Log3 $iohash, 4, "$name: SD_WS_WH2_4 Error kein WH2: Typ: $temptyp" ; Log3 $iohash, 4, "$name: SD_WS_WH2_4 Error kein WH2: Typ: $temptyp" ;
return ""; return "";
} }
my $rc = eval my $rc = eval
{ {
require Digest::CRC; require Digest::CRC;
Digest::CRC->import(); Digest::CRC->import();
1; 1;
}; };
if($rc) if($rc)
{ {
# Digest::CRC loaded and imported successfully # Digest::CRC loaded and imported successfully
Log3 $iohash, 4, "$name: SD_WS_WH2_1 msg: $msg raw: $rawData " ; Log3 $iohash, 4, "$name: SD_WS_WH2_1 msg: $msg raw: $rawData " ;
$rr2 = SD_WS_WH2CRCCHECK($rawData); $rr2 = SD_WS_WH2CRCCHECK($rawData);
if ($rr2 == 0 ){ if ($rr2 == 0 ){
# 1.CRC OK # 1.CRC OK
Log3 $iohash, 4, "$name: SD_WS_WH2_1 CRC_OK : CRC=$rr2 msg: $msg check:".$rawData ; Log3 $iohash, 4, "$name: SD_WS_WH2_1 CRC_OK : CRC=$rr2 msg: $msg check:".$rawData ;
}else{ }else{
Log3 $iohash, 4, "$name: SD_WS_WH2_4 CRC_Error: CRC=$rr2 msg: $msg check:".$rawData ; Log3 $iohash, 4, "$name: SD_WS_WH2_4 CRC_Error: CRC=$rr2 msg: $msg check:".$rawData ;
return ""; return "";
} }
}else { }else {
Log3 $iohash, 1, "$name: SD_WS_WH2_3 CRC_not_load: Modul Digest::CRC fehlt" ; Log3 $iohash, 1, "$name: SD_WS_WH2_3 CRC_not_load: Modul Digest::CRC fehlt" ;
return ""; return "";
} }
$bitData = unpack("B$blen", pack("H$hlen", $rawData)); $bitData = unpack("B$blen", pack("H$hlen", $rawData));
Log3 $iohash, 4, "$name converted to bits: WH2 " . $bitData; Log3 $iohash, 4, "$name converted to bits: WH2 " . $bitData;
$model = "SD_WS_WH2"; $model = "SD_WS_WH2";
$SensorTyp = "WH2"; $SensorTyp = "WH2";
$id = SD_WS_bin2dec(substr($bitData,$vorpre + 4,6)); $id = SD_WS_bin2dec(substr($bitData,$vorpre + 4,6));
$id = sprintf('%03X', $id); $id = sprintf('%03X', $id);
$channel = 0; $channel = 0;
$bat = SD_WS_bin2dec(substr($bitData,$vorpre + 20,1)); $bat = SD_WS_binaryToNumber($bitData,$vorpre + 20) eq "1" ? "low" : "ok";
$sign = SD_WS_bin2dec(substr($bitData,$vorpre + 12,1));
if ($sign == 0) { $sign = SD_WS_bin2dec(substr($bitData,$vorpre + 12,1));
# Temp positiv
$temp = (SD_WS_bin2dec(substr($bitData,$vorpre + 13,11))) / 10;
}else{
# Temp negativ
$temp = -(SD_WS_bin2dec(substr($bitData,$vorpre + 13,11))) / 10;
}
Log3 $iohash, 4, "$name decoded protocolid: $protocol ($SensorTyp) sensor id=$id, Data:".substr($bitData,$vorpre + 12,12)." temp=$temp";
$hum = SD_WS_bin2dec(substr($bitData,$vorpre + 24,8)); # TFA 30.3157 nur Temp, Hum = 255
Log3 $iohash, 4, "$name SD_WS_WH2_8: $protocol ($SensorTyp) sensor id=$id, Data:".substr($bitData,$vorpre + 24,8)." hum=$hum";
Log3 $iohash, 4, "$name SD_WS_WH2_9: $protocol ($SensorTyp) sensor id=$id, channel=$channel, temp=$temp, hum=$hum";
} if ($sign == 0) {
# Temp positiv
$temp = (SD_WS_bin2dec(substr($bitData,$vorpre + 13,11))) / 10;
}else{
# Temp negativ
$temp = -(SD_WS_bin2dec(substr($bitData,$vorpre + 13,11))) / 10;
}
Log3 $iohash, 4, "$name decoded protocolid: $protocol ($SensorTyp) sensor id=$id, Data:".substr($bitData,$vorpre + 12,12)." temp=$temp";
$hum = SD_WS_bin2dec(substr($bitData,$vorpre + 24,8)); # TFA 30.3157 nur Temp, Hum = 255
Log3 $iohash, 4, "$name SD_WS_WH2_8: $protocol ($SensorTyp) sensor id=$id, Data:".substr($bitData,$vorpre + 24,8)." hum=$hum";
Log3 $iohash, 4, "$name SD_WS_WH2_9: $protocol ($SensorTyp) sensor id=$id, channel=$channel, temp=$temp, hum=$hum";
}
elsif (defined($decodingSubs{$protocol})) # durch den hash decodieren elsif (defined($decodingSubs{$protocol})) # durch den hash decodieren
{ {
@ -609,6 +610,7 @@ sub SD_WS_Parse($$)
readingsBulkUpdate($hash, "temperature", $temp) if (defined($temp)&& ($temp > -60 && $temp < 70 )); readingsBulkUpdate($hash, "temperature", $temp) if (defined($temp)&& ($temp > -60 && $temp < 70 ));
readingsBulkUpdate($hash, "humidity", $hum) if (defined($hum) && ($hum > 0 && $hum < 100 )) ; readingsBulkUpdate($hash, "humidity", $hum) if (defined($hum) && ($hum > 0 && $hum < 100 )) ;
readingsBulkUpdate($hash, "battery", $bat) if (defined($bat) && length($bat) > 0) ; readingsBulkUpdate($hash, "battery", $bat) if (defined($bat) && length($bat) > 0) ;
readingsBulkUpdate($hash, "batteryState", $bat) if (defined($bat) && length($bat) > 0) ;
readingsBulkUpdate($hash, "channel", $channel) if (defined($channel)&& length($channel) > 0); readingsBulkUpdate($hash, "channel", $channel) if (defined($channel)&& length($channel) > 0);
readingsBulkUpdate($hash, "trend", $trend) if (defined($trend) && length($trend) > 0); readingsBulkUpdate($hash, "trend", $trend) if (defined($trend) && length($trend) > 0);

2
fhem/FHEM/14_SD_WS07.pm
View File

@ -210,6 +210,8 @@ SD_WS07_Parse($$)
#my $battery = ReadingsVal($name, "battery", "unknown"); #my $battery = ReadingsVal($name, "battery", "unknown");
#if ($bat ne $battery) { #if ($bat ne $battery) {
readingsBulkUpdate($hash, "battery", $bat); readingsBulkUpdate($hash, "battery", $bat);
readingsBulkUpdate($hash, "batteryState", $bat);
#} #}
} }
readingsBulkUpdate($hash, "channel", $channel) if ($channel ne ""); readingsBulkUpdate($hash, "channel", $channel) if ($channel ne "");

2
fhem/FHEM/14_SD_WS09.pm
View File

@ -412,6 +412,8 @@
readingsBulkUpdate($hash, "temperature", $temp) if ($temp ne""); readingsBulkUpdate($hash, "temperature", $temp) if ($temp ne"");
readingsBulkUpdate($hash, "humidity", $hum) if ($hum ne "" && $hum != 0 ); readingsBulkUpdate($hash, "humidity", $hum) if ($hum ne "" && $hum != 0 );
readingsBulkUpdate($hash, "battery", $bat) if ($bat ne ""); readingsBulkUpdate($hash, "battery", $bat) if ($bat ne "");
readingsBulkUpdate($hash, "batteryState", $bat) if ($bat ne "");
#zusätzlich Daten für Wetterstation #zusätzlich Daten für Wetterstation
readingsBulkUpdate($hash, "rain", $rain ); readingsBulkUpdate($hash, "rain", $rain );
readingsBulkUpdate($hash, ".rainOffset", $rain_offset ); # Zwischenspeicher für den offset readingsBulkUpdate($hash, ".rainOffset", $rain_offset ); # Zwischenspeicher für den offset

24
fhem/FHEM/41_OREGON.pm
View File

@ -312,6 +312,12 @@ sub OREGON_simple_battery {
type => 'battery', type => 'battery',
current => $battery, current => $battery,
units => '%', units => '%',
},
{
device => $dev,
type => 'batteryState',
current => $battery,
units => '',
} }
} }
@ -319,11 +325,14 @@ sub OREGON_percentage_battery {
my ($bytes, $dev, $res) = @_; my ($bytes, $dev, $res) = @_;
my $battery; my $battery;
my $batteryState;
my $battery_level = 100-10*OREGON_lo_nibble($bytes->[4]); my $battery_level = 100-10*OREGON_lo_nibble($bytes->[4]);
if ($battery_level > 50) { if ($battery_level > 50) {
$battery = sprintf("ok %d%%",$battery_level); $battery = sprintf("ok %d%%",$battery_level);
$batteryState="ok";
} else { } else {
$battery = sprintf("low %d%%",$battery_level); $battery = sprintf("low %d%%",$battery_level);
$batteryState="low";
} }
push @$res, { push @$res, {
@ -331,7 +340,20 @@ sub OREGON_percentage_battery {
type => 'battery', type => 'battery',
current => $battery, current => $battery,
units => '%', units => '%',
}, {
device => $dev,
type => 'batteryPercent',
current => $battery_level,
units => '%',
},
{
device => $dev,
type => 'batteryState',
current => $batteryState,
units => '',
} }
} }
my @uv_str = my @uv_str =
@ -1012,6 +1034,8 @@ OREGON_Parse($$)
##$def->{READINGS}{$sensor}{TIME} = $tm; ##$def->{READINGS}{$sensor}{TIME} = $tm;
##$def->{READINGS}{$sensor}{VAL} = $i->{current}; ##$def->{READINGS}{$sensor}{VAL} = $i->{current};
##$def->{CHANGED}[$n++] = $sensor . ": " . $i->{current};; ##$def->{CHANGED}[$n++] = $sensor . ": " . $i->{current};;
} elsif ($i->{type} eq "batterPercent" || $i->{type} eq "batteryState") {
readingsBulkUpdate($def,$i->{type},$i->{current});
} }
elsif ($i->{type} eq "pressure") { elsif ($i->{type} eq "pressure") {
#printf "Luftdruck %d %s, Vorhersage=%s ; ",$i->{current},$i->{units},$i->{forecast}; #printf "Luftdruck %d %s, Vorhersage=%s ; ",$i->{current},$i->{units},$i->{forecast};