mirror of
https://github.com/fhem/fhem-mirror.git
synced 2025-01-31 06:39:11 +00:00
FB_CALLMONITOR: fix reverse search for dasschnelle.at (Forum: #71051)
git-svn-id: https://svn.fhem.de/fhem/trunk@14142 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
parent
7938cf194c
commit
8bdc8a6f6f
@ -1,5 +1,6 @@
|
|||||||
# Add changes at the top of the list. Keep it in ASCII, and 80-char wide.
|
# Add changes at the top of the list. Keep it in ASCII, and 80-char wide.
|
||||||
# Do not insert empty lines here, update check depends on it.
|
# Do not insert empty lines here, update check depends on it.
|
||||||
|
- bugfix: 72_FB_CALLMONITOR: fix reverse-search of dasschnelle.at
|
||||||
- feature: 70_BRAVIA: command remoteControl supports 'PictureMode'
|
- feature: 70_BRAVIA: command remoteControl supports 'PictureMode'
|
||||||
- bugfix: 22_HOMEMODE: Use of uninitialized value $d in hash element
|
- bugfix: 22_HOMEMODE: Use of uninitialized value $d in hash element
|
||||||
minor commandref fix
|
minor commandref fix
|
||||||
|
@ -740,7 +740,7 @@ FB_CALLMONITOR_reverseSearch($$)
|
|||||||
{
|
{
|
||||||
Log3 $name, 4, "FB_CALLMONITOR ($name) - using dasschnelle.at for reverse search of $number";
|
Log3 $name, 4, "FB_CALLMONITOR ($name) - using dasschnelle.at for reverse search of $number";
|
||||||
|
|
||||||
$result = GetFileFromURL("http://www.dasschnelle.at/result/index/results?PerPage=5&pageNum=1&what=".$number."&where=&rubrik=0&bezirk=0&orderBy=Standard&mapsearch=false", 5, undef, 1);
|
$result = GetFileFromURL("http://www.dasschnelle.at/ergebnisse?what=".$number."&where=&rubrik=0&bezirk=0&orderBy=Standard&mapsearch=false", 5, undef, 1);
|
||||||
if(not defined($result))
|
if(not defined($result))
|
||||||
{
|
{
|
||||||
if(AttrVal($name, "reverse-search-cache", "0") eq "1")
|
if(AttrVal($name, "reverse-search-cache", "0") eq "1")
|
||||||
@ -752,11 +752,11 @@ FB_CALLMONITOR_reverseSearch($$)
|
|||||||
else
|
else
|
||||||
{
|
{
|
||||||
#Log 2, $result;
|
#Log 2, $result;
|
||||||
if($result =~ /name\s+:\s+"(.+?)",/)
|
if($result =~ /"name"\s*:\s*"([^"]+)",/)
|
||||||
{
|
{
|
||||||
$invert_match = "";
|
$invert_match = "";
|
||||||
|
|
||||||
while($result =~ /name\s+:\s+"(.+?)",/g)
|
while($result =~ /"name"\s*:\s*"([^"]+)",/g)
|
||||||
{
|
{
|
||||||
$invert_match = $1 if(length($1) > length($invert_match));
|
$invert_match = $1 if(length($1) > length($invert_match));
|
||||||
}
|
}
|
||||||
|
Loading…
Reference in New Issue
Block a user