FB_Callmonitor - Anruf wenn Aktor "Ein" bzw. "Offen"

[schnun]

Jetzt klingelt es endlich   

Zu meiner Lösung, falls jemand auch so zu kämpfen hat wie ich:

1. Auf der Fritzbox habe ich nun einen Benutzer angelegt.
2. Meine 99_myUtils habe ich mal ordentlich gesäubert, anschließend die folgende Sub aus einem anderen Beitrag (siehe link unten)
    reinkopiert. Musste jedoch zwei Zeilen daraus entfernen:

Code Auswählen Erweitern

###################################################################
#                für Raspberry Pi
#
#
sub
FBCallr($$$$$$)
{
use Net::Telnet;
my $name = "fbcallr";
my ($Fon,$CallNr,$Duration,$Port,$User,$Password)= @_;
my $telnet = new Net::Telnet ( Timeout=>12, Errmode=>'die');
Log GetLogLevel($name,1), "$name: Connecting to FritzBox:$Port";
$telnet->open($Port);
  $telnet->print($User);
  $telnet->waitfor('/Password: $/i');
$telnet->print($Password);
$telnet->waitfor('/# $/i');
Log GetLogLevel($name,1), "$name: Dialing to FritzBox: from:$Fon to:$CallNr...";
$telnet->print('echo "ATP'.$Fon.'2 ATD**'.$CallNr.'" | nc 127.0.0.1 1011');
my $output = $telnet->waitfor('/# $/i'); print $output;
Log GetLogLevel($name,1), "$name: Dialing:$Duration seconds...";
sleep($Duration);
Log GetLogLevel($name,1), "$name: HangOn to FritzBox...";
$telnet->print('echo "ATH0" | nc 127.0.0.1 1011');
$output = $telnet->waitfor('/# $/i'); print $output;
Log GetLogLevel($name,1), "$name: Disconnecting...";
$telnet->print('exit');
return;
}
#


Das folgende hat in der .cfg schließlich funktioniert:

Code Auswählen Erweitern

define kue_NordWestLuefterAlarm notify kue_NordWestLuefter:Ein.* {FBCallr(2,"**9",12,"192.168.xxx.x","FBBenutzer","FBKennwort")}


Danke nochmals an mi.ke für die Hilfe und die Motivation nicht aufzugeben