Public/fhem-mirror
1
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-05-04 22:19:38 +00:00
Code Issues Packages Projects Releases Wiki Activity

98_MSwitch.pm:Fix - attr 'MSwitch_Event_Id_Distributor' regex capable

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@18911 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
Byte09 2019-03-15 16:46:28 +00:00
parent c57919d0ab
commit 10f1b17970
1 changed files with 26 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
FHEM/98_MSwitch.pm
View File

@ -3062,17 +3062,40 @@ sub MSwitch_checkbridge($$$) {
my ( $hash, $name, $event ) = @_; my ( $hash, $name, $event ) = @_;
my $bridgemode = AttrVal( $name, 'MSwitch_Event_Id_Distributor', '0' ); my $bridgemode = AttrVal( $name, 'MSwitch_Event_Id_Distributor', '0' );
my $expertmode = AttrVal( $name, 'MSwitch_Expert', '0' ); my $expertmode = AttrVal( $name, 'MSwitch_Expert', '0' );
MSwitch_LOG( $name, 6, "starte distributor attr " );
MSwitch_LOG( $name, 6, "expertmode $expertmode" );
MSwitch_LOG( $name, 6, "bridgemode $bridgemode " );
MSwitch_LOG( $name, 6, "event : -$event-" );
MSwitch_LOG( $name, 6, "checke keys" );
my $foundkey ="undef";
my $etikeys= $hash->{helper}{eventtoid};
foreach my $a ( sort keys %{$etikeys} )
{
MSwitch_LOG( $name, 6, "key : $a" );
my $re = qr/$a/;
$foundkey = $a if ( $event =~ /$re/ );
MSwitch_LOG( $name, 6, "foundkey :-$foundkey-" );
}
MSwitch_LOG( $name, 6, "suche nach schlüssel:-$event-" );
MSwitch_LOG( $name, 6, "helper eventoid : ".$hash->{helper}{eventtoid}{$foundkey} );
return "no_bridge" if $expertmode eq "0"; return "no_bridge" if $expertmode eq "0";
return "no_bridge" if $bridgemode eq "0"; return "no_bridge" if $bridgemode eq "0";
return "no_bridge" if !defined $hash->{helper}{eventtoid}{$event}; # return "no_bridge" if !defined $hash->{helper}{eventtoid}{$event};
my @bridge = split(/ /,$hash->{helper}{eventtoid}{$event}); return "no_bridge" if !defined $hash->{helper}{eventtoid}{$foundkey};
my @bridge = split(/ /,$hash->{helper}{eventtoid}{$foundkey});
my $zweig ; my $zweig ;
$zweig = "on" if $bridge[0] eq "cmd1"; $zweig = "on" if $bridge[0] eq "cmd1";
$zweig = "off" if $bridge[0] eq "cmd2"; $zweig = "off" if $bridge[0] eq "cmd2";
MSwitch_LOG( $name, 6, "distrubutorout: $bridge[2] " );
MSwitch_Exec_Notif( $hash, $zweig, 'nocheck', '', $bridge[2] ); MSwitch_Exec_Notif( $hash, $zweig, 'nocheck', '', $bridge[2] );
return "undef"; return "undef";
} }
############################ ############################
sub MSwitch_fhemwebFn($$$$) { sub MSwitch_fhemwebFn($$$$) {