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

fhe,.pl: fixing eventMap fixes (Forum #27757)

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@6782 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig 2014-10-18 06:14:57 +00:00
parent 56a8767a0f
commit 1b9ffe6322
1 changed files with 11 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
fhem/fhem.pl
View File

@ -3261,20 +3261,18 @@ ReplaceEventMap($$$)
foreach my $rv (@emList) {
# Real-Event-Regexp:GivenName[:modifier]
my ($re, $val, $modifier) = split(":", $rv, 3);
my $reIsWord = ($re =~ m/^\w*$/); # dim100% is not \w only, cant use \b
next if(!defined($val));
if($dir) { # event -> GivenName
my $reIsWord = ($re =~ m/^\w*$/); # dim100% is not \w only, cant use \b
if($reIsWord) {
if($str =~ m/\b$re\b/) {
$str =~ s/\b$re\b/$val/;
$changed = 1;
last;
}
} else {
if($str =~ m/$re/) {
$str =~ s/$re/$val/;
$changed = 1;
last;
}
}
@ -3282,21 +3280,22 @@ ReplaceEventMap($$$)
if($nstr eq $val) { # for special translations like <> and <<
$nstr = $re;
$changed = 1;
last;
} elsif($reIsWord) {
if($nstr =~ m/$val/) {
$nstr =~ s/$val/$re/;
$changed = 1;
last;
}
} elsif($nstr =~ m/\b$val\b/) {
} else {
my $reIsWord = ($val =~ m/^\w*$/);
if($reIsWord) {
if($nstr =~ m/\b$val\b/) {
$nstr =~ s/\b$val\b/$re/;
$changed = 1;
last;
}
} elsif($nstr =~ m/$val/) {
$nstr =~ s/$val/$re/;
$changed = 1;
}
}
}
last if($changed);
}
}
return $str if($dir);
if($changed) {