51_MOBILEALERTS.pm 59 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049105010511052105310541055105610571058105910601061106210631064106510661067106810691070107110721073107410751076107710781079108010811082108310841085108610871088108910901091109210931094109510961097109810991100110111021103110411051106110711081109111011111112111311141115111611171118111911201121112211231124112511261127112811291130113111321133113411351136113711381139114011411142114311441145114611471148114911501151115211531154115511561157115811591160116111621163116411651166116711681169117011711172117311741175117611771178117911801181118211831184118511861187118811891190119111921193119411951196119711981199120012011202120312041205120612071208120912101211121212131214121512161217121812191220122112221223122412251226122712281229123012311232123312341235123612371238123912401241124212431244124512461247124812491250125112521253125412551256125712581259126012611262126312641265126612671268126912701271127212731274127512761277127812791280128112821283128412851286128712881289129012911292129312941295129612971298129913001301130213031304130513061307130813091310131113121313131413151316131713181319132013211322132313241325132613271328132913301331133213331334133513361337133813391340134113421343134413451346134713481349135013511352135313541355135613571358135913601361136213631364136513661367136813691370137113721373137413751376137713781379138013811382138313841385138613871388138913901391139213931394139513961397139813991400140114021403140414051406140714081409141014111412141314141415141614171418141914201421142214231424142514261427142814291430143114321433143414351436143714381439144014411442144314441445144614471448144914501451145214531454145514561457145814591460146114621463146414651466146714681469147014711472147314741475147614771478147914801481148214831484148514861487148814891490149114921493149414951496149714981499150015011502
  1. ##############################################
  2. # $Id: 51_MOBILEALERTS.pm 17494 2018-10-08 18:07:46Z MarkusF $
  3. # Written by Markus Feist, 2017
  4. package main;
  5. use strict;
  6. use warnings;
  7. use constant MA_RAIN_FACTOR => 0.258;
  8. sub MOBILEALERTS_Initialize($) {
  9. my ($hash) = @_;
  10. $hash->{DefFn} = "MOBILEALERTS_Define";
  11. $hash->{UndefFn} = "MOBILEALERTS_Undef";
  12. $hash->{SetFn} = "MOBILEALERTS_Set";
  13. $hash->{AttrFn} = "MOBILEALERTS_Attr";
  14. $hash->{ParseFn} = "MOBILEALERTS_Parse";
  15. $hash->{Match} = "^.*";
  16. $hash->{AttrList} =
  17. "actCycle "
  18. . "lastMsg:0,1 "
  19. . "expert:0,1,4 "
  20. . "stateFormat "
  21. . "ignore:0,1 "
  22. . $readingFnAttributes;
  23. $hash->{AutoCreate} = {
  24. "MA_.*" => {
  25. ATTR => "event-on-change-reading:.* timestamp-on-change-reading:.*",
  26. FILTER => "%NAME"
  27. }
  28. };
  29. InternalTimer( gettimeofday() + 60, "MOBILEALERTS_ActionDetector", $hash );
  30. Log3 "MOBILEALERTS", 5, "MOBILEALERTS_Initialize finished.";
  31. }
  32. sub MOBILEALERTS_Define($$) {
  33. my ( $hash, $def ) = @_;
  34. my (
  35. $name, $type, $deviceID, $corrTempIn,
  36. $corrHumIn, $corrTempOut, $corrHumOut, $corrTemp2,
  37. $corrHum2, $corrTemp3, $corrHum3
  38. ) = split( "[ \t]+", $def );
  39. Log3 $name, 3, "$name MOBILEALERTS: DeviceID $deviceID";
  40. $corrTempIn = 0 if ( !defined($corrTempIn) );
  41. $corrHumIn = 0 if ( !defined($corrHumIn) );
  42. $corrTempOut = 0 if ( !defined($corrTempOut) );
  43. $corrHumOut = 0 if ( !defined($corrHumOut) );
  44. $corrTemp2 = 0 if ( !defined($corrTemp2) );
  45. $corrHum2 = 0 if ( !defined($corrHum2) );
  46. $corrTemp3 = 0 if ( !defined($corrTemp3) );
  47. $corrHum3 = 0 if ( !defined($corrHum3) );
  48. $corrTempIn =~ s/,/./g;
  49. $corrHumIn =~ s/,/./g;
  50. $corrTempOut =~ s/,/./g;
  51. $corrHumOut =~ s/,/./g;
  52. $corrTemp2 =~ s/,/./g;
  53. $corrHum2 =~ s/,/./g;
  54. $corrTemp3 =~ s/,/./g;
  55. $corrHum3 =~ s/,/./g;
  56. return
  57. "Usage: define <name> MOBILEALERTS <id-12 stellig hex > <opt. corrTempIn> <opt. corrHumIn> <opt. corrTempOut/1> <opt. corrHumOut/1> <opt. corrTemp2> <opt. corrHum2> <opt. corrTemp3> <opt. corrHum3>"
  58. if ( ( $deviceID !~ m/^[0-9a-f]{12}$/ )
  59. || ( $corrTempIn !~ m/^-?[0-9]*\.?[0-9]*$/ )
  60. || ( $corrHumIn !~ m/^-?[0-9]*\.?[0-9]*$/ )
  61. || ( $corrTempOut !~ m/^-?[0-9]*\.?[0-9]*$/ )
  62. || ( $corrHumOut !~ m/^-?[0-9]*\.?[0-9]*$/ )
  63. || ( $corrTemp2 !~ m/^-?[0-9]*\.?[0-9]*$/ )
  64. || ( $corrHum2 !~ m/^-?[0-9]*\.?[0-9]*$/ )
  65. || ( $corrTemp3 !~ m/^-?[0-9]*\.?[0-9]*$/ )
  66. || ( $corrHum3 !~ m/^-?[0-9]*\.?[0-9]*$/ ) );
  67. $modules{MOBILEALERTS}{defptr}{$deviceID} = $hash;
  68. $hash->{DeviceID} = $deviceID;
  69. delete $hash->{corrTemperature};
  70. $hash->{corrTemperature} = $corrTempIn + 0 if ( $corrTempIn != 0 );
  71. $hash->{".corrTemperature"} = $corrTempIn + 0;
  72. delete $hash->{corrHumidty};
  73. $hash->{corrHumidity} = $corrHumIn + 0 if ( $corrHumIn != 0 );
  74. $hash->{".corrHumidity"} = $corrHumIn + 0;
  75. delete $hash->{corrTemperatureOut};
  76. $hash->{corrTemperatureOut} = $corrTempOut + 0 if ( $corrTempOut != 0 );
  77. $hash->{".corrTemperatureOut"} = $corrTempOut + 0;
  78. delete $hash->{corrHumidtyOut};
  79. $hash->{corrHumidityOut} = $corrHumOut + 0 if ( $corrHumOut != 0 );
  80. $hash->{".corrHumidityOut"} = $corrHumOut + 0;
  81. delete $hash->{corrTemperature2};
  82. $hash->{corrTemperature2} = $corrTemp2 + 0 if ( $corrTemp2 != 0 );
  83. $hash->{".corrTemperature2"} = $corrTemp2 + 0;
  84. delete $hash->{corrHumidty2};
  85. $hash->{corrHumidity2} = $corrHum2 + 0 if ( $corrHum2 != 0 );
  86. $hash->{".corrHumidity2"} = $corrHum2 + 0;
  87. delete $hash->{corrTemperature3};
  88. $hash->{corrTemperature3} = $corrTemp3 + 0 if ( $corrTemp3 != 0 );
  89. $hash->{".corrTemperature3"} = $corrTemp3 + 0;
  90. delete $hash->{corrHumidty3};
  91. $hash->{corrHumidity3} = $corrHum3 + 0 if ( $corrHum3 != 0 );
  92. $hash->{".corrHumidity3"} = $corrHum3 + 0;
  93. if ( ( exists $modules{MOBILEALERTS}{AutoCreateMessages} )
  94. && ( exists $modules{MOBILEALERTS}{AutoCreateMessages}{$deviceID} ) )
  95. {
  96. MOBILEALERTS_Parse(
  97. $modules{MOBILEALERTS}{AutoCreateMessages}{$deviceID}[0],
  98. $modules{MOBILEALERTS}{AutoCreateMessages}{$deviceID}[1]
  99. );
  100. delete $modules{MOBILEALERTS}{AutoCreateMessages}{$deviceID};
  101. }
  102. if ( substr( $deviceID, 0, 2 ) eq "08" ) {
  103. Log3 $name, 5, "$name MOBILEALERTS: is rainSensor, start Timer";
  104. InternalTimer( gettimeofday() + 60,
  105. "MOBILEALERTS_CheckRainSensorTimed", $hash );
  106. }
  107. return undef;
  108. }
  109. sub MOBILEALERTS_Undef($$) {
  110. my ( $hash, $name ) = @_;
  111. delete $modules{MOBILEALERTS}{defptr}{ $hash->{DeviceID} };
  112. RemoveInternalTimer( $hash, "MOBILEALERTS_CheckRainSensorTimed" );
  113. return undef;
  114. }
  115. sub MOBILEALERTS_Attr($$$$) {
  116. my ( $cmd, $name, $attrName, $attrValue ) = @_;
  117. if ( $cmd eq "set" ) {
  118. if ( $attrName eq "lastMsg" ) {
  119. if ( $attrValue !~ /^[01]$/ ) {
  120. Log3 $name, 3,
  121. "$name MOBILELAERTS: Invalid parameter attr $name $attrName $attrValue";
  122. return "Invalid value $attrValue allowed 0,1";
  123. }
  124. }
  125. elsif ( $attrName eq "expert" ) {
  126. if ( $attrValue !~ /^[014]$/ ) {
  127. Log3 $name, 3,
  128. "$name MOBILELAERTS: Invalid parameter attr $name $attrName $attrValue";
  129. return "Invalid value $attrValue allowed 0,1,4";
  130. }
  131. }
  132. elsif ( $attrName eq "actCycle" ) {
  133. unless ( $attrValue eq "off" ) {
  134. ( $_[3], my $sec ) = MOBILEALERTS_time2sec($attrValue);
  135. if ( $sec > 0 ) {
  136. my $hash = $modules{MOBILEALERTS};
  137. if ($init_done) {
  138. RemoveInternalTimer($hash);
  139. InternalTimer( gettimeofday() + 60,
  140. "MOBILEALERTS_ActionDetector", $hash );
  141. }
  142. }
  143. }
  144. }
  145. }
  146. return undef;
  147. }
  148. sub MOBILEALERTS_Notify($$) {
  149. my ( $hash, $dev ) = @_;
  150. my $name = $hash->{NAME};
  151. my $devName = $dev->{NAME};
  152. }
  153. sub MOBILEALERTS_Set ($$@) {
  154. my ( $hash, $name, $cmd, @args ) = @_;
  155. return "\"set $name\" needs at least one argument" unless ( defined($cmd) );
  156. if ( $cmd eq "clear" ) {
  157. if ( $args[0] eq "readings" ) {
  158. for ( keys %{ $hash->{READINGS} } ) {
  159. readingsDelete( $hash, $_ ) if ( $_ ne 'state' );
  160. }
  161. return undef;
  162. }
  163. elsif ( $args[0] eq "counters" ) {
  164. my $test = ReadingsVal( $hash->{NAME}, "mmRain", undef );
  165. readingsSingleUpdate( $hash, "mmRain", 0, 1 ) if ( defined $test );
  166. return undef;
  167. }
  168. else {
  169. return
  170. "Unknown value $args[0] for $cmd, choose one of readings,counters";
  171. }
  172. }
  173. else {
  174. return "Unknown argument $cmd, choose one of clear:readings,counters";
  175. }
  176. }
  177. sub MOBILEALERTS_Parse ($$) {
  178. my ( $io_hash, $message ) = @_;
  179. my ( $packageHeader, $timeStamp, $packageLength, $deviceID ) =
  180. unpack( "H2NCH12", $message );
  181. my $name = $io_hash->{NAME};
  182. Log3 $name, 5, "$name MOBILELAERTS: Search for Device ID: $deviceID";
  183. if ( my $hash = $modules{MOBILEALERTS}{defptr}{$deviceID} ) {
  184. my $verbose = GetVerbose( $hash->{NAME} );
  185. Log3 $name, 5, "$name MOBILELAERTS: Found Device: " . $hash->{NAME};
  186. Log3 $hash->{NAME}, 5,
  187. "$hash->{NAME} MOBILELAERTS: Message: " . unpack( "H*", $message )
  188. if ( $verbose >= 5 );
  189. # Nachricht für $hash verarbeiten
  190. $timeStamp = FmtDateTime($timeStamp);
  191. readingsBeginUpdate($hash);
  192. $hash->{".updateTimestamp"} = $timeStamp;
  193. $hash->{".expertMode"} = AttrVal( $hash->{NAME}, "expert", 0 );
  194. my $sub =
  195. "MOBILEALERTS_Parse_"
  196. . substr( $deviceID, 0, 2 ) . "_"
  197. . $packageHeader;
  198. if ( defined &$sub ) {
  199. #no strict "refs";
  200. &{ \&$sub }( $hash, substr $message, 12, $packageLength - 12 );
  201. #use strict "refs";
  202. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "lastMsg",
  203. unpack( "H*", $message ) )
  204. if ( AttrVal( $hash->{NAME}, "lastMsg", 0 ) == 1 );
  205. }
  206. else {
  207. Log3 $name, 2,
  208. "$name MOBILELAERTS: For id "
  209. . substr( $deviceID, 0, 2 )
  210. . " and packageHeader $packageHeader is no decoding defined.";
  211. MOBILEALERTS_readingsBulkUpdateIfChanged( $hash, 0, "deviceType",
  212. "Unknown - "
  213. . substr( $deviceID, 0, 2 ) . " "
  214. . $packageHeader );
  215. $sub = "MOBILEALERTS_Parse_" . $packageHeader;
  216. if ( defined &$sub ) {
  217. #no strict "refs";
  218. &{ \&$sub }( $hash, substr $message, 12, $packageLength - 12 );
  219. #use strict "refs";
  220. }
  221. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "lastMsg",
  222. unpack( "H*", $message ) );
  223. }
  224. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "lastRcv", $timeStamp );
  225. my $actCycle = AttrVal( $hash->{NAME}, "actCycle", undef );
  226. if ($actCycle) {
  227. ( undef, my $sec ) = MOBILEALERTS_time2sec($actCycle);
  228. if ( $sec > 0 ) {
  229. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "actStatus",
  230. "alive" );
  231. }
  232. }
  233. readingsEndUpdate( $hash, 1 );
  234. # Rückgabe des Gerätenamens, für welches die Nachricht bestimmt ist.
  235. return $hash->{NAME};
  236. }
  237. $modules{MOBILEALERTS}{AutoCreateMessages}{$deviceID} =
  238. [ $io_hash, $message ];
  239. my $res = "UNDEFINED MA_" . $deviceID . " MOBILEALERTS $deviceID";
  240. Log3 $name, 5, "$name MOBILELAERTS: Parse return: " . $res;
  241. return $res;
  242. }
  243. sub MOBILEALERTS_Parse_02_ce ($$) {
  244. my ( $hash, $message ) = @_;
  245. MOBILEALERTS_readingsBulkUpdateIfChanged( $hash, 0, "deviceType",
  246. "MA10100/MA10101" );
  247. MOBILEALERTS_Parse_ce( $hash, $message );
  248. }
  249. sub MOBILEALERTS_Parse_ce ($$) {
  250. my ( $hash, $message ) = @_;
  251. my ( $txCounter, $temperature, $prevTemperature ) =
  252. unpack( "nnn", $message );
  253. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "txCounter",
  254. MOBILEALERTS_decodeTxCounter($txCounter) );
  255. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "triggered",
  256. MOBILEALERTS_triggeredTxCounter($txCounter) );
  257. $temperature =
  258. MOBILEALERTS_decodeTemperature($temperature) +
  259. $hash->{".corrTemperature"};
  260. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "temperature", $temperature );
  261. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "temperatureString",
  262. MOBILEALERTS_temperatureToString($temperature) );
  263. $prevTemperature = MOBILEALERTS_decodeTemperature($prevTemperature) +
  264. $hash->{".corrTemperature"};
  265. MOBILEALERTS_readingsBulkUpdate( $hash, 1, "prevTemperature",
  266. $prevTemperature );
  267. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "state", "T: " . $temperature );
  268. }
  269. sub MOBILEALERTS_Parse_0f_d2 ($$) {
  270. my ( $hash, $message ) = @_;
  271. my ( $txCounter, $temperatureIn, $temperatureOut, $prevTemperatureIn,
  272. $prevTemperatureOut )
  273. = unpack( "nnnnn", $message );
  274. MOBILEALERTS_readingsBulkUpdateIfChanged( $hash, 0, "deviceType",
  275. "MA10450" );
  276. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "txCounter",
  277. MOBILEALERTS_decodeTxCounter($txCounter) );
  278. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "triggered",
  279. MOBILEALERTS_triggeredTxCounter($txCounter) );
  280. $temperatureIn =
  281. MOBILEALERTS_decodeTemperature($temperatureIn) +
  282. $hash->{".corrTemperature"};
  283. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "temperatureIn",
  284. $temperatureIn );
  285. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "temperatureInString",
  286. MOBILEALERTS_temperatureToString($temperatureIn) );
  287. $temperatureOut = MOBILEALERTS_decodeTemperature($temperatureOut) +
  288. $hash->{".corrTemperatureOut"};
  289. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "temperatureOut",
  290. $temperatureOut );
  291. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "temperatureOutString",
  292. MOBILEALERTS_temperatureToString($temperatureOut) );
  293. $prevTemperatureIn = MOBILEALERTS_decodeTemperature($prevTemperatureIn) +
  294. $hash->{".corrTemperature"};
  295. MOBILEALERTS_readingsBulkUpdate( $hash, 1, "prevTemperatureIn",
  296. $prevTemperatureIn );
  297. $prevTemperatureOut = MOBILEALERTS_decodeTemperature($prevTemperatureOut) +
  298. $hash->{".corrTemperatureOut"};
  299. MOBILEALERTS_readingsBulkUpdate( $hash, 1, "prevTemperatureOut",
  300. $prevTemperatureOut );
  301. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "state",
  302. "In T: " . $temperatureIn . " Out T: " . $temperatureOut );
  303. }
  304. sub MOBILEALERTS_Parse_03_d2 ($$) {
  305. my ( $hash, $message ) = @_;
  306. MOBILEALERTS_readingsBulkUpdateIfChanged( $hash, 0, "deviceType",
  307. "MA10200" );
  308. MOBILEALERTS_Parse_d2( $hash, $message );
  309. }
  310. sub MOBILEALERTS_Parse_d2 ($$) {
  311. my ( $hash, $message ) = @_;
  312. my ( $txCounter, $temperature, $humidity, $prevTemperature, $prevHumidity )
  313. = unpack( "nnnnn", $message );
  314. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "txCounter",
  315. MOBILEALERTS_decodeTxCounter($txCounter) );
  316. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "triggered",
  317. MOBILEALERTS_triggeredTxCounter($txCounter) );
  318. $temperature =
  319. MOBILEALERTS_decodeTemperature($temperature) +
  320. $hash->{".corrTemperature"};
  321. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "temperature", $temperature );
  322. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "temperatureString",
  323. MOBILEALERTS_temperatureToString($temperature) );
  324. $humidity =
  325. MOBILEALERTS_decodeHumidity($humidity) + $hash->{".corrHumidity"};
  326. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "humidity", $humidity );
  327. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "humidityString",
  328. MOBILEALERTS_humidityToString($humidity) );
  329. $prevTemperature = MOBILEALERTS_decodeTemperature($prevTemperature) +
  330. $hash->{".corrTemperature"};
  331. MOBILEALERTS_readingsBulkUpdate( $hash, 1, "prevTemperature",
  332. $prevTemperature );
  333. $prevHumidity =
  334. MOBILEALERTS_decodeHumidity($prevHumidity) + $hash->{".corrHumidity"};
  335. MOBILEALERTS_readingsBulkUpdate( $hash, 1, "prevHumidity", $prevHumidity );
  336. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "state",
  337. "T: " . $temperature . " H: " . $humidity );
  338. }
  339. sub MOBILEALERTS_Parse_04_d4 ($$) {
  340. my ( $hash, $message ) = @_;
  341. MOBILEALERTS_readingsBulkUpdateIfChanged( $hash, 0, "deviceType",
  342. "MA10350" );
  343. MOBILEALERTS_Parse_d4( $hash, $message );
  344. }
  345. sub MOBILEALERTS_Parse_d4 ($$) {
  346. my ( $hash, $message ) = @_;
  347. my ( $txCounter, $temperature, $humidity, $wetness,
  348. $prevTemperature, $prevHumidity, $prevWetness )
  349. = unpack( "nnnCnnC", $message );
  350. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "txCounter",
  351. MOBILEALERTS_decodeTxCounter($txCounter) );
  352. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "triggered",
  353. MOBILEALERTS_triggeredTxCounter($txCounter) );
  354. $temperature =
  355. MOBILEALERTS_decodeTemperature($temperature) +
  356. $hash->{".corrTemperature"};
  357. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "temperature", $temperature );
  358. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "temperatureString",
  359. MOBILEALERTS_temperatureToString($temperature) );
  360. $humidity =
  361. MOBILEALERTS_decodeHumidity($humidity) + $hash->{".corrHumidity"};
  362. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "humidity", $humidity );
  363. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "humidityString",
  364. MOBILEALERTS_humidityToString($humidity) );
  365. $wetness = MOBILEALERTS_decodeWetness($wetness);
  366. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "wetness", $wetness );
  367. $prevTemperature = MOBILEALERTS_decodeTemperature($prevTemperature) +
  368. $hash->{".corrTemperature"};
  369. MOBILEALERTS_readingsBulkUpdate( $hash, 1, "prevTemperature",
  370. $prevTemperature );
  371. $prevHumidity =
  372. MOBILEALERTS_decodeHumidity($prevHumidity) + $hash->{".corrHumidity"};
  373. $prevWetness = MOBILEALERTS_decodeWetness($prevWetness);
  374. MOBILEALERTS_readingsBulkUpdate( $hash, 1, "prevWetness", $prevWetness );
  375. MOBILEALERTS_readingsBulkUpdate( $hash, 1, "prevHumidity", $prevHumidity );
  376. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "state",
  377. "T: " . $temperature . " H: " . $humidity . " " . $wetness );
  378. }
  379. sub MOBILEALERTS_Parse_05_da ($$) {
  380. my ( $hash, $message ) = @_;
  381. MOBILEALERTS_readingsBulkUpdateIfChanged( $hash, 0, "deviceType",
  382. "WL2000" );
  383. my ( $txCounter, $temperatureOut, $temperatureIn, $humidityIn, $co2,
  384. $prevTemperatureOut, $prevTemperatureIn, $prevHumidityIn )
  385. = unpack( "nnnnnnnn", $message );
  386. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "txCounter",
  387. MOBILEALERTS_decodeTxCounter($txCounter) );
  388. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "triggered",
  389. MOBILEALERTS_triggeredTxCounter($txCounter) );
  390. $temperatureIn =
  391. MOBILEALERTS_decodeTemperature($temperatureIn) +
  392. $hash->{".corrTemperature"};
  393. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "temperatureIn",
  394. $temperatureIn );
  395. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "temperatureStringIn",
  396. MOBILEALERTS_temperatureToString($temperatureIn) );
  397. $temperatureOut = MOBILEALERTS_decodeTemperature($temperatureOut) +
  398. $hash->{".corrTemperatureOut"};
  399. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "temperatureOut",
  400. $temperatureOut );
  401. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "temperatureStringOut",
  402. MOBILEALERTS_temperatureToString($temperatureOut) );
  403. $humidityIn =
  404. MOBILEALERTS_decodeHumidity($humidityIn) + $hash->{".corrHumidity"};
  405. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "humidity", $humidityIn );
  406. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "humidityString",
  407. MOBILEALERTS_humidityToString($humidityIn) );
  408. $co2 = MOBILEALERTS_decodeCO2($co2);
  409. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "co2", $co2 );
  410. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "co2String",
  411. MOBILEALERTS_cO2ToString($co2) );
  412. $prevTemperatureIn = MOBILEALERTS_decodeTemperature($prevTemperatureIn) +
  413. $hash->{".corrTemperature"};
  414. MOBILEALERTS_readingsBulkUpdate( $hash, 1, "prevTemperatureIn",
  415. $prevTemperatureIn );
  416. $prevTemperatureOut = MOBILEALERTS_decodeTemperature($prevTemperatureOut) +
  417. $hash->{".corrTemperatureOut"};
  418. MOBILEALERTS_readingsBulkUpdate( $hash, 1, "prevTemperatureOut",
  419. $prevTemperatureOut );
  420. $prevHumidityIn =
  421. MOBILEALERTS_decodeHumidity($prevHumidityIn) + $hash->{".corrHumidity"};
  422. MOBILEALERTS_readingsBulkUpdate( $hash, 1, "prevHumidityIn",
  423. $prevHumidityIn );
  424. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "state",
  425. "In T: "
  426. . $temperatureIn . " H: "
  427. . $humidityIn
  428. . " Out T: "
  429. . $temperatureOut
  430. . " CO2: "
  431. . $co2 );
  432. }
  433. sub MOBILEALERTS_Parse_07_da ($$) {
  434. my ( $hash, $message ) = @_;
  435. MOBILEALERTS_readingsBulkUpdateIfChanged( $hash, 0, "deviceType",
  436. "MA10410" );
  437. MOBILEALERTS_Parse_da( $hash, $message );
  438. }
  439. sub MOBILEALERTS_Parse_da ($$) {
  440. my ( $hash, $message ) = @_;
  441. my (
  442. $txCounter, $temperatureIn, $humidityIn,
  443. $temperatureOut, $humidityOut, $prevTemperatureIn,
  444. $prevHumidityIn, $prevTemperatureOut, $prevHumidityOut
  445. ) = unpack( "nnnnnnnnn", $message );
  446. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "txCounter",
  447. MOBILEALERTS_decodeTxCounter($txCounter) );
  448. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "triggered",
  449. MOBILEALERTS_triggeredTxCounter($txCounter) );
  450. $temperatureIn =
  451. MOBILEALERTS_decodeTemperature($temperatureIn) +
  452. $hash->{".corrTemperature"};
  453. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "temperatureIn",
  454. $temperatureIn );
  455. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "temperatureInString",
  456. MOBILEALERTS_temperatureToString($temperatureIn) );
  457. $humidityIn =
  458. MOBILEALERTS_decodeHumidity($humidityIn) + $hash->{".corrHumidity"};
  459. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "humidityIn", $humidityIn );
  460. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "humidityInString",
  461. MOBILEALERTS_humidityToString($humidityIn) );
  462. $temperatureOut = MOBILEALERTS_decodeTemperature($temperatureOut) +
  463. $hash->{".corrTemperatureOut"};
  464. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "temperatureOut",
  465. $temperatureOut );
  466. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "temperatureOutString",
  467. MOBILEALERTS_temperatureToString($temperatureOut) );
  468. $humidityOut =
  469. MOBILEALERTS_decodeHumidity($humidityOut) + $hash->{".corrHumidityOut"};
  470. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "humidityOut", $humidityOut );
  471. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "humidityOutString",
  472. MOBILEALERTS_humidityToString($humidityOut) );
  473. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "state",
  474. "In T: "
  475. . $temperatureIn . " H: "
  476. . $humidityIn
  477. . " Out T: "
  478. . $temperatureOut . " H: "
  479. . $humidityOut );
  480. }
  481. sub MOBILEALERTS_Parse_08_e1 ($$) {
  482. my ( $hash, $message ) = @_;
  483. MOBILEALERTS_readingsBulkUpdateIfChanged( $hash, 0, "deviceType",
  484. "MA10650" );
  485. MOBILEALERTS_Parse_e1( $hash, $message );
  486. }
  487. sub MOBILEALERTS_Parse_e1 ($$) {
  488. my ( $hash, $message ) = @_;
  489. my @eventTime;
  490. ( my ( $txCounter, $temperature, $eventCounter ), @eventTime[ 0 .. 8 ] ) =
  491. unpack( "nnnnnnnnnnnn", $message );
  492. my $lastEventCounter = ReadingsVal( $hash->{NAME}, "eventCounter", undef );
  493. my $mmRain = 0;
  494. if ( !defined($lastEventCounter) ) {
  495. # First Data
  496. $mmRain = $eventCounter * MA_RAIN_FACTOR;
  497. }
  498. elsif ( $lastEventCounter > $eventCounter ) {
  499. # Overflow EventCounter or fresh Batterie
  500. $mmRain = $eventCounter * MA_RAIN_FACTOR;
  501. }
  502. elsif ( $lastEventCounter < $eventCounter ) {
  503. $mmRain = ( $eventCounter - $lastEventCounter ) * MA_RAIN_FACTOR;
  504. }
  505. else {
  506. $mmRain = 0;
  507. }
  508. MOBILEALERTS_CheckRainSensor( $hash, $mmRain );
  509. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "txCounter",
  510. MOBILEALERTS_decodeTxCounter($txCounter) );
  511. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "triggered",
  512. MOBILEALERTS_triggeredTxCounter($txCounter) );
  513. $temperature =
  514. MOBILEALERTS_decodeTemperature($temperature) +
  515. $hash->{".corrTemperature"};
  516. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "temperature", $temperature );
  517. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "temperatureString",
  518. MOBILEALERTS_temperatureToString($temperature) );
  519. for ( my $z = 0 ; $z < 9 ; $z++ ) {
  520. my $eventTimeString =
  521. MOBILEALERTS_convertEventTimeString( $eventTime[$z], 14 );
  522. $eventTime[$z] = MOBILEALERTS_convertEventTime( $eventTime[$z], 14 );
  523. if ( $z == 0 ) {
  524. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "lastEvent",
  525. $eventTime[$z] );
  526. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "lastEventString",
  527. $eventTimeString );
  528. }
  529. else {
  530. MOBILEALERTS_readingsBulkUpdate( $hash, 4, "lastEvent" . $z,
  531. $eventTime[$z] );
  532. MOBILEALERTS_readingsBulkUpdate( $hash, 4,
  533. "lastEvent" . $z . "String",
  534. $eventTimeString );
  535. }
  536. }
  537. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "eventCounter", $eventCounter );
  538. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "state",
  539. "T: " . $temperature . " C: " . $eventCounter );
  540. }
  541. sub MOBILEALERTS_Parse_0b_e2 ($$) {
  542. my ( $hash, $message ) = @_;
  543. MOBILEALERTS_readingsBulkUpdateIfChanged( $hash, 0, "deviceType",
  544. "MA10660" );
  545. MOBILEALERTS_Parse_e2( $hash, $message );
  546. }
  547. sub MOBILEALERTS_Parse_e2 ($$) {
  548. my ( $hash, $message ) = @_;
  549. my @dirTable = (
  550. "N", "NNE", "NE", "ENE", "E", "ESE", "SE", "SSE",
  551. "S", "SSW", "SW", "WSW", "W", "WNW", "NW", "NNW"
  552. );
  553. my ( $txCounter, $data0, $data1, $data2, $data3 ) =
  554. unpack( "NCCCC", "\0" . $message );
  555. my $dir = $data0 >> 4;
  556. my $overFlowBits = $data0 & 3;
  557. my $windSpeed = ( ( ( $overFlowBits & 2 ) >> 1 ) << 8 ) + $data1 * 0.1;
  558. my $gustSpeed = ( ( ( $overFlowBits & 1 ) >> 1 ) << 8 ) + $data2 * 0.1;
  559. my $lastTransmit = $data3 * 2;
  560. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "txCounter",
  561. MOBILEALERTS_decodeTxCounter($txCounter) );
  562. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "direction", $dirTable[$dir] );
  563. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "directionInt", $dir );
  564. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "windSpeed", $windSpeed );
  565. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "gustSpeed", $gustSpeed );
  566. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "state",
  567. "D: " . $dirTable[$dir] . " W: " . $windSpeed . " G: " . $gustSpeed );
  568. }
  569. sub MOBILEALERTS_Parse_0e_d8 ($$) {
  570. my ( $hash, $message ) = @_;
  571. MOBILEALERTS_readingsBulkUpdateIfChanged( $hash, 0, "deviceType",
  572. "TFA30.3312.02" );
  573. MOBILEALERTS_Parse_d8( $hash, $message );
  574. }
  575. sub MOBILEALERTS_Parse_d8 ($$) {
  576. my ( $hash, $message ) = @_;
  577. my (
  578. $txCounter, $temperature, $humidity, $prevTemperature,
  579. $prevHumidity, $prevTemperature2, $prevHumidity2
  580. ) = unpack( "nnnxnnxnn", $message );
  581. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "txCounter",
  582. MOBILEALERTS_decodeTxCounter($txCounter) );
  583. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "triggered",
  584. MOBILEALERTS_triggeredTxCounter($txCounter) );
  585. $temperature =
  586. MOBILEALERTS_decodeTemperature($temperature) +
  587. $hash->{".corrTemperature"};
  588. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "temperature", $temperature );
  589. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "temperatureString",
  590. MOBILEALERTS_temperatureToString($temperature) );
  591. $humidity =
  592. MOBILEALERTS_decodeHumidityDecimal($humidity) + $hash->{".corrHumidity"};
  593. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "humidity", $humidity );
  594. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "humidityString",
  595. MOBILEALERTS_humidityToString($humidity) );
  596. $prevTemperature = MOBILEALERTS_decodeTemperature($prevTemperature) +
  597. $hash->{".corrTemperature"};
  598. MOBILEALERTS_readingsBulkUpdate( $hash, 1, "prevTemperature",
  599. $prevTemperature );
  600. $prevHumidity =
  601. MOBILEALERTS_decodeHumidityDecimal($prevHumidity) +
  602. $hash->{".corrHumidity"};
  603. MOBILEALERTS_readingsBulkUpdate( $hash, 1, "prevHumidity", $prevHumidity );
  604. $prevTemperature2 = MOBILEALERTS_decodeTemperature($prevTemperature2) +
  605. $hash->{".corrTemperature"};
  606. MOBILEALERTS_readingsBulkUpdate( $hash, 1, "prevTemperature2",
  607. $prevTemperature2 );
  608. $prevHumidity2 = MOBILEALERTS_decodeHumidityDecimal($prevHumidity2) +
  609. $hash->{".corrHumidity"};
  610. MOBILEALERTS_readingsBulkUpdate( $hash, 1, "prevHumidity2",
  611. $prevHumidity2 );
  612. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "state",
  613. "T: " . $temperature . " H: " . $humidity );
  614. }
  615. sub MOBILEALERTS_Parse_10_d3 ($$) {
  616. my ( $hash, $message ) = @_;
  617. MOBILEALERTS_readingsBulkUpdateIfChanged( $hash, 0, "deviceType",
  618. "MA10800" );
  619. MOBILEALERTS_Parse_d3( $hash, $message );
  620. }
  621. sub MOBILEALERTS_Parse_d3 ($$) {
  622. my ( $hash, $message ) = @_;
  623. my @data;
  624. ( my ($txCounter), @data[ 0 .. 3 ] ) = unpack( "nnnnn", $message );
  625. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "txCounter",
  626. MOBILEALERTS_decodeTxCounter($txCounter) );
  627. for ( my $z = 0 ; $z < 4 ; $z++ ) {
  628. my $eventTimeString =
  629. MOBILEALERTS_convertEventTimeString( $data[$z], 13 );
  630. my $eventTime = MOBILEALERTS_convertEventTime( $data[$z], 13 );
  631. $data[$z] = MOBILEALERTS_convertOpenState( $data[$z] );
  632. if ( $z == 0 ) {
  633. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "state", $data[$z] );
  634. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "lastEvent",
  635. $eventTime );
  636. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "lastEventString",
  637. $eventTimeString );
  638. }
  639. else {
  640. MOBILEALERTS_readingsBulkUpdate( $hash, 4, "state" . $z,
  641. $data[$z] );
  642. MOBILEALERTS_readingsBulkUpdate( $hash, 4, "lastEvent" . $z,
  643. $eventTime );
  644. MOBILEALERTS_readingsBulkUpdate( $hash, 4,
  645. "lastEvent" . $z . "String",
  646. $eventTimeString );
  647. }
  648. }
  649. }
  650. sub MOBILEALERTS_Parse_12_d9 ($$) {
  651. my ( $hash, $message ) = @_;
  652. MOBILEALERTS_readingsBulkUpdateIfChanged( $hash, 0, "deviceType",
  653. "MA10230" );
  654. MOBILEALERTS_Parse_d9( $hash, $message );
  655. }
  656. sub MOBILEALERTS_Parse_d9 ($$) {
  657. my ( $hash, $message ) = @_;
  658. my (
  659. $txCounter, $humidity3h, $humidity24h, $humidity7d,
  660. $humidity30d, $temperature, $humidity
  661. ) = unpack( "nCCCCnC", $message );
  662. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "txCounter",
  663. MOBILEALERTS_decodeTxCounter($txCounter) );
  664. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "triggered",
  665. MOBILEALERTS_triggeredTxCounter($txCounter) );
  666. $temperature =
  667. MOBILEALERTS_decodeTemperature($temperature) +
  668. $hash->{".corrTemperature"};
  669. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "temperature", $temperature );
  670. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "temperatureString",
  671. MOBILEALERTS_temperatureToString($temperature) );
  672. $humidity =
  673. MOBILEALERTS_decodeHumidity($humidity) + $hash->{".corrHumidity"};
  674. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "humidity", $humidity );
  675. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "humidityString",
  676. MOBILEALERTS_humidityToString($humidity) );
  677. $humidity3h =
  678. MOBILEALERTS_decodeHumidity($humidity3h) + $hash->{".corrHumidity"};
  679. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "humidity3h", $humidity3h );
  680. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "humidity3hString",
  681. MOBILEALERTS_humidityToString($humidity3h) );
  682. $humidity24h =
  683. MOBILEALERTS_decodeHumidity($humidity24h) + $hash->{".corrHumidity"};
  684. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "humidity24h", $humidity3h );
  685. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "humidity24hString",
  686. MOBILEALERTS_humidityToString($humidity24h) );
  687. $humidity7d =
  688. MOBILEALERTS_decodeHumidity($humidity7d) + $hash->{".corrHumidity"};
  689. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "humidity7d", $humidity7d );
  690. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "humidity7dString",
  691. MOBILEALERTS_humidityToString($humidity7d) );
  692. $humidity30d =
  693. MOBILEALERTS_decodeHumidity($humidity30d) + $hash->{".corrHumidity"};
  694. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "humidity30d", $humidity30d );
  695. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "humidity30dString",
  696. MOBILEALERTS_humidityToString($humidity30d) );
  697. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "state",
  698. "T: "
  699. . $temperature . " H: "
  700. . $humidity . " "
  701. . $humidity3h . "/"
  702. . $humidity24h . "/"
  703. . $humidity7d . "/"
  704. . $humidity30d );
  705. }
  706. sub MOBILEALERTS_Parse_06_d6 ($$) {
  707. my ( $hash, $message ) = @_;
  708. MOBILEALERTS_readingsBulkUpdateIfChanged( $hash, 0, "deviceType",
  709. "MA10300/MA10700" );
  710. MOBILEALERTS_Parse_d6( $hash, $message );
  711. }
  712. sub MOBILEALERTS_Parse_09_d6 ($$) {
  713. my ( $hash, $message ) = @_;
  714. MOBILEALERTS_readingsBulkUpdateIfChanged( $hash, 0, "deviceType",
  715. "MA10320PRO" );
  716. MOBILEALERTS_Parse_d6( $hash, $message );
  717. }
  718. sub MOBILEALERTS_Parse_d6 ($$) {
  719. my ( $hash, $message ) = @_;
  720. my ( $txCounter, $temperatureIn, $temperatureOut, $humidityIn,
  721. $prevTemperatureIn, $prevTemperatureOut, $prevHumidityIn )
  722. = unpack( "nnnnnnn", $message );
  723. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "txCounter",
  724. MOBILEALERTS_decodeTxCounter($txCounter) );
  725. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "triggered",
  726. MOBILEALERTS_triggeredTxCounter($txCounter) );
  727. $temperatureIn =
  728. MOBILEALERTS_decodeTemperature($temperatureIn) +
  729. $hash->{".corrTemperature"};
  730. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "temperatureIn",
  731. $temperatureIn );
  732. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "temperatureStringIn",
  733. MOBILEALERTS_temperatureToString($temperatureIn) );
  734. $temperatureOut = MOBILEALERTS_decodeTemperature($temperatureOut) +
  735. $hash->{".corrTemperatureOut"};
  736. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "temperatureOut",
  737. $temperatureOut );
  738. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "temperatureStringOut",
  739. MOBILEALERTS_temperatureToString($temperatureOut) );
  740. $humidityIn =
  741. MOBILEALERTS_decodeHumidity($humidityIn) + $hash->{".corrHumidity"};
  742. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "humidity", $humidityIn );
  743. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "humidityString",
  744. MOBILEALERTS_humidityToString($humidityIn) );
  745. $prevTemperatureIn = MOBILEALERTS_decodeTemperature($prevTemperatureIn) +
  746. $hash->{".corrTemperature"};
  747. MOBILEALERTS_readingsBulkUpdate( $hash, 1, "prevTemperatureIn",
  748. $prevTemperatureIn );
  749. $prevTemperatureOut = MOBILEALERTS_decodeTemperature($prevTemperatureOut) +
  750. $hash->{".corrTemperatureOut"};
  751. MOBILEALERTS_readingsBulkUpdate( $hash, 1, "prevTemperatureOut",
  752. $prevTemperatureOut );
  753. $prevHumidityIn =
  754. MOBILEALERTS_decodeHumidity($prevHumidityIn) + $hash->{".corrHumidity"};
  755. MOBILEALERTS_readingsBulkUpdate( $hash, 1, "prevHumidityIn",
  756. $prevHumidityIn );
  757. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "state",
  758. "In T: "
  759. . $temperatureIn . " H: "
  760. . $humidityIn
  761. . " Out T: "
  762. . $temperatureOut );
  763. }
  764. sub MOBILEALERTS_Parse_01_d2 ($$) {
  765. my ( $hash, $message ) = @_;
  766. my ( $txCounter, $temperatureIn, $temperatureOut, $prevTemperatureIn,
  767. $prevTemperatureOut )
  768. = unpack( "nnnnn", $message );
  769. MOBILEALERTS_readingsBulkUpdateIfChanged( $hash, 0, "deviceType",
  770. "MA10120PRO" );
  771. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "txCounter",
  772. MOBILEALERTS_decodeTxCounter($txCounter) );
  773. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "triggered",
  774. MOBILEALERTS_triggeredTxCounter($txCounter) );
  775. $temperatureIn =
  776. MOBILEALERTS_decodeTemperature($temperatureIn) +
  777. $hash->{".corrTemperature"};
  778. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "temperatureIn",
  779. $temperatureIn );
  780. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "temperatureStringIn",
  781. MOBILEALERTS_temperatureToString($temperatureIn) );
  782. $temperatureOut = MOBILEALERTS_decodeTemperature($temperatureOut) +
  783. $hash->{".corrTemperatureOut"};
  784. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "temperatureOut",
  785. $temperatureOut );
  786. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "temperatureStringOut",
  787. MOBILEALERTS_temperatureToString($temperatureOut) );
  788. $prevTemperatureIn = MOBILEALERTS_decodeTemperature($prevTemperatureIn) +
  789. $hash->{".corrTemperature"};
  790. MOBILEALERTS_readingsBulkUpdate( $hash, 1, "prevTemperatureIn",
  791. $prevTemperatureIn );
  792. $prevTemperatureOut = MOBILEALERTS_decodeTemperature($prevTemperatureOut) +
  793. $hash->{".corrTemperatureOut"};
  794. MOBILEALERTS_readingsBulkUpdate( $hash, 1, "prevTemperatureOut",
  795. $prevTemperatureOut );
  796. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "state",
  797. "In T: " . $temperatureIn . " Out T: " . $temperatureOut );
  798. }
  799. sub MOBILEALERTS_Parse_11_ea ($$) {
  800. my ( $hash, $message ) = @_;
  801. MOBILEALERTS_readingsBulkUpdateIfChanged( $hash, 0, "deviceType",
  802. "TFA30.3060.01.IT" );
  803. MOBILEALERTS_Parse_ea( $hash, $message );
  804. }
  805. sub MOBILEALERTS_Parse_ea ($$) {
  806. my ( $hash, $message ) = @_;
  807. my (
  808. $txCounter, $temperature1, $humidity1,
  809. $temperature2, $humidity2, $temperature3,
  810. $humidity3, $temperatureIn, $humidityIn,
  811. $prevTemperature1, $prevHumidity1, $prevTemperature2,
  812. $prevHumidity2, $prevTemperature3, $prevHumidity3,
  813. $prevTemperatureIn, $prevHumidityIn
  814. ) = unpack( "nnnnnnnnnnnnnnnnn", $message );
  815. # txCounter
  816. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "txCounter",
  817. MOBILEALERTS_decodeTxCounter($txCounter) );
  818. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "triggered",
  819. MOBILEALERTS_triggeredTxCounter($txCounter) );
  820. # Sensor 1
  821. $temperature1 = MOBILEALERTS_decodeTemperature($temperature1) +
  822. $hash->{".corrTemperatureOut"};
  823. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "temperature1", $temperature1 );
  824. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "temperatureString1",
  825. MOBILEALERTS_temperatureToString($temperature1) );
  826. $humidity1 =
  827. MOBILEALERTS_decodeHumidity($humidity1) + $hash->{".corrHumidityOut"};
  828. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "humidity1", $humidity1 );
  829. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "humidityString1",
  830. MOBILEALERTS_humidityToString($humidity1) );
  831. # Sensor 2
  832. $temperature2 = MOBILEALERTS_decodeTemperature($temperature2) +
  833. $hash->{".corrTemperature2"};
  834. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "temperature2", $temperature2 );
  835. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "temperatureString2",
  836. MOBILEALERTS_temperatureToString($temperature2) );
  837. $humidity2 =
  838. MOBILEALERTS_decodeHumidity($humidity2) + $hash->{".corrHumidity2"};
  839. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "humidity2", $humidity2 );
  840. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "humidityString2",
  841. MOBILEALERTS_humidityToString($humidity2) );
  842. # Sensor 3
  843. $temperature3 = MOBILEALERTS_decodeTemperature($temperature3) +
  844. $hash->{".corrTemperature3"};
  845. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "temperature3", $temperature3 );
  846. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "temperatureString3",
  847. MOBILEALERTS_temperatureToString($temperature3) );
  848. $humidity3 =
  849. MOBILEALERTS_decodeHumidity($humidity3) + $hash->{".corrHumidity3"};
  850. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "humidity3", $humidity3 );
  851. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "humidityString3",
  852. MOBILEALERTS_humidityToString($humidity3) );
  853. # Sensor In
  854. $temperatureIn = MOBILEALERTS_decodeTemperature($temperatureIn) +
  855. $hash->{".corrTemperature"};
  856. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "temperatureIn",
  857. $temperatureIn );
  858. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "temperatureStringIn",
  859. MOBILEALERTS_temperatureToString($temperatureIn) );
  860. $humidityIn =
  861. MOBILEALERTS_decodeHumidity($humidityIn) + $hash->{".corrHumidity"};
  862. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "humidityIn", $humidityIn );
  863. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "humidityStringIn",
  864. MOBILEALERTS_humidityToString($humidityIn) );
  865. # Sensor1 prev
  866. $prevTemperature1 = MOBILEALERTS_decodeTemperature($prevTemperature1) +
  867. $hash->{".corrTemperatureOut"};
  868. MOBILEALERTS_readingsBulkUpdate( $hash, 1, "prevTemperature1",
  869. $prevTemperature1 );
  870. $prevHumidity1 =
  871. MOBILEALERTS_decodeHumidity($prevHumidity1) + $hash->{".corrHumidityOut"};
  872. MOBILEALERTS_readingsBulkUpdate( $hash, 1, "prevHumidity1",
  873. $prevHumidity1 );
  874. # Sensor2 prev
  875. $prevTemperature2 = MOBILEALERTS_decodeTemperature($prevTemperature2) +
  876. $hash->{".corrTemperature2"};
  877. MOBILEALERTS_readingsBulkUpdate( $hash, 1, "prevTemperature2",
  878. $prevTemperature2 );
  879. $prevHumidity2 =
  880. MOBILEALERTS_decodeHumidity($prevHumidity2) + $hash->{".corrHumidity2"};
  881. MOBILEALERTS_readingsBulkUpdate( $hash, 1, "prevHumidity2",
  882. $prevHumidity2 );
  883. # Sensor3 prev
  884. $prevTemperature3 = MOBILEALERTS_decodeTemperature($prevTemperature3) +
  885. $hash->{".corrTemperature3"};
  886. MOBILEALERTS_readingsBulkUpdate( $hash, 1, "prevTemperature3",
  887. $prevTemperature3 );
  888. $prevHumidity3 =
  889. MOBILEALERTS_decodeHumidity($prevHumidity3) + $hash->{".corrHumidity3"};
  890. MOBILEALERTS_readingsBulkUpdate( $hash, 1, "prevHumidity3",
  891. $prevHumidity3 );
  892. # Sensor In prev
  893. $prevTemperatureIn = MOBILEALERTS_decodeTemperature($prevTemperatureIn) +
  894. $hash->{".corrTemperature"};
  895. MOBILEALERTS_readingsBulkUpdate( $hash, 1, "prevTemperatureIn",
  896. $prevTemperatureIn );
  897. $prevHumidityIn =
  898. MOBILEALERTS_decodeHumidity($prevHumidityIn) + $hash->{".corrHumidity"};
  899. MOBILEALERTS_readingsBulkUpdate( $hash, 1, "prevHumidityIn",
  900. $prevHumidityIn );
  901. # state
  902. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "state",
  903. "In T: "
  904. . $temperatureIn . " H: "
  905. . $humidityIn
  906. . " 1 T: "
  907. . $temperature1 . " H: "
  908. . $humidity1
  909. . " 2 T: "
  910. . $temperature2 . " H: "
  911. . $humidity2
  912. . " 3 T: "
  913. . $temperature3 . " H: "
  914. . $humidity3 );
  915. }
  916. sub MOBILEALERTS_decodeTxCounter($) {
  917. my ($txCounter) = @_;
  918. return $txCounter & 0x3FFF;
  919. }
  920. sub MOBILEALERTS_triggeredTxCounter($) {
  921. my ($txCounter) = @_;
  922. if ( ( $txCounter & 0x4000 ) == 0x4000 ) {
  923. return 1;
  924. }
  925. return 0;
  926. }
  927. sub MOBILEALERTS_decodeTemperature($) {
  928. my ($temperature) = @_;
  929. #Overflow
  930. return 9999 if ( ( $temperature & 0x2000 ) == 0x2000 );
  931. #Illegal value
  932. return -9999 if ( ( $temperature & 0x1000 ) == 0x1000 );
  933. #Clear flags
  934. $temperature &= 0x7ff;
  935. #Negativ Values
  936. return ( 0x800 - $temperature ) * -0.1
  937. if ( $temperature > 1100 );
  938. #Positiv Values
  939. return $temperature * 0.1;
  940. }
  941. sub MOBILEALERTS_temperatureToString($) {
  942. my ($temperature) = @_;
  943. return "---" if ( $temperature < -1000 );
  944. return "OLF" if ( $temperature > 1000 );
  945. return $temperature . "°C";
  946. }
  947. sub MOBILEALERTS_decodeHumidity($) {
  948. my ($humidity) = @_;
  949. return 9999 if ( ( $humidity & 0x80 ) == 0x80 );
  950. return $humidity & 0x7F;
  951. }
  952. sub MOBILEALERTS_decodeHumidityDecimal($) {
  953. my ($humidity) = @_;
  954. return ( $humidity & 0x3FF ) * 0.1;
  955. }
  956. sub MOBILEALERTS_humidityToString($) {
  957. my ($humidity) = @_;
  958. return "---" if ( $humidity > 1000 );
  959. return $humidity . "%";
  960. }
  961. sub MOBILEALERTS_decodeCO2($) {
  962. my ($co2) = @_;
  963. return 9999 if ( ( $co2 & 0x80 ) == 0x80 );
  964. return ( $co2 & 0x7F ) * 50;
  965. }
  966. sub MOBILEALERTS_cO2ToString($) {
  967. my ($co2) = @_;
  968. return "---" if ( $co2 == 9999 );
  969. return $co2 . " ppm";
  970. }
  971. sub MOBILEALERTS_decodeWetness($) {
  972. my ($wetness) = @_;
  973. return "dry" if ( $wetness & 0x01 );
  974. return "wet";
  975. }
  976. sub MOBILEALERTS_convertOpenState($) {
  977. my ($value) = @_;
  978. return "open" if ( $value & 0x8000 );
  979. return "closed";
  980. }
  981. sub MOBILEALERTS_convertEventTime($$) {
  982. my ( $value, $timeScaleBitOffset ) = @_;
  983. my $timeScaleFactor = ( $value >> $timeScaleBitOffset ) & 3;
  984. $value = $value & ( ( 1 << $timeScaleBitOffset ) - 1 );
  985. if ( $timeScaleFactor == 0 ) { # days
  986. return $value * 60 * 60 * 24;
  987. }
  988. elsif ( $timeScaleFactor == 1 ) { # hours
  989. return $value * 60 * 60;
  990. }
  991. elsif ( $timeScaleFactor == 2 ) { # minutes
  992. return $value * 60;
  993. }
  994. elsif ( $timeScaleFactor == 3 ) { # seconds
  995. return $value;
  996. }
  997. }
  998. sub MOBILEALERTS_convertEventTimeString($$) {
  999. my ( $value, $timeScaleBitOffset ) = @_;
  1000. my $timeScaleFactor = ( $value >> $timeScaleBitOffset ) & 3;
  1001. $value = $value & ( ( 1 << $timeScaleBitOffset ) - 1 );
  1002. if ( $timeScaleFactor == 0 ) { # days
  1003. return $value . " d";
  1004. }
  1005. elsif ( $timeScaleFactor == 1 ) { # hours
  1006. return $value . " h";
  1007. }
  1008. elsif ( $timeScaleFactor == 2 ) { # minutes
  1009. return $value . " m";
  1010. }
  1011. elsif ( $timeScaleFactor == 3 ) { # seconds
  1012. return $value . " s";
  1013. }
  1014. }
  1015. sub MOBILEALERTS_readingsBulkUpdate($$$$@) {
  1016. my ( $hash, $expert, $reading, $value, $changed ) = @_;
  1017. if ( $expert > $hash->{".expertMode"} ) {
  1018. readingsDelete( $hash, $reading );
  1019. return undef;
  1020. }
  1021. my $i = $#{ $hash->{CHANGED} };
  1022. my $res = readingsBulkUpdate( $hash, $reading, $value, $changed );
  1023. $hash->{CHANGETIME}->[ $#{ $hash->{CHANGED} } ] =
  1024. $hash->{".updateTimestamp"}
  1025. if ( $#{ $hash->{CHANGED} } != $i ); # only add ts if there is a event to
  1026. return $res;
  1027. }
  1028. sub MOBILEALERTS_readingsBulkUpdateIfChanged($$$$@) {
  1029. my ( $hash, $expert, $reading, $value, $changed ) = @_;
  1030. if ( $expert > $hash->{".expertMode"} ) {
  1031. readingsDelete( $hash, $reading );
  1032. return undef;
  1033. }
  1034. my $i = $#{ $hash->{CHANGED} };
  1035. my $res = readingsBulkUpdateIfChanged( $hash, $reading, $value, $changed );
  1036. $hash->{CHANGETIME}->[ $#{ $hash->{CHANGED} } ] =
  1037. $hash->{".updateTimestamp"}
  1038. if ( $#{ $hash->{CHANGED} } != $i ); # only add ts if there is a event to
  1039. return $res;
  1040. }
  1041. sub MOBILEALERTS_time2sec($) {
  1042. my ($timeout) = @_;
  1043. return ( "off", 0 ) unless ($timeout);
  1044. return ( "off", 0 ) if ( $timeout eq "off" );
  1045. my ( $h, $m ) = split( ":", $timeout );
  1046. no warnings 'numeric';
  1047. $h = int($h);
  1048. $m = int($m);
  1049. use warnings 'numeric';
  1050. return (
  1051. ( sprintf( "%03s:%02d", $h, $m ) ),
  1052. ( ( int($h) * 60 + int($m) ) * 60 )
  1053. );
  1054. }
  1055. sub MOBILEALERTS_CheckRainSensorTimed($) {
  1056. my ($hash) = @_;
  1057. $hash->{".expertMode"} = AttrVal( $hash->{NAME}, "expert", 0 );
  1058. readingsBeginUpdate($hash);
  1059. MOBILEALERTS_CheckRainSensor( $hash, 0 );
  1060. readingsEndUpdate( $hash, 1 );
  1061. InternalTimer(
  1062. time_str2num(
  1063. substr( FmtDateTime( gettimeofday() + 3600 ), 0, 13 ) . ":00:00"
  1064. ),
  1065. "MOBILEALERTS_CheckRainSensorTimed",
  1066. $hash
  1067. );
  1068. }
  1069. sub MOBILEALERTS_CheckRainSensor($$) {
  1070. my ( $hash, $mmRain ) = @_;
  1071. #Event
  1072. push @{ $hash->{CHANGED} }, "rain" if ( $mmRain > 0 );
  1073. #lastHour
  1074. my $actTime = $hash->{".updateTimestamp"};
  1075. my $actH = ReadingsTimestamp( $hash->{NAME}, "mmRainActHour", $actTime );
  1076. if ( substr( $actTime, 0, 13 ) eq substr( $actH, 0, 13 ) ) {
  1077. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "mmRainActHour",
  1078. $mmRain + ReadingsVal( $hash->{NAME}, "mmRainActHour", "0" ) )
  1079. if ( $mmRain > 0 );
  1080. }
  1081. else {
  1082. if (
  1083. (
  1084. time_str2num( substr( $actTime, 0, 13 ) . ":00:00" ) -
  1085. time_str2num( substr( $actH, 0, 13 ) . ":00:00" )
  1086. ) > 3600
  1087. )
  1088. {
  1089. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "mmRainLastHour", 0 );
  1090. }
  1091. else {
  1092. $hash->{".updateTimestamp"} = $actH;
  1093. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "mmRainLastHour",
  1094. ReadingsVal( $hash->{NAME}, "mmRainActHour", "0" ) );
  1095. $hash->{".updateTimestamp"} = $actTime;
  1096. }
  1097. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "mmRainActHour", 0 );
  1098. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "mmRainActHour", $mmRain )
  1099. if ( $mmRain > 0 );
  1100. }
  1101. #Yesterday
  1102. my $actD = ReadingsTimestamp( $hash->{NAME}, "mmRainActDay", $actTime );
  1103. if ( substr( $actTime, 0, 10 ) eq substr( $actD, 0, 10 ) ) {
  1104. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "mmRainActDay",
  1105. $mmRain + ReadingsVal( $hash->{NAME}, "mmRainActDay", "0" ) )
  1106. if ( $mmRain > 0 );
  1107. }
  1108. else {
  1109. if (
  1110. (
  1111. time_str2num( substr( $actTime, 0, 13 ) . " 00:00:00" ) -
  1112. time_str2num( substr( $actD, 0, 13 ) . " 00:00:00" )
  1113. ) > 86400
  1114. )
  1115. {
  1116. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "mmRainYesterday", 0 );
  1117. }
  1118. else {
  1119. $hash->{".updateTimestamp"} =
  1120. ReadingsTimestamp( $hash->{NAME}, "mmRainActDay", $actD );
  1121. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "mmRainYesterday",
  1122. ReadingsVal( $hash->{NAME}, "mmRainActDay", "0" ) );
  1123. $hash->{".updateTimestamp"} = $actTime;
  1124. }
  1125. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "mmRainActDay", 0 );
  1126. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "mmRainActDay", $mmRain )
  1127. if ( $mmRain > 0 );
  1128. }
  1129. MOBILEALERTS_readingsBulkUpdate( $hash, 0, "mmRain",
  1130. $mmRain + ReadingsVal( $hash->{NAME}, "mmRain", "0" ) )
  1131. if ( $mmRain > 0 );
  1132. }
  1133. sub MOBILEALERTS_ActionDetector($) {
  1134. my ($hash) = @_;
  1135. my $name = "ActionDetector";
  1136. unless ($init_done) {
  1137. Log3 $name, 5,
  1138. "$name MOBILELAERTS: ActionDetector run - fhem not intialized";
  1139. InternalTimer( gettimeofday() + 60,
  1140. "MOBILEALERTS_ActionDetector", $hash );
  1141. return;
  1142. }
  1143. Log3 $name, 5, "$name MOBILELAERTS: ActionDetector run";
  1144. my $now = gettimeofday();
  1145. my $nextTimer = $now + 60 * 60; # Check at least Hourly
  1146. for my $chash ( values %{ $modules{MOBILEALERTS}{defptr} } ) {
  1147. Log3 $name, 5, "$name MOBILELAERTS: ActionDetector " . $chash->{NAME};
  1148. my $actCycle = AttrVal( $chash->{NAME}, "actCycle", undef );
  1149. ( undef, my $sec ) = MOBILEALERTS_time2sec($actCycle);
  1150. if ( $sec == 0 ) {
  1151. readingsBeginUpdate($chash);
  1152. readingsBulkUpdateIfChanged( $chash, "actStatus", "switchedOff" );
  1153. readingsEndUpdate( $chash, 1 );
  1154. next;
  1155. }
  1156. my $lastRcv = ReadingsTimestamp( $chash->{NAME}, "lastRcv", undef );
  1157. my $deadTime = undef;
  1158. readingsBeginUpdate($chash);
  1159. if ( defined($lastRcv) ) {
  1160. Log3 $name, 5,
  1161. "$name MOBILELAERTS: ActionDetector "
  1162. . $chash->{NAME}
  1163. . " lastRcv "
  1164. . $lastRcv;
  1165. $lastRcv = time_str2num($lastRcv);
  1166. $deadTime = $lastRcv + $sec;
  1167. if ( $deadTime < $now ) {
  1168. readingsBulkUpdateIfChanged( $chash, "actStatus", "dead" );
  1169. $deadTime = $now + $sec;
  1170. }
  1171. else {
  1172. readingsBulkUpdate( $chash, "actStatus", "alive" );
  1173. }
  1174. }
  1175. else {
  1176. readingsBulkUpdateIfChanged( $chash, "actStatus", "unknown" );
  1177. $deadTime = $now + $sec;
  1178. }
  1179. readingsEndUpdate( $chash, 1 );
  1180. if ( ( defined($deadTime) ) && ( $deadTime < $nextTimer ) ) {
  1181. $nextTimer = $deadTime;
  1182. Log3 $name, 5,
  1183. "$name MOBILELAERTS: ActionDetector "
  1184. . $chash->{NAME}
  1185. . " nextTime Set to "
  1186. . FmtDateTime($nextTimer);
  1187. }
  1188. }
  1189. Log3 $name, 5,
  1190. "$name MOBILELAERTS: MOBILEALERTS_ActionDetector nextRun "
  1191. . FmtDateTime($nextTimer);
  1192. InternalTimer( $nextTimer, "MOBILEALERTS_ActionDetector", $hash );
  1193. }
  1194. # Eval-Rückgabewert für erfolgreiches
  1195. # Laden des Moduls
  1196. 1;
  1197. =pod
  1198. =item device
  1199. =item summary virtual device for MOBILEALERTSGW
  1200. =item summary_DE virtuelles device für MOBILEALERTSGW
  1201. =begin html
  1202. <a name="MOBILEALERTS"></a>
  1203. <h3>MOBILEALERTS</h3>
  1204. <ul>
  1205. The MOBILEALERTS is a fhem module for the german MobileAlerts devices and TFA WEATHERHUB devices.
  1206. <br><br>
  1207. The fhem module represents a MobileAlerts device. The connection is provided by the <a href="#MOBILEALERTSGW">MOBILELAERTSGW</a> module.
  1208. Currently supported: MA10100, MA10101, MA10200, MA10230, MA10300, MA10650, MA10320PRO, MA10350, MA10410, MA10450, MA10660, MA10700, TFA 30.3312.02, MA10800, WL2000, TFA30.3060.01.IT, MA10120PRO<br>
  1209. Supported but untested: ./.<br>
  1210. <br>
  1211. <a name="MOBILEALERTSdefine"></a>
  1212. <b>Define</b>
  1213. <ul>
  1214. <code>define &lt;name&gt; MOBILEALERTS &lt;deviceID&gt; &lt;corrTempIn&gt; &lt;corrHumIn&gt; &lt;corrTempOut&gt; &lt;corrHumOut&gt; &lt;corrTemp2&gt; &lt;corrHum2&gt; &lt;corrTemp3&gt; &lt;corrHum3&gt;</code><br>
  1215. <br>
  1216. deviceID is the sensorcode on the sensor.
  1217. <br>
  1218. corrTempIn optional: correction temperature
  1219. <br>
  1220. corrHumIn optional: correction humidity
  1221. <br>
  1222. corrTempOut optional: correction temperature out / sensor 1
  1223. <br>
  1224. corrHumOut optional: correction humidity out / sensor 1
  1225. <br>
  1226. corrTemp2 optional: correction temperature sensor 2
  1227. <br>
  1228. corrHum2 optional: correction humidity sensor 2
  1229. <br>
  1230. corrTemp3 optional: correction temperature sensor 3
  1231. <br>
  1232. corrHum3 optional: correction humidity sensor 3
  1233. </ul>
  1234. <br>
  1235. <a name="MOBILEALERTSreadings"></a>
  1236. <b>Readings</b>
  1237. <ul>
  1238. <li>lastMsg<br>The last message received (always for unknown devices, for known devices only if attr lastMsg is set).</li>
  1239. <li>deviceType<br>The devicetype.</li>
  1240. <li>lastRcv<br>Timestamp of last message.</li>
  1241. <li>actStatus<br>Shows 'unknown', 'alive', 'dead', 'switchedOff' depending on attribut actCycle</li>
  1242. <li>txCounter<br>Counter of last message.</li>
  1243. <li>triggered<br>1=last message was triggered by a event.</li>
  1244. <li>tempertature, prevTemperature, temperatureIn, temperatureOut, prevTemperatureIn, prevTemperatureOut<br>Temperature (depending on device and attribut expert).</li>
  1245. <li>tempertatureString, prevTemperatureString, temperatureInString, temperatureOutString, prevTemperatureInString, prevTemperatureOutString<br>Temperature as string (depending on device and attribut expert).</li>
  1246. <li>state<br>State of device (short actual reading)</li>
  1247. <li>humidity, prevHumidity, humidityIn, humidityOut, prevHumidityIn, prevHumidityOut<br>Humidity (depending on device and attribut expert).</li>
  1248. <li>humidityString, prevHumidityString, humidityInString, humidityOutString, prevHumidityInString, prevHumidityOutString<br>Humidity as string (depending on device and attribut expert).</li>
  1249. <li>wetness<br>Shows if sensor detects water.</li>
  1250. <li>lastEvent, lastEvent&lt;X&gt; ,lastEventString, lastEvent&lt;X&gt;String<br>Time when last event (rain) happend (MA10650 only).</li>
  1251. <li>mmRain, mmRainActHour, mmRainLastHour, mmRainActDay, mmRainYesterday<br>Rain since reset of counter, current hour, last hour, current day, yesterday.</li>
  1252. <li>direction, directionInt<br>Direction of wind.</li>
  1253. <li>windSpeed, gustSpeed<br>Windspeed.</li>
  1254. </ul>
  1255. <br>
  1256. <a name="MOBILEALERTSset"></a>
  1257. <b>Set</b>
  1258. <ul>
  1259. <li><code>set &lt;name&gt; clear &lt;readings|counters&gt;</code><br>
  1260. Clears the readings (all) or counters (like mmRain). </li>
  1261. </ul>
  1262. <br>
  1263. <a name="MOBILEALERTSget"></a>
  1264. <b>Get</b>
  1265. <ul>
  1266. N/A
  1267. </ul>
  1268. <br>
  1269. <br>
  1270. <a name="MOBILEALERTSattr"></a>
  1271. <b>Attributes</b>
  1272. <ul>
  1273. <li><a href="#ignore">ignore</a></li>
  1274. <li><a href="#readingFnAttributes">readingFnAttributes</a></li>
  1275. <li>lastMsg<br>
  1276. If value 1 is set, the last received message will be logged as reading even if device is known.
  1277. </li>
  1278. <li>actCycle &lt;[hhh:mm]|off&gt;<br>
  1279. This value triggers a 'alive' and 'not alive' detection. [hhh:mm] is the maximum silent time for the device.
  1280. The reading actStatus will show the states: 'unknown', 'alive', 'dead'.
  1281. </li>
  1282. <li>expert<br>
  1283. Defines how many readings are show (0=only current, 1=previous, 4=all).
  1284. </li>
  1285. </ul>
  1286. </ul>
  1287. =end html
  1288. =begin html_DE
  1289. <a name="MOBILEALERTS"></a>
  1290. <h3>MOBILEALERTS</h3>
  1291. <ul>
  1292. MOBILEALERTS ist ein FHEM-Modul f&uuml; die deutschen MobileAlerts Ger&auml; und TFA WEATHERHUB.
  1293. <br><br>
  1294. Dieses FHEM Modul stellt jeweils ein MobileAlerts Ger&auml;t dar. Die Verbindung wird durch das
  1295. <a href="#MOBILEALERTSGW">MOBILELAERTSGW</a> Modul bereitgestellt.<br>
  1296. Aktuell werden unterst&uuml;zt: MA10100, MA10101, MA10200, MA10230, MA10300, MA10650, MA10320PRO, MA10350, MA10410, MA10450, MA10660, MA10700, TFA 30.3312.02, MA10800, WL2000, TFA30.3060.01.IT, MA10120PRO<br>
  1297. Unterst&uuml;zt aber ungetestet: ./.<br>
  1298. <br>
  1299. <a name="MOBILEALERTSdefine"></a>
  1300. <b>Define</b>
  1301. <ul>
  1302. <code>define &lt;name&gt; MOBILEALERTS &lt;deviceID&gt; &lt;corrTempIn&gt; &lt;corrHumIn&gt; &lt;corrTempOut&gt; &lt;corrHumOut&gt; &lt;corrTemp2&gt; &lt;corrHum2&gt; &lt;corrTemp3&gt; &lt;corrHum3&gt;</code><br>
  1303. <br>
  1304. deviceID ist der Sensorcode auf dem Sensor.
  1305. <br>
  1306. corrTempIn optional: Korrekturwert f&uuml;r Temperatur (bzw. Temperatur in)
  1307. <br>
  1308. corrHumIn optional: Korrekturwert f&uuml;r die Luftfeuchte
  1309. <br>
  1310. corrTempOut optional: Korrekturwert f&uuml;r Temperatur Out / Sensor 1
  1311. <br>
  1312. corrHumOut optional: Korrekturwert f&uuml;r die Luftfeuchte Out / Sensor 1
  1313. <br>
  1314. corrTemp2 optional: Korrekturwert f&uuml;r Temperatur Sensor 2
  1315. <br>
  1316. corrHum2 optional: Korrekturwert f&uuml;r die Luftfeuchte Sensor 2
  1317. <br>
  1318. corrTemp3 optional: Korrekturwert f&uuml;r Temperatur Sensor 3
  1319. <br>
  1320. corrHum3 optional: Korrekturwert f&uuml;r die Luftfeuchte Sensor 3
  1321. </ul>
  1322. <br>
  1323. <a name="MOBILEALERTSreadings"></a>
  1324. <b>Readings</b>
  1325. <ul>
  1326. <li>lastMsg<br>Die letzte empfangene Nachricht (immer f&uuml;r unbekannte Ger&auml;te, f&uuml;r bekannte nur wenn das Attribut lastMsg gesetzt ist).</li>
  1327. <li>deviceType<br>Der Ger&auml;tetyü.</li>
  1328. <li>lastRcv<br>Timestamp der letzten Nachricht.</li>
  1329. <li>actStatus<br>Zeigt 'unknown', 'alive', 'dead', 'switchedOff' abh&auml;ngig vom Attribut actCycle</li>
  1330. <li>txCounter<br>Counter des letzten Nachricht (wird 0 nach Batteriewechsel).</li>
  1331. <li>triggered<br>1=letzte Nachricht wurde von einem Ereignis ausgel&ouml;st.</li>
  1332. <li>tempertature, prevTemperature, temperatureIn, temperatureOut, prevTemperatureIn, prevTemperatureOut<br>Temperatur (abh&auml;nging vom Ger&auml;t und dem Attribut expert).</li>
  1333. <li>tempertatureString, prevTemperatureString, temperatureInString, temperatureOutString, prevTemperatureInString, prevTemperatureOutString<br>Temperatur als Zeichkette.</li>
  1334. <li>state<br>State of device (short actual reading)</li>
  1335. <li>humidity, prevHumidity, humidityIn, humidityOut, prevHumidityIn, prevHumidityOut<br>Luftfeuchte (abh&auml;nging vom Ger&auml;t und dem Attribut expert).</li>
  1336. <li>humidityString, prevHumidityString, humidityInString, humidityOutString, prevHumidityInString, prevHumidityOutString<br>Luftfeuchte als Zeichenkette</li>
  1337. <li>wetness<br>Zeigt ob der Sensors Wasser entdeckt.</li>
  1338. <li>lastEvent, lastEvent&lt;X&gt; ,lastEventString, lastEvent&lt;X&gt;String<br>Zeitpunkt wann das letzte Event (Regen) stattgefunden hat (nur MA10650).</li>
  1339. <li>mmRain, mmRainActHour, mmRainLastHour, mmRainActDay, mmRainYesterday<br>Regen seit dem letzten Reset des Counters, in der aktuellen Stunde, seit der letzten Stunden, am aktuellen Tagn, gestern.</li>
  1340. <li>direction, directionInt<br>Richtung des Winds.</li>
  1341. <li>windSpeed, gustSpeed<br>Windgeschwindigkeit.</li>
  1342. </ul>
  1343. <br>
  1344. <a name="MOBILEALERTSset"></a>
  1345. <b>Set</b>
  1346. <ul>
  1347. <li><code>set &lt;name&gt; clear &lt;readings|counters&gt;</code><br>
  1348. L&ouml;scht die Readings (alle) oder Counter (wie mmRain). </li>
  1349. </ul>
  1350. <br>
  1351. <a name="MOBILEALERTSget"></a>
  1352. <b>Get</b>
  1353. <ul>
  1354. N/A
  1355. </ul>
  1356. <br>
  1357. <br>
  1358. <a name="MOBILEALERTSattr"></a>
  1359. <b>Attributes</b>
  1360. <ul>
  1361. <li><a href="#ignore">ignore</a></li>
  1362. <li><a href="#readingFnAttributes">readingFnAttributes</a></li>
  1363. <li>lastMsg<br>
  1364. Wenn dieser Wert auf 1 gesetzt ist, wird die letzte erhaltene Nachricht als Reading gelogt auch wenn das Ger&auml bekannt ist.
  1365. </li>
  1366. <li>actCycle &lt;[hhh:mm]|off&gt;<br>
  1367. Dieses Attribut erm&ouml;licht eine 'nicht erreichbarkeit' Erkennung.
  1368. [hhh:mm] ist die maximale Zeit, innerhalb der keine Nachrichten empfrangen wird.
  1369. Das Reading actStatus zeigt den Status 'unknown', 'alive', 'dead' an.
  1370. </li>
  1371. <li>expert<br>
  1372. Gibt an wie detailiert die Readings angezeigt werden (0=nur aktuelle, 1=mit vorhergehenden, 4=alle).
  1373. </li>
  1374. </ul>
  1375. </ul>
  1376. =end html_DE
  1377. =cut