mhop/fhem
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

small fix in 12_HMS.pm (missing #)

Browse Source 
git-svn-id: svn://svn.code.sf.net/p/fhem/code/trunk@318 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
neubert
2009-01-10 17:28:45 +00:00
parent c69e84b0f9
commit b7c7a4536e
1 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
fhem/FHEM/12_HMS.pm
View File

@@ -53,7 +53,7 @@ HMS_Define($$)
$a[2] = lc($a[2]); $a[2] = lc($a[2]);
return "Define $a[0]: wrong CODE format: specify a 4 digit hex value" return "Define $a[0]: wrong CODE format: specify a 4 digit hex value"
if($a[2] !~ m/^[a-f0-9][a-f0-9][a-f0-9][a-f0-9]$/); if($a[2] !~ m/^[a-f0-9][a-f0-9][a-f0-9][a-f0-9]$/);
$hash->{CODE} = $a[2]; $hash->{CODE} = $a[2];
$defptr{$a[2]} = $hash; $defptr{$a[2]} = $hash;
@@ -78,7 +78,7 @@ HMS_Parse($$)
my $dev = substr($msg, 16, 4); my $dev = substr($msg, 16, 4);
my $cde = substr($msg, 11, 1); my $cde = substr($msg, 11, 1);
012345678901234567890123456789 # 012345678901234567890123456789
# 810e047f0214a001a81f000001000000 HMS100TFK # 810e047f0214a001a81f000001000000 HMS100TFK
my $val = substr($msg, 24, 8) if(length($msg) == 32); my $val = substr($msg, 24, 8) if(length($msg) == 32);
@@ -140,7 +140,7 @@ HMS_Parse($$)
$val = "T: $v[0] Bat: $v[1]"; $val = "T: $v[0] Bat: $v[1]";
} elsif ($type eq "HMS100WD") { } elsif ($type eq "HMS100WD") {
@txt = ( "water_detect", "battery"); @txt = ( "water_detect", "battery");
@sfx = ( "", ""); @sfx = ( "", "");
@@ -154,7 +154,7 @@ HMS_Parse($$)
$val = "Water Detect: $v[0]"; $val = "Water Detect: $v[0]";
} elsif ($type eq "HMS100TFK") { # By Peter P. } elsif ($type eq "HMS100TFK") { # By Peter P.
@txt = ( "switch_detect", "battery"); @txt = ( "switch_detect", "battery");
@sfx = ( "", ""); @sfx = ( "", "");
# Battery-low condition detect is not yet properly implemented. # Battery-low condition detect is not yet properly implemented.
@@ -176,7 +176,7 @@ HMS_Parse($$)
$val = "smoke_detect: $v[0]"; $val = "smoke_detect: $v[0]";
} elsif ($type eq "HMS100MG") { # By Peter Stark } elsif ($type eq "HMS100MG") { # By Peter Stark
@txt = ( "gas_detect", "battery"); @txt = ( "gas_detect", "battery");
@sfx = ( "", ""); @sfx = ( "", "");