From 6e8b5f80b29aa3106b883f3b2737823e55b170f3 Mon Sep 17 00:00:00 2001 From: markusbloch <> Date: Thu, 18 Jun 2015 19:27:59 +0000 Subject: [PATCH] FB_CALLLIST: Only cleanup list when init is done, minor code and commandref changes git-svn-id: https://svn.fhem.de/fhem/trunk@8771 2b470e98-0d58-463d-a4d8-8e2adae1ed80 --- fhem/FHEM/72_FB_CALLLIST.pm | 67 ++++++++++++++++++++----------------- 1 file changed, 37 insertions(+), 30 deletions(-) diff --git a/fhem/FHEM/72_FB_CALLLIST.pm b/fhem/FHEM/72_FB_CALLLIST.pm index 4ef483075..01456a74b 100755 --- a/fhem/FHEM/72_FB_CALLLIST.pm +++ b/fhem/FHEM/72_FB_CALLLIST.pm @@ -29,7 +29,6 @@ package main; use strict; use warnings; -use Time::HiRes qw(gettimeofday); use MIME::Base64; use Data::Dumper; @@ -135,11 +134,14 @@ sub FB_CALLLIST_Attr($@) Log3 $name, 4, "FB_CALLLIST ($name) - filter stored as list $value"; } - # delete all outdated calls according to attribute list-type, internal-number-filter and number-of-calls - FB_CALLLIST_cleanupList($hash); - - # Inform all FHEMWEB clients - FB_CALLLIST_updateFhemWebClients($hash); + if($init_done) + { + # delete all outdated calls according to attribute list-type, internal-number-filter and number-of-calls + FB_CALLLIST_cleanupList($hash) if($init_done); + + # Inform all FHEMWEB clients + FB_CALLLIST_updateFhemWebClients($hash); + } } elsif($attrib eq "connection-mapping") { @@ -153,7 +155,7 @@ sub FB_CALLLIST_Attr($@) Log3 $name, 4, "FB_CALLLIST ($name) - connection map stored as hash: $value"; # Inform all FHEMWEB clients - FB_CALLLIST_updateFhemWebClients($hash); + FB_CALLLIST_updateFhemWebClients($hash) if($init_done); } else { @@ -170,10 +172,15 @@ sub FB_CALLLIST_Attr($@) if($value =~ /^incoming|outgoing|missed-call|completed|active$/) { $attr{$name}{$attrib} = $value; - FB_CALLLIST_cleanupList($hash); - # Inform all FHEMWEB clients - FB_CALLLIST_updateFhemWebClients($hash); + if($init_done) + { + # delete all outdated calls according to attribute list-type, internal-number-filter and number-of-calls + FB_CALLLIST_cleanupList($hash) if($init_done); + + # Inform all FHEMWEB clients + FB_CALLLIST_updateFhemWebClients($hash); + } } } } @@ -387,7 +394,6 @@ sub FB_CALLLIST_cleanupList($) # delete calls which do not match the configured internal-number-filter if(exists($hash->{helper}{LINE_FILTER})) { - Log3 $name, 5, "FB_CALLLIST ($name) - internal-number-filter is defined, checking if MSN is allowed"; push @list, grep { not FB_CALLLIST_checkForInternalNumberFilter($hash, $hash->{helper}{DATA}{$_}{internal_number}) } keys %{$hash->{helper}{DATA}}; } @@ -494,7 +500,7 @@ sub FB_CALLLIST_list2html($;$) my $line; my $old_locale = setlocale(LC_ALL); - $ret .= "
"; + $ret .= ""; $ret .= " - - - + + +
"; $ret .= "
$alias".(IsDisabled($name) ? " (disabled)" : "")."
" unless($FW_webArgs{"detail"}); $ret .= "
"; @@ -646,7 +652,7 @@ sub FB_CALLLIST_saveList($) my $err = setKeyValue("FB_CALLLIST-$name", $dump); - Log3 $name, 3, "FB_CALLLIST ($name) - error while saving the current call list - $err" if(defined($err)); + Log3 $name, 3, "FB_CALLLIST ($name) - error while saving the current call list: $err" if(defined($err)); } } @@ -665,7 +671,7 @@ sub FB_CALLLIST_loadList($) if(defined($err)) { - Log3 $name, 3, "FB_CALLLIST ($name) - error while loading the old call list state- $err"; + Log3 $name, 3, "FB_CALLLIST ($name) - error while loading the old call list state: $err"; return undef; } @@ -756,7 +762,7 @@ sub FB_CALLLIST_returnOrderedJSONOutput($$) } ##################################### -# Check, if a given internal number (MSN) matches the configured internal-number-filter (if set). returns true if number matches +# Check, if a given internal number matches the configured internal-number-filter (if set). returns true if number matches sub FB_CALLLIST_checkForInternalNumberFilter($$) { my ($hash, $line_number) = @_; @@ -764,11 +770,11 @@ sub FB_CALLLIST_checkForInternalNumberFilter($$) if(exists($hash->{helper}{LINE_FILTER})) { - Log3 $name, 5, "FB_CALLLIST ($name) - internal-number-filter is defined, checking if MSN is allowed"; + Log3 $name, 5, "FB_CALLLIST ($name) - internal-number-filter is defined, checking if internal number $line_number is allowed"; if(defined($line_number) and not exists($hash->{helper}{LINE_FILTER}{$line_number})) { - Log3 $name, 5, "FB_CALLLIST ($name) - MSN $line_number does not match the current internal-number-filter: ".Dumper($hash->{helper}{LINE_FILTER}); + Log3 $name, 5, "FB_CALLLIST ($name) - internal number $line_number does not match the current internal-number-filter: ".Dumper($hash->{helper}{LINE_FILTER}); return undef; } else @@ -789,7 +795,7 @@ sub FB_CALLLIST_updateFhemWebClients($) if(exists($hash->{helper}{DATA}) and (scalar keys %{$hash->{helper}{DATA}}) > 0) { - Log3 $name, 5, "FB_CALLLIST ($name) - inform all FHEMWEB clients"; + Log3 $name, 5, "FB_CALLLIST ($name) - inform all FHEMWEB clients"; # inform all FHEMWEB clients about changes foreach my $line (FB_CALLLIST_list2html($hash, 1)) @@ -802,7 +808,7 @@ sub FB_CALLLIST_updateFhemWebClients($) } else { - Log3 $name, 5, "FB_CALLLIST ($name) - list is empty, sending a clear command to all FHEMWEB clients"; + Log3 $name, 5, "FB_CALLLIST ($name) - list is empty, sending a clear command to all FHEMWEB clients"; # inform all FHEMWEB clients about empty list my @columns = split(",",AttrVal($name, "visible-columns", "row,state,timestamp,name,number,internal,connection,duration")); @@ -873,9 +879,9 @@ sub FB_CALLLIST_returnTableHeader($)
The FB_CALLLIST module creates a call history list by processing events of a FB_CALLMONITOR definition. - It logs all calls and displays them in a history table. + It logs all calls and displays them in a historic table.

- You need a defined FB_CALLMONITOR instance where you can attach FB_CALLLIST to use this module

+ You need a defined FB_CALLMONITOR instance where you can attach FB_CALLLIST to process the call events.

Depending on your configuration the status will be shown as icons or as text. You need to have the fhemSVG icon set configured in your corresponding FHEMWEB instance (see FHEMWEB attribute iconPath).

The icons have different colors.

@@ -926,7 +932,7 @@ sub FB_CALLLIST_returnTableHeader($)
  • disable 0,1
    • - Optional attribute to disable the call list update. When disabled, call events will be processed and the list will not be updated. + Optional attribute to disable the call list update. When disabled, call events will be processed and the list wouldn't be updated accordingly.

    Possible values: 0 => FB_CALLLIST is activated, 1 => FB_CALLLIST is deactivated.
    Default Value is 0 (activated)

    @@ -1030,9 +1036,10 @@ sub FB_CALLLIST_returnTableHeader($) Es speichert alle Anrufe und zeigt sie in einer historischen Tabelle an.

    Es wird eine bereits konfigurierte FB_CALLMONITOR Definition benötigt, von der FB_CALLLIST die Events entsprechend verarbeiten kann.

    - Abhängig von der Konfiguration der Attribute wird der Status als Icon oder als Textzeichen ausgegeben. Um die Icons korrekt anzeigen zu können muss das fhemSVG Icon-Set in der entsprechenden FHEMWEB-Instanz konfiguriert sein (siehe dazu FHEMWEB Attribut iconPath). + Abhängig von der Konfiguration der Attribute wird der Status als Icon oder als Textzeichen ausgegeben. + Um die Icons korrekt anzeigen zu können, muss das fhemSVG Icon-Set in der entsprechenden FHEMWEB-Instanz konfiguriert sein (siehe dazu FHEMWEB Attribut iconPath).

    - Die Icons haben verschiedene Farben.

    + Die Icons haben verschiedene Farben:

    • blau - Eingehender Anruf (aktiv oder beendet)
    • grün - Ausgehender Anruf (aktiv oder beendet))
      • @@ -1046,9 +1053,9 @@ sub FB_CALLLIST_returnTableHeader($)
=> ((o)) - Eingehender Anruf (klingelt)
 
<= [=] - Ausgehender Anruf (laufendes Gespräch)
=> [=] - Eingehender Anruf (laufendes Gespräch)
 
<= X - Ausgehender erfolgloser Anruf (Gegenseite nicht abgenommen)
=> X - Eingehender erfolgloser Anruf (Verpasster Anruf)
 
=> O_O - Eingehender Anruf der durch einen Anrufbeantworter entgegen genommen wurde
 
<= X - Ausgehender, erfolgloser Anruf (Gegenseite nicht abgenommen)
=> X - Eingehender, erfolgloser Anruf (Verpasster Anruf)
 
=> O_O - Eingehender Anruf, der durch einen Anrufbeantworter entgegen genommen wurde
 
<= - Ausgehender Anruf (beendet)
=> - Eingehender Anruf (beendet)
@@ -1097,15 +1104,15 @@ sub FB_CALLLIST_returnTableHeader($) Ist dieses Attribut gesetzt, werden nur bestimmte Typen von Anrufen in der Liste angezeigt:

  • all - Alle Anrufe werden angezeigt
    • -
  • incoming - Alle eingehenden Anrufe werden angezeigt (aktive und abgeschlossen)
    • +
  • incoming - Alle eingehenden Anrufe werden angezeigt (aktive und abgeschlossene)
  • outgoing - Alle ausgehenden Anrufe werden angezeigt (aktive und abgeschlossene)
  • missed-calls - Alle eingehenden, verpassten Anrufe werden angezeigt.
    • -
  • completed - Alle abgeschlossenen Anrufe werden angezeigt (eingehen und ausgehend)
    • +
  • completed - Alle abgeschlossenen Anrufe werden angezeigt (eingehend und ausgehend)
  • active - Alle aktuell laufenden Anrufe werden angezeigt (eingehend und ausgehend)

Standardwert ist "all" (alle Anrufe anzeigen)

  • list-order descending,ascending
    • - Gibt an ob der neueste Anruf in der ersten Zeile (aufsteigend => descending) oder in der letzten Zeile (absteigend => ascending) in der Liste angezeigt werden soll. Dementsprechend rollt die Liste dann nach oben durch oder nach unten.

    + Gibt an ob der neueste Anruf in der ersten Zeile (aufsteigend => descending) oder in der letzten Zeile (absteigend => ascending) in der Liste angezeigt werden soll. Dementsprechend rollt die Liste dann nach oben oder unten durch.

    Standardwert ist "descending" (absteigend, neuester Anruf in der ersten Zeile)

  • internal-number-filter <hash>
    • Dieses Attribut ermöglicht das Filtern der angezeigten Anrufe auf bestimmte interne Rufnummern sowie das Zuordnen von Namen zu den internen Rufnummern.