diff --git a/fhem/FHEM/72_FB_CALLMONITOR.pm b/fhem/FHEM/72_FB_CALLMONITOR.pm index 37913c9e4..199257f8c 100755 --- a/fhem/FHEM/72_FB_CALLMONITOR.pm +++ b/fhem/FHEM/72_FB_CALLMONITOR.pm @@ -40,7 +40,7 @@ use HttpUtils; use DevIo; use FritzBoxUtils; -my $ModulVersion = "07.50.1"; +my $ModulVersion = "07.50.2"; my %tellows = (); my %connection_type = ( 0 => "FON1", @@ -881,8 +881,7 @@ sub FB_CALLMONITOR_reverseSearch($$$) { # Using Cache if enabled if(AttrVal($name, "reverse-search-cache", "0") eq "1" and defined($hash->{helper}{CACHE}{$number})) { - FB_CALLMONITOR_Log $name, 4, "using cache for reverse search of $number"; - if($hash->{helper}{CACHE}{$number} ne "timeout" or $hash->{helper}{CACHE}{$number} ne "unknown") + if($hash->{helper}{CACHE}{$number} ne "timeout" && $hash->{helper}{CACHE}{$number} ne "unknown") { return $hash->{helper}{CACHE}{$number}; } @@ -900,7 +899,7 @@ sub FB_CALLMONITOR_reverseSearch($$$) { $number =~ s/^0049/0/; # remove country code FB_CALLMONITOR_Log $name, 4, "using dasoertliche.de for reverse search of $number"; - $result = GetFileFromURL("http://www1.dasoertliche.de/?form_name=search_inv&ph=".$number, 5, undef, 1); + $result = GetFileFromURL("https://www1.dasoertliche.de/?form_name=search_inv&ph=".$number, 5, undef, 1); if(not defined($result)) { if(AttrVal($name, "reverse-search-cache", "0") eq "1") @@ -912,7 +911,8 @@ sub FB_CALLMONITOR_reverseSearch($$$) { else { #Debug($result); - if($result =~ m,(.+?),) + FB_CALLMONITOR_Log $name, 5, "result(dasOertliche) -> " . $result; + if($result =~ m,(.+?),sg) { $invert_match = $1; $invert_match = FB_CALLMONITOR_html2txt($invert_match); @@ -925,7 +925,7 @@ sub FB_CALLMONITOR_reverseSearch($$$) { FB_CALLMONITOR_Log $name, 3, "the reverse search result for $number could not be extracted from dasoertliche.de. Please contact the FHEM community."; } - $status = "unknown"; + $status = "dasOertliche->unknown result"; } } } @@ -956,6 +956,7 @@ sub FB_CALLMONITOR_reverseSearch($$$) { else { #Debug($result); + FB_CALLMONITOR_Log $name, 5, "result(11880) -> " . $result; if($result =~ m,