openHab und fritzbox binding - Probleme nach Fritzbox Update

[Gwuerzluike]

Hallo,

gerne würde ich das neue FritzBox Binding (TR64) mal testen, kann es aber nirgends finden.
Oder übersehe ich hier was?

Hier habe ich zwei FritzBoxen und würde gerne beim Testen mithelfen.

@PhilW: Wo bekommt man diese Beta her?

Vielen Dank im voraus,

Dietmar

[PhilW]

Morjen,

wenn du in meinem Post #9 auf "Hier" klickst und dort dann runterscrollst unter Download "releases" bekommst du sie...

Gruss
PhilW

[teasy1]

Hallo,

ich teste auch seit gestern das FritzBox Binding (TR64) beta 0.7. Klappt auch alles bestens, bis jetzt zumindestens. Erstmal ein grosses Lob an den Entwickler. Ich hatte es installiert, weil ich dachte, ich könnte meine Anrufe in Abwesenheit sehen. Allerdings kann ich nur die Zahl sehen und nicht wer mich angerufen hat, so wie man das auch in der Fritzbox sehen kann. Wenn das Telefonbuch gepflegt ist, dann kann ich sogar im Moment des Anrufes sehen, wer da anruft. Allerdings nur im Moment des Anrufes. Irgendwie müsste man doch daraus auch einen Anrufmonitor basteln können. Vielleicht meldet sich ja der Entwickler zu Wort.

Gruss Teasy

[teasy1]

Hallo,
ich habe mal den Entwickler von dem TR064-Binding angeschrieben und er hat mir für den Anrufmonitor folgende Lösung unterbreitet:

Ein Perl-Script, was dann einen String in Form von

20.11.15 13:38: 01701234567 | 18.11.15 13:25: 0895698745 | 16.11.15 18:38: Angela Merkel | 13.11.15 19:46: 01736987456

ausgibt.

Das Perl-Script sieht so aus:

 #!/usr/bin/perl -w
 
use strict;
use warnings;
use LWP::Simple;
use LWP::UserAgent;
use XML::Simple;
use Data::Dumper;
use Getopt::Long;
use open qw(:std :utf8);
 
# ---------------- Konfig ----------------
my $ip = "192.168.178.1";
my $port = "49443";
my $username = "dslf-config";
my $password = "PASSWORD";
 
# how many days you want to get last calls
my $days = 30;
# ----------------/Konfig ----------------
 
 
# Arguments
 
# disable SSL checks. No signed certificate!
$ENV{'PERL_LWP_SSL_VERIFY_HOSTNAME'} = 0;
$ENV{HTTPS_DEBUG} = 1;
 
# Discover Service Parameters
my $ua = new LWP::UserAgent;
$ua->default_headers;
 
my $service_type =  'urn:dslforum-org:service:X_AVM-DE_OnTel:1';
my $service_command = 'GetCallList';
 
$ua->credentials( "$ip:$port", "HTTPS Access", $username, $password);
 
 
#### Step 1 of 2: Fetch URL to download missed calls from ########
 
$ua->default_header( 'SOAPACTION' => "$service_type#$service_command" );
 
        my $init_request = <<EOD;
        <?xml version="1.0" encoding="utf-8"?>
        <s:Envelope s:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" xmlns:s="http://schemas.xmlsoap.org/soap/envelope/" >
                <s:Header>
                </s:Header>
                <s:Body>
                        <u:$service_command xmlns:u="$service_type">
                                <NewDays>$days</NewDays>
                        </u:$service_command>
                </s:Body>
        </s:Envelope>
EOD
 
my $init_url = "https://$ip:$port/upnp/control/x_contact";
my $resp_init = $ua->post($init_url, Content_Type => 'text/xml; charset=utf-8', Content => $init_request);
#print Dumper($init_request);
#print $resp_init->decoded_content;
 
my $xml_resp = XMLin($resp_init->decoded_content);
my $call_list_url = $xml_resp->{'s:Body'}->{'u:GetCallListResponse'}->{'NewCallListURL'};
 
 
 
#### Step 2 of 2: Download all missed calls within specified period ####
# Reset User agent
$ua = new LWP::UserAgent;
 
my $call_list_resp = $ua->get("$call_list_url&days=$days");
my $call_list_hash = XMLin($call_list_resp->decoded_content);
 
my $caller_output = "";
 
foreach(@{$call_list_hash->{Call}}){
        # Type 1 = incoming answered, Type 2 = incoming missed
        #print Dumper $_;
        if($_->{Type} eq "1"){
                # if name is present, print name otherwise number
                if(ref($_->{Name}) eq "HASH"){
                        $caller_output .= $_->{Date} . ": ". $_->{Caller}. " | ";
                }
                else{
                        $caller_output .= $_->{Date} . ": ". $_->{Name}. " | ";
                }
        }
}
print $caller_output."\n";

Leider bekomme ich jetzt immer eine Fehlermeldung:

/etc/openhab/configurations/scripts/anrufmonitor.pl
Unsuccessful stat on filename containing newline at /usr/share/perl5/XML/Simple.pm line 944.
Unsuccessful stat on filename containing newline at /usr/share/perl5/XML/Simple.pm line 957.
File does not exist: Can't connect to 192.168.1.1:49443 (certificate verify failed)

LWP::Protocol::https::Socket: SSL connect attempt failed with unknown error error:14090086:SSL routines:SSL3_GET_SERVER_CERTIFICATE:certificate verify failed at /usr/share/perl5/LWP/Protocol/http.pm line 41.
 at /etc/openhab/configurations/scripts/anrufmonitor.pl line 61.

Versuche den Entwickler schon einen Tag lang über sein Webformular zu erreichen, aber da kommt immer eine Fehlermeldung.

Vielleicht kann mir ja hier jemand helfen.

Gruß Teasy