Callmonitor für Anfänger

[coolice]

@ coclice: hast du schon mal einen Anruf getätigt und dann geschaut ob es geht?

Natürlich. In Events wird auch alles richtig angezeigt. Anruf kommt rein, anrufende Nummer wird gezeigt, Rückwärtssuche einfach alles.
Nur die Readingsgroup will nicht.

[fiedel]

Was mir noch einfällt:

- die "99_myUtilsTelefon.pm" hast du in den FHEM- Ordner kopiert (wird im Menü "Edit Files" auch angezeigt)
- danach ein "shutdown restart" gemacht?

Wenn dein Callmonitor geht, kann es ja nur noch eine Kleinigkeit sein...

[coolice]

Ist im FHEM Ordner. Wahrscheinlich ist es wirklich nur eine Kleinigkeit. Aber welche in Events läuft alles akurat ab.


Gesendet von meinem iPhone mit Tapatalk

[coolice]

Oh man. Probiert, probiert, update hier update da und ... Schlimmer als vorher. Missing ack sind ja bekannt. Naja. Fhem komplett neu aufgesetzt und die readingsgroup läuft leider immer noch nicht.


Gesendet von meinem iPhone mit Tapatalk

[Mitch]

Also wenn die 99_my... Datei richtig vorhanden ist und alle Namen richtig umgeschrieben wurden, könnte es noch an der CFG liegen.
Ich habe das ganze gestern auch eingebaut und es hatte nicht funktioniert, bis ich die Felher in der CFG fand, wo noch Callmon stand, statt Anrufmonitor, so wie mein Device definiert ist (siehe rot):

# Telefonevents für Anzeige abfangen:
define Func_TelMon_N notify Anrufmonitor:.* { \
  TelefonMonitor ($EVENT);; \
}

# Anzeige der Anrufe generieren:
define Anrufliste readingsGroup Anrufmonitor:A0,B0,C0,D0,E0 Anrufmonitor:A1,B1,C1,D1,E1 Anrufmonitor:A2,B2,C2,D2,E2 Anrufmonitor:A3,B3,C3,D3,E3 Anrufmonitor:A4,B4,C4,D4,E4
attr Anrufliste mapping {'Anrufmonitor.A0' => '1.', 'Anrufmonitor.A1' => '2.', 'Anrufmonitor.A2' => '3.', 'Anrufmonitor.A3' => '4.', 'Anrufmonitor.A4' => '5.'}

[coolice]

Hallo Mitch,

war oder ist komplett angepasst gewesen. 
Ich werde jetzt alles löschen. Dat bekomm i net hin.

[fiedel]

Lass den Kopf nicht hängen!

Wenn ich Zeit finde, bau ich dir mal eine Minimalkonfiguration. Stell mal deine aktuelle Konfig noch mal hier rein.
Auf der Fritzbox könnte es noch daran liegen, dass die IP "localhost" oder "172.0.0.1" lauten muss, aber dein Monitor läuft ja.

Das muss doch gehen...

Gruß

Frank

[coolice]

Sehr gerne 
99_myUtilsTelefon

Code Auswählen Erweitern

#################################################
# $Id: 99_myUtilsTelefon.pm 1932 2012-10-06 20:15:33Z ulimaass $
package main;

use strict;
use warnings;
use POSIX;
use FritzBoxUtils;


# fuer Telefonanrufe
our @A;
our @B;
our @C;
our @D;
our @E;
our %TelefonAktionsListe;


sub
myUtilsTelefon_Initialize($$)
{
  my ($hash) = @_;

 
  #...
 

}
################################################################


sub SendSMS ($$)
{
  my $adress = $_[0].'@sms.kundenserver.de';
   my $body = $_[1];
   Log (3,"SendSMS: $adress - $body");
   FB_mail($adress,"",$body);
# end sub SendSMS
}
#####################################
# Anruffunktionen ueber Fritzbox

sub
FBCall ($$)
{

my $callnr = $_[0];
my $duration = $_[1];

Log(3,"FBCall: $callnr mit Dauer $duration");


$callnr = "ATDT".$callnr."#";
my $ret = "ATD: " . `echo $callnr | nc 127.0.0.1 1011`;
InternalTimer(gettimeofday()+$duration, "FBHangOn", "", 0);
return;
}

sub FBHangOn ()
{
Log(3,"FBCallHangOn aufgerufen");

my $ret = " ATH: " . `echo "ATH" | nc 127.0.0.1 1011`;
$ret =~ s,[\r\n]*,,g;
return;
}

######################################

sub TelefonAktion($$)
{
# es wird der Name und die interne angerufene Nummer uebergeen

my ($caller) = split ('\(',$_[0]);
$caller = ltrim(rtrim($caller));

my $intern = $_[1];

# Log(3,"TelefonAktion: $caller $intern");
# Sound ausgeben

my $com = $main::TelefonAktionsListe{$caller};

if ($com)
{
    Log(3,"TelefonAktion: commando: $com");
   sig2_repeat($com,5,4);
} # falls commando vorhanden

} # end sub TelefonAktion

######################################
# EventZeit: Die Zeit wird nicht in der fhem-Reihenfolge, sondern für "human Interface" dargestellt
sub EventZeit()
{
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time());
return sprintf ("%2d:%02d:%02d %2d.%02d.%4d", $hour,$min,$sec,$mday,($mon+1),($year+1900));
} # end sub EventZeit

######################################


sub TelefonMonitor($)
{
our $extnum;
our $intnum;
our $extname;
our $callID;
our $callDuration;
our $stat;
my $i; my $j;
our $ab;
my $Fritz_Box = $defs{"Fritz_Box"};

my ($event,$arg) = split (':',$_[0]);
$arg = ltrim($arg);

# Log(3,"TM: event: $event arg: $arg");
if ($event eq "event")
{
$stat = $arg;
if ($arg eq "disconnect")
  {
#    fhem("set msg2_TVMarina MUTE 0");
#    fhem("set msg2_TVWohnzimmer MUTE 0");
#    sig2_break(); fiedel: -> Funktion um Anrufername auf FS20SIG2 auszugeben (nicht genutzt)
#    sig2(70); # ringout
  } # if disconnect
    return;
} # end if event

if ($stat eq "ring")
{
if ($event eq"external_number")
  {
    $extnum = $arg;
return;
} # if external number


if ($event eq "external_name")
  {
    $extname = $arg;
   return;
}
if ($event eq "internal_number")
  {
    $intnum = $arg;
   return;
   } # end if intnum


if ($event eq "call_id")
{
   $callID = $arg;
# hier koennen wir eine anrufgesteuerte Aktion starten
TelefonAktion($extname, $intnum);

$A[$callID] = "-> ";
   $B[$callID] = EventZeit();
   $C[$callID] = $extname;
   $D[$callID] = $extnum;
# fiedel: Folgende Dummys bzw. Funktionen in der CFG einrichten, wenn Samsung TV vorhanden!
#    fhem("set msg2_TVMarina MUTE 1");
#    fhem("set msg2_TVWohnzimmer MUTE 1");
#    fhem("set msg1_TVMarina call Anruf von $extname $extnum");
#    fhem("set msg1_TVWohnzimmer call Anruf von $extname $extnum");
   return;
   } # end if callid
return;
} # end if ring loop

if ($stat eq "connect")
{
if (($event eq"internal_connection") &&
     ($arg =~m/Answering_Machine_.*/))
    {
    $ab = "ab";
    } # end if internal_connection
if ($event eq "call_id")
{
   $callID = $arg;
if ($ab && ($ab eq "AB")) {$A[$callID] = "AB"; $ab; }
   $ab = undef; # zuruecksetzen
   } # end if  callID
   } # end if connect


if ($stat eq "call")
{
if ($event eq"external_number")
  {
    $extnum = $arg;
#sig2(70); # ringout
return;   
} # if external number

if ($event eq "external_name")
  {
    $extname = $arg;
   return;
}
if ($event eq "call_id")
{
   $callID = $arg;
$A[$callID] = "<-";
   $B[$callID] = EventZeit();
   $C[$callID] = $extname;
   $D[$callID] = $extnum;

   return;
   } # end if callid
return;
} # end if callloop



if ($stat eq "disconnect")
{


if ($event eq "call_duration")
{
  $callDuration = sprintf("%2d:%02d", ($arg/60),$arg%60);
  return;
} # if call_duration


if ($event eq "call_id")
   {
   $callID = $arg;
# shiften der alten Inhalte
   my $tt;
    readingsBeginUpdate($Fritz_Box);

    for ($i=4;$i>0; $i--)
    {
   foreach $j ('A'..'E')
   {
#   $defs{"Fritz_Box"}{READINGS}{$j.($i-1)}{VAL};

    $tt = ReadingsVal("Fritz_Box",$j.($i-1),"-");
   readingsBulkUpdate($Fritz_Box,$j.$i,$tt);
   } # end j
   } # end i
   $E[$callID] = $callDuration;
  readingsBulkUpdate($Fritz_Box,"A0",$A[$callID]);
  readingsBulkUpdate($Fritz_Box,"B0",$B[$callID]);
  readingsBulkUpdate($Fritz_Box,"C0",$C[$callID]);
  readingsBulkUpdate($Fritz_Box,"D0",$D[$callID]);
  readingsBulkUpdate($Fritz_Box,"E0",$E[$callID]);

  readingsEndUpdate($Fritz_Box, 1);
   $stat = "";

   return;
   } # end if callid


} # end if disconnect

##############################
} #end sub TelefonMonitor
1;
fhm.cfg

Code Auswählen Erweitern

define Fritz_Box FB_CALLMONITOR 192.168.143.1
attr Fritz_Box local-area-code 05237
attr Fritz_Box reverse-search all
attr Fritz_Box reverse-search-cache 1
attr Fritz_Box reverse-search-cache-file ./log/Fritz_Box-%Y.log Fritz_Box
attr Fritz_Box reverse-search-phonebook-file ./log/Fritz_Box_Telefonbuch.xml
attr Fritz_Box room Telefon
attr Fritz_Box userReadings eing0 eing1 eing2 eing3 eing4 A0 A1 A2 A3 A4 B0 B1 B2 B3 B4 C0 C1 C2 C3 C4 D0 D1 D2 D3 D4 E0 E1 E2 E3 E4
attr Fritz_Box verbose 0
define FileLog_Fritz_Box FileLog ./log/Fritz_Box-%Y.log Fritz_Box
attr FileLog_Fritz_Box logtype text
attr FileLog_Fritz_Box room FileLogs
define Call_Notify notify Fritz_Box:.* { \
  TelefonMonitor ($EVENT);; \
}
attr Call_Notify room Telefon
# end Call_Notify





[Oli_t]

Hallo,

kann mir Jemand sagen wie man die Funktion "TelefonAktion" verwendet ?

Danke,

Oli

[fiedel]

Hi Mirco,

also wenn es jetzt nicht geht...   

Auf einem frisch installierten FHEM, Updates gemacht, nichts weiter geändert:

99_myUtilsTelefon.pm:

Code Auswählen Erweitern


#################################################
# $Id: 99_myUtilsTelefon.pm 1932 2012-10-06 20:15:33Z ulimaass $
package main;

use strict;
use warnings;
use POSIX;
use FritzBoxUtils;


# fuer Telefonanrufe
our @A;
our @B;
our @C;
our @D;
our @E;
our %TelefonAktionsListe;


sub
myUtilsTelefon_Initialize($$)
{
  my ($hash) = @_;

 
  #...
 

}
################################################################


sub SendSMS ($$)
{
  my $adress = $_[0].'@sms.kundenserver.de';
   my $body = $_[1];
   Log (3,"SendSMS: $adress - $body");
   FB_mail($adress,"",$body);
# end sub SendSMS
}
#####################################
# Anruffunktionen ueber Fritzbox

sub
FBCall ($$)
{

my $callnr = $_[0];
my $duration = $_[1];

Log(3,"FBCall: $callnr mit Dauer $duration");


$callnr = "ATDT".$callnr."#";
my $ret = "ATD: " . `echo $callnr | nc 127.0.0.1 1011`;
InternalTimer(gettimeofday()+$duration, "FBHangOn", "", 0);
return;
}

sub FBHangOn ()
{
Log(3,"FBCallHangOn aufgerufen");

my $ret = " ATH: " . `echo "ATH" | nc 127.0.0.1 1011`;
$ret =~ s,[\r\n]*,,g;
return;
}

######################################

sub TelefonAktion($$)
{
# es wird der Name und die interne angerufene Nummer uebergeen

my ($caller) = split ('\(',$_[0]);
$caller = ltrim(rtrim($caller));

my $intern = $_[1];

# Log(3,"TelefonAktion: $caller $intern");
# Sound ausgeben

my $com = $main::TelefonAktionsListe{$caller};

if ($com)
{
    Log(3,"TelefonAktion: commando: $com");
   sig2_repeat($com,5,4);
} # falls commando vorhanden

} # end sub TelefonAktion

######################################
# EventZeit: Die Zeit wird nicht in der fhem-Reihenfolge, sondern für "human Interface" dargestellt
sub EventZeit()
{
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time());
return sprintf ("%2d:%02d:%02d %2d.%02d.%4d", $hour,$min,$sec,$mday,($mon+1),($year+1900));
} # end sub EventZeit

######################################


sub TelefonMonitor($)
{
our $extnum;
our $intnum;
our $extname;
our $callID;
our $callDuration;
our $stat;
my $i; my $j;
our $ab;
my $Fritz_Box = $defs{"Fritz_Box"};

my ($event,$arg) = split (':',$_[0]);
$arg = ltrim($arg);

# Log(3,"TM: event: $event arg: $arg");
if ($event eq "event")
{
$stat = $arg;
if ($arg eq "disconnect")
  {
#    fhem("set msg2_TVMarina MUTE 0");
#    fhem("set msg2_TVWohnzimmer MUTE 0");
#    sig2_break(); fiedel: -> Funktion um Anrufername auf FS20SIG2 auszugeben (nicht genutzt)
#    sig2(70); # ringout
  } # if disconnect
    return;
} # end if event

if ($stat eq "ring")
{
if ($event eq"external_number")
  {
    $extnum = $arg;
return;
} # if external number


if ($event eq "external_name")
  {
    $extname = $arg;
   return;
}
if ($event eq "internal_number")
  {
    $intnum = $arg;
   return;
   } # end if intnum


if ($event eq "call_id")
{
   $callID = $arg;
# hier koennen wir eine anrufgesteuerte Aktion starten
TelefonAktion($extname, $intnum);

$A[$callID] = "-> ";
   $B[$callID] = EventZeit();
   $C[$callID] = $extname;
   $D[$callID] = $extnum;
# fiedel: Folgende Dummys bzw. Funktionen in der CFG einrichten, wenn Samsung TV vorhanden!
#    fhem("set msg2_TVMarina MUTE 1");
#    fhem("set msg2_TVWohnzimmer MUTE 1");
#    fhem("set msg1_TVMarina call Anruf von $extname $extnum");
#    fhem("set msg1_TVWohnzimmer call Anruf von $extname $extnum");
   return;
   } # end if callid
return;
} # end if ring loop

if ($stat eq "connect")
{
if (($event eq"internal_connection") &&
     ($arg =~m/Answering_Machine_.*/))
    {
    $ab = "ab";
    } # end if internal_connection
if ($event eq "call_id")
{
   $callID = $arg;
if ($ab && ($ab eq "AB")) {$A[$callID] = "AB"; $ab; }
   $ab = undef; # zuruecksetzen
   } # end if  callID
   } # end if connect


if ($stat eq "call")
{
if ($event eq"external_number")
  {
    $extnum = $arg;
#sig2(70); # ringout
return;   
} # if external number

if ($event eq "external_name")
  {
    $extname = $arg;
   return;
}
if ($event eq "call_id")
{
   $callID = $arg;
$A[$callID] = "<-";
   $B[$callID] = EventZeit();
   $C[$callID] = $extname;
   $D[$callID] = $extnum;

   return;
   } # end if callid
return;
} # end if callloop



if ($stat eq "disconnect")
{


if ($event eq "call_duration")
{
  $callDuration = sprintf("%2d:%02d", ($arg/60),$arg%60);
  return;
} # if call_duration


if ($event eq "call_id")
   {
   $callID = $arg;
# shiften der alten Inhalte
   my $tt;
    readingsBeginUpdate($Fritz_Box);

    for ($i=4;$i>0; $i--)
    {
   foreach $j ('A'..'E')
   {
#   $defs{"Fritz_Box"}{READINGS}{$j.($i-1)}{VAL};

    $tt = ReadingsVal("Fritz_Box",$j.($i-1),"-");
   readingsBulkUpdate($Fritz_Box,$j.$i,$tt);
   } # end j
   } # end i
   $E[$callID] = $callDuration;
  readingsBulkUpdate($Fritz_Box,"A0",$A[$callID]);
  readingsBulkUpdate($Fritz_Box,"B0",$B[$callID]);
  readingsBulkUpdate($Fritz_Box,"C0",$C[$callID]);
  readingsBulkUpdate($Fritz_Box,"D0",$D[$callID]);
  readingsBulkUpdate($Fritz_Box,"E0",$E[$callID]);

  readingsEndUpdate($Fritz_Box, 1);
   $stat = "";

   return;
   } # end if callid


} # end if disconnect

##############################
} #end sub TelefonMonitor
1;



fhem.cfg (komplett):

Code Auswählen Erweitern


attr global logfile ./log/fhem-%Y-%m.log
attr global modpath .
attr global sendStatistics onUpdate
attr global statefile ./log/fhem.save
attr global uniqueID ./FHEM/FhemUtils/uniqueID
attr global updateInBackground 1
attr global verbose 3

define telnetPort telnet 7072 global

define WEB FHEMWEB 8083 global
attr WEB stylesheetPrefix dark
attr WEB refresh 30

define WEBphone FHEMWEB 8084 global
attr WEBphone stylesheetPrefix darksmallscreen
attr WEBphone refresh 30

define WEBtablet FHEMWEB 8085 global
attr WEBtablet stylesheetPrefix darktouchpad
attr WEBtablet refresh 30

# Fake FileLog entry, to access the fhem log from FHEMWEB
define Logfile FileLog ./log/fhem-%Y-%m.log fakelog

# define autocreate autocreate
# attr autocreate filelog ./log/%NAME-%Y.log

define eventTypes eventTypes ./log/eventTypes.txt

# Disable this to avoid looking for new USB devices on startup
# define initialUsbCheck notify global:INITIALIZED usb create

#Test für coolice:

# Callmonitor mit rollierender Anruferliste:

define FileLog_Fritz_Box FileLog ./log/Fritz_Box-%Y.log Fritz_Box
attr FileLog_Fritz_Box logtype text
attr FileLog_Fritz_Box room Telefon

define Fritz_Box FB_CALLMONITOR 192.168.1.1:1012
attr Fritz_Box local-area-code 05237
attr Fritz_Box reverse-search all
attr Fritz_Box reverse-search-cache 1
attr Fritz_Box reverse-search-cache-file ./log/Fritz_Box-%Y.log Fritz_Box
attr Fritz_Box reverse-search-phonebook-file ./log/Fritz_Box_Telefonbuch.xml
attr Fritz_Box room Telefon
attr Fritz_Box userReadings eing0 eing1 eing2 eing3 eing4 A0 A1 A2 A3 A4 B0 B1 B2 B3 B4 C0 C1 C2 C3 C4 D0 D1 D2 D3 D4 E0 E1 E2 E3 E4
attr Fritz_Box verbose 0

# Anrufliste generieren:
#########################

# Telefonevents für Anrufliste abfangen:
define Call_Notify notify Fritz_Box:.* { \
  TelefonMonitor ($EVENT);; \
}
attr Call_Notify room Telefon

# Anzeige der Anrufliste generieren:
define Anrufliste readingsGroup Fritz_Box:A0,B0,C0,D0,E0 Fritz_Box:A1,B1,C1,D1,E1 Fritz_Box:A2,B2,C2,D2,E2 Fritz_Box:A3,B3,C3,D3,E3 Fritz_Box:A4,B4,C4,D4,E4
attr Anrufliste mapping {'Fritz_Box.A0' => '1.', 'Fritz_Box.A1' => '2.', 'Fritz_Box.A2' => '3.', 'Fritz_Box.A3' => '4.', 'Fritz_Box.A4' => '5.'}
attr Anrufliste nameStyle style="font-weight:bold"
attr Anrufliste noheading 0
attr Anrufliste nolinks 1
attr Anrufliste nostate 1
attr Anrufliste notime 1
attr Anrufliste room Telefon
attr Anrufliste style style="font-size:20px"


Zu beachten wäre noch:

- zur optimalen Darstellung den Style "dark" verwenden
- Änderung der IP der Fritzbox auf eigene Adresse, Port aber so lassen
- mein Beispiel kommt von einem Linuxrechner, ggf. gibt es Abweichungen bei den Pfaden oder der Angabe der IP- Adresse,
   wenn FHEM direkt auf der FB läuft  -> das checken, falls es noch Probleme gibt

So, nu bin ich ja gespannt... 

Gruß

Frank

[Oli_t]

Hallo,

bin ich eigentlich der Einzige der bei dieser Zeile einen Fehler bekommt ?

Code Auswählen Erweitern


if ($ab && ($ab eq "AB")) {$A[$callID] = "AB"; $ab; }

Macht das zweite ; $ab; überhaupt Sinn ? Da wird doch überhaupt nichts ausgeführt, oder ?

Grüße,
Oli

[coolice]

@ Frank ... 
Es läuft. Merci. Mal sehen ob ich es jetzt nach meinen Vorstellungen angepasst bekomme.
Man(n) wird sehen.

Schönes Wochenende
Mirco

[fiedel]

Na siehste, sag ich doch!  Ebenfalls schönes WE!

Zur Anpassung steht noch mehr im readingsGroup- Thread weiter hinten. Der Tipp von Holzwurm mit den Icons ist auch schick. Alles ums Layout was statisch ist (Größe, Farben usw.) geht mit der CSS- Datei. Dazu kannst du mich ggf. auch noch ausquetschen.   

@ Oli:

Keiner weiß was du meinst, weil du hier nur Bruchstücken reinwirfst! Ich weiß es aber. 
Diese Meldungen habe ich auch, konnte mich aber darum noch nicht kümmern. Du kannst alles was du nicht brauchst aus der Utils- Datei rauswerfen. Dann werden die Meldungen schon mal weniger. Ggf. versuche ich demnächst mal rauszukriegen, was da schief läuft.

Gruß

Frank

[moonsorrox]

geht dieses alles nur wenn Fhem auf der Fritzbox läuft..? Ich habe Fhem auf dem Raspberry...

[fiedel]

geht dieses alles nur wenn Fhem auf der Fritzbox läuft..?

Nein, das ist ja das schöne. Durch die Eingabe von IP- Adr. und Port der FB in der Def. des Callmonitor kann man von jedem beliebigen Netzwerkrechner aus auf die FB zugreifen.