FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-03-10 03:06:37 +00:00
Code Issues Releases Wiki Activity

MAX: convert addresses to lower case

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@3322 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
mgehre 2013-06-24 07:02:07 +00:00
parent 8d81607cf4
commit 45dda7ddae
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
fhem/FHEM/14_CUL_MAX.pm
View File

@ -73,7 +73,7 @@ CUL_MAX_Define($$)
my ($hash, $def) = @_; my ($hash, $def) = @_;
my @a = split("[ \t][ \t]*", $def); my @a = split("[ \t][ \t]*", $def);
return "wrong syntax: define <name> CUL_MAX <srdAddr>" if(@a<3); return "wrong syntax: define <name> CUL_MAX <srcAddr>" if(@a<3);
if(exists($modules{CUL_MAX}{defptr})) { if(exists($modules{CUL_MAX}{defptr})) {
Log 1, "There is already one CUL_MAX defined"; Log 1, "There is already one CUL_MAX defined";
@ -81,7 +81,7 @@ CUL_MAX_Define($$)
} }
$modules{CUL_MAX}{defptr} = $hash; $modules{CUL_MAX}{defptr} = $hash;
$hash->{addr} = $a[2]; $hash->{addr} = lc($a[2]);
$hash->{STATE} = "Defined"; $hash->{STATE} = "Defined";
$hash->{cnt} = 0; $hash->{cnt} = 0;
$hash->{pairmode} = 0; $hash->{pairmode} = 0;
@ -147,13 +147,13 @@ CUL_MAX_Attr(@)
sub sub
CUL_MAX_fakeWTaddr($) CUL_MAX_fakeWTaddr($)
{ {
return AttrVal($_[0]->{NAME}, "fakeWTaddr", "111111"); return lc(AttrVal($_[0]->{NAME}, "fakeWTaddr", "111111"));
} }
sub sub
CUL_MAX_fakeSCaddr($) CUL_MAX_fakeSCaddr($)
{ {
return AttrVal($_[0]->{NAME}, "fakeSCaddr", "222222"); return lc(AttrVal($_[0]->{NAME}, "fakeSCaddr", "222222"));
} }
sub sub
@ -172,7 +172,7 @@ CUL_MAX_Set($@)
} elsif($setting ~~ ["fakeSC", "fakeWT"]) { } elsif($setting ~~ ["fakeSC", "fakeWT"]) {
return "Invalid number of arguments" if(@args == 0); return "Invalid number of arguments" if(@args == 0);
my $dest = $args[0]; my $dest = lc($args[0]);
#$dest may be either a name or an address #$dest may be either a name or an address
if(exists($defs{$dest})) { if(exists($defs{$dest})) {
return "Destination is not a MAX device" if($defs{$dest}{TYPE} ne "MAX"); return "Destination is not a MAX device" if($defs{$dest}{TYPE} ne "MAX");