98_Hyperion: more specific regex for localhost check

git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@12382 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
deespe 2016-10-19 20:04:24 +00:00
parent 4e0f02402a
commit 44f8124c6f

View File

@ -762,7 +762,7 @@ sub Hyperion_Attr(@)
my ($cmd,$name,$attr_name,$attr_value) = @_; my ($cmd,$name,$attr_name,$attr_value) = @_;
my $hash = $defs{$name}; my $hash = $defs{$name};
my $err = undef; my $err = undef;
my $local = ($hash->{IP} =~ /^(localhost|127.0.0.1)$/)?1:undef; my $local = ($hash->{IP} =~ /^(localhost|127\.0{1,3}\.0{1,3}\.(0{1,2})?1)$/)?1:undef;
if ($cmd eq "set") if ($cmd eq "set")
{ {
if ($attr_name eq "hyperionBin") if ($attr_name eq "hyperionBin")