From b634064c1fac27caf59db5c7d5ca13d55e6ea562 Mon Sep 17 00:00:00 2001 From: jpawlowski Date: Sat, 17 Dec 2016 15:57:27 +0000 Subject: [PATCH] 70_ENIGMA2: tuner reading name according to FHEM naming rules git-svn-id: https://svn.fhem.de/fhem/trunk@12799 2b470e98-0d58-463d-a4d8-8e2adae1ed80 --- fhem/FHEM/70_ENIGMA2.pm | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/fhem/FHEM/70_ENIGMA2.pm b/fhem/FHEM/70_ENIGMA2.pm index f0329f62a..184dc5bf8 100644 --- a/fhem/FHEM/70_ENIGMA2.pm +++ b/fhem/FHEM/70_ENIGMA2.pm @@ -1526,7 +1526,9 @@ sub ENIGMA2_ReceiveCommand($$$) { { my $tuner_name = lc( $tuner->{name} ); $tuner_name =~ s/\s/_/g; - $tuner_name =~ s/[A-Za-z\/\d_\.-]/$1/g; + $tuner_name = "tuner_$tuner_name" + if ( $tuner_name !~ /^[Tt]uner_/ ); + $tuner_name =~ s/[^A-Za-z\/\d_\.-]//g; readingsBulkUpdateIfChanged( $hash, $tuner_name, $tuner->{type} ); @@ -1543,7 +1545,11 @@ sub ENIGMA2_ReceiveCommand($$$) { my $tuner_name = lc( $return->{e2about}{e2tunerinfo}{e2nim}{name} ); + $tuner_name =~ s/\s/_/g; + $tuner_name = "tuner_$tuner_name" + if ( $tuner_name !~ /^[Tt]uner_/ ); + $tuner_name =~ s/[^A-Za-z\/\d_\.-]//g; readingsBulkUpdateIfChanged( $hash, $tuner_name, $return->{e2about}{e2tunerinfo}{e2nim}{type} );