FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-04-20 07:16:03 +00:00
Code Issues Releases Wiki Activity

FB_CALLLIST: end calls, which are still active with same call-id (Forum: #62468)

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@12852 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
markusbloch 2016-12-20 17:27:38 +00:00
parent 9e67df1c50
commit bcbdeeaa65
1 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
fhem/FHEM/72_FB_CALLLIST.pm
View File

@ -388,6 +388,16 @@ sub FB_CALLLIST_Notify($$)
if($event =~ /^call|ring$/) if($event =~ /^call|ring$/)
{ {
# end running calls with same call-id (Forum: #62468)
while(my $old_data = FB_CALLLIST_getDataReference($hash, $call_id))
{
Log3 $name, 4, "FB_CALLLIST ($name) - found running call with same call id: $old_data\n".Dumper($old_data);
delete($old_data->{running_call});
$old_data->{finished} = gettimeofday();
$old_data->{call_duration} = 0;
}
my $timestamp = gettimeofday(); my $timestamp = gettimeofday();
$hash->{helper}{DATA}{$timestamp} = undef; $hash->{helper}{DATA}{$timestamp} = undef;
@ -407,7 +417,7 @@ sub FB_CALLLIST_Notify($$)
$data->{internal_connection} = ReadingsVal($fb, "internal_connection", undef); $data->{internal_connection} = ReadingsVal($fb, "internal_connection", undef);
} }
Log3 $name, 5, "FB_CALLLIST ($name) - created new data hash: $data"; Log3 $name, 5, "FB_CALLLIST ($name) - created new data hashcreated new data hash: $data";
} }
else else
{ {
@ -470,7 +480,7 @@ sub FB_CALLLIST_getDataReference($$)
my @result = grep {$hash->{helper}{DATA}{$_}{call_id} eq $call_id and defined($hash->{helper}{DATA}{$_}{running_call}) and $hash->{helper}{DATA}{$_}{running_call} == 1} keys %{$hash->{helper}{DATA}}; my @result = grep {$hash->{helper}{DATA}{$_}{call_id} eq $call_id and defined($hash->{helper}{DATA}{$_}{running_call}) and $hash->{helper}{DATA}{$_}{running_call} == 1} keys %{$hash->{helper}{DATA}};
return \%{$hash->{helper}{DATA}{$result[0]}} if(exists($result[0])); return \%{$hash->{helper}{DATA}{$result[0]}} if(defined($result[0]));
return undef; return undef;
} }