mirror of
https://github.com/fhem/fhem-mirror.git
synced 2025-02-25 16:05:19 +00:00
8834 lines
379 KiB
Perl
8834 lines
379 KiB
Perl
###############################################################
|
|
# $Id$
|
|
#
|
|
# 72_FRITZBOX.pm
|
|
#
|
|
# (c) 2014 Torsten Poitzsch
|
|
# (c) 2014-2020 tupol http://forum.fhem.de/index.php?action=profile;u=5432
|
|
# (c) 2021-2023 jowiemann https://forum.fhem.de/index.php?action=profile
|
|
#
|
|
# This module handles the Fritz!Box router and the Fritz!Phone MT-F and C4
|
|
#
|
|
# Copyright notice
|
|
#
|
|
# This script is free software; you can redistribute it and/or modify
|
|
# it under the terms of the GNU General Public License as published by
|
|
# the Free Software Foundation; either version 2 of the License, or
|
|
# (at your option) any later version.
|
|
#
|
|
# The GNU General Public License can be found at
|
|
# http://www.gnu.org/copyleft/gpl.html.
|
|
# A copy is found in the text file GPL.txt and important notices to the license
|
|
# from the author is found in LICENSE.txt distributed with these scripts.
|
|
#
|
|
# This script is distributed in the hope that it will be useful,
|
|
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
# GNU General Public License for more details.
|
|
#
|
|
# This copyright notice MUST APPEAR in all copies of the script!
|
|
#
|
|
##############################################################################
|
|
#
|
|
# define <name> FRITZBOX
|
|
#
|
|
##############################################################################
|
|
|
|
package main;
|
|
|
|
use strict;
|
|
use warnings;
|
|
use Blocking;
|
|
use HttpUtils;
|
|
|
|
my $ModulVersion = "07.50.17g";
|
|
my $missingModul = "";
|
|
my $missingModulWeb = "";
|
|
my $missingModulTR064 = "";
|
|
my $FRITZBOX_TR064pwd;
|
|
my $FRITZBOX_TR064user;
|
|
|
|
eval "use URI::Escape;1" or $missingModul .= "URI::Escape ";
|
|
eval "use MIME::Base64;1" or $missingModul .= "MIME::Base64 ";
|
|
eval "use IO::Socket;1" or $missingModul .= "IO::Socket ";
|
|
eval "use Net::Ping;1" or $missingModul .= "Net::Ping ";
|
|
|
|
use FritzBoxUtils; ## only for web access login
|
|
|
|
#sudo apt-get install libjson-perl
|
|
eval "use JSON;1" or $missingModulWeb .= "JSON ";
|
|
eval "use LWP::UserAgent;1" or $missingModulWeb .= "LWP::UserAgent ";
|
|
|
|
eval "use URI::Escape;1" or $missingModulTR064 .= "URI::Escape ";
|
|
# sudo apt-get install libsoap-lite-perl
|
|
eval "use SOAP::Lite;1" or $missingModulTR064 .= "Soap::Lite ";
|
|
|
|
# $Data::Dumper::Terse = 1;
|
|
# $Data::Dumper::Purity = 1;
|
|
# $Data::Dumper::Sortkeys = 1;
|
|
eval "use Data::Dumper;1" or $missingModulTR064 .= "Data::Dumper ";
|
|
|
|
sub FRITZBOX_Log($$$);
|
|
sub FRITZBOX_Initialize($);
|
|
sub FRITZBOX_Set_Cmd_Start($);
|
|
sub FRITZBOX_StartRadio_Web($@);
|
|
sub FRITZBOX_Readout_Add_Reading ($$$$@);
|
|
sub FRITZBOX_Readout_Process($$);
|
|
sub FRITZBOX_SendMail_Shell($@);
|
|
sub FRITZBOX_SetCustomerRingTone($@);
|
|
sub FRITZBOX_SetMOH($@);
|
|
sub FRITZBOX_TR064_Init($$);
|
|
sub FRITZBOX_Wlan_Run($);
|
|
sub FRITZBOX_Web_Query($$@);
|
|
sub FRITZBOX_Function_Lua($$$@);
|
|
sub FRITZBOX_Process_JSON($$$@);
|
|
sub FRITZBOX_ERR_Result($$;@);
|
|
sub FRITZBOX_Run_GuestWlan_Web($);
|
|
sub FRITZBOX_Run_Call_Web($);
|
|
sub FRITZBOX_Run_macFilter($);
|
|
sub FRITZBOX_Run_chgProfile($);
|
|
sub FRITZBOX_Run_lockLandevice($);
|
|
sub FRITZBOX_Run_enableVPNshare($);
|
|
sub FRITZBOX_Run_rescan_neighborhood($);
|
|
|
|
my %fonModel = (
|
|
'0x01' => "MT-D"
|
|
, '0x03' => "MT-F"
|
|
, '0x04' => "C3"
|
|
, '0x05' => "M2"
|
|
, '0x08' => "C4"
|
|
);
|
|
|
|
my %ringTone = qw {
|
|
0 HandsetDefault 1 HandsetInternalTone
|
|
2 HandsetExternalTon 3 Standard
|
|
4 Eighties 5 Alert
|
|
6 Ring 7 RingRing
|
|
8 News 9 CustomerRingTone
|
|
10 Bamboo 11 Andante
|
|
12 ChaCha 13 Budapest
|
|
14 Asia 15 Kullabaloo
|
|
16 silent 17 Comedy
|
|
18 Funky 19 Fatboy
|
|
20 Calypso 21 Pingpong
|
|
22 Melodica 23 Minimal
|
|
24 Signal 25 Blok1
|
|
26 Musicbox 27 Blok2
|
|
28 2Jazz
|
|
33 InternetRadio 34 MusicList
|
|
};
|
|
|
|
my %dialPort = qw {
|
|
1 fon1 2 fon2
|
|
3 fon3
|
|
50 allFons
|
|
60 dect1 61 dect2
|
|
62 dect3 63 dect4
|
|
64 dect5 65 dect6
|
|
};
|
|
|
|
my %gsmNetworkState = qw {
|
|
0 disabled 1 registered_home
|
|
2 searching 3 registration_denied
|
|
4 unknown 5 registered_roaming
|
|
6 limited_service
|
|
};
|
|
|
|
my %gsmTechnology = qw {
|
|
0 GPRS 1 GPRS
|
|
2 UMTS
|
|
3 EDGE
|
|
4 HSPA 5 HSPA 6 HSPA
|
|
};
|
|
|
|
my %ringToneNumber;
|
|
while (my ($key, $value) = each %ringTone) {
|
|
$ringToneNumber{lc $value}=$key;
|
|
}
|
|
|
|
my %alarmDays = qw{1 Mo 2 Tu 4 We 8 Th 16 Fr 32 Sa 64 Su};
|
|
|
|
my %userType = qw{1 IP 2 PC-User 3 Default 4 Guest};
|
|
|
|
my %mohtype = (0=>"default", 1=>"sound", 2=>"customer", "err"=>"" );
|
|
|
|
my %landevice = ();
|
|
|
|
# FIFO Buffer for commands
|
|
my @cmdBuffer=();
|
|
my $cmdBufferTimeout=0;
|
|
|
|
my $ttsCmdTemplate = 'wget -U Mozilla -O "[ZIEL]" "http://translate.google.com/translate_tts?ie=UTF-8&client=tw-ob&prev=input&tl=[SPRACHE]&q=[TEXT]"';
|
|
my $ttsLinkTemplate = 'http://translate.google.com/translate_tts?ie=UTF-8&client=tw-ob&prev=input&tl=[SPRACHE]&q=[TEXT]';
|
|
# VoiceRSS: http://www.voicerss.org/api/documentation.aspx
|
|
|
|
my $mohUpload = '/var/tmp/fhem_moh_upload';
|
|
my $mohOld = '/var/tmp/fhem_fx_moh_old';
|
|
my $mohNew = '/var/tmp/fhem_fx_moh_new';
|
|
|
|
#######################################################################
|
|
sub FRITZBOX_Log($$$)
|
|
{
|
|
my ( $hash, $loglevel, $text ) = @_;
|
|
my $xline = ( caller(0) )[2];
|
|
|
|
my $xsubroutine = ( caller(1) )[3];
|
|
|
|
my $sub = ( split( ':', $xsubroutine ) )[2];
|
|
$sub =~ s/FRITZBOX_// if ( defined $sub );
|
|
$sub ||= 'no-subroutine-specified';
|
|
|
|
my $instName = ( ref($hash) eq "HASH" ) ? $hash->{NAME} : $hash;
|
|
|
|
my $avmModel = InternalVal($instName, "MODEL", "0000");
|
|
$avmModel = $1 if $avmModel =~ m/(\d+)/;
|
|
|
|
my $fwV = ReadingsVal($instName, "box_fwVersion", "none");
|
|
|
|
Log3 $hash, $loglevel, "[$instName | $avmModel | $fwV | $sub.$xline] - " . $text;
|
|
|
|
} # End FRITZBOX_Log
|
|
|
|
#######################################################################
|
|
sub FRITZBOX_Initialize($)
|
|
{
|
|
my ($hash) = @_;
|
|
|
|
$hash->{DefFn} = "FRITZBOX_Define";
|
|
$hash->{UndefFn} = "FRITZBOX_Undefine";
|
|
$hash->{DeleteFn} = "FRITZBOX_Delete";
|
|
$hash->{RenameFn} = "FRITZBOX_Rename";
|
|
|
|
$hash->{SetFn} = "FRITZBOX_Set";
|
|
$hash->{GetFn} = "FRITZBOX_Get";
|
|
$hash->{AttrFn} = "FRITZBOX_Attr";
|
|
$hash->{AttrList} = "boxUser "
|
|
."disable:0,1 "
|
|
."nonblockingTimeOut:50,75,100,125 "
|
|
."INTERVAL "
|
|
."m3uFileActive:0,1 "
|
|
."m3uFileLocal "
|
|
."m3uFileURL "
|
|
."userTickets "
|
|
."enableKidProfiles:0,1 "
|
|
."enablePassivLanDevices:0,1 "
|
|
."enableVPNShares:0,1 "
|
|
."enableUserInfo:0,1 "
|
|
."enableAlarmInfo:0,1 "
|
|
."enableWLANneighbors:0,1 "
|
|
."enableMobileModem:0,1 "
|
|
."wlanNeighborsPrefix "
|
|
."disableHostIPv4check:0,1 "
|
|
."disableDectInfo:0,1 "
|
|
."disableFonInfo:0,1 "
|
|
."enableSIP:0,1 "
|
|
."disableBoxReadings:multiple-strict,box_connect,box_connection_Type,box_cpuTemp,box_dect,box_dsl_downStream,box_dsl_upStream,"
|
|
."box_guestWlan,box_guestWlanCount,box_guestWlanRemain,box_macFilter_active,box_mac_Address,box_ipv4_Extern,box_ipv6_Extern,"
|
|
."box_ipv6_Prefix,box_dns_Server,box_last_connect_err,box_moh,box_powerRate,box_rateDown,box_wlan_LogExtended,"
|
|
."box_fon_LogNewest,box_sys_LogNewest,box_wlan_LogNewest,"
|
|
."box_rateUp,box_stdDialPort,box_tr064,box_tr069,box_upnp,box_upnp_control_activated,box_uptimeConnect,box_uptime,"
|
|
."box_wan_AccessType,box_wlan_Count,box_wlan_2.4GHz,box_wlan_5GHz,"
|
|
."box_vdsl_downStreamRate,box_vdsl_upStreamRate,box_vdsl_downStreamMaxRate,box_vdsl_upStreamMaxRate "
|
|
."deviceInfo:sortable,ipv4,name,uid,connection,speed,rssi,_noDefInf_ "
|
|
."disableTableFormat:multiple-strict,border(8),cellspacing(10),cellpadding(20) "
|
|
.$readingFnAttributes;
|
|
|
|
} # end FRITZBOX_Initialize
|
|
|
|
|
|
#######################################################################
|
|
sub FRITZBOX_Define($$)
|
|
{
|
|
my ($hash, $def) = @_;
|
|
my @args = split("[ \t][ \t]*", $def);
|
|
|
|
my $URL_MATCH = FRITZBOX_Url_Regex();
|
|
|
|
if ($init_done) {
|
|
|
|
return "FRITZBOX-define: define <name> FRITZBOX <IP address | DNS name>" if(@args != 3);
|
|
|
|
delete $hash->{INFO_DEFINE} if $hash->{INFO_DEFINE};
|
|
|
|
} else {
|
|
|
|
$hash->{INFO_DEFINE} = "Please redefine Device: defmod <name> FRITZBOX <IP address | DNS name>" if @args == 2;
|
|
|
|
delete $hash->{INFO_DEFINE} if $hash->{INFO_DEFINE} && @args == 3;
|
|
|
|
return "FRITZBOX-define: define <name> FRITZBOX <IP address | DNS name>" if(@args < 2 || @args > 3);
|
|
}
|
|
|
|
return "FRITZBOX-define: no valid IPv4 Address or DNS name: $args[2]" if defined $args[2] && $args[2] !~ m=$URL_MATCH=i;
|
|
|
|
# blocking variant !
|
|
$URL_MATCH = FRITZBOX_Url_Regex(1);
|
|
|
|
if (defined $args[2] && $args[2] !~ m=$URL_MATCH=i) {
|
|
my $phost = inet_aton($args[2]);
|
|
if (! defined($phost)) {
|
|
FRITZBOX_Log $hash, 2, "INFO: phost -> not defined";
|
|
return "FRITZBOX-define: DNS name $args[2] could not be resolved";
|
|
}
|
|
|
|
my $host = inet_ntoa($phost);
|
|
|
|
if (! defined($host)) {
|
|
FRITZBOX_Log $hash, 2, "INFO: host -> $host";
|
|
return "FRITZBOX-define: DNS name could not be resolved";
|
|
}
|
|
$hash->{HOST} = $host;
|
|
} else {
|
|
$hash->{HOST} = $args[2];
|
|
}
|
|
|
|
my $name = $args[0];
|
|
|
|
$hash->{NAME} = $name;
|
|
$hash->{VERSION} = $ModulVersion;
|
|
|
|
# $hash->{HOST} = $args[2];
|
|
|
|
$hash->{fhem}{definedHost} = $hash->{HOST}; # to cope with old attribute definitions
|
|
|
|
my $msg;
|
|
# stop if certain perl moduls are missing
|
|
if ( $missingModul ) {
|
|
$msg = "ERROR: Cannot define a FRITZBOX device. Perl modul $missingModul is missing.";
|
|
FRITZBOX_Log $hash, 1, $msg;
|
|
$hash->{PERL} = $msg;
|
|
return $msg;
|
|
}
|
|
|
|
$hash->{STATE} = "Initializing";
|
|
$hash->{INTERVAL} = 300;
|
|
$hash->{TIMEOUT} = 55;
|
|
$hash->{fhem}{modulVersion} = '$Date$';
|
|
$hash->{fhem}{lastHour} = 0;
|
|
$hash->{fhem}{LOCAL} = 0;
|
|
$hash->{_BETA} = 0;
|
|
|
|
$hash->{helper}{TimerReadout} = $name.".Readout";
|
|
$hash->{helper}{TimerCmd} = $name.".Cmd";
|
|
|
|
# my $tr064Port = FRITZBOX_TR064_Init ($hash);
|
|
# $hash->{SECPORT} = $tr064Port if $tr064Port;
|
|
|
|
# Check APIs after fhem.cfg is processed
|
|
$hash->{APICHECKED} = 0;
|
|
$hash->{fhem}->{is_double_wlan} = -1;
|
|
$hash->{LUAQUERY} = -1;
|
|
$hash->{LUADATA} = -1;
|
|
$hash->{TR064} = -1;
|
|
$hash->{UPNP} = -1;
|
|
|
|
FRITZBOX_Log $hash, 4, "DEBUG: start of Device readout parameters";
|
|
RemoveInternalTimer($hash->{helper}{TimerReadout});
|
|
InternalTimer(gettimeofday() + 1 , "FRITZBOX_Readout_Start", $hash->{helper}{TimerReadout}, 0);
|
|
|
|
# Inform about missing PERL modules
|
|
if ( $missingModulWeb || $missingModulTR064 ) {
|
|
my $msg = "Modul functionality limited because of missing perl modules: " . $missingModulWeb . $missingModulTR064;
|
|
FRITZBOX_Log $hash, 2, "INFO: " . $msg;
|
|
$hash->{PERL} = $msg;
|
|
} else {
|
|
my $msg = "User Messages regarding the Module";
|
|
FRITZBOX_Log $hash, 4, "INFO: " . $msg;
|
|
}
|
|
|
|
return undef;
|
|
} #end FRITZBOX_Define
|
|
|
|
#######################################################################
|
|
sub FRITZBOX_Undefine($$)
|
|
{
|
|
my ($hash, $args) = @_;
|
|
|
|
RemoveInternalTimer($hash->{helper}{TimerReadout});
|
|
RemoveInternalTimer($hash->{helper}{TimerCmd});
|
|
|
|
BlockingKill( $hash->{helper}{READOUT_RUNNING_PID} )
|
|
if exists $hash->{helper}{READOUT_RUNNING_PID};
|
|
|
|
BlockingKill( $hash->{helper}{CMD_RUNNING_PID} )
|
|
if exists $hash->{helper}{CMD_RUNNING_PID};
|
|
|
|
return undef;
|
|
} # end FRITZBOX_Undefine
|
|
|
|
#######################################################################
|
|
sub FRITZBOX_Delete ($$)
|
|
{
|
|
my ( $hash, $name ) = @_;
|
|
|
|
my $index = $hash->{TYPE}."_".$name."_passwd";
|
|
setKeyValue($index, undef);
|
|
|
|
return undef;
|
|
|
|
} # end FRITZBOX_Delete
|
|
|
|
#######################################################################
|
|
sub FRITZBOX_Rename($$)
|
|
{
|
|
my ($new, $old) = @_;
|
|
|
|
my $old_index = "FRITZBOX_".$old."_passwd";
|
|
my $new_index = "FRITZBOX_".$new."_passwd";
|
|
|
|
my ($err, $old_pwd) = getKeyValue($old_index);
|
|
|
|
setKeyValue($new_index, $old_pwd);
|
|
setKeyValue($old_index, undef);
|
|
}
|
|
|
|
###############################################################################
|
|
# Expression régulière pour valider une URL en Perl #
|
|
# Regular expression for URL validation in Perl #
|
|
# #
|
|
# La sous-routine url_regex fournit l'expression régulière pour valider une #
|
|
# URL. Ne sont pas reconnus les noms de domaine en punycode et les addresses #
|
|
# IPv6. #
|
|
# The url_regex subroutine returns the regular expression used to validate an #
|
|
# URL. Domain names in punycode and IPv6 adresses are not recognized. #
|
|
# #
|
|
# La liste de tests est celle publiée à l'adresse suivante, excepté deux #
|
|
# cas qui sont donnés comme faux, alors qu'ils sont justes. #
|
|
# The test list is the one published at the following adress, except for two #
|
|
# cases given as false, although they are correct. #
|
|
# #
|
|
# https://mathiasbynens.be/demo/url-regex #
|
|
# #
|
|
# Droit d'auteur // Copyright #
|
|
# =========================== #
|
|
# #
|
|
# Auteur // Author : Guillaume Lestringant #
|
|
# #
|
|
# L'expression régulière est très largement basée sur celle publiée par #
|
|
# Diego Perini sous licence MIT (https://gist.github.com/dperini/729294). #
|
|
# Voir plus loin le texte de ladite licence (en anglais seulement). #
|
|
# The regular expression is very largely based on the one published by #
|
|
# Diego Perini under MIT license (https://gist.github.com/dperini/729294). #
|
|
# See further for the text of sayed license. #
|
|
# #
|
|
# Le présent code est placé sous licence CeCIll-B, dont le texte se trouve à #
|
|
# l'adresse http://cecill.info/licences/Licence_CeCILL-B_V1-fr.html #
|
|
# This actual code is released under CeCIll-B license, whose text can be #
|
|
# found at the adress http://cecill.info/licences/Licence_CeCILL-B_V1-en.html #
|
|
# It is an equivalent to BSD license, but valid under French law. #
|
|
###############################################################################
|
|
sub FRITZBOX_Url_Regex {
|
|
|
|
my $IPonly = shift;
|
|
$IPonly //= 0;
|
|
|
|
my $proto = "(?:https?|ftp)://";
|
|
my $id = "?:\\S+(?::\\S*)?@";
|
|
my $ip_excluded = "(?!(?:10|127)(?:\\.\\d{1,3}){3})"
|
|
. "(?!(?:169\\.254|192\\.168)(?:\\.\\d{1,3}){2})"
|
|
. "(?!172\\.(?:1[6-9]|2\\d|3[0-1])(?:\\.\\d{1,3}){2})";
|
|
my $ip_included = "(?:1\\d\\d|2[01]\\d|22[0-3]|[1-9]\\d?)"
|
|
. "(?:\\.(?:2[0-4]\\d|25[0-5]|1?\\d{1,2})){2}"
|
|
. "(?:\\.(?:1\\d\\d|2[0-4]\\d|25[0-4]|[1-9]\\d?))";
|
|
# my $ip = "$ip_excluded$ip_included";
|
|
my $ip = "$ip_included";
|
|
my $chars = "a-z\\x{00a1}-\\x{ffff}";
|
|
my $base = "(?:[${chars}0-9]-*)*[${chars}0-9]+";
|
|
my $host = "(?:$base)";
|
|
my $domain = "(?:\\.$base)*";
|
|
my $tld = "(?:\\.(?:[${chars}]{2,}))";
|
|
my $fulldomain = $host . $domain . $tld . "\\.?";
|
|
my $name = "(?:$ip|$host|$fulldomain)";
|
|
my $port = "(?::\\d{2,5})?";
|
|
my $path = "(?:[/?#]\\S*)?";
|
|
|
|
# return "^($proto($id)?$name$port$path)\$";
|
|
|
|
return "^($ip)\$" if $IPonly;
|
|
|
|
return "^($name)\$";
|
|
|
|
} # end FRITZBOX_Url_Regex
|
|
|
|
#######################################################################
|
|
sub FRITZBOX_Attr($@)
|
|
{
|
|
my ($cmd,$name,$aName,$aVal) = @_;
|
|
# $cmd can be "del" or "set"
|
|
# $name is device name
|
|
# aName and aVal are Attribute name and value
|
|
|
|
my $hash = $defs{$name};
|
|
|
|
my $URL_MATCH = FRITZBOX_Url_Regex();
|
|
|
|
my @fwV = split(/\./, ReadingsVal($name, "box_fwVersion", "0.0.0.error"));
|
|
|
|
my $FW1 = substr($fwV[1],0,2);
|
|
my $FW2 = substr($fwV[2],0,2);
|
|
|
|
if ($aName eq "nonblockingTimeOut") {
|
|
if ($cmd eq "set") {
|
|
return "the non BlockingCall timeout ($aVal sec) should be less than the INTERVAL timer ($hash->{INTERVAL} sec)" if $aVal > $hash->{INTERVAL};
|
|
}
|
|
}
|
|
|
|
if ($aName eq "INTERVAL") {
|
|
if ($cmd eq "set") {
|
|
return "the INTERVAL timer ($aVal sec) should be graeter than the non BlockingCall tiemout ($hash->{TIMEOUT} sec)" if $aVal < $hash->{TIMEOUT};
|
|
}
|
|
}
|
|
|
|
if ($aName eq "deviceInfo") {
|
|
if ($cmd eq "set") {
|
|
my $count = () = ($aVal . ",") =~ m/_default_(.*?)\,/g;
|
|
return "only one _default_... parameter possible" if $count > 1;
|
|
|
|
return "character | not possible in _default_" if $aVal =~ m/\|/;
|
|
}
|
|
}
|
|
|
|
if ($aName eq "disableBoxReadings") {
|
|
if ($cmd eq "set") {
|
|
my @reading_list = split(/\,/, $aVal);
|
|
foreach ( @reading_list ) {
|
|
if ($_ eq "box_dns_Server") {
|
|
foreach (keys %{ $hash->{READINGS} }) {
|
|
readingsDelete($hash, $_) if $_ =~ /^box_dns_Server(\d+)/ && defined $hash->{READINGS}{$_}{VAL};
|
|
}
|
|
}
|
|
readingsDelete($hash, $_) if exists $hash->{READINGS}{$_};
|
|
}
|
|
}
|
|
}
|
|
|
|
if ($aName eq "enableKidProfiles") {
|
|
if ($cmd eq "del" || $aVal == 0) {
|
|
foreach (keys %{ $hash->{READINGS} }) {
|
|
readingsDelete($hash, $_) if $_ =~ /^kidprofile(\d+)/ && defined $hash->{READINGS}{$_}{VAL};
|
|
}
|
|
}
|
|
}
|
|
|
|
if ($aName eq "enableVPNShares") {
|
|
if ($cmd eq "del" || $aVal == 0) {
|
|
foreach (keys %{ $hash->{READINGS} }) {
|
|
readingsDelete($hash, $_) if $_ =~ /^vpn(\d+)/ && defined $hash->{READINGS}{$_}{VAL};
|
|
}
|
|
}
|
|
}
|
|
|
|
if ($aName eq "enableSIP") {
|
|
if ($cmd eq "del" || $aVal == 0) {
|
|
foreach (keys %{ $hash->{READINGS} }) {
|
|
readingsDelete($hash, $_) if $_ =~ /^sip[(\d+)_|_]/ && defined $hash->{READINGS}{$_}{VAL};
|
|
}
|
|
readingsDelete($hash, "sip_error");
|
|
}
|
|
}
|
|
|
|
if ($aName eq "enableUserInfo") {
|
|
if ($cmd eq "del" || $aVal == 0) {
|
|
foreach (keys %{ $hash->{READINGS} }) {
|
|
readingsDelete($hash, $_) if $_ =~ /^user(\d+)/ && defined $hash->{READINGS}{$_}{VAL};
|
|
}
|
|
}
|
|
}
|
|
|
|
if ($aName eq "enableAlarmInfo") {
|
|
if ($cmd eq "del" || $aVal == 0) {
|
|
foreach (keys %{ $hash->{READINGS} }) {
|
|
readingsDelete($hash, $_) if $_ =~ /^alarm(\d+)/ && defined $hash->{READINGS}{$_}{VAL};
|
|
}
|
|
}
|
|
}
|
|
|
|
if ($aName eq "wlanNeighborsPrefix") {
|
|
my $nbhPrefix = AttrVal( $name, "wlanNeighborsPrefix", "nbh_" );
|
|
if ($cmd eq "del") {
|
|
foreach (keys %{ $hash->{READINGS} }) {
|
|
readingsDelete($hash, $_) if $_ =~ /^${nbhPrefix}.*/ && defined $hash->{READINGS}{$_}{VAL};
|
|
}
|
|
} elsif($cmd eq "set") {
|
|
return "no valid prefix: $aVal" if !goodReadingName($aVal);
|
|
foreach (keys %{ $hash->{READINGS} }) {
|
|
readingsDelete($hash, $_) if $_ =~ /^${nbhPrefix}.*/ && defined $hash->{READINGS}{$_}{VAL};
|
|
}
|
|
}
|
|
}
|
|
|
|
if ($aName eq "enableWLANneighbors") {
|
|
if ($cmd eq "del" || $aVal == 0) {
|
|
my $nbhPrefix = AttrVal( $name, "wlanNeighborsPrefix", "nbh_" );
|
|
foreach (keys %{ $hash->{READINGS} }) {
|
|
readingsDelete($hash, $_) if $_ =~ /^${nbhPrefix}.*/ && defined $hash->{READINGS}{$_}{VAL};
|
|
}
|
|
}
|
|
}
|
|
|
|
if ($aName eq "enableMobileModem") {
|
|
if ($cmd eq "del" || $aVal == 0) {
|
|
foreach (keys %{ $hash->{READINGS} }) {
|
|
readingsDelete($hash, $_) if $_ =~ /^usbMobile[(\d+)_.*|_.*]/ && defined $hash->{READINGS}{$_}{VAL};
|
|
}
|
|
}
|
|
|
|
if ($cmd eq "set" && $hash->{APICHECKED} == 1) {
|
|
return "only available for Fritz!OS equal or greater than 7.50" unless ($FW1 >= 7 && $FW2 >= 50);
|
|
}
|
|
}
|
|
|
|
if ($aName eq "disableDectInfo") {
|
|
if ($cmd eq "del" || $aVal == 1) {
|
|
foreach (keys %{ $hash->{READINGS} }) {
|
|
readingsDelete($hash, $_) if $_ =~ /^dect(\d+)/ && defined $hash->{READINGS}{$_}{VAL};
|
|
}
|
|
}
|
|
}
|
|
|
|
if ($aName eq "disableFonInfo") {
|
|
if ($cmd eq "del" || $aVal == 1) {
|
|
foreach (keys %{ $hash->{READINGS} }) {
|
|
readingsDelete($hash, $_) if $_ =~ /^fon(\d+)/ && defined $hash->{READINGS}{$_}{VAL};
|
|
}
|
|
}
|
|
}
|
|
|
|
|
|
# Stop the sub if FHEM is not initialized yet
|
|
unless ($init_done) {
|
|
FRITZBOX_Log $hash, 4, "DEBUG: Attr $cmd $aName -> no action while init running";
|
|
return undef;
|
|
}
|
|
|
|
if ( ($aName =~ /m3uFileLocal|m3uFileURL|m3uFileActive/ && $hash->{APICHECKED} == 1) || $aName =~ /disable|INTERVAL|nonblockingTimeOut/ ) {
|
|
FRITZBOX_Log $hash, 4, "DEBUG: Attr $cmd $aName -> Neustart internal Timer";
|
|
$hash->{APICHECKED} = 0;
|
|
RemoveInternalTimer($hash->{helper}{TimerReadout});
|
|
InternalTimer(gettimeofday()+1, "FRITZBOX_Readout_Start", $hash->{helper}{TimerReadout}, 1);
|
|
# FRITZBOX_Readout_Start($hash->{helper}{TimerReadout});
|
|
}
|
|
|
|
return undef;
|
|
} # end FRITZBOX_Attr
|
|
|
|
#######################################################################
|
|
sub FRITZBOX_Set($$@)
|
|
{
|
|
my ($hash, $name, $cmd, @val) = @_;
|
|
my $resultStr = "";
|
|
my $mesh = ReadingsVal($name, "box_meshRole", "master");
|
|
|
|
my @fwV = split(/\./, ReadingsVal($name, "box_fwVersion", "0.0.0.error"));
|
|
|
|
my $FW1 = substr($fwV[1],0,2);
|
|
my $FW2 = substr($fwV[2],0,2);
|
|
|
|
my $list = " checkAPIs:noArg"
|
|
. " password"
|
|
. " update:noArg";
|
|
|
|
# set abhängig von TR064
|
|
$list .= " reboot"
|
|
if $hash->{TR064} == 1 && $hash->{SECPORT};
|
|
|
|
$list .= " call"
|
|
. " diversity"
|
|
. " ring"
|
|
. " tam"
|
|
if $hash->{TR064} == 1 && $hash->{SECPORT} && defined ($hash->{MODEL}) && ($hash->{MODEL} =~ "Box") && $mesh eq "master";
|
|
|
|
# set abhängig von TR064 und luaCall
|
|
$list .= " wlan:on,off"
|
|
. " guestWlan:on,off"
|
|
if $hash->{TR064} == 1 && $hash->{SECPORT} && $hash->{LUAQUERY} == 1;
|
|
|
|
$list .= " wlan2.4:on,off"
|
|
. " wlan5:on,off"
|
|
if $hash->{fhem}->{is_double_wlan} == 1 && $hash->{TR064} == 1 && $hash->{SECPORT} && $hash->{LUAQUERY} == 1;
|
|
|
|
# set abhängig von TR064 und data.lua
|
|
$list .= " macFilter:on,off"
|
|
if ($hash->{LUADATA} == 1) && defined ($hash->{MODEL}) && ($hash->{MODEL} =~ "Box") && $hash->{TR064} == 1 && $hash->{SECPORT} && $mesh eq "master";
|
|
|
|
$list .= " enableVPNshare"
|
|
if ($hash->{LUADATA} == 1) && defined ($hash->{MODEL}) && ($hash->{MODEL} =~ "Box") && $hash->{TR064} == 1 && $hash->{SECPORT} && $mesh eq "master" && $FW1 == 7 && $FW2 >= 21;
|
|
|
|
|
|
# set abhängig von data.lua
|
|
$list .= " switchIPv4DNS:provider,other"
|
|
. " dect:on,off"
|
|
. " lockLandevice"
|
|
. " macFilter:on,off"
|
|
. " chgProfile"
|
|
if ($hash->{LUADATA} == 1) && defined ($hash->{MODEL}) && ($hash->{MODEL} =~ "Box") && $mesh eq "master";
|
|
|
|
$list .= " wakeUpCall"
|
|
. " dectRingblock"
|
|
if ($hash->{LUADATA} == 1) && defined ($hash->{MODEL}) && ($hash->{MODEL} =~ "Box" && $FW1 == 7 && $FW2 >= 21);
|
|
|
|
$list .= " rescanWLANneighbors:noArg"
|
|
. " wlanLogExtended:on,off"
|
|
if ($hash->{LUADATA} == 1);
|
|
|
|
if ( lc $cmd eq 'call' && $mesh eq "master") {
|
|
if (int @val >= 0 && int @val <= 2) {
|
|
FRITZBOX_Log $hash, 3, "INFO: set $name $cmd " . join(" ", @val);
|
|
push @cmdBuffer, "call " . join(" ", @val);
|
|
return FRITZBOX_Set_Cmd_Start $hash->{helper}{TimerCmd};
|
|
}
|
|
}
|
|
elsif ( lc $cmd eq 'checkapis') {
|
|
FRITZBOX_Log $hash, 3, "INFO: set $name $cmd " . join(" ", @val);
|
|
$hash->{APICHECKED} = 0;
|
|
$hash->{fhem}{sidTime} = 0;
|
|
$hash->{fhem}{LOCAL} = 1;
|
|
FRITZBOX_Readout_Start($hash->{helper}{TimerReadout});
|
|
$hash->{fhem}{LOCAL} = 0;
|
|
return undef;
|
|
}
|
|
elsif ( lc $cmd eq 'dect' && $mesh eq "master") {
|
|
if (int @val == 1 && $val[0] =~ /^(on|off)$/) {
|
|
FRITZBOX_Log $hash, 3, "INFO: set $name $cmd " . join(" ", @val);
|
|
|
|
if ($hash->{LUADATA}==1) {
|
|
# xhr 1 activateDect off apply nop lang de page dectSet
|
|
|
|
my @webCmdArray;
|
|
my $returnStr;
|
|
|
|
push @webCmdArray, "xhr" => "1";
|
|
push @webCmdArray, "activateDect" => $val[0];
|
|
push @webCmdArray, "apply" => "";
|
|
push @webCmdArray, "lang" => "de";
|
|
push @webCmdArray, "page" => "dectSet";
|
|
|
|
FRITZBOX_Log $hash, 5, "DEBUG: set $name $cmd \n" . join(" ", @webCmdArray);
|
|
|
|
my $result = FRITZBOX_Function_Lua($hash, "data", \@webCmdArray) ;
|
|
|
|
my $tmp;
|
|
if (defined $result->{Error} ) {
|
|
$tmp = "ERROR: " . $result->{Error};
|
|
FRITZBOX_Log $hash, 2, "ERROR: dectringblock " . $val[0] . " - " . $tmp;
|
|
} elsif (defined $result->{sid} ) {
|
|
if (defined $result->{data}->{vars}->{dectEnabled}) {
|
|
readingsSingleUpdate($hash,"box_dect",$val[0], 1);
|
|
$tmp = $result->{data}->{vars}->{dectEnabled} ? "DECT aktiv" : "DECT inaktiv";
|
|
return $tmp;
|
|
} else {
|
|
$tmp = $result->{sid};
|
|
}
|
|
} else {
|
|
$tmp = "Unexpected result: " . Dumper ($result);
|
|
}
|
|
return $tmp;
|
|
|
|
}
|
|
|
|
return "ERROR: data.lua not available";
|
|
}
|
|
}
|
|
elsif ( lc $cmd eq 'diversity' && $mesh eq "master") {
|
|
if ( int @val == 2 && $val[1] =~ /^(on|off)$/ ) {
|
|
FRITZBOX_Log $hash, 3, "INFO: set $name $cmd " . join(" ", @val);
|
|
unless (defined $hash->{READINGS}{"diversity".$val[0]}) {
|
|
FRITZBOX_Log $hash, 2, "no diversity".$val[0]." to set.";
|
|
return "ERROR: no diversity".$val[0]." to set.";
|
|
}
|
|
|
|
my $state = $val[1];
|
|
$state =~ s/on/1/;
|
|
$state =~ s/off/0/;
|
|
|
|
if ( $hash->{TR064}==1 ) { #tr064
|
|
my @tr064CmdArray = (["X_AVM-DE_OnTel:1", "x_contact", "SetDeflectionEnable", "NewDeflectionId", $val[0] - 1, "NewEnable", $state] );
|
|
FRITZBOX_TR064_Cmd ($hash, 0, \@tr064CmdArray);
|
|
}
|
|
else {
|
|
FRITZBOX_Log $hash, 2, "'set ... diversity' is not supported by the limited interfaces of your Fritz!Box firmware.";
|
|
return "ERROR: 'set ... diversity' is not supported by the limited interfaces of your Fritz!Box firmware.";
|
|
}
|
|
readingsSingleUpdate($hash, "diversity".$val[0]."_state", $val[1], 1);
|
|
return undef;
|
|
}
|
|
}
|
|
elsif ( lc $cmd eq 'reboot') {
|
|
if ( int @val != 1 ) {
|
|
return "ERROR: wrong amount of parammeters. Please use: set <name> reboot <minutes>";
|
|
} else {
|
|
FRITZBOX_Log $hash, 3, "INFO: set $name $cmd " . join(" ", @val);
|
|
|
|
if ( $hash->{TR064}==1 ) { #tr064
|
|
readingsSingleUpdate($hash, "box_lastFhemReboot", strftime("%d.%m.%Y %H:%M:%S", localtime(time() + ($val[0] * 60))), 1 );
|
|
# my @tr064CmdArray = (["DeviceConfig:1", "deviceconfig", "Reboot"] );
|
|
# FRITZBOX_TR064_Cmd ($hash, 0, \@tr064CmdArray);
|
|
|
|
my $RebootTime = strftime("%H:%M",localtime(time() + ($val[0] * 60)));
|
|
|
|
fhem("delete act_Reboot_$name", 1);
|
|
fhem('defmod act_Reboot_' . $name . ' at ' . $RebootTime . ' {fhem("get ' . $name . ' tr064Command DeviceConfig:1 deviceconfig Reboot")}');
|
|
|
|
}
|
|
else {
|
|
FRITZBOX_Log $hash, 2, "'set ... reboot' is not supported by the limited interfaces of your Fritz!Box firmware.";
|
|
return "ERROR: 'set ... reboot' is not supported by the limited interfaces of your Fritz!Box firmware.";
|
|
}
|
|
return undef;
|
|
}
|
|
}
|
|
elsif ( lc $cmd eq 'dectringblock' && $mesh eq "master" && $FW1 == 7 && $FW2 >= 21) {
|
|
|
|
FRITZBOX_Log $hash, 3, "INFO: set $name $cmd " . join(" ", @val);
|
|
|
|
if ($FW1 <= 7 && $FW2 < 21) {
|
|
FRITZBOX_Log $hash, 2, "ERROR: FritzOS version must be greater than 7.20";
|
|
return "ERROR: FritzOS version must be greater than 7.20.";
|
|
}
|
|
|
|
# only on/off
|
|
my $lm_OnOff = "0";
|
|
my $kl_OnOff = "off";
|
|
my $start_hh = "00";
|
|
my $start_mm = "00";
|
|
my $end_hh = "00";
|
|
my $end_mm = "00";
|
|
|
|
if ( int @val == 2 && $val[0] =~ /^dect(\d+)$/ && $val[1] =~ /^(on|off)$/ ) {
|
|
$start_hh = "00";
|
|
$start_mm = "00";
|
|
$end_hh = "00";
|
|
$end_mm = "00";
|
|
} elsif ( int @val >= 3 && $val[0] =~ /^dect(\d+)$/ && lc($val[1]) =~ /^(ed|wd|we)$/ && $val[2] =~ /^(2[0-3]|[01]?[0-9]):([0-5]?[0-9])-(2[0-4]|[01]?[0-9]):([0-5]?[0-9])$/ ) {
|
|
$start_hh = substr($val[2], 0, 2);
|
|
$start_mm = substr($val[2], 3, 2);
|
|
$end_hh = substr($val[2], 6, 2);
|
|
$end_mm = substr($val[2], 9, 2);
|
|
if ($end_hh eq "24") {
|
|
$end_mm = "24:00";
|
|
}
|
|
if ( int @val == 4 && ($val[3] =~ /^(lmode:on|lmode:off)$/ || $val[3] =~ /^(emode:on|emode:off)$/)) {
|
|
$lm_OnOff = "1" if( $val[3] =~ /^lmode:on$/ );
|
|
$kl_OnOff = "on" if( $val[3] =~ /^emode:on$/ );
|
|
} elsif ( int @val == 5 && ($val[3] =~ /^(lmode:on|lmode:off)$/ || $val[3] =~ /^(emode:on|emode:off)$/) && ($val[4] =~ /^(lmode:on|lmode:off)$/ || $val[4] =~ /^(emode:on|emode:off)$/)) {
|
|
$lm_OnOff = "1" if( $val[3] =~ /^lmode:on$/ || $val[4] =~ /^lmode:on$/);
|
|
$kl_OnOff = "on" if( $val[3] =~ /^emode:on$/ || $val[4] =~ /^emode:on$/);
|
|
#} else {
|
|
# return "Error for parameters: $val[3]; $val[4]";
|
|
}
|
|
} else {
|
|
FRITZBOX_Log $hash, 2, "ERROR: for dectringblock arguments";
|
|
return "ERROR: for dectringblock arguments";
|
|
}
|
|
|
|
if (ReadingsVal($name, $val[0], "nodect") eq "nodect") {
|
|
FRITZBOX_Log $hash, 2, "ERROR: dectringblock $val[0] not found";
|
|
return "ERROR: dectringblock $val[0] not found.";
|
|
}
|
|
|
|
my @webCmdArray;
|
|
my $queryStr;
|
|
my $returnStr;
|
|
|
|
#xhr 1 idx 2 apply nop lang de page edit_dect_ring_block Klingelsperre aus
|
|
#lockmode 0 nightsetting 1 lockday everyday starthh 00 startmm 00 endhh 00 endmm 00 Klingelsperre ein
|
|
|
|
#xhr: 1
|
|
#nightsetting: 1
|
|
#lockmode: 0
|
|
#lockday: everday
|
|
#starthh: 10
|
|
#startmm: 15
|
|
#endhh: 20
|
|
#endmm: 25
|
|
#idx: 1
|
|
#back_to_page: /fon_devices/fondevices_list.lua
|
|
#apply:
|
|
#lang: de
|
|
#page: edit_dect_ring_block
|
|
|
|
push @webCmdArray, "xhr" => "1";
|
|
|
|
$queryStr .= "'xhr' => '1'\n";
|
|
|
|
if ($val[1] eq "on") {
|
|
push @webCmdArray, "lockmode" => $lm_OnOff;
|
|
push @webCmdArray, "nightsetting" => "1";
|
|
push @webCmdArray, "lockday" => "everyday";
|
|
push @webCmdArray, "starthh" => $start_hh;
|
|
push @webCmdArray, "startmm" => $start_mm;
|
|
push @webCmdArray, "endhh" => $end_hh;
|
|
push @webCmdArray, "endmm" => $end_mm;
|
|
|
|
} elsif ( lc($val[1]) =~ /^(ed|wd|we)$/ ) {
|
|
push @webCmdArray, "lockmode" => $lm_OnOff;
|
|
push @webCmdArray, "event" => "on" if( $kl_OnOff eq "on");
|
|
push @webCmdArray, "nightsetting" => "1";
|
|
push @webCmdArray, "lockday" => "everyday" if( lc($val[1]) eq "ed");
|
|
push @webCmdArray, "lockday" => "workday" if( lc($val[1]) eq "wd");
|
|
push @webCmdArray, "lockday" => "weekend" if( lc($val[1]) eq "we");
|
|
push @webCmdArray, "starthh" => $start_hh;
|
|
push @webCmdArray, "startmm" => $start_mm;
|
|
push @webCmdArray, "endhh" => $end_hh;
|
|
push @webCmdArray, "endmm" => $end_mm;
|
|
|
|
}
|
|
|
|
push @webCmdArray, "idx" => substr($val[0], 4);
|
|
push @webCmdArray, "apply" => "";
|
|
push @webCmdArray, "lang" => "de";
|
|
push @webCmdArray, "page" => "edit_dect_ring_block";
|
|
|
|
FRITZBOX_Log $hash, 5, "DEBUG: set $name $cmd \n" . join(" ", @webCmdArray);
|
|
|
|
my $result = FRITZBOX_Function_Lua($hash, "data", \@webCmdArray) ;
|
|
|
|
my $tmp;
|
|
if (defined $result->{Error} ) {
|
|
$tmp = "ERROR: " . $result->{Error};
|
|
FRITZBOX_Log $hash, 2, "ERROR: dectringblock " . $val[0] . " - " . $tmp;
|
|
}
|
|
elsif (defined $result->{sid} ) {
|
|
if (defined $result->{data}->{apply}) {
|
|
$tmp = $result->{data}->{apply};
|
|
return $tmp;
|
|
} else {
|
|
$tmp = $result->{sid};
|
|
}
|
|
}
|
|
else {
|
|
$tmp = "Unexpected result: " . Dumper ($result);
|
|
}
|
|
return $tmp;
|
|
|
|
}
|
|
elsif ( lc $cmd eq 'switchipv4dns' && $mesh eq "master") {
|
|
|
|
if (int @val == 1 && $val[0] =~ /^(provider|other)$/) {
|
|
FRITZBOX_Log $hash, 3, "INFO: set $name $cmd " . join(" ", @val);
|
|
|
|
if ($FW1 <= 7 && $FW2 < 21) {
|
|
FRITZBOX_Log $hash, 2, "ERROR: FritzOS version must be greater than 7.20";
|
|
return "ERROR: FritzOS version must be greater than 7.20.";
|
|
}
|
|
|
|
FRITZBOX_Log $hash, 3, "INFO: set $name $cmd " . join(" ", @val);
|
|
|
|
if ( $val[0] eq "provider") {
|
|
|
|
#xhr 1 ipv4_use_user_dns 0 page dnsSrv apply nop lang de
|
|
my @webCmdArray;
|
|
push @webCmdArray, "xhr" => "1";
|
|
push @webCmdArray, "lang" => "de";
|
|
push @webCmdArray, "page" => "dnsSrv";
|
|
push @webCmdArray, "apply" => "";
|
|
push @webCmdArray, "ipv4_use_user_dns" => "0";
|
|
|
|
FRITZBOX_Log $hash, 4, "INFO: data.lua: " . join(" ", @webCmdArray);
|
|
|
|
my $result = FRITZBOX_Function_Lua($hash, "data", \@webCmdArray) ;
|
|
|
|
if(defined $result->{Error}) {
|
|
FRITZBOX_Log $hash, 2, "ERROR: DNS IPv4 not set to " . $val[0] . " - " . $result->{Error};
|
|
return "ERROR: setting DNS IPv4: " . $result->{Error};
|
|
}
|
|
|
|
FRITZBOX_Log $hash, 4, "INFO: DNS IPv4 set to ".$val[0];
|
|
return "DNS IPv4 set to ".$val[0];
|
|
|
|
} elsif ( $val[0] eq "other") {
|
|
|
|
#xhr 1 lang de page dnsSrv xhrId all
|
|
my @webCmdArray;
|
|
push @webCmdArray, "xhr" => "1";
|
|
push @webCmdArray, "lang" => "de";
|
|
push @webCmdArray, "page" => "dnsSrv";
|
|
push @webCmdArray, "xhrId" => "all";
|
|
|
|
FRITZBOX_Log $hash, 4, "INFO: data.lua: " . join(" ", @webCmdArray);
|
|
|
|
my $result = FRITZBOX_Function_Lua($hash, "data", \@webCmdArray) ;
|
|
|
|
if(defined $result->{Error}) {
|
|
FRITZBOX_Log $hash, 2, "ERROR: DNS IPv4 not set to " . $val[0] . " - " . $result->{Error};
|
|
return "ERROR: setting DNS IPv4: " . $result->{Error};
|
|
}
|
|
|
|
my @firstdns = split(/\./,$result->{data}->{vars}->{ipv4}->{firstdns}{value});
|
|
my @seconddns = split(/\./,$result->{data}->{vars}->{ipv4}->{seconddns}{value});
|
|
|
|
#xhr 1 ipv4_use_user_dns 1
|
|
#ipv4_user_firstdns0 8 ipv4_user_firstdns1 8 ipv4_user_firstdns2 8 ipv4_user_firstdns3 8
|
|
#ipv4_user_seconddns0 1 ipv4_user_seconddns1 1 ipv4_user_seconddns2 1 ipv4_user_seconddns3 1
|
|
#apply nop lang de page dnsSrv
|
|
|
|
push @webCmdArray, "xhr" => "1";
|
|
push @webCmdArray, "lang" => "de";
|
|
push @webCmdArray, "page" => "dnsSrv";
|
|
push @webCmdArray, "apply" => "";
|
|
push @webCmdArray, "ipv4_use_user_dns" => "1";
|
|
push @webCmdArray, "ipv4_user_firstdns0" => $firstdns[0];
|
|
push @webCmdArray, "ipv4_user_firstdns1" => $firstdns[1];
|
|
push @webCmdArray, "ipv4_user_firstdns2" => $firstdns[2];
|
|
push @webCmdArray, "ipv4_user_firstdns3" => $firstdns[3];
|
|
push @webCmdArray, "ipv4_user_seconddns0" => $seconddns[0];
|
|
push @webCmdArray, "ipv4_user_seconddns1" => $seconddns[1];
|
|
push @webCmdArray, "ipv4_user_seconddns2" => $seconddns[2];
|
|
push @webCmdArray, "ipv4_user_seconddns3" => $seconddns[3];
|
|
|
|
FRITZBOX_Log $hash, 4, "INFO: data.lua: " . join(" ", @webCmdArray);
|
|
|
|
$result = FRITZBOX_Function_Lua($hash, "data", \@webCmdArray) ;
|
|
|
|
if(defined $result->{Error}) {
|
|
FRITZBOX_Log $hash, 2, "ERROR: DNS IPv4 not set to " . $val[0] . " - " . $result->{Error};
|
|
return "ERROR: setting DNS IPv4: " . $result->{Error};
|
|
}
|
|
|
|
FRITZBOX_Log $hash, 4, "INFO: DNS IPv4 set to ".$val[0];
|
|
return "DNS IPv4 set to ".$val[0];
|
|
}
|
|
|
|
return "Ok";
|
|
} else {
|
|
FRITZBOX_Log $hash, 2, "ERROR: for switchipv4dns arguments";
|
|
return "ERROR: for switchipv4dns arguments";
|
|
}
|
|
|
|
}
|
|
elsif ( lc $cmd eq 'enablevpnshare' && $mesh eq "master" && $FW1 == 7 && $FW2 >= 21) {
|
|
|
|
if ( int @val == 2 && $val[1] =~ /^(on|off)$/ ) {
|
|
|
|
FRITZBOX_Log $hash, 3, "INFO: set $name $cmd " . join(" ", @val);
|
|
|
|
if ($FW1 <= 7 && $FW2 < 21) {
|
|
FRITZBOX_Log $hash, 2, "ERROR: FritzOS version must be greater than 7.20";
|
|
return "ERROR: FritzOS version must be greater than 7.20.";
|
|
}
|
|
|
|
if ( AttrVal( $name, "enableVPNShares", "0")) {
|
|
$val[0] = lc($val[0]);
|
|
|
|
$val[0] = "vpn".$val[0] unless ($val[0] =~ /vpn/);
|
|
|
|
unless (defined( $hash->{READINGS}{$val[0]})) {
|
|
FRITZBOX_Log $hash, 2, "ERROR: set $name $cmd " . join(" ", @val);
|
|
return "ERROR: no $val[0] available."
|
|
}
|
|
|
|
FRITZBOX_Log $hash, 4, "INFO: set $name $cmd " . join(" ", @val);
|
|
push @cmdBuffer, "enablevpnshare " . join(" ", @val);
|
|
return FRITZBOX_Set_Cmd_Start $hash->{helper}{TimerCmd};
|
|
|
|
} else {
|
|
FRITZBOX_Log $hash, 2, "ERROR: vpn readings not activated";
|
|
return "ERROR: vpn readings not activated";
|
|
}
|
|
|
|
} else {
|
|
FRITZBOX_Log $hash, 2, "ERROR: for enableVPNshare arguments";
|
|
return "ERROR: for enableVPNshare arguments";
|
|
}
|
|
|
|
}
|
|
elsif ( lc $cmd eq 'macfilter' && $mesh eq "master") {
|
|
|
|
if ( int @val == 1 && $val[0] =~ /^(on|off)$/ ) {
|
|
|
|
FRITZBOX_Log $hash, 3, "INFO: set $name $cmd " . join(" ", @val);
|
|
push @cmdBuffer, "macfilter " . join(" ", @val);
|
|
return FRITZBOX_Set_Cmd_Start $hash->{helper}{TimerCmd};
|
|
|
|
} else {
|
|
FRITZBOX_Log $hash, 2, "ERROR: for macFilter arguments";
|
|
return "ERROR: for macFilter arguments";
|
|
}
|
|
|
|
}
|
|
elsif ( lc $cmd eq 'locklandevice' && $mesh eq "master") {
|
|
|
|
if (int @val == 2) {
|
|
|
|
$val[0] = FRITZBOX_Proof_Params($hash, $name, $cmd, "^(on|off)\$", @val);
|
|
|
|
return $val[0] if($val[0] =~ /ERROR/);
|
|
|
|
FRITZBOX_Log $hash, 3, "INFO: set $name $cmd " . join(" ", @val);
|
|
push @cmdBuffer, "locklandevice " . join(" ", @val);
|
|
return FRITZBOX_Set_Cmd_Start $hash->{helper}{TimerCmd};
|
|
|
|
} else {
|
|
FRITZBOX_Log $hash, 2, "ERROR: for locklandevice arguments";
|
|
return "ERROR: for locklandevice arguments";
|
|
}
|
|
|
|
}
|
|
elsif ( lc $cmd eq 'chgprofile' && $mesh eq "master") {
|
|
|
|
if(int @val == 2) {
|
|
|
|
$val[1] = "filtprof" . $val[1] unless $val[0] =~ /^filtprof(\d+)$/;
|
|
|
|
$val[0] = FRITZBOX_Proof_Params($hash, $name, $cmd, "^filtprof(\\d+)\$", @val);
|
|
|
|
return $val[0] if($val[0] =~ /ERROR/);
|
|
|
|
FRITZBOX_Log $hash, 3, "INFO: set $name $cmd " . join(" ", @val);
|
|
push @cmdBuffer, "chgprofile " . join(" ", @val);
|
|
return FRITZBOX_Set_Cmd_Start $hash->{helper}{TimerCmd};
|
|
|
|
} else {
|
|
FRITZBOX_Log $hash, 2, "ERROR: for chgprofile arguments";
|
|
return "ERROR: for chgprofile arguments";
|
|
}
|
|
}
|
|
elsif ( (lc $cmd eq 'wakeupcall') && ($hash->{LUADATA} == 1) && defined ($hash->{MODEL}) && ($hash->{MODEL} =~ "Box") && $FW1 == 7 && $FW2 >= 21 ) {
|
|
# xhr 1 lang de page alarm xhrId all / get Info
|
|
|
|
# xhr: 1
|
|
# active: 1 | 0
|
|
# hour: 07
|
|
# minutes: 00
|
|
# device: 70
|
|
# name: Wecker 1
|
|
# optionRepeat: daily | only_once | per_day { mon: 1 tue: 0 wed: 1 thu: 0 fri: 1 sat: 0 sun: 0 }
|
|
# apply: true
|
|
# lang: de
|
|
# page: alarm | alarm1 | alarm2
|
|
|
|
# alarm1 62 per_day 10:00 mon:1 tue:0 wed:1 thu:0 fri:1 sat:0 sun:0
|
|
|
|
# set <name> wakeUpCall <device> <alarm1|alarm2|alarm3> <on|off>
|
|
|
|
FRITZBOX_Log $hash, 3, "INFO: set $name $cmd " . join(" ", @val);
|
|
|
|
return "wakeUpCall: to few parameters" if int @val < 2;
|
|
|
|
# return "Amount off parameter:" . int @val;
|
|
|
|
if (int @val == 2) {
|
|
return "wakeUpCall: 1st Parameter must be one of the alarm pages: alarm1,alarm2 or alarm3" if $val[0] !~ /^(alarm1|alarm2|alarm3)$/;
|
|
return "wakeUpCall: 2nd Parameter must be 'off'" if $val[1] !~ /^(off)$/;
|
|
} elsif (int @val > 2) {
|
|
return "wakeUpCall: 2nd Parameter must be one of the alarm pages: alarm1,alarm2 or alarm3" if $val[0] !~ /^(alarm1|alarm2|alarm3)$/;
|
|
my $device = "fd_" . $val[1];
|
|
my $devname = "fdn_" . $val[1];
|
|
unless ($hash->{fhem}->{$device} || $hash->{fhem}->{$devname}) {
|
|
return "wakeUpCall: dect or fon Device name/number $val[1] not defined"; # unless $hash->{fhem}->{$device};
|
|
} elsif ($hash->{fhem}->{$devname}) {
|
|
$val[1] = $hash->{fhem}->{$devname};
|
|
}
|
|
}
|
|
|
|
if ( int @val >= 3 && $val[2] !~ /^(daily|only_once|per_day)$/) {
|
|
return "wakeUpCall: 3rd Parameter must be daily, only_once or per_day";
|
|
} elsif ( int @val >= 3 && $val[3] !~ /^(2[0-3]|[01]?[0-9]):([0-5]?[0-9])$/) {
|
|
return "wakeUpCall: 4th Parameter must be a valid time";
|
|
} elsif ( int @val == 11 && $val[2] ne "per_day") {
|
|
return "wakeUpCall: 3rd Parameter must be per_day";
|
|
} elsif ( int @val == 11 && $val[2] eq "per_day") {
|
|
|
|
my $fError = 0;
|
|
for(my $i = 4; $i <= 10; $i++) {
|
|
if ($val[$i] !~ /^(mon|tue|wed|thu|fri|sat|sun):(0|1)$/) {
|
|
$fError = $i;
|
|
last;
|
|
}
|
|
}
|
|
|
|
return "wakeUpCall: wrong argument for per_day: $val[$fError]" if $fError;
|
|
|
|
} elsif (int(@val) != 4 && int(@val) != 11 && $val[1] !~ /^(off)$/) {
|
|
return "wakeUpCall: wrong number of arguments per_day.";
|
|
}
|
|
|
|
FRITZBOX_Log $hash, 4, "INFO: set $name $cmd ".join(" ", @val);
|
|
push @cmdBuffer, "wakeupcall " . join(" ", @val);
|
|
return FRITZBOX_Set_Cmd_Start $hash->{helper}{TimerCmd};
|
|
|
|
}
|
|
elsif ( lc $cmd eq 'guestwlan') {
|
|
if (int @val == 1 && $val[0] =~ /^(on|off)$/) {
|
|
FRITZBOX_Log $hash, 3, "INFO: set $name $cmd " . join(" ", @val);
|
|
push @cmdBuffer, "guestwlan ".join(" ", @val);
|
|
return FRITZBOX_Set_Cmd_Start $hash->{helper}{TimerCmd};
|
|
}
|
|
}
|
|
# set password
|
|
elsif ( lc $cmd eq 'password') {
|
|
if (int @val == 1)
|
|
{
|
|
return FRITZBOX_storePassword ( $hash, $val[0] );
|
|
}
|
|
}
|
|
#set Ring
|
|
elsif ( lc $cmd eq 'ring' && $mesh eq "master") {
|
|
if (int @val > 0) {
|
|
FRITZBOX_Log $hash, 3, "INFO: set $name $cmd " . join(" ", @val);
|
|
push @cmdBuffer, "ring ".join(" ", @val);
|
|
return FRITZBOX_Set_Cmd_Start $hash->{helper}{TimerCmd};
|
|
}
|
|
}
|
|
elsif ( lc $cmd eq 'tam' && $mesh eq "master") {
|
|
if ( int @val == 2 && defined( $hash->{READINGS}{"tam".$val[0]} ) && $val[1] =~ /^(on|off)$/ ) {
|
|
FRITZBOX_Log $hash, 3, "INFO: set $name $cmd " . join(" ", @val);
|
|
my $state = $val[1];
|
|
$state =~ s/on/1/;
|
|
$state =~ s/off/0/;
|
|
|
|
if ($hash->{SECPORT}) { #TR-064
|
|
my @tr064CmdArray = (["X_AVM-DE_TAM:1", "x_tam", "SetEnable", "NewIndex", $val[0] - 1 , "NewEnable", $state]);
|
|
FRITZBOX_TR064_Cmd( $hash, 0, \@tr064CmdArray );
|
|
}
|
|
|
|
readingsSingleUpdate($hash,"tam".$val[0]."_state",$val[1], 1);
|
|
return undef;
|
|
}
|
|
}
|
|
elsif ( lc $cmd eq 'update' ) {
|
|
FRITZBOX_Log $hash, 3, "INFO: set $name $cmd " . join(" ", @val);
|
|
$hash->{fhem}{LOCAL}=1;
|
|
FRITZBOX_Readout_Start($hash->{helper}{TimerReadout});
|
|
$hash->{fhem}{LOCAL}=0;
|
|
return undef;
|
|
}
|
|
elsif ( lc $cmd eq 'wlan') {
|
|
if (int @val == 1 && $val[0] =~ /^(on|off)$/) {
|
|
FRITZBOX_Log $hash, 3, "INFO: set $name $cmd " . join(" ", @val);
|
|
push @cmdBuffer, "wlan ".join(" ", @val);
|
|
return FRITZBOX_Set_Cmd_Start $hash->{helper}{TimerCmd};
|
|
}
|
|
}
|
|
elsif ( lc $cmd =~ /^wlan(2\.4|5)$/ && $hash->{fhem}->{is_double_wlan} == 1 ) {
|
|
if ( int @val == 1 && $val[0] =~ /^(on|off)$/ ) {
|
|
FRITZBOX_Log $hash, 3, "INFO: set $name $cmd " . join(" ", @val);
|
|
push @cmdBuffer, lc ($cmd) . " " . join(" ", @val);
|
|
return FRITZBOX_Set_Cmd_Start $hash->{helper}{TimerCmd};
|
|
}
|
|
}
|
|
elsif ( lc $cmd eq 'wlanlogextended') {
|
|
if (int @val == 1 && $val[0] =~ /^(on|off)$/) {
|
|
FRITZBOX_Log $hash, 3, "INFO: set $name $cmd " . join(" ", @val);
|
|
push @cmdBuffer, "wlanlogextended ".join(" ", @val);
|
|
return FRITZBOX_Set_Cmd_Start $hash->{helper}{TimerCmd};
|
|
}
|
|
}
|
|
elsif ( lc $cmd eq 'rescanwlanneighbors' ) {
|
|
FRITZBOX_Log $hash, 3, "INFO: set $name $cmd " . join(" ", @val);
|
|
push @cmdBuffer, "rescanwlanneighbors " . join(" ", @val);
|
|
return FRITZBOX_Set_Cmd_Start $hash->{helper}{TimerCmd};
|
|
}
|
|
|
|
return "Unknown argument $cmd or wrong parameter(s), choose one of $list";
|
|
|
|
} # end FRITZBOX_Set
|
|
|
|
#######################################################################
|
|
sub FRITZBOX_Get($@)
|
|
{
|
|
my ($hash, $name, $cmd, @val) = @_;
|
|
my $returnStr;
|
|
|
|
my @fwV = split(/\./, ReadingsVal($name, "box_fwVersion", "0.0.0.error"));
|
|
|
|
my $FW1 = substr($fwV[1],0,2);
|
|
my $FW2 = substr($fwV[2],0,2);
|
|
|
|
my $avmModel = InternalVal($name, "MODEL", "FRITZ!Box");
|
|
my $mesh = ReadingsVal($name, "box_meshRole", "master");
|
|
|
|
if( lc $cmd eq "luaquery" && $hash->{LUAQUERY} == 1) {
|
|
# get Fritzbox luaQuery inetstat:status/Today/BytesReceivedLow
|
|
# get Fritzbox luaQuery telcfg:settings/AlarmClock/list(Name,Active,Time,Number,Weekdays)
|
|
FRITZBOX_Log $hash, 3, "INFO: get $name $cmd " . join(" ", @val);
|
|
|
|
return "Wrong number of arguments, usage: get $name luaQuery <query>" if int @val !=1;
|
|
|
|
$returnStr = "Result of query = '$val[0]'\n";
|
|
$returnStr .= "----------------------------------------------------------------------\n";
|
|
my $queryStr = "&result=".$val[0];
|
|
|
|
my $result = FRITZBOX_Web_Query( $hash, $queryStr) ;
|
|
|
|
my $tmp = FRITZBOX_ERR_Result($hash, $result);
|
|
|
|
return $returnStr . $tmp;
|
|
|
|
} elsif( lc $cmd eq "luafunction" && $hash->{LUAQUERY} == 1) {
|
|
FRITZBOX_Log $hash, 3, "INFO: get $name $cmd " . join(" ", @val);
|
|
|
|
return "Wrong number of arguments, usage: get $name luafunction <query>" if int @val !=1;
|
|
|
|
$returnStr = "Result of function call '$val[0]' \n";
|
|
$returnStr .= "----------------------------------------------------------------------\n";
|
|
|
|
my $result = FRITZBOX_Web_Query( $hash, $val[0], "", "luaCall") ;
|
|
|
|
my $tmp = FRITZBOX_ERR_Result($hash, $result);
|
|
|
|
return $returnStr . $tmp;
|
|
|
|
} elsif( lc $cmd eq "luadata" && $hash->{LUADATA} == 1) {
|
|
FRITZBOX_Log $hash, 3, "INFO: get $name $cmd [" . int(@val) . "] " . join(" ", @val);
|
|
|
|
return "Wrong number of arguments, usage: get $name argName1 argValue1 [argName2 argValue2] ..." if int @val < 2 || int(@val) %2 == 1;
|
|
|
|
my @webCmdArray;
|
|
my $queryStr;
|
|
for(my $i = 0; $i <= (int @val)/2 - 1; $i++) {
|
|
$val[2*$i+1] = "" if lc($val[2*$i+1]) eq "nop";
|
|
$val[2*$i+1] =~ tr/\&/ /;
|
|
push @webCmdArray, $val[2*$i+0] => $val[2*$i+1];
|
|
$queryStr .= "'$val[2*$i+0]' => '$val[2*$i+1]'\n";
|
|
}
|
|
|
|
$queryStr =~ tr/\&/ /;
|
|
|
|
FRITZBOX_Log $hash, 4, "DEBUG: get $name $cmd " . $queryStr;
|
|
|
|
$returnStr = "Result of data = " . $queryStr . "\n";
|
|
$returnStr .= "----------------------------------------------------------------------\n";
|
|
|
|
my $result = FRITZBOX_Function_Lua($hash, "data", \@webCmdArray) ;
|
|
|
|
my $flag = 1;
|
|
my $tmp = FRITZBOX_ERR_Result($hash, $result, 1);
|
|
|
|
return $returnStr . $tmp;
|
|
|
|
} elsif( lc $cmd eq "luadectringtone" && $hash->{LUADATA} == 1 && $hash->{_BETA}) {
|
|
FRITZBOX_Log $hash, 3, "INFO: get $name $cmd [" . int(@val) . "] " . join(" ", @val);
|
|
|
|
return "Wrong number of arguments, usage: get $name argName1 argValue1 [argName2 argValue2] ..." if int @val < 2 || int(@val) %2 == 1;
|
|
|
|
my @webCmdArray;
|
|
my $queryStr;
|
|
for(my $i = 0; $i <= (int @val)/2 - 1; $i++) {
|
|
$val[2*$i+1] = "" if lc($val[2*$i+1]) eq "nop";
|
|
$val[2*$i+1] =~ tr/\&/ /;
|
|
push @webCmdArray, $val[2*$i+0] => $val[2*$i+1];
|
|
$queryStr .= "'$val[2*$i+0]' => '$val[2*$i+1]'\n";
|
|
}
|
|
|
|
$queryStr =~ tr/\&/ /;
|
|
|
|
FRITZBOX_Log $hash, 4, "DEBUG: get $name $cmd " . $queryStr;
|
|
|
|
$returnStr = "Result of data = " . $queryStr . "\n";
|
|
$returnStr .= "----------------------------------------------------------------------\n";
|
|
|
|
my $result = FRITZBOX_Function_Lua($hash, "fon_devices\/edit_dect_ring_tone", \@webCmdArray) ;
|
|
|
|
my $flag = 1;
|
|
my $tmp = FRITZBOX_ERR_Result($hash, $result, 1);
|
|
|
|
return $returnStr . $tmp;
|
|
|
|
} elsif( lc $cmd eq "landeviceinfo" && $hash->{LUADATA} == 1) {
|
|
|
|
FRITZBOX_Log $hash, 3, "INFO: get $name $cmd " . join(" ", @val);
|
|
|
|
return "Wrong number of arguments, usage: get $name argName1 argValue1" if int @val != 1;
|
|
|
|
my $erg = FRITZBOX_Proof_Params($hash, $name, $cmd, "", @val);
|
|
|
|
return $erg if($erg =~ /ERROR/);
|
|
|
|
return FRITZBOX_Lan_Device_Info( $hash, $erg, "info");
|
|
|
|
} elsif( lc $cmd eq "fritzlog" && $hash->{LUADATA} == 1) {
|
|
|
|
FRITZBOX_Log $hash, 3, "INFO: get $name $cmd " . join(" ", @val);
|
|
|
|
if (($FW1 <= 7 && $FW2 < 21) || ($FW1 <= 6)) {
|
|
FRITZBOX_Log $hash, 2, "ERROR: FritzOS version must be greater than 7.20";
|
|
return "FritzOS version must be greater than 7.20.";
|
|
}
|
|
|
|
if (int @val == 2) {
|
|
return "Wrong 1st parmeter, usage hash or table for first parameter" if $val[0] !~ /hash|table/;
|
|
return "Wrong 2nd parmeter, usage all, sys, wlan, usb, net, fon" if $val[1] !~ /all|sys|wlan|usb|net|fon/;
|
|
} elsif(int @val == 3 && $val[0] eq "hash") {
|
|
return "Wrong 1st parmeter, usage hash or table for first parameter" if $val[0] !~ /hash|table/;
|
|
return "Wrong 2nd parmeter, usage all, sys, wlan, usb, net, fon" if $val[1] !~ /all|sys|wlan|usb|net|fon/;
|
|
return "Wrong 3nd parmeter, usage on or off" if $val[2] !~ /on|off/;
|
|
} else {
|
|
return "Wrong number of arguments, usage: get <$name> <hash|table> <all|sys|wlan|usb|net|fon> [on|off]" if $val[0] eq "hash";
|
|
return "Wrong number of arguments, usage: get <$name> <hash|table> <all|sys|wlan|usb|net|fon>" if $val[0] eq "table";
|
|
}
|
|
|
|
|
|
if ($val[0] eq "hash") {
|
|
push @cmdBuffer, "fritzloginfo " . join(" ", @val);
|
|
return FRITZBOX_Set_Cmd_Start $hash->{helper}{TimerCmd};
|
|
} else {
|
|
return FRITZBOX_Fritz_Log_Info( $hash, $val[0], $val[1]);
|
|
}
|
|
|
|
} elsif( lc $cmd eq "luainfo") {
|
|
|
|
FRITZBOX_Log $hash, 4, "INFO: get $name $cmd [" . int(@val) . "] " . join(" ", @val);
|
|
|
|
if (($FW1 <= 7 && $FW2 < 21) || ($FW1 <= 6)) {
|
|
FRITZBOX_Log $hash, 2, "ERROR: FritzOS version must be greater than 7.20";
|
|
return "FritzOS version must be greater than 7.20.";
|
|
}
|
|
|
|
|
|
return "Wrong number of arguments, usage: get $name argName1 argValue1" if int @val != 1;
|
|
|
|
my $avmModel = InternalVal($name, "MODEL", "FRITZ!Box");
|
|
|
|
if ( $val[0] eq "lanDevices" && $hash->{LUADATA} == 1) {
|
|
$returnStr = FRITZBOX_Lan_Devices_List($hash);
|
|
|
|
} elsif ( $val[0] eq "vpnShares" && $hash->{LUADATA} == 1) {
|
|
$returnStr = FRITZBOX_VPN_Shares_List($hash);
|
|
|
|
} elsif ( $val[0] eq "kidProfiles" && $hash->{LUAQUERY} == 1) {
|
|
$returnStr = FRITZBOX_Kid_Profiles_List($hash);
|
|
|
|
} elsif ( $val[0] eq "userInfos" && $hash->{LUAQUERY} == 1) {
|
|
$returnStr = FRITZBOX_User_Info_List($hash);
|
|
|
|
} elsif ( $val[0] eq "wlanNeighborhood" && $hash->{LUADATA} == 1) {
|
|
$returnStr = FRITZBOX_WLAN_Environment($hash);
|
|
|
|
} elsif ( $val[0] eq "docsisInformation" && $hash->{LUADATA} == 1 && ($avmModel =~ "Box") && (lc($avmModel) =~ "6[4,5,6][3,6,9][0,1]")) {
|
|
$returnStr = FRITZBOX_DOCSIS_Informations($hash);
|
|
}
|
|
|
|
return $returnStr;
|
|
|
|
} elsif( lc $cmd eq "tr064command" && defined $hash->{SECPORT}) {
|
|
|
|
# http://fritz.box:49000/tr64desc.xml
|
|
#get Fritzbox tr064command DeviceInfo:1 deviceinfo GetInfo
|
|
#get Fritzbox tr064command X_VoIP:1 x_voip X_AVM-DE_GetPhonePort NewIndex 1
|
|
#get Fritzbox tr064command X_VoIP:1 x_voip X_AVM-DE_DialNumber NewX_AVM-DE_PhoneNumber **612
|
|
#get Fritzbox tr064command X_VoIP:1 x_voip X_AVM-DE_DialHangup
|
|
#get Fritzbox tr064command WLANConfiguration:3 wlanconfig3 X_AVM-DE_GetWLANExtInfo
|
|
#get Fritzbox tr064command X_AVM-DE_OnTel:1 x_contact GetDECTHandsetList
|
|
#get Fritzbox tr064command X_AVM-DE_OnTel:1 x_contact GetDECTHandsetInfo NewDectID 1
|
|
#get Fritzbox tr064command X_AVM-DE_TAM:1 x_tam GetInfo NewIndex 0
|
|
#get Fritzbox tr064command X_AVM-DE_TAM:1 x_tam SetEnable NewIndex 0 NewEnable 0
|
|
#get Fritzbox tr064command InternetGatewayDevice:1 deviceinfo GetInfo
|
|
#get Fritzbox tr064command LANEthernetInterfaceConfig:1 lanethernetifcfg GetStatistics
|
|
|
|
FRITZBOX_Log $hash, 3, "INFO: get $name $cmd ".join(" ", @val);
|
|
|
|
my ($a, $h) = parseParams( join (" ", @val) );
|
|
@val = @$a;
|
|
|
|
return "Wrong number of arguments, usage: get $name tr064command service control action [argName1 argValue1] [argName2 argValue2] ..."
|
|
if int @val <3 || int(@val) %2 !=1;
|
|
|
|
$returnStr = "Result of TR064 call\n";
|
|
$returnStr .= "----------------------------------------------------------------------\n";
|
|
$returnStr = "Service='$val[0]' Control='$val[1]' Action='$val[2]'\n";
|
|
for(my $i = 1; $i <= (int @val - 3)/2; $i++) {
|
|
$returnStr .= "Parameter$i='$val[2*$i+1]' => '$val[2*$i+2]'\n";
|
|
}
|
|
$returnStr .= "----------------------------------------------------------------------\n";
|
|
my @tr064CmdArray = ( \@val );
|
|
my @result = FRITZBOX_TR064_Cmd( $hash, 1, \@tr064CmdArray );
|
|
my $tmp = Dumper (@result);
|
|
$returnStr .= $tmp;
|
|
return $returnStr;
|
|
|
|
} elsif( lc $cmd eq "tr064servicelist" && defined $hash->{SECPORT}) {
|
|
FRITZBOX_Log $hash, 4, "INFO: get $name $cmd [" . int(@val) . "] " . join(" ", @val);
|
|
return FRITZBOX_TR064_Get_ServiceList ($hash);
|
|
}
|
|
|
|
my $list;
|
|
$list .= "luaQuery" if $hash->{LUAQUERY} == 1;
|
|
$list .= " luaData" if $hash->{LUADATA} == 1;
|
|
$list .= " luaDectRingTone" if $hash->{LUADATA} == 1 && $hash->{_BETA};
|
|
$list .= " luaFunction" if $hash->{LUAQUERY} == 1;
|
|
|
|
# luaData
|
|
if (($hash->{LUADATA} == 1 || $hash->{LUAQUERY} == 1) && ($FW1 >= 7) ){
|
|
$list .= " luaInfo:";
|
|
$list .= "lanDevices,vpnShares,wlanNeighborhood" if $hash->{LUADATA} == 1;
|
|
$list .= ",kidProfiles,userInfos" if $hash->{LUAQUERY} == 1;
|
|
$list .= ",docsisInformation" if $hash->{LUADATA} == 1 && ($avmModel =~ "Box") && (lc($avmModel) =~ "6[4,5,6][3,6,9][0,1]");
|
|
}
|
|
|
|
$list .= " fritzLog" if $hash->{LUADATA} == 1 && (($FW1 >= 6 && $FW2 >= 80) || ($FW1 >= 7));
|
|
|
|
$list .= " lanDeviceInfo" if $hash->{LUADATA} == 1;
|
|
|
|
$list .= " tr064Command" if defined $hash->{SECPORT};
|
|
$list .= " tr064ServiceList:noArg" if defined $hash->{SECPORT};
|
|
|
|
return "Unknown argument $cmd, choose one of $list" if defined $list;
|
|
|
|
} # end FRITZBOX_Get
|
|
|
|
# Proof params for set/get on landeviceID or MAC
|
|
#######################################################################
|
|
sub FRITZBOX_Proof_Params($@) {
|
|
|
|
my ($hash, $name, $cmd, $mysearch, @val) = @_;
|
|
$mysearch = "" unless( defined $mysearch);
|
|
|
|
my @fwV = split(/\./, ReadingsVal($name, "box_fwVersion", "0.0.0.error"));
|
|
|
|
my $FW1 = substr($fwV[1],0,2);
|
|
my $FW2 = substr($fwV[2],0,2);
|
|
|
|
FRITZBOX_Log $hash, 4, "INFO: set $name $cmd (Fritz!OS: $FW1.$FW2)";
|
|
|
|
if ($FW1 <= 7 && $FW2 < 21) {
|
|
FRITZBOX_Log $hash, 2, "ERROR: FritzOS version must be greater than 7.20";
|
|
return "ERROR: FritzOS version must be greater than 7.20.";
|
|
}
|
|
|
|
unless ($val[0] =~ /^([0-9a-f]{2}([:-_]|$)){6}$/i ) {
|
|
if ( $val[0] =~ /(\d+)/ ) {
|
|
$val[0] = "landevice" . $1; #$val[0];
|
|
}
|
|
}
|
|
|
|
if ( int @val == 2 ) {
|
|
unless ($val[1] =~ /$mysearch/ && ($val[0] =~ /^landevice(\d+)$/ || $val[0] =~ /^([0-9a-f]{2}([:-_]|$)){6}$/i) ) {
|
|
$mysearch =~ s/\^|\$//g;
|
|
FRITZBOX_Log $hash, 2, "ERROR: no valid $cmd parameter: " . $val[0] . " or " . $mysearch . " given";
|
|
return "ERROR: no valid $cmd parameter: " . $val[0] . " or " . $mysearch . " given";
|
|
}
|
|
} elsif ( int @val == 1 ) {
|
|
if ($mysearch ne "" && $val[0] =~ /$mysearch/ ) {
|
|
FRITZBOX_Log $hash, 4, "INFO: $name $cmd " . join(" ", @val);
|
|
return $val[0];
|
|
} else {
|
|
unless ( $val[0] =~ /^landevice(\d+)$/ || $val[0] =~ /^([0-9a-f]{2}([:-_]|$)){6}$/i ) {
|
|
FRITZBOX_Log $hash, 2, "ERROR: no valid $cmd parameter: " . $val[0] . " given";
|
|
return "ERROR: no valid $cmd parameter: " . $val[0] . " given";
|
|
}
|
|
}
|
|
|
|
} else {
|
|
FRITZBOX_Log $hash, 2, "ERROR: parameter missing";
|
|
return "ERROR: $cmd parameter missing";
|
|
}
|
|
|
|
if ($val[0] =~ /^([0-9a-f]{2}([:-_]|$)){6}$/i) {
|
|
my $mac = $val[0];
|
|
$mac =~ s/:|-/_/g;
|
|
|
|
if (exists($hash->{fhem}->{landevice}->{$mac}) eq "") {
|
|
FRITZBOX_Log $hash, 2, "ERROR: non existing landevice: $val[0]";
|
|
return "ERROR: non existing landevice: $val[0]";
|
|
}
|
|
|
|
unless (defined $hash->{fhem}->{landevice}->{$mac}) {
|
|
FRITZBOX_Log $hash, 2, "ERROR: non existing landevice: $val[0]";
|
|
return "ERROR: non existing landevice: $val[0]";
|
|
}
|
|
|
|
$val[0] = $hash->{fhem}->{landevice}->{$mac} ;
|
|
|
|
} else {
|
|
|
|
if (exists($hash->{fhem}->{landevice}->{$val[0]}) eq "") {
|
|
FRITZBOX_Log $hash, 2, "ERROR: non existing landevice: $val[0]";
|
|
return "ERROR: non existing landevice: $val[0]";
|
|
}
|
|
|
|
unless (defined $hash->{fhem}->{landevice}->{$val[0]}) {
|
|
FRITZBOX_Log $hash, 2, "ERROR: non existing landevice: $val[0]";
|
|
return "ERROR: non existing landevice: $val[0]";
|
|
}
|
|
}
|
|
|
|
FRITZBOX_Log $hash, 4, "INFO: $name $cmd " . join(" ", @val);
|
|
|
|
return $val[0];
|
|
|
|
} # end FRITZBOX_Proof_Params
|
|
|
|
# Starts the data capturing and sets the new readout timer
|
|
#######################################################################
|
|
sub FRITZBOX_Readout_Start($)
|
|
{
|
|
my ($timerpara) = @_;
|
|
|
|
# my ( $name, $func ) = split( /\./, $timerpara );
|
|
my $index = rindex( $timerpara, "." ); # rechter Punkt
|
|
my $func = substr $timerpara, $index + 1, length($timerpara); # function extrahieren
|
|
my $name = substr $timerpara, 0, $index; # name extrahieren
|
|
my $hash = $defs{$name};
|
|
|
|
my $runFn;
|
|
|
|
if( AttrVal( $name, "disable", 0 ) == 1 && $hash->{fhem}{LOCAL} != 1) {
|
|
RemoveInternalTimer($hash->{helper}{TimerReadout});
|
|
readingsSingleUpdate( $hash, "state", "disabled", 1 );
|
|
return undef;
|
|
}
|
|
|
|
# Set timer value (min. 60)
|
|
$hash->{INTERVAL} = AttrVal( $name, "INTERVAL", 300 );
|
|
$hash->{INTERVAL} = 60 if $hash->{INTERVAL} < 60 && $hash->{INTERVAL} != 0;
|
|
|
|
my $interval = $hash->{INTERVAL};
|
|
|
|
# Set Ttimeout for BlockinCall
|
|
$hash->{TIMEOUT} = AttrVal( $name, "nonblockingTimeOut", 55 );
|
|
$hash->{TIMEOUT} = $interval - 10 if $hash->{TIMEOUT} > $hash->{INTERVAL};
|
|
|
|
my $timeout = $hash->{TIMEOUT};
|
|
|
|
# First run is an API check
|
|
unless ( $hash->{APICHECKED} ) {
|
|
$interval = 10;
|
|
$timeout = 35;
|
|
$hash->{STATE} = "Check APIs";
|
|
$runFn = "FRITZBOX_API_Check_Run";
|
|
}
|
|
# Run shell or web api, restrict interval
|
|
else {
|
|
$runFn = "FRITZBOX_Readout_Run_Web";
|
|
}
|
|
|
|
if( $interval != 0 ) {
|
|
RemoveInternalTimer($hash->{helper}{TimerReadout});
|
|
InternalTimer(gettimeofday()+$interval, "FRITZBOX_Readout_Start", $hash->{helper}{TimerReadout}, 1);
|
|
}
|
|
|
|
# Kill running process if "set update" is used
|
|
if ( exists( $hash->{helper}{READOUT_RUNNING_PID} ) && $hash->{fhem}{LOCAL} == 1 ) {
|
|
FRITZBOX_Log $hash, 4, "INFO: Old readout process still running. Killing old process ".$hash->{helper}{READOUT_RUNNING_PID};
|
|
BlockingKill( $hash->{helper}{READOUT_RUNNING_PID} );
|
|
# stop FHEM, giving a FritzBox some time to free the memory
|
|
delete( $hash->{helper}{READOUT_RUNNING_PID} );
|
|
}
|
|
|
|
$hash->{fhem}{LOCAL} = 2 if $hash->{fhem}{LOCAL} == 1;
|
|
|
|
unless( exists $hash->{helper}{READOUT_RUNNING_PID} ) {
|
|
$hash->{helper}{READOUT_RUNNING_PID} = BlockingCall($runFn, $name,
|
|
"FRITZBOX_Readout_Done", $timeout,
|
|
"FRITZBOX_Readout_Aborted", $hash);
|
|
FRITZBOX_Log $hash, 4, "INFO: Fork process $runFn";
|
|
}
|
|
else {
|
|
FRITZBOX_Log $hash, 4, "INFO: Skip fork process $runFn";
|
|
}
|
|
|
|
} # end FRITZBOX_Readout_Start
|
|
|
|
# Checks which API is available on the Fritzbox
|
|
#######################################################################
|
|
sub FRITZBOX_API_Check_Run($)
|
|
{
|
|
my ($name) = @_;
|
|
my $hash = $defs{$name};
|
|
my $fritzShell = 0;
|
|
my @roReadings;
|
|
my $response;
|
|
my $startTime = time();
|
|
|
|
my $host = $hash->{HOST};
|
|
my $boxUser = AttrVal( $name, "boxUser", "" );
|
|
|
|
if ( $host =~ /undefined/ || $boxUser eq "") {
|
|
my $tmp = "";
|
|
$tmp = "fritzBoxIP" if $host =~ /undefined/;
|
|
$tmp .= ", " if $host =~ /undefined/ && $boxUser eq "";
|
|
$tmp .= " boxUser (bei Repeatern nicht unbedingt notwendig)" if $boxUser eq "";
|
|
$tmp .= " nicht definiert. Bitte auch das Passwort mit <set $name password> setzen.";
|
|
|
|
FRITZBOX_Readout_Add_Reading ($hash, \@roReadings, "->HINWEIS", $tmp);
|
|
|
|
FRITZBOX_Log $hash, 3, "INFO: " . $tmp;
|
|
}
|
|
|
|
# change host name if necessary
|
|
FRITZBOX_Readout_Add_Reading ($hash, \@roReadings, "->HOST", $host) if $host ne $hash->{HOST};
|
|
|
|
# Check if perl modules for remote APIs exists
|
|
if ($missingModulWeb) {
|
|
FRITZBOX_Log $hash, 3, "INFO: Cannot check for box model and APIs webcm, luaQuery and TR064 because perl modul $missingModulWeb is missing on this system.";
|
|
}
|
|
# Check for remote APIs
|
|
else {
|
|
my $agent = LWP::UserAgent->new( env_proxy => 1, keep_alive => 1, protocols_allowed => ['http'], timeout => 10);
|
|
|
|
# Check if query.lua exists
|
|
$response = $agent->get( "http://".$host."/query.lua" );
|
|
|
|
if ($response->is_success) {
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "->LUAQUERY", 1;
|
|
FRITZBOX_Log $hash, 4, "DEBUG: API luaQuery found (" . $response->code . ").";
|
|
}
|
|
elsif ($response->code eq "500" || $response->code eq "403") {
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "->LUAQUERY", 1;
|
|
FRITZBOX_Log $hash, 3, "INFO: API luaQuery found but responded with: " . $response->status_line;
|
|
}
|
|
else {
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "->LUAQUERY", 0;
|
|
FRITZBOX_Log $hash, 3, "INFO: API luaQuery does not exist (" . $response->status_line . ")";
|
|
}
|
|
|
|
# Check if data.lua exists
|
|
$response = $agent->get( "http://".$host."/data.lua" );
|
|
|
|
if ($response->is_success) {
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "->LUADATA", 1;
|
|
FRITZBOX_Log $hash, 4, "DEBUG: API luaData found (" . $response->code . ").";
|
|
# xhr 1 lang de page netSet xhrId all
|
|
}
|
|
elsif ($response->code eq "500" || $response->code eq "403") {
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "->LUADATA", 1;
|
|
FRITZBOX_Log $hash, 3, "INFO: API luaData found but responded with: " . $response->status_line;
|
|
}
|
|
else {
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "->LUADATA", 0;
|
|
FRITZBOX_Log $hash, 3, "INFO: API luaData does not exist (" . $response->status_line . ")";
|
|
}
|
|
|
|
# Check if tr064 specification exists and determine TR064-Port
|
|
$response = $agent->get( "http://".$host.":49000/tr64desc.xml" );
|
|
|
|
if ($response->is_success) { #determine TR064-Port
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "->TR064", 1;
|
|
FRITZBOX_Log $hash, 4, "DEBUG: API TR-064 found.";
|
|
|
|
#Determine TR064-Port
|
|
my $tr064Port = FRITZBOX_TR064_Init ( $hash, $host );
|
|
if ($tr064Port) {
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "->SECPORT", $tr064Port;
|
|
FRITZBOX_Log $hash, 4, "DEBUG: TR-064-SecurePort is $tr064Port.";
|
|
}
|
|
else {
|
|
FRITZBOX_Log $hash, 3, "INFO: TR-064-SecurePort does not exist";
|
|
}
|
|
}
|
|
else {
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "->TR064", 0;
|
|
FRITZBOX_Log $hash, 3, "INFO: API TR-064 does not exist: ".$response->status_line;
|
|
}
|
|
|
|
|
|
# Check if m3u can be created and the URL tested
|
|
if ( AttrVal( $name, "m3uFileActive", 0) ) {
|
|
my $globalModPath = AttrVal( "global", "modpath", "." );
|
|
my $m3uFileLocal = AttrVal( $name, "m3uFileLocal", $globalModPath."/www/images/" . $name . ".m3u" );
|
|
|
|
if (open my $fh, '>', $m3uFileLocal) {
|
|
my $ttsText = uri_escape("Lirumlarumlöffelstielwerdasnichtkannderkannnichtviel");
|
|
my $ttsLink = $ttsLinkTemplate;
|
|
$ttsLink =~ s/\[TEXT\]/$ttsText/;
|
|
$ttsLink =~ s/\[SPRACHE\]/fr/;
|
|
print $fh $ttsLink;
|
|
close $fh;
|
|
FRITZBOX_Log $hash, 3, "INFO: Created m3u file '$m3uFileLocal'.";
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "->M3U_LOCAL", $m3uFileLocal;
|
|
|
|
# Get the m3u-URL
|
|
my $m3uFileURL = AttrVal( $name, "m3uFileURL", "unknown" );
|
|
|
|
# if no URL and no local file defined, then try to build the correct URL
|
|
if ( $m3uFileURL eq "unknown" && AttrVal( $name, "m3uFileLocal", "" ) eq "" ) {
|
|
|
|
# Getting IP of FHEM host
|
|
FRITZBOX_Log $hash, 4, "DEBUG: Try to get my IP address.";
|
|
my $socket = IO::Socket::INET->new( Proto => 'tcp', PeerAddr => $host, PeerPort => 'http(80)' );
|
|
my $ip;
|
|
$ip = $socket->sockhost if $socket; #A side-effect of making a socket connection is that our IP address is available from the 'sockhost' method
|
|
FRITZBOX_Log $hash, 3, "INFO: Could not determine my ip address" unless $ip;
|
|
|
|
# Get a web port
|
|
my $port;
|
|
FRITZBOX_Log $hash, 4, "DEBUG: Try to get a FHEMWEB port.";
|
|
|
|
foreach( keys %defs ) {
|
|
if ( $defs{$_}->{TYPE} eq "FHEMWEB" && !defined $defs{$_}->{TEMPORARY} && defined $defs{$_}->{PORT} ) {
|
|
$port = $defs{$_}->{PORT};
|
|
last;
|
|
}
|
|
}
|
|
|
|
FRITZBOX_Log $hash, 3, "INFO: Could not find a FHEMWEB device." unless $port;
|
|
if (defined $ip && defined $port) {
|
|
$m3uFileURL = "http://$ip:$port/fhem/www/images/$name.m3u";
|
|
}
|
|
}
|
|
|
|
# Check if m3u can be accessed
|
|
unless ( $m3uFileURL eq "unknown" ) {
|
|
FRITZBOX_Log $hash, 4, "DEBUG: Try to get '$m3uFileURL'";
|
|
$response = $agent->get( $m3uFileURL );
|
|
if ($response->is_error) {
|
|
FRITZBOX_Log $hash, 3, "ERROR: Failed to get '$m3uFileURL': ".$response->status_line;
|
|
$m3uFileURL = "unknown" ;
|
|
}
|
|
}
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "->M3U_URL", $m3uFileURL;
|
|
}
|
|
else {
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "->M3U_LOCAL", "undefined";
|
|
FRITZBOX_Log $hash, 2, "ERROR: Cannot create save file '$m3uFileLocal' because $!\n";
|
|
}
|
|
}
|
|
|
|
# Box model per jason
|
|
FRITZBOX_Log $hash, 5, "DEBUG: Read 'jason_boxinfo'";
|
|
my $url = "http://" . $host . "/jason_boxinfo.xml";
|
|
|
|
$response = $agent->get( $url );
|
|
my $content = $response->content;
|
|
my $fwVersion = "0.0.0.error";
|
|
|
|
if ($content =~ /<j:Name>/) {
|
|
FRITZBOX_Log $hash, 5, "DEBUG: jason_boxinfo returned: $content";
|
|
|
|
FRITZBOX_Readout_Add_Reading ($hash, \@roReadings, "box_model", $1) if $content =~ /<j:Name>(.*)<\/j:Name>/;
|
|
FRITZBOX_Readout_Add_Reading ($hash, \@roReadings, "box_oem", $1) if $content =~ /<j:OEM>(.*)<\/j:OEM>/;
|
|
FRITZBOX_Readout_Add_Reading ($hash, \@roReadings, "box_fwVersion", $1) if $content =~ /<j:Version>(.*)<\/j:Version>/ ;
|
|
$fwVersion = $1 if $content =~ /<j:Version>(.*)<\/j:Version>/ ;
|
|
|
|
} else {
|
|
# Ansonsten Box-Model per system_status einlesen
|
|
# Muss nochmal neu gesetzt werden, sonst gibt es einen Fehler (keine Ahnung warum)
|
|
$agent = LWP::UserAgent->new( env_proxy => 1, keep_alive => 1, protocols_allowed => ['http'], timeout => 10);
|
|
$url = "http://".$host."/cgi-bin/system_status";
|
|
FRITZBOX_Log $hash, 5, "DEBUG: Read 'system_status'";
|
|
|
|
$response = $agent->get( $url );
|
|
$content = $response->content;
|
|
FRITZBOX_Log $hash, 5, "DEBUG: system_status returned: $content";
|
|
if ($response->is_success) {
|
|
$content=$1 if $content =~ /<body>(.*)<\/body>/;
|
|
|
|
my @result = split /-/, $content;
|
|
# http://www.tipps-tricks-kniffe.de/fritzbox-wie-lange-ist-die-box-schon-gelaufen/
|
|
# FRITZ!Box 7590 (UI)-B-132811-010030-XXXXXX-XXXXXX-787902-1540750-101716-1und1
|
|
# 0 FritzBox-Modell
|
|
# 1 Annex/Erweiterte Kennzeichnung
|
|
# 2 Gesamtlaufzeit der Box in Stunden, Tage, Monate
|
|
# 3 Gesamtlaufzeit der Box in Jahre, Anzahl der Neustarts
|
|
# 4+5 Hashcode
|
|
# 6 Status
|
|
# 7 Firmwareversion
|
|
# 8 Sub-Version/Unterversion der Firmware
|
|
# 9 Branding, z.B. 1und1 (Provider 1&1) oder avm (direkt von AVM)
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "box_model", $result[0];
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "box_fwVersion", $result[7];
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "box_oem", $result[9];
|
|
$fwVersion = $result[7];
|
|
|
|
} else {
|
|
FRITZBOX_Log $hash, 2, "ERROR: " . $response->status_line;
|
|
}
|
|
}
|
|
}
|
|
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "->APICHECKED", 1;
|
|
|
|
push @roReadings, "readoutTime", sprintf( "%.2f", time()-$startTime);
|
|
my $returnStr = join('|', @roReadings );
|
|
|
|
FRITZBOX_Log $hash, 4, "INFO: Captured " . @roReadings . " values";
|
|
FRITZBOX_Log $hash, 5, "DEBUG: Handover to main process (" . length ($returnStr) . "): " . $returnStr;
|
|
|
|
return $name."|".encode_base64($returnStr,"");
|
|
|
|
} #end FRITZBOX_API_Check_Run
|
|
|
|
# Starts the data capturing via query.lua and sets the new timer
|
|
#######################################################################
|
|
sub FRITZBOX_Readout_Run_Web($)
|
|
{
|
|
my ($name) = @_;
|
|
my $hash = $defs{$name};
|
|
|
|
my $result;
|
|
my $rName;
|
|
my @roReadings;
|
|
my %dectFonID;
|
|
my %fonFonID;
|
|
my %devID;
|
|
my %resultHash;
|
|
my $startTime = time();
|
|
my $runNo;
|
|
my $sid;
|
|
my $host = $hash->{HOST};
|
|
my $Tag;
|
|
my $Std;
|
|
my $Min;
|
|
my $Sek;
|
|
|
|
my $views;
|
|
my $nbViews;
|
|
|
|
my $avmModel = InternalVal($name, "MODEL", "FRITZ!Box");
|
|
my @fwV = split(/\./, ReadingsVal($name, "box_fwVersion", "0.0.0.error"));
|
|
|
|
my $FW1 = substr($fwV[1],0,2);
|
|
my $FW2 = substr($fwV[2],0,2);
|
|
|
|
my $mesh = ReadingsVal($name, "box_meshRole", "master");
|
|
|
|
my @webCmdArray;
|
|
my $resultData;
|
|
my $tmpData;
|
|
|
|
#Start update
|
|
FRITZBOX_Log $hash, 4, "INFO: Prepare query string for luaQuery.";
|
|
|
|
my $queryStr = "&radio=configd:settings/WEBRADIO/list(Name)"; # Webradio
|
|
#queryStr .= "&box_dectRingTone=dect:settings/ServerRingtone/list(UID,Name)"; #settings/LastSetServerRingtoneState
|
|
#queryStr .= "&box_dectNightTime=dect:settings/NightTime";
|
|
$queryStr .= "&box_dect=dect:settings/enabled"; # DECT Sender
|
|
$queryStr .= "&handsetCount=dect:settings/Handset/count"; # Anzahl Handsets
|
|
$queryStr .= "&handset=dect:settings/Handset/list(User,Manufacturer,Model,FWVersion,Productname)"; # DECT Handsets
|
|
$queryStr .= "&wlanList=wlan:settings/wlanlist/list(mac,speed,speed_rx,rssi,is_guest)"; # WLAN devices
|
|
$queryStr .= "&wlanListNew=wlan:settings/wlanlist/list(mac,speed,rssi)"; # WLAN devices fw>=6.69
|
|
|
|
#wlan:settings/wlanlist/list(hostname,mac,UID,state,rssi,quality,is_turbo,cipher,wmm_active,powersave,is_ap,ap_state,is_repeater,flags,flags_set,mode,is_guest,speed,speed_rx,channel_width,streams) #wlan:settings/wlanlist/list(hostname,mac,UID,state,rssi,quality,is_turbo,wmm_active,cipher,powersave,is_repeater,flags,flags_set,mode,is_guest,speed,speed_rx,speed_rx_max,speed_tx_max,channel_width,streams,mu_mimo_group,is_fail_client)
|
|
#$queryStr .= "&lanDevice=landevice:settings/landevice/list(mac,ip,ethernet,ethernet_port,guest,name,active,online,wlan,speed,UID)"; # LAN devices
|
|
|
|
$queryStr .= "&lanDevice=landevice:settings/landevice/list(mac,ip,ethernet,ethernet_port,ethernetport,guest,name,active,online,wlan,speed,UID)"; # LAN devices
|
|
$queryStr .= "&lanDeviceNew=landevice:settings/landevice/list(mac,ip,ethernet,guest,name,active,online,wlan,speed,UID)"; # LAN devices fw>=6.69
|
|
|
|
#landevice:settings/landevice/list(name,ip,mac,UID,dhcp,wlan,ethernet,active,static_dhcp,manu_name,wakeup,deleteable,source,online,speed,wlan_UIDs,auto_wakeup,guest,url,wlan_station_type,vendorname)
|
|
#landevice:settings/landevice/list(name,ip,mac,parentname,parentuid,ethernet_port,wlan_show_in_monitor,plc,ipv6_ifid,parental_control_abuse,plc_UIDs) #landevice:settings/landevice/list(name,ip,mac,UID,dhcp,wlan,ethernet,active,static_dhcp,manu_name,wakeup,deleteable,source,online,speed,wlan_UIDs,auto_wakeup,guest,url,wlan_station_type,vendorname,parentname,parentuid,ethernet_port,wlan_show_in_monitor,plc,ipv6_ifid,parental_control_abuse,plc_UIDs)
|
|
|
|
$queryStr .= "&init=telcfg:settings/Foncontrol"; # Init
|
|
$queryStr .= "&box_stdDialPort=telcfg:settings/DialPort"; #Dial Port
|
|
|
|
# unless (AttrVal( $name, "disableDectInfo", "0")) {
|
|
$queryStr .= "&dectUser=telcfg:settings/Foncontrol/User/list(Id,Name,Intern,IntRingTone,AlarmRingTone0,RadioRingID,ImagePath,G722RingTone,G722RingToneName,NoRingTime,RingAllowed,NoRingTimeFlags,NoRingWithNightSetting)"; # DECT Numbers
|
|
# }
|
|
|
|
unless (AttrVal( $name, "disableFonInfo", "0")) {
|
|
$queryStr .= "&fonPort=telcfg:settings/MSN/Port/list(Name,MSN)"; # Fon ports
|
|
}
|
|
|
|
if (AttrVal( $name, "enableAlarmInfo", "0")) {
|
|
$queryStr .= "&alarmClock=telcfg:settings/AlarmClock/list(Name,Active,Time,Number,Weekdays)"; # Alarm Clock
|
|
}
|
|
|
|
# $queryStr .= "&ringGender=telcfg:settings/VoiceRingtoneGender"; # >= 7.39
|
|
|
|
$queryStr .= "&diversity=telcfg:settings/Diversity/list(MSN,Active,Destination)"; # Diversity (Rufumleitung)
|
|
$queryStr .= "&box_moh=telcfg:settings/MOHType"; # Music on Hold
|
|
$queryStr .= "&box_uptimeHours=uimodlogic:status/uptime_hours"; # hours
|
|
$queryStr .= "&box_uptimeMinutes=uimodlogic:status/uptime_minutes"; # hours
|
|
$queryStr .= "&box_fwVersion=logic:status/nspver"; # FW Version #uimodlogic:status/nspver
|
|
$queryStr .= "&box_fwVersion_neu=uimodlogic:status/nspver"; # FW Version
|
|
$queryStr .= "&box_powerRate=power:status/rate_sumact"; # Power Rate
|
|
$queryStr .= "&tam=tam:settings/TAM/list(Name,Display,Active,NumNewMessages,NumOldMessages)"; # TAM
|
|
$queryStr .= "&box_cpuTemp=power:status/act_temperature"; # Box CPU Temperatur
|
|
|
|
#$queryStr .= "&box_ipv4_Extern=connection0:status/ip"; # Externe IP-Adresse
|
|
#$queryStr .= "&box_connect=connection0:status/connect"; # Internet connection state
|
|
|
|
$queryStr .= "&box_tr064=tr064:settings/enabled"; # TR064
|
|
$queryStr .= "&box_tr069=tr069:settings/enabled"; # TR069
|
|
$queryStr .= "&box_upnp=box:settings/upnp_activated"; #UPNP
|
|
$queryStr .= "&box_upnpCtrl=box:settings/upnp_control_activated";
|
|
$queryStr .= "&box_fwUpdate=updatecheck:status/update_available_hint";
|
|
|
|
if (AttrVal( $name, "enableUserInfo", "0")) {
|
|
$queryStr .= "&userProfil=user:settings/user/list(name,filter_profile_UID,this_month_time,today_time,type)"; # User profiles
|
|
$queryStr .= "&userProfilNew=user:settings/user/list(name,type)"; # User profiles fw>=6.69
|
|
}
|
|
|
|
$queryStr .= "&is_double_wlan=wlan:settings/feature_flags/DBDC"; # Box Feature
|
|
$queryStr .= "&box_wlan_24GHz=wlan:settings/ap_enabled"; # WLAN
|
|
$queryStr .= "&box_wlan_5GHz=wlan:settings/ap_enabled_scnd"; # 2nd WLAN
|
|
$queryStr .= "&box_guestWlan=wlan:settings/guest_ap_enabled"; # Gäste WLAN
|
|
$queryStr .= "&box_guestWlanRemain=wlan:settings/guest_time_remain";
|
|
$queryStr .= "&box_macFilter_active=wlan:settings/is_macfilter_active";
|
|
$queryStr .= "&TodayBytesReceivedHigh=inetstat:status/Today/BytesReceivedHigh";
|
|
$queryStr .= "&TodayBytesReceivedLow=inetstat:status/Today/BytesReceivedLow";
|
|
$queryStr .= "&TodayBytesSentHigh=inetstat:status/Today/BytesSentHigh";
|
|
$queryStr .= "&TodayBytesSentLow=inetstat:status/Today/BytesSentLow";
|
|
$queryStr .= "&GSM_RSSI=gsm:settings/RSSI";
|
|
$queryStr .= "&GSM_NetworkState=gsm:settings/NetworkState";
|
|
$queryStr .= "&GSM_AcT=gsm:settings/AcT";
|
|
$queryStr .= "&UMTS_enabled=umts:settings/enabled";
|
|
$queryStr .= "&userTicket=userticket:settings/ticket/list(id)";
|
|
|
|
if ($mesh ne "slave") {
|
|
$queryStr .= "&dslStatGlobalIn=dslstatglobal:status/in";
|
|
$queryStr .= "&dslStatGlobalOut=dslstatglobal:status/out";
|
|
}
|
|
|
|
if (ReadingsNum($name, "box_model", "3490") ne "3490" && AttrVal( $name, "enableSIP", "0")) {
|
|
$queryStr .= "&sip_info=sip:settings/sip/list(activated,displayname,connect)";
|
|
}
|
|
|
|
if (AttrVal( $name, "enableVPNShares", "0")) {
|
|
$queryStr .= "&vpn_info=vpn:settings/connection/list(remote_ip,activated,name,state,access_type,connected_since)";
|
|
}
|
|
|
|
# $queryStr .= "&GSM_MaxUL=gsm:settings/MaxUL";
|
|
# $queryStr .= "&GSM_MaxDL=gsm:settings/MaxDL";
|
|
# $queryStr .= "&GSM_CurrentUL=gsm:settings/CurrentUL";
|
|
# $queryStr .= "&GSM_CurrentDL=gsm:settings/CurrentDL";
|
|
# $queryStr .= "&GSM_Established=gsm:settings/Established";
|
|
# $queryStr .= "&GSM_BER=gsm:settings/BER";
|
|
# $queryStr .= "&GSM_Manufacturer=gsm:settings/Manufacturer";
|
|
# $queryStr .= "&GSM_Model=gsm:settings/Model";
|
|
# $queryStr .= "&GSM_Operator=gsm:settings/Operator";
|
|
# $queryStr .= "&GSM_PIN_State=gsm:settings/PIN_State";
|
|
# $queryStr .= "&GSM_Trycount=gsm:settings/Trycount";
|
|
# $queryStr .= "&GSM_ModemPresent=gsm:settings/ModemPresent";
|
|
# $queryStr .= "&GSM_AllowRoaming=gsm:settings/AllowRoaming";
|
|
# $queryStr .= "&GSM_VoiceStatus=gsm:settings/VoiceStatus";
|
|
# $queryStr .= "&GSM_SubscriberNumber=gsm:settings/SubscriberNumber";
|
|
# $queryStr .= "&GSM_InHomeZone=gsm:settings/InHomeZone";
|
|
# $queryStr .= "&UMTS_enabled=umts:settings/enabled";
|
|
# $queryStr .= "&UMTS_name=umts:settings/name";
|
|
# $queryStr .= "&UMTS_provider=umts:settings/provider";
|
|
# $queryStr .= "&UMTS_idle=umts:settings/idle";
|
|
# $queryStr .= "&UMTS_backup_enable=umts:settings/backup_enable";
|
|
# $queryStr .= "&UMTS_backup_downtime=umts:settings/backup_downtime";
|
|
# $queryStr .= "&UMTS_backup_reverttime=umts:settings/backup_reverttime";
|
|
|
|
FRITZBOX_Log $hash, 4, "ReadOut gestartet: $queryStr";
|
|
$result = FRITZBOX_Web_Query( $hash, $queryStr, "", "luaQuery") ;
|
|
|
|
# Abbruch wenn Fehler beim Lesen der Fritzbox-Antwort
|
|
if ( defined $result->{Error} ) {
|
|
FRITZBOX_Log $hash, 4, "INFO: ".$result->{Error};
|
|
my $returnStr = "Error|" . $result->{Error};
|
|
$returnStr .= "|fhem->sidTime|0" if defined $result->{ResetSID};
|
|
$returnStr .= "|" . join('|', @roReadings ) if int @roReadings;
|
|
return $name."|".encode_base64($returnStr,"");
|
|
}
|
|
|
|
if ( defined $result->{AuthorizationRequired} ) {
|
|
FRITZBOX_Log $hash, 4, "INFO: AuthorizationRequired=".$result->{AuthorizationRequired};
|
|
my $returnStr = "Error|Authorization required";
|
|
$returnStr .= "|fhem->sidTime|0" if defined $result->{ResetSID};
|
|
$returnStr .= "|" . join('|', @roReadings ) if int @roReadings;
|
|
return $name."|".encode_base64($returnStr,"");
|
|
}
|
|
|
|
# !!! copes with fw >=6.69 and fw < 7 !!!
|
|
if ( ref $result->{wlanList} ne 'ARRAY' ) {
|
|
FRITZBOX_Log $hash, 4, "INFO: Recognized query answer of firmware >=6.69 and < 7";
|
|
my $result2;
|
|
my $newQueryPart;
|
|
|
|
# gets WLAN speed for fw>=6.69 and < 7
|
|
$queryStr="";
|
|
foreach ( @{ $result->{wlanListNew} } ) {
|
|
$newQueryPart = "&".$_->{_node}."=wlan:settings/".$_->{_node}."/speed_rx";
|
|
if (length($queryStr.$newQueryPart) < 4050) {
|
|
$queryStr .= $newQueryPart;
|
|
}
|
|
else {
|
|
$result2 = FRITZBOX_Web_Query( $hash, $queryStr );
|
|
%{$result} = ( %{$result}, %{$result2 } );
|
|
$queryStr = $newQueryPart;
|
|
}
|
|
}
|
|
|
|
# gets LAN-Port for fw>=6.69 and fw<7
|
|
foreach ( @{ $result->{lanDeviceNew} } ) {
|
|
$newQueryPart = "&".$_->{_node}."=landevice:settings/".$_->{_node}."/ethernet_port";
|
|
if (length($queryStr.$newQueryPart) < 4050) {
|
|
$queryStr .= $newQueryPart;
|
|
}
|
|
else {
|
|
$result2 = FRITZBOX_Web_Query( $hash, $queryStr );
|
|
%{$result} = ( %{$result}, %{$result2 } );
|
|
$queryStr = $newQueryPart;
|
|
}
|
|
}
|
|
|
|
# get missing user-fields for fw>=6.69
|
|
foreach ( @{ $result->{userProfilNew} } ) {
|
|
$newQueryPart = "&".$_->{_node}."_filter=user:settings/".$_->{_node}."/filter_profile_UID";
|
|
$newQueryPart .= "&".$_->{_node}."_month=user:settings/".$_->{_node}."/this_month_time";
|
|
$newQueryPart .= "&".$_->{_node}."_today=user:settings/".$_->{_node}."/today_time";
|
|
if (length($queryStr.$newQueryPart) < 4050) {
|
|
$queryStr .= $newQueryPart;
|
|
}
|
|
else {
|
|
$result2 = FRITZBOX_Web_Query( $hash, $queryStr );
|
|
%{$result} = ( %{$result}, %{$result2 } );
|
|
$queryStr = $newQueryPart;
|
|
}
|
|
}
|
|
|
|
# Final Web-Query
|
|
$result2 = FRITZBOX_Web_Query( $hash, $queryStr );
|
|
%{$result} = ( %{$result}, %{$result2 } );
|
|
|
|
# create fields for wlanList-Entries (for fw 6.69)
|
|
$result->{wlanList} = $result->{wlanListNew};
|
|
foreach ( @{ $result->{wlanList} } ) {
|
|
$_->{speed_rx} = $result->{ $_->{_node} };
|
|
}
|
|
|
|
# Create fields for lanDevice-Entries (for fw 6.69)
|
|
$result->{lanDevice} = $result->{lanDeviceNew};
|
|
foreach ( @{ $result->{lanDevice} } ) {
|
|
$_->{ethernet_port} = $result->{ $_->{_node} };
|
|
}
|
|
|
|
# Create fields for user-Entries (for fw 6.69)
|
|
$result->{userProfil} = $result->{userProfilNew};
|
|
foreach ( @{ $result->{userProfil} } ) {
|
|
$_->{filter_profile_UID} = $result->{ $_->{_node}."_filter" };
|
|
$_->{this_month_time} = $result->{ $_->{_node}."_month" };
|
|
$_->{today_time} = $result->{ $_->{_node}."_today" };
|
|
}
|
|
}
|
|
|
|
# Dect-Geräteliste erstellen
|
|
|
|
my %oldDECTDevice;
|
|
|
|
#collect current dect-readings (to delete the ones that are inactive or disappeared)
|
|
foreach (keys %{ $hash->{READINGS} }) {
|
|
$oldDECTDevice{$_} = $hash->{READINGS}{$_}{VAL} if $_ =~ /^dect(\d+)_|^dect(\d+)/ && defined $hash->{READINGS}{$_}{VAL};
|
|
}
|
|
|
|
my $noDect = AttrVal( $name, "disableDectInfo", "0");
|
|
if ( $result->{handsetCount} =~ /[1-9]/ ) {
|
|
$runNo = 0;
|
|
foreach ( @{ $result->{dectUser} } ) {
|
|
my $intern = $_->{Intern};
|
|
my $name = $_->{Name};
|
|
my $id = $_->{Id};
|
|
if ($intern) {
|
|
unless ($noDect) {
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "dect".$runNo, $_->{Name} ;
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "dect".$runNo."_intern", $intern ;
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "dect".$runNo."_alarmRingTone", $_->{AlarmRingTone0}, "ringtone" ;
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "dect".$runNo."_intRingTone", $_->{IntRingTone}, "ringtone" ;
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "dect".$runNo."_radio", $_->{RadioRingID}, "radio" ;
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "dect".$runNo."_custRingTone", $_->{G722RingTone} ;
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "dect".$runNo."_custRingToneName", $_->{G722RingToneName} ;
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "dect".$runNo."_imagePath", $_->{ImagePath} ;
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "dect".$runNo."_NoRingWithNightSetting", $_->{NoRingWithNightSetting}, "onoff";
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "dect".$runNo."_NoRingTimeFlags" , $_->{NoRingTimeFlags};
|
|
|
|
# telcfg:settings/Foncontrol/User/list(Name,NoRingTime,RingAllowed,NoRingTimeFlags,NoRingWithNightSetting)
|
|
if ($_->{NoRingTime}) {
|
|
my $notAllowed;
|
|
if($_->{RingAllowed} eq "1") {
|
|
$notAllowed = "Mo-So";
|
|
} elsif($_->{RingAllowed} eq "2") {
|
|
$notAllowed = "Mo-Fr 00:00-24:00 Sa-So";
|
|
} elsif($_->{RingAllowed} eq "3") {
|
|
$notAllowed = "Sa-So 00:00-24:00 Mo-Fr";
|
|
} elsif($_->{RingAllowed} eq "4" || $_->{RingAllowed} eq "2") {
|
|
$notAllowed = "Sa-So";
|
|
} elsif($_->{RingAllowed} eq "5" || $_->{RingAllowed} eq "3") {
|
|
$notAllowed = "Mo-Fr";
|
|
}
|
|
|
|
my $NoRingTime = $_->{NoRingTime};
|
|
substr($NoRingTime, 2, 0) = ":";
|
|
substr($NoRingTime, 5, 0) = "-";
|
|
substr($NoRingTime, 8, 0) = ":";
|
|
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "dect".$runNo."_NoRingTime", $notAllowed . " " . $NoRingTime;
|
|
} else {
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "dect".$runNo."_NoRingTime", "not defined";
|
|
}
|
|
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "fhem->$intern->id", $id ;
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "fhem->$intern->userId", $runNo;
|
|
}
|
|
$dectFonID{$id}{Intern} = $intern;
|
|
$dectFonID{$id}{User} = $runNo;
|
|
$dectFonID{$name} = $runNo;
|
|
|
|
foreach (keys %oldDECTDevice) {
|
|
delete $oldDECTDevice{$_} if $_ =~ /^dect${runNo}_|^dect${runNo}/ && defined $oldDECTDevice{$_};
|
|
}
|
|
FRITZBOX_Log $hash, 5, "INFO: dect: $name, $runNo";
|
|
|
|
}
|
|
$runNo++;
|
|
}
|
|
|
|
# Handset der internen Nummer zuordnen
|
|
unless ($noDect) {
|
|
foreach ( @{ $result->{handset} } ) {
|
|
my $dectUserID = $_->{User};
|
|
next if defined $dectUserID eq "";
|
|
my $dectUser = $dectFonID{$dectUserID}{User};
|
|
my $intern = $dectFonID{$dectUserID}{Intern};
|
|
|
|
if ($dectUser) {
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "dect".$dectUser."_manufacturer", $_->{Manufacturer};
|
|
# FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "dect".$dectUser."_model", $_->{Model}, "model";
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "dect".$dectUser."_model", $_->{Productname};
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "dect".$dectUser."_fwVersion", $_->{FWVersion};
|
|
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "fhem->$intern->brand", $_->{Manufacturer};
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "fhem->$intern->model", $_->{Model}, "model";
|
|
}
|
|
}
|
|
}
|
|
|
|
# Remove inactive or non existing sip-readings in two steps
|
|
foreach ( keys %oldDECTDevice) {
|
|
# set the sip readings to 'inactive' and delete at next readout
|
|
if ( $oldDECTDevice{$_} ne "inactive" ) {
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, $_, "inactive";
|
|
} else {
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, $_, "";
|
|
}
|
|
}
|
|
}
|
|
|
|
# Analog Fons Name
|
|
unless (AttrVal( $name, "disableFonInfo", "0")) {
|
|
$runNo=1;
|
|
foreach ( @{ $result->{fonPort} } ) {
|
|
if ( $_->{Name} )
|
|
{
|
|
my $name = $_->{Name};
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "fon".$runNo, $_->{Name};
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "fon".$runNo."_out", $_->{MSN};
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "fon".$runNo."_intern", $runNo;
|
|
$fonFonID{$name} = $runNo;
|
|
}
|
|
$runNo++;
|
|
}
|
|
}
|
|
|
|
if ( (($FW1 ==6 && $FW2 >= 80) || ($FW1 >= 7 && $FW2) >= 21) && $hash->{LUADATA} == 1) {
|
|
|
|
#-------------------------------------------------------------------------------------
|
|
# Getting phone WakeUpCall Device Nr
|
|
|
|
# xhr 1 lang de page alarm xhrId all
|
|
@webCmdArray = ();
|
|
push @webCmdArray, "xhr" => "1";
|
|
push @webCmdArray, "lang" => "de";
|
|
push @webCmdArray, "page" => "alarm";
|
|
push @webCmdArray, "xhrId" => "all";
|
|
|
|
$resultData = FRITZBOX_Function_Lua($hash, "data", \@webCmdArray) ;
|
|
|
|
if(defined $resultData->{Error}) {
|
|
$tmpData = FRITZBOX_ERR_Result($hash, $resultData);
|
|
FRITZBOX_Log $hash, 3, $tmpData;
|
|
} else {
|
|
|
|
FRITZBOX_Log $hash, 5, "DEBUG: \n" . Dumper ($resultData->{data});
|
|
|
|
$nbViews = 0;
|
|
if (defined $resultData->{data}->{phonoptions}) {
|
|
$views = $resultData->{data}->{phonoptions};
|
|
$nbViews = scalar @$views;
|
|
}
|
|
|
|
my $devname;
|
|
my $device;
|
|
|
|
if ($nbViews > 0) {
|
|
|
|
# proof on redundant phone names
|
|
eval {
|
|
for(my $i = 0; $i <= $nbViews - 1; $i++) {
|
|
$devname = $resultData->{data}->{phonoptions}->[$i]->{text};
|
|
$device = $resultData->{data}->{phonoptions}->[$i]->{value};
|
|
|
|
if ($devID{$devname}) {
|
|
my $defNewName = $devname . "[" . $devID{$devname} ."] redundant name in FB:" . $devname;
|
|
$devID{$defNewName} = $devID{$devname};
|
|
$devID{$devname} = "";
|
|
$defNewName = $devname . "[" . $device ."] redundant name in FB:" . $devname;
|
|
$devID{$defNewName} = $device;
|
|
} else {
|
|
$devID{$devname} = $device;
|
|
}
|
|
}
|
|
};
|
|
|
|
my $fonDisable = AttrVal( $name, "disableFonInfo", "0");
|
|
my $dectDisable = AttrVal( $name, "disableDectInfo", "0");
|
|
|
|
for(keys %devID) {
|
|
|
|
next if $devID{$_} eq "";
|
|
$devname = $_;
|
|
$device = $devID{$_};
|
|
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "dect".$dectFonID{$devname}."_device", $device if $dectFonID{$devname} && !$dectDisable;
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "fon".$fonFonID{$devname}."_device", $device if $fonFonID{$devname} && !$fonDisable;
|
|
|
|
if (!$fonFonID{$devname} && !$dectFonID{$devname} && !$fonDisable) {
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "fon".$device, $devname ;
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "fon".$device."_device", $device ;
|
|
}
|
|
|
|
my $fd_devname = "fdn_" . $devname;
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "fhem->$fd_devname", $device;
|
|
my $fd_device = "fd_" . $device;
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "fhem->$fd_device", $devname;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
# Internetradioliste erzeugen
|
|
$runNo = 0;
|
|
$rName = "radio00";
|
|
foreach ( @{ $result->{radio} } ) {
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, $rName, $_->{Name};
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "fhem->radio->".$runNo, $_->{Name};
|
|
$runNo++;
|
|
$rName = sprintf ("radio%02d",$runNo);
|
|
}
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "fhem->radioCount", $runNo;
|
|
|
|
# SIP Lines
|
|
my $boxModel = ReadingsNum($name, "box_model", "3490");
|
|
FRITZBOX_Log $hash, 4, "INFO: sip for box-model: " . $boxModel;
|
|
|
|
if ($boxModel ne "3490" && AttrVal( $name, "enableSIP", "0")) {
|
|
|
|
my $sip_in_error = 0;
|
|
my $sip_active = 0;
|
|
my $sip_inactive = 0;
|
|
my %oldSIPDevice;
|
|
|
|
#collect current sip-readings (to delete the ones that are inactive or disappeared)
|
|
foreach (keys %{ $hash->{READINGS} }) {
|
|
$oldSIPDevice{$_} = $hash->{READINGS}{$_}{VAL} if $_ =~ /^sip(\d+)_/ && defined $hash->{READINGS}{$_}{VAL};
|
|
}
|
|
|
|
foreach ( @{ $result->{sip_info} } ) {
|
|
FRITZBOX_Log $hash, 4, "INFO: sip->info: " . $_->{_node} . ": " . $_->{activated};
|
|
|
|
my $rName = $_->{_node} . "_" . $_->{displayname};
|
|
$rName =~ s/\+/00/g;
|
|
|
|
if ($_->{activated} == 1) { # sip activated und registriert
|
|
|
|
if ($_->{connect} == 2) { # sip activated und registriert
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, $rName, "active";
|
|
delete $oldSIPDevice{$rName} if exists $oldSIPDevice{$rName};
|
|
$sip_active ++;
|
|
FRITZBOX_Log $hash, 4, "INFO: $rName -> registration ok";
|
|
}
|
|
if ($_->{connect} == 0) { # sip not activated
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, $rName, "inactive";
|
|
delete $oldSIPDevice{$rName} if exists $oldSIPDevice{$rName};
|
|
$sip_inactive ++;
|
|
FRITZBOX_Log $hash, 4, "INFO: $rName -> not active";
|
|
}
|
|
if ($_->{connect} == 1) { # error condition for aktivated and unregistrated sips
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, $rName, "not registered";
|
|
delete $oldSIPDevice{$rName} if exists $oldSIPDevice{$rName};
|
|
$sip_in_error++;
|
|
FRITZBOX_Log $hash, 2, "INFO: $rName -> not registered";
|
|
}
|
|
} else {
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, $rName, "not in use";
|
|
delete $oldSIPDevice{$rName} if exists $oldSIPDevice{$rName};
|
|
FRITZBOX_Log $hash, 4, "INFO: $rName -> not in use";
|
|
}
|
|
|
|
delete $oldSIPDevice{$rName} if exists $oldSIPDevice{$rName};
|
|
|
|
}
|
|
|
|
# Remove inactive or non existing sip-readings in two steps
|
|
foreach ( keys %oldSIPDevice) {
|
|
# set the sip readings to 'inactive' and delete at next readout
|
|
if ( $oldSIPDevice{$_} ne "inactive" ) {
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, $_, "inactive";
|
|
} else {
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, $_, "";
|
|
}
|
|
}
|
|
|
|
FRITZBOX_Log $hash, 4, "INFO: end";
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "sip_error", $sip_in_error;
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "sip_active", $sip_active;
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "sip_inactive", $sip_inactive;
|
|
|
|
} # end ($boxModel ne "3490")
|
|
|
|
# VPN shares
|
|
|
|
if ( AttrVal( $name, "enableVPNShares", "0")) {
|
|
my %oldVPNDevice;
|
|
#collect current vpn-readings (to delete the ones that are inactive or disappeared)
|
|
foreach (keys %{ $hash->{READINGS} }) {
|
|
$oldVPNDevice{$_} = $hash->{READINGS}{$_}{VAL} if $_ =~ /^vpn(\d+)/ && defined $hash->{READINGS}{$_}{VAL};
|
|
}
|
|
|
|
# 09128734qwe
|
|
# vpn:settings/connection/list(remote_ip,activated,name,state,access_type,connected_since)
|
|
|
|
foreach ( @{ $result->{vpn_info} } ) {
|
|
$_->{_node} =~ m/(\d+)/;
|
|
$rName = "vpn" . $1;
|
|
|
|
FRITZBOX_Log $hash, 4, "INFO: vpn->info: $rName " . $_->{_node} . ": " . $_->{activated} . ": " . $_->{state};
|
|
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, $rName, $_->{name};
|
|
delete $oldVPNDevice{$rName} if exists $oldVPNDevice{$rName};
|
|
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, $rName . "_access_type", "Corp VPN" if $_->{access_type} == 1;
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, $rName . "_access_type", "User VPN" if $_->{access_type} == 2;
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, $rName . "_access_type", "Lan2Lan VPN" if $_->{access_type} == 3;
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, $rName . "_access_type", "Wireguard Simple" if $_->{access_type} == 4;
|
|
delete $oldVPNDevice{$rName . "_access_type"} if exists $oldVPNDevice{$rName . "_access_type"};
|
|
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, $rName . "_remote_ip", $_->{remote_ip} eq "" ? "....":$_->{remote_ip};
|
|
delete $oldVPNDevice{$rName . "_remote_ip"} if exists $oldVPNDevice{$rName . "_remote_ip"};
|
|
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, $rName . "_activated", $_->{activated};
|
|
delete $oldVPNDevice{$rName . "_activated"} if exists $oldVPNDevice{$rName . "_activated"};
|
|
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, $rName . "_state", $_->{state} eq "" ? "none":$_->{state};
|
|
delete $oldVPNDevice{$rName . "_state"} if exists $oldVPNDevice{$rName . "_state"};
|
|
|
|
if ($_->{access_type} <= 3) {
|
|
if ($_->{connected_since} == 0) {
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, $rName . "_connected_since", "none";
|
|
} else {
|
|
$Sek = $_->{connected_since};
|
|
|
|
$Tag = int($Sek/86400);
|
|
$Std = int(($Sek/3600)-(24*$Tag));
|
|
$Min = int(($Sek/60)-($Std*60)-(1440*$Tag));
|
|
$Sek -= (($Min*60)+($Std*3600)+(86400*$Tag));
|
|
|
|
$Std = substr("0".$Std,-2);
|
|
$Min = substr("0".$Min,-2);
|
|
$Sek = substr("0".$Sek,-2);
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, $rName . "_connected_since", $_->{connected_since} . " sec = " . $Tag . "T $Std:$Min:$Sek";
|
|
}
|
|
delete $oldVPNDevice{$rName . "_connected_since"} if exists $oldVPNDevice{$rName . "_connected_since"};
|
|
} else {
|
|
if ($_->{connected_since} == 0) {
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, $rName . "_last_negotiation", "none";
|
|
} else {
|
|
$Sek = (int(time) - $_->{connected_since});
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, $rName . "_last_negotiation", (strftime "%d-%m-%Y %H:%M:%S", localtime($_->{connected_since}));
|
|
}
|
|
delete $oldVPNDevice{$rName . "_last_negotiation"} if exists $oldVPNDevice{$rName . "_last_negotiation"};
|
|
}
|
|
|
|
}
|
|
|
|
# Remove inactive or non existing vpn-readings in two steps
|
|
foreach ( keys %oldVPNDevice) {
|
|
# set the vpn readings to 'inactive' and delete at next readout
|
|
if ( $oldVPNDevice{$_} ne "inactive" ) {
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, $_, "inactive";
|
|
}
|
|
else {
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, $_, "";
|
|
}
|
|
}
|
|
}
|
|
|
|
# Create WLAN-List
|
|
my %wlanList;
|
|
#to keep compatibility with firmware <= v3.67 and >=7
|
|
if ( ref $result->{wlanList} eq 'ARRAY' ) {
|
|
foreach ( @{ $result->{wlanList} } ) {
|
|
my $mac = $_->{mac};
|
|
$mac =~ s/:/_/g;
|
|
# Anscheinend gibt es Anmeldungen sowohl für Repeater als auch für FBoxen
|
|
$wlanList{$mac}{speed} = $_->{speed} if ! defined $wlanList{$mac}{speed} || $_->{speed} ne "0";
|
|
$wlanList{$mac}{speed_rx} = $_->{speed_rx} if ! defined $wlanList{$mac}{speed_rx} || $_->{speed_rx} ne "0";
|
|
#$wlanList{$mac}{speed_rx} = $result_lan->{$_->{_node}};
|
|
$wlanList{$mac}{rssi} = $_->{rssi} if ! defined $wlanList{$mac}{rssi} || $_->{rssi} ne "0";
|
|
$wlanList{$mac}{is_guest} = $_->{is_guest} if ! defined $wlanList{$mac}{is_guest} || $_->{is_guest} ne "0";
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "fhem->wlanDevice->".$mac."->speed", $_->{speed};
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "fhem->wlanDevice->".$mac."->speed_rx", $wlanList{$mac}{speed_rx};
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "fhem->wlanDevice->".$mac."->rssi", $_->{rssi};
|
|
}
|
|
}
|
|
|
|
# Create LanDevice list and delete inactive devices
|
|
my $allowPassiv = AttrVal( $name, "enablePassivLanDevices", "0");
|
|
my %oldLanDevice;
|
|
|
|
#collect current mac-readings (to delete the ones that are inactive or disappeared)
|
|
foreach (keys %{ $hash->{READINGS} }) {
|
|
$oldLanDevice{$_} = $hash->{READINGS}{$_}{VAL} if $_ =~ /^mac_/ && defined $hash->{READINGS}{$_}{VAL};
|
|
}
|
|
|
|
%landevice = ();
|
|
my $wlanCount = 0;
|
|
my $gWlanCount = 0;
|
|
|
|
if ( ref $result->{lanDevice} eq 'ARRAY' ) {
|
|
#Ipv4,IPv6,lanName,devName,Mbit,RSSI "
|
|
|
|
# iPad-Familie [landevice810] (WLAN: 142 / 72 Mbit/s RSSI: -53)
|
|
my $deviceInfo = AttrVal($name, "deviceInfo", "_defDef_,name,[uid],(connection: speedcomma rssi)");
|
|
|
|
$deviceInfo =~ s/\n//g;
|
|
|
|
$deviceInfo = "_noDefInf_,_defDef_,name,[uid],(connection: speedcomma rssi)" if $deviceInfo eq "_noDefInf_";
|
|
|
|
my $noDefInf = $deviceInfo =~ /_noDefInf_/ ? 1 : 0; #_noDefInf_
|
|
$deviceInfo =~ s/\,_noDefInf_|_noDefInf_\,//g;
|
|
|
|
my $defDef = $deviceInfo =~ /_defDef_/ ? 1 : 0;
|
|
$deviceInfo =~ s/\,_defDef_|_defDef_\,//g;
|
|
|
|
my $sep = "space";
|
|
if ( ($deviceInfo . ",") =~ /_default_(.*?)\,/) {
|
|
$sep = $1;
|
|
$deviceInfo =~ s/,_default_${sep}|_default_${sep}\,//g;
|
|
}
|
|
$deviceInfo =~ s/\,/$sep/g;
|
|
|
|
$deviceInfo =~ s/space/ /g;
|
|
$deviceInfo =~ s/comma/\,/g;
|
|
|
|
$sep =~ s/space/ /g;
|
|
$sep =~ s/comma/\,/g;
|
|
|
|
FRITZBOX_Log $hash, 5, "DEBUG: deviceInfo -> " . $deviceInfo;
|
|
|
|
foreach ( @{ $result->{lanDevice} } ) {
|
|
my $dIp = $_->{ip};
|
|
my $UID = $_->{UID};
|
|
my $dName = $_->{name};
|
|
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "fhem->landevice->$dIp", $dName;
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "fhem->landevice->$UID", $dName;
|
|
$landevice{$dIp} = $dName;
|
|
$landevice{$UID} = $dName;
|
|
|
|
my $srTmp = $deviceInfo;
|
|
|
|
# lan IPv4 ergänzen
|
|
$srTmp =~ s/ipv4/$dIp/g;
|
|
|
|
# lan DeviceName ergänzen
|
|
$srTmp =~ s/name/$dName/g;
|
|
|
|
# lan DeviceID ergänzen
|
|
$srTmp =~ s/uid/$UID/g;
|
|
|
|
# Create a reading if a landevice is connected
|
|
# if ( $_->{active} || $allowPassiv) {
|
|
if ( ($_->{active} && $_->{ip}) || $allowPassiv) {
|
|
my $mac = $_->{mac};
|
|
$mac =~ s/:/_/g;
|
|
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "fhem->landevice->$mac", $UID;
|
|
$landevice{$mac}=$UID;
|
|
|
|
# if ( !$_->{ethernet} && $_->{wlan} ) { # funktioniert nicht mehr seit v7
|
|
# if ( defined $wlanList{$mac} ) {
|
|
|
|
if ( defined $wlanList{$mac} and !$_->{ethernet_port} and !$_->{ethernetport} ) {
|
|
# Copes with fw>=7
|
|
$_->{guest} = $wlanList{$mac}{is_guest} if defined $wlanList{$mac}{is_guest} && $_->{guest} eq "";
|
|
$wlanCount++;
|
|
$gWlanCount++ if $_->{guest} eq "1";
|
|
|
|
$dName = $_->{guest} ? "g" : "";
|
|
$dName .= "WLAN";
|
|
$srTmp =~ s/connection/$dName/g;
|
|
|
|
$dName = $wlanList{$mac}{speed} . " / " . $wlanList{$mac}{speed_rx} . " Mbit/s" ;
|
|
$srTmp =~ s/speed/$dName/g;
|
|
|
|
$dName = defined $wlanList{$mac} ? "RSSI: " . $wlanList{$mac}{rssi} : "";
|
|
$srTmp =~ s/rssi/$dName/g;
|
|
|
|
} else {
|
|
$dName = "";
|
|
$dName = $_->{guest} ? "g" : "" . "LAN" . $_->{ethernet_port} if $_->{ethernet_port};
|
|
$dName = $_->{guest} ? "g" : "" . $_->{ethernetport} if $_->{ethernetport};
|
|
|
|
if ($dName eq "") {
|
|
if ($noDefInf) {
|
|
$srTmp =~ s/connection:?/noConnectInfo/g;
|
|
} else {
|
|
$srTmp =~ s/connection:?${sep}|${sep}connection:?|connection:?//g;
|
|
}
|
|
} else {
|
|
$srTmp =~ s/connection/$dName/g;
|
|
}
|
|
|
|
$dName = "1 Gbit/s" if $_->{speed} eq "1000";
|
|
$dName = $_->{speed} . " Mbit/s" if $_->{speed} ne "1000" && $_->{speed} ne "0";
|
|
if ($_->{speed} eq "0") {
|
|
if ($noDefInf) {
|
|
$srTmp =~ s/speed/noSpeedInfo/g;
|
|
} else {
|
|
$srTmp =~ s/speed${sep}|${sep}speed|speed//g;
|
|
}
|
|
} else {
|
|
$srTmp =~ s/speed/$dName/g;
|
|
}
|
|
}
|
|
|
|
$srTmp =~ s/rssi${sep}|${sep}rssi|rssi//g;
|
|
|
|
if ($defDef) {
|
|
$srTmp =~ s/\(: \, \)//gi;
|
|
$srTmp =~ s/\, \)/ \)/gi;
|
|
$srTmp =~ s/\,\)/\)/gi;
|
|
|
|
$srTmp =~ s/\(:/\(/gi;
|
|
|
|
$srTmp =~ s/\(\)//g;
|
|
}
|
|
|
|
$srTmp = "no match for Informations" if ($srTmp eq "");
|
|
|
|
my $rName = "mac_";
|
|
$rName .= "pas_" if $allowPassiv && $_->{active} == 0;
|
|
$rName .= $mac;
|
|
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, $rName, $srTmp ;
|
|
|
|
# Remove mac address from oldLanDevice-List
|
|
delete $oldLanDevice{$rName} if exists $oldLanDevice{$rName};
|
|
}
|
|
}
|
|
}
|
|
FRITZBOX_Readout_Add_Reading ($hash, \@roReadings, "box_wlan_Count", $wlanCount);
|
|
FRITZBOX_Readout_Add_Reading ($hash, \@roReadings, "box_guestWlanCount", $gWlanCount);
|
|
|
|
# Remove inactive or non existing mac-readings in two steps
|
|
foreach ( keys %oldLanDevice ) {
|
|
# set the mac readings to 'inactive' and delete at next readout
|
|
if ( $oldLanDevice{$_} ne "inactive" ) {
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, $_, "inactive";
|
|
}
|
|
else {
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, $_, "";
|
|
}
|
|
}
|
|
|
|
# WLANs
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "box_wlan_2.4GHz", $result->{box_wlan_24GHz}, "onoff";
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "box_wlan_5GHz", $result->{box_wlan_5GHz}, "onoff";
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "box_guestWlan", $result->{box_guestWlan}, "onoff";
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "box_guestWlanRemain", $result->{box_guestWlanRemain};
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "box_macFilter_active", $result->{box_macFilter_active}, "onoff";
|
|
|
|
# Dect
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "box_dect", $result->{box_dect}, "onoff";
|
|
|
|
# Music on Hold
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "box_moh", $result->{box_moh}, "mohtype";
|
|
|
|
# Power Rate
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "box_powerRate", $result->{box_powerRate};
|
|
|
|
# Box Features
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "fhem->is_double_wlan", $result->{is_double_wlan}, "01";
|
|
|
|
# Box model, firmware and uptimes
|
|
|
|
# Informationen über DSL Verbindung
|
|
# xhr 1
|
|
# lang de
|
|
# page dslOv
|
|
# xhrId all
|
|
# xhr 1 lang de page dslOv xhrId all
|
|
|
|
if($result->{box_uptimeHours} && $result->{box_uptimeHours} ne "no-emu") {
|
|
$Tag = int($result->{box_uptimeHours} / 24);
|
|
$Std = int($result->{box_uptimeHours} - (24 * $Tag));
|
|
$Sek = int($result->{box_uptimeHours} * 3600) + $result->{box_uptimeMinutes} * 60;
|
|
|
|
$Std = substr("0" . $Std,-2);
|
|
$Min = substr("0" . $result->{box_uptimeMinutes},-2);
|
|
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "box_uptime", $Sek . " sec = " . $Tag . "T " . $Std . ":" . $Min . ":00";
|
|
} else {
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "box_uptime", "no-emu";
|
|
}
|
|
|
|
if ($result->{box_fwVersion}) {
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "box_fwVersion", $result->{box_fwVersion};
|
|
} else { # Ab Version 6.90
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "box_fwVersion", $result->{box_fwVersion_neu};
|
|
}
|
|
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "box_fwUpdate", $result->{box_fwUpdate};
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "box_tr064", $result->{box_tr064}, "onoff";
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "box_tr069", $result->{box_tr069}, "onoff";
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "box_upnp", $result->{box_upnp}, "onoff";
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "box_upnp_control_activated", $result->{box_upnpCtrl}, "onoff";
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "->UPNP", $result->{box_upnp};
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "box_stdDialPort", $result->{box_stdDialPort}, "dialport";
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "box_cpuTemp", $result->{box_cpuTemp};
|
|
|
|
# FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "box_ipv4_Extern", $result->{box_ipExtern};
|
|
# FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "box_connect", $result->{box_connect};
|
|
|
|
if ($mesh ne "slave") {
|
|
if ( defined ($result->{dslStatGlobalOut}) && looks_like_number($result->{dslStatGlobalOut}) ) {
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "box_dsl_upStream", sprintf ("%.3f", $result->{dslStatGlobalOut}/1000000);
|
|
}
|
|
if ( defined ($result->{dslStatGlobalIn}) && looks_like_number($result->{dslStatGlobalIn}) ) {
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "box_dsl_downStream", sprintf ("%.3f", $result->{dslStatGlobalIn}/1000000);
|
|
}
|
|
} else {
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "box_dsl_upStream", "";
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "box_dsl_downStream", "";
|
|
}
|
|
|
|
# GSM
|
|
#FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "gsm_modem", $result->{GSM_ModemPresent};
|
|
if (defined $result->{GSM_NetworkState} && $result->{GSM_NetworkState} ne "0") {
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "gsm_rssi", $result->{GSM_RSSI};
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "gsm_state", $result->{GSM_NetworkState}, "gsmnetstate";
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "gsm_technology", $result->{GSM_AcT}, "gsmact";
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "gsm_internet", $result->{UMTS_enabled};
|
|
} else {
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "gsm_rssi", "";
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "gsm_state", "";
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "gsm_technology", "";
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "gsm_internet", "";
|
|
}
|
|
|
|
# Alarm clock
|
|
$runNo = 1;
|
|
foreach ( @{ $result->{alarmClock} } ) {
|
|
next if $_->{Name} eq "er";
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "alarm".$runNo, $_->{Name};
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "alarm".$runNo."_state", $_->{Active}, "onoff";
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "alarm".$runNo."_time", $_->{Time}, "altime";
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "alarm".$runNo."_target", $_->{Number}, "alnumber";
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "alarm".$runNo."_wdays", $_->{Weekdays}, "aldays";
|
|
$runNo++;
|
|
}
|
|
|
|
#Get TAM readings
|
|
$runNo = 1;
|
|
foreach ( @{ $result->{tam} } ) {
|
|
$rName = "tam".$runNo;
|
|
if ($_->{Display} eq "1")
|
|
{
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, $rName, $_->{Name};
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, $rName."_state", $_->{Active}, "onoff";
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, $rName."_newMsg", $_->{NumNewMessages};
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, $rName."_oldMsg", $_->{NumOldMessages};
|
|
}
|
|
# Löchen ausgeblendeter TAMs
|
|
elsif (defined $hash->{READINGS}{$rName} )
|
|
{
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, $rName,"";
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, $rName."_state", "";
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, $rName."_newMsg","";
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, $rName."_oldMsg","";
|
|
}
|
|
$runNo++;
|
|
}
|
|
|
|
# user profiles
|
|
$runNo = 1;
|
|
$rName = "user01";
|
|
if ( ref $result->{userProfil} eq 'ARRAY' ) {
|
|
foreach ( @{ $result->{userProfil} } ) {
|
|
# do not show data for unlimited, blocked or default access rights
|
|
if ($_->{filter_profile_UID} !~ /^filtprof[134]$/ || defined $hash->{READINGS}{$rName} ) {
|
|
if ( $_->{type} eq "1" && $_->{name} =~ /\(landev(.*)\)/ ) {
|
|
my $UID = "landevice".$1;
|
|
$_->{name} = $landevice{$UID};
|
|
}
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, $rName, $_->{name}, "deviceip";
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, $rName."_thisMonthTime", $_->{this_month_time}, "secondsintime";
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, $rName."_todayTime", $_->{today_time}, "secondsintime";
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, $rName."_todaySeconds", $_->{today_time};
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, $rName."_type", $_->{type}, "usertype";
|
|
}
|
|
$runNo++;
|
|
$rName = sprintf ("user%02d",$runNo);
|
|
}
|
|
}
|
|
|
|
# user ticket (extension of online time)
|
|
if ( ref $result->{userTicket} eq 'ARRAY' ) {
|
|
$runNo=1;
|
|
my $maxTickets = AttrVal( $name, "userTickets", 1 );
|
|
$rName = "userTicket01";
|
|
foreach ( @{ $result->{userTicket} } ) {
|
|
last if $runNo > $maxTickets;
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, $rName, $_->{id};
|
|
$runNo++;
|
|
$rName = sprintf ("userTicket%02d",$runNo);
|
|
}
|
|
}
|
|
|
|
# Diversity
|
|
$runNo=1;
|
|
$rName = "diversity1";
|
|
foreach ( @{ $result->{diversity} } ) {
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, $rName, $_->{MSN};
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, $rName."_state", $_->{Active}, "onoff" ;
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, $rName."_dest", $_->{Destination};
|
|
$runNo++;
|
|
$rName = "diversity".$runNo;
|
|
}
|
|
|
|
|
|
# attr global showInternalValues 0
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, ".box_TodayBytesReceivedHigh", $result->{TodayBytesReceivedHigh};
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, ".box_TodayBytesReceivedLow", $result->{TodayBytesReceivedLow};
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, ".box_TodayBytesSentHigh", $result->{TodayBytesSentHigh};
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, ".box_TodayBytesSentLow", $result->{TodayBytesSentLow};
|
|
|
|
|
|
# informations depending on TR064 or data.lua
|
|
|
|
if ( (($FW1 ==6 && $FW2 >= 80) || ($FW1 >= 7 && $FW2) >= 21) && $hash->{LUADATA} == 1) {
|
|
#-------------------------------------------------------------------------------------
|
|
# getting Mesh Role
|
|
|
|
# xhr 1 lang de page wlanmesh xhrId all
|
|
@webCmdArray = ();
|
|
push @webCmdArray, "xhr" => "1";
|
|
push @webCmdArray, "lang" => "de";
|
|
push @webCmdArray, "page" => "wlanmesh";
|
|
push @webCmdArray, "xhrId" => "all";
|
|
|
|
$resultData = FRITZBOX_Function_Lua($hash, "data", \@webCmdArray) ;
|
|
|
|
if(defined $resultData->{Error}) {
|
|
$tmpData = FRITZBOX_ERR_Result($hash, $resultData);
|
|
FRITZBOX_Log $hash, 3, $tmpData;
|
|
} else {
|
|
|
|
FRITZBOX_Log $hash, 5, "DEBUG: \n" . Dumper ($resultData->{data}->{vars});
|
|
|
|
if (defined $resultData->{data}->{vars}->{role}->{value}) {
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "box_meshRole", $resultData->{data}->{vars}->{role}->{value};
|
|
}
|
|
|
|
}
|
|
|
|
#-------------------------------------------------------------------------------------
|
|
# WLAN neighbors
|
|
|
|
# "xhr 1 lang de page chan xhrId environment useajax 1;
|
|
|
|
if (AttrVal( $name, "enableWLANneighbors", "0") && $hash->{LUADATA} == 1) {
|
|
my $nbhPrefix = AttrVal( $name, "wlanNeighborsPrefix", "nbh_" );
|
|
my %oldWanDevice;
|
|
|
|
#collect current mac-readings (to delete the ones that are inactive or disappeared)
|
|
foreach (keys %{ $hash->{READINGS} }) {
|
|
$oldWanDevice{$_} = $hash->{READINGS}{$_}{VAL} if $_ =~ /^${nbhPrefix}/ && defined $hash->{READINGS}{$_}{VAL};
|
|
}
|
|
|
|
@webCmdArray = ();
|
|
push @webCmdArray, "xhr" => "1";
|
|
push @webCmdArray, "lang" => "de";
|
|
push @webCmdArray, "page" => "chan";
|
|
push @webCmdArray, "xhrId" => "environment";
|
|
|
|
$resultData = FRITZBOX_Function_Lua($hash, "data", \@webCmdArray) ;
|
|
|
|
if(defined $resultData->{Error}) {
|
|
$tmpData = FRITZBOX_ERR_Result($hash, $resultData);
|
|
FRITZBOX_Log $hash, 3, $tmpData;
|
|
} else {
|
|
|
|
FRITZBOX_Log $hash, 5, "DEBUG: \n" . Dumper ($resultData->{data}->{scanlist});
|
|
|
|
$nbViews = 0;
|
|
if (defined $resultData->{data}->{scanlist}) {
|
|
$views = $resultData->{data}->{scanlist};
|
|
$nbViews = scalar @$views;
|
|
}
|
|
|
|
if ($nbViews > 0) {
|
|
|
|
eval {
|
|
for(my $i = 0; $i <= $nbViews - 1; $i++) {
|
|
my $dName = $resultData->{data}->{scanlist}->[$i]->{ssid};
|
|
$dName .= " (Kanal: " . $resultData->{data}->{scanlist}->[$i]->{channel};
|
|
if (($FW1 == 7 && $FW2 < 50)) {
|
|
$dName .= ", Band: " . $resultData->{data}->{scanlist}->[$i]->{bandId};
|
|
$dName =~ s/24ghz/2.4 GHz/;
|
|
$dName =~ s/5ghz/5 GHz/;
|
|
}
|
|
$dName .= ")";
|
|
|
|
$rName = $resultData->{data}->{scanlist}->[$i]->{mac};
|
|
$rName =~ s/:/_/g;
|
|
$rName = $nbhPrefix . $rName;
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, $rName, $dName;
|
|
delete $oldWanDevice{$rName} if exists $oldWanDevice{$rName};
|
|
}
|
|
};
|
|
$rName = "box_wlan_lastScanTime";
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, $rName, $resultData->{data}->{lastScantime};
|
|
delete $oldWanDevice{$rName} if exists $oldWanDevice{$rName};
|
|
}
|
|
}
|
|
|
|
# Remove inactive or non existing wan-readings in two steps
|
|
foreach ( keys %oldWanDevice ) {
|
|
# set the wan readings to 'inactive' and delete at next readout
|
|
if ( $oldWanDevice{$_} ne "inactive" ) {
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, $_, "inactive";
|
|
} else {
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, $_, "";
|
|
}
|
|
}
|
|
|
|
} else {
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "box_wlan_lastScanTime", "";
|
|
}
|
|
|
|
#-------------------------------------------------------------------------------------
|
|
# kid profiles
|
|
|
|
if (AttrVal( $name, "enableKidProfiles", "0") ) {
|
|
|
|
# xhr 1 lang de page kidPro
|
|
|
|
my @webCmdArray;
|
|
push @webCmdArray, "xhr" => "1";
|
|
push @webCmdArray, "lang" => "de";
|
|
push @webCmdArray, "page" => "kidPro";
|
|
|
|
my $resultData = FRITZBOX_Function_Lua($hash, "data", \@webCmdArray) ;
|
|
|
|
if(defined $resultData->{Error}) {
|
|
$tmpData = FRITZBOX_ERR_Result($hash, $resultData);
|
|
FRITZBOX_Log $hash, 3, $tmpData;
|
|
} else {
|
|
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "kidprofile2", "unbegrenzt [filtprof3]";
|
|
|
|
my $views = $resultData->{data}->{kidProfiles};
|
|
|
|
eval {
|
|
foreach my $key (keys %$views) {
|
|
FRITZBOX_Log $hash, 5, "DEBUG: Kid Profiles: " . $key;
|
|
|
|
my $kProfile = $resultData->{data}->{kidProfiles}->{$key}{Name} . " [" . $resultData->{data}->{kidProfiles}->{$key}{Id} ."]";
|
|
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "kid" . $key, $kProfile;
|
|
|
|
}
|
|
};
|
|
}
|
|
}
|
|
|
|
#-------------------------------------------------------------------------------------
|
|
# WLAN log expanded status
|
|
|
|
# xhr 1 lang de page log xhrId log filter wlan
|
|
|
|
@webCmdArray = ();
|
|
push @webCmdArray, "xhr" => "1";
|
|
push @webCmdArray, "lang" => "de";
|
|
push @webCmdArray, "page" => "log";
|
|
push @webCmdArray, "xhrId" => "log";
|
|
|
|
if (($FW1 == 6 && $FW2 >= 80) || ($FW1 == 7 && $FW2 < 50)) {
|
|
push @webCmdArray, "filter" => "4";
|
|
} elsif ($FW1 >= 7 && $FW2 >= 50) {
|
|
push @webCmdArray, "filter" => "wlan";
|
|
}
|
|
|
|
$resultData = FRITZBOX_Function_Lua($hash, "data", \@webCmdArray) ;
|
|
|
|
if(defined $resultData->{Error}) {
|
|
$tmpData = FRITZBOX_ERR_Result($hash, $resultData);
|
|
FRITZBOX_Log $hash, 3, $tmpData;
|
|
} else {
|
|
$tmpData = $resultData->{data}->{wlan} ? "on" : "off";
|
|
FRITZBOX_Log $hash, 5, "DEBUG: wlanLogExtended -> " . $tmpData;
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "box_wlan_LogExtended", $tmpData;
|
|
}
|
|
|
|
if (($FW1 == 6 && $FW2 >= 80) || ($FW1 == 7 && $FW2 < 50)) {
|
|
if ( defined $resultData->{data}->{filter} && $resultData->{data}->{filter} eq "4" && defined $resultData->{data}->{log}->[0]) {
|
|
$tmpData = $resultData->{data}->{log}->[0][3] . " " . $resultData->{data}->{log}->[0][0] . " " . $resultData->{data}->{log}->[0][1] ;
|
|
FRITZBOX_Log $hash, 5, "DEBUG: wlanLogLast -> " . $tmpData;
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "box_wlan_LogNewest", $tmpData;
|
|
} else {
|
|
FRITZBOX_Log $hash, 5, "DEBUG: wlanLogLast -> none";
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "box_wlan_LogNewest", "none";
|
|
}
|
|
} elsif ($FW1 >= 7 && $FW2 >= 50) {
|
|
if ( defined $resultData->{data}->{filter} && $resultData->{data}->{filter} eq "wlan" && defined $resultData->{data}->{log}->[0]) {
|
|
$tmpData = $resultData->{data}->{log}->[0]->{id} . " " . $resultData->{data}->{log}->[0]->{date} . " " . $resultData->{data}->{log}->[0]->{time} ;
|
|
FRITZBOX_Log $hash, 5, "DEBUG: wlanLogLast -> " . $tmpData;
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "box_wlan_LogNewest", $tmpData;
|
|
} else {
|
|
FRITZBOX_Log $hash, 5, "DEBUG: wlanLogLast -> none";
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "box_wlan_LogNewest", "none";
|
|
}
|
|
}
|
|
|
|
#-------------------------------------------------------------------------------------
|
|
# SYS log
|
|
|
|
# xhr 1 lang de page log xhrId log filter sys
|
|
|
|
@webCmdArray = ();
|
|
push @webCmdArray, "xhr" => "1";
|
|
push @webCmdArray, "lang" => "de";
|
|
push @webCmdArray, "page" => "log";
|
|
push @webCmdArray, "xhrId" => "log";
|
|
|
|
if (($FW1 == 6 && $FW2 >= 80) || ($FW1 == 7 && $FW2 < 50)) {
|
|
push @webCmdArray, "filter" => "1";
|
|
} elsif ($FW1 >= 7 && $FW2 >= 50) {
|
|
push @webCmdArray, "filter" => "sys";
|
|
}
|
|
|
|
$resultData = FRITZBOX_Function_Lua($hash, "data", \@webCmdArray) ;
|
|
|
|
if(defined $resultData->{Error}) {
|
|
$tmpData = FRITZBOX_ERR_Result($hash, $resultData);
|
|
FRITZBOX_Log $hash, 3, $tmpData;
|
|
} else {
|
|
|
|
if (($FW1 == 6 && $FW2 >= 80) || ($FW1 == 7 && $FW2 < 50)) {
|
|
if ( defined $resultData->{data}->{filter} && $resultData->{data}->{filter} eq "1" && defined $resultData->{data}->{log}->[0]) {
|
|
$tmpData = $resultData->{data}->{log}->[0][3] . " " . $resultData->{data}->{log}->[0][0] . " " . $resultData->{data}->{log}->[0][1] ;
|
|
FRITZBOX_Log $hash, 5, "DEBUG: wlanLogLast -> " . $tmpData;
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "box_sys_LogNewest", $tmpData;
|
|
} else {
|
|
FRITZBOX_Log $hash, 5, "DEBUG: wlanLogLast -> none";
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "box_sys_LogNewest", "none";
|
|
}
|
|
} elsif ($FW1 >= 7 && $FW2 >= 50) {
|
|
if ( defined $resultData->{data}->{filter} && $resultData->{data}->{filter} eq "sys" && defined $resultData->{data}->{log}->[0]) {
|
|
$tmpData = $resultData->{data}->{log}->[0]->{id} . " " . $resultData->{data}->{log}->[0]->{date} . " " . $resultData->{data}->{log}->[0]->{time} ;
|
|
FRITZBOX_Log $hash, 5, "DEBUG: wlanLogLast -> " . $tmpData;
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "box_sys_LogNewest", $tmpData;
|
|
} else {
|
|
FRITZBOX_Log $hash, 5, "DEBUG: wlanLogLast -> none";
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "box_sys_LogNewest", "none";
|
|
}
|
|
}
|
|
}
|
|
|
|
#-------------------------------------------------------------------------------------
|
|
# FON log
|
|
|
|
# xhr 1 lang de page log xhrId log filter fon
|
|
|
|
@webCmdArray = ();
|
|
push @webCmdArray, "xhr" => "1";
|
|
push @webCmdArray, "lang" => "de";
|
|
push @webCmdArray, "page" => "log";
|
|
push @webCmdArray, "xhrId" => "log";
|
|
|
|
if (($FW1 == 6 && $FW2 >= 80) || ($FW1 == 7 && $FW2 < 50)) {
|
|
push @webCmdArray, "filter" => "3";
|
|
} elsif ($FW1 >= 7 && $FW2 >= 50) {
|
|
push @webCmdArray, "filter" => "fon";
|
|
}
|
|
|
|
$resultData = FRITZBOX_Function_Lua($hash, "data", \@webCmdArray) ;
|
|
|
|
if(defined $resultData->{Error}) {
|
|
$tmpData = FRITZBOX_ERR_Result($hash, $resultData);
|
|
FRITZBOX_Log $hash, 3, $tmpData;
|
|
} else {
|
|
|
|
if (($FW1 == 6 && $FW2 >= 80) || ($FW1 == 7 && $FW2 < 50)) {
|
|
if ( defined $resultData->{data}->{filter} && $resultData->{data}->{filter} eq "3" && defined $resultData->{data}->{log}->[0]) {
|
|
$tmpData = $resultData->{data}->{log}->[0][3] . " " . $resultData->{data}->{log}->[0][0] . " " . $resultData->{data}->{log}->[0][1] ;
|
|
FRITZBOX_Log $hash, 5, "DEBUG: wlanLogLast -> " . $tmpData;
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "box_fon_LogNewest", $tmpData;
|
|
} else {
|
|
FRITZBOX_Log $hash, 5, "DEBUG: wlanLogLast -> none";
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "box_fon_LogNewest", "none";
|
|
}
|
|
} elsif ($FW1 >= 7 && $FW2 >= 50) {
|
|
if ( defined $resultData->{data}->{filter} && $resultData->{data}->{filter} eq "fon" && defined $resultData->{data}->{log}->[0]) {
|
|
$tmpData = $resultData->{data}->{log}->[0]->{id} . " " . $resultData->{data}->{log}->[0]->{date} . " " . $resultData->{data}->{log}->[0]->{time} ;
|
|
FRITZBOX_Log $hash, 5, "DEBUG: wlanLogLast -> " . $tmpData;
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "box_fon_LogNewest", $tmpData;
|
|
} else {
|
|
FRITZBOX_Log $hash, 5, "DEBUG: wlanLogLast -> none";
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "box_fon_LogNewest", "none";
|
|
}
|
|
}
|
|
}
|
|
|
|
#-------------------------------------------------------------------------------------
|
|
# USB Mobilfunk-Modem Konfiguration
|
|
|
|
# xhr 1 lang de page mobile # xhrId modemSettings useajax 1
|
|
|
|
if (AttrVal($name, "enableMobileModem", 0) && ($FW1 >= 7 && $FW2 >= 50) ) {
|
|
|
|
@webCmdArray = ();
|
|
push @webCmdArray, "xhr" => "1";
|
|
push @webCmdArray, "lang" => "de";
|
|
push @webCmdArray, "page" => "mobile";
|
|
push @webCmdArray, "xhrId" => "all";
|
|
|
|
$resultData = FRITZBOX_Function_Lua($hash, "data", \@webCmdArray) ;
|
|
|
|
if(defined $resultData->{Error}) {
|
|
$tmpData = FRITZBOX_ERR_Result($hash, $resultData);
|
|
FRITZBOX_Log $hash, 3, $tmpData;
|
|
} else {
|
|
eval {
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "usbMobile_voipOverMobile", $resultData->{data}->{voipOverMobile}, "onoff"
|
|
if $resultData->{data}->{voipOverMobile};
|
|
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "usbMobile_wds", $resultData->{data}->{wds}, "onoff"
|
|
if $resultData->{data}->{wds};
|
|
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "usbMobile_activation", $resultData->{data}->{activation}
|
|
if $resultData->{data}->{activation};
|
|
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "usbMobile_config_dsl", $resultData->{data}->{config}->{dsl}, "onoff"
|
|
if $resultData->{data}->{config}->{dsl};
|
|
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "usbMobile_config_cable", $resultData->{data}->{config}->{cable}, "onoff"
|
|
if $resultData->{data}->{config}->{cable};
|
|
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "usbMobile_progress_refreshNeeded", $resultData->{data}->{progress}->{refreshNeeded}, "onoff"
|
|
if $resultData->{data}->{progress}->{refreshNeeded};
|
|
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "usbMobile_progress_error", $resultData->{data}->{progress}->{error}
|
|
if $resultData->{data}->{progress}->{error};
|
|
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "usbMobile_fallback_enableable", $resultData->{data}->{fallback}->{enableable}, "onoff"
|
|
if $resultData->{data}->{fallback}->{enableable};
|
|
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "usbMobile_fallback_possible", $resultData->{data}->{fallback}->{possible}, "onoff"
|
|
if $resultData->{data}->{fallback}->{possible};
|
|
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "usbMobile_ipclient", $resultData->{data}->{ipclient}, "onoff"
|
|
if $resultData->{data}->{ipclient};
|
|
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "usbMobile_sipNumberCount", "";
|
|
# FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "usbMobile_sipNumberCount", $resultData->{data}->{sipNumberCount}
|
|
# if $resultData->{data}->{sipNumberCount};
|
|
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "usbMobile_compatibilityMode_enabled", $resultData->{data}->{compatibilityMode}->{enabled}, "onoff"
|
|
if $resultData->{data}->{data}->{compatibilityMode}->{enabled};
|
|
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "usbMobile_compatibilityMode_enableable", $resultData->{data}->{compatibilityMode}->{enableable}, "onoff"
|
|
if $resultData->{data}->{data}->{compatibilityMode}->{enableable};
|
|
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "usbMobile_capabilities", $resultData->{data}->{capabilities}->{voice}, "onoff"
|
|
if $resultData->{data}->{capabilities}->{voice};
|
|
};
|
|
}
|
|
} else {
|
|
FRITZBOX_Log $hash, 4, "DEBUG: wrong Fritz!OS for usb mobile: $FW1.$FW2" if AttrVal($name, "enableMobileModem", 0);
|
|
}
|
|
|
|
#-------------------------------------------------------------------------------------
|
|
# DOCSIS Informationen FB Cable
|
|
|
|
if (($avmModel =~ "Box") && (lc($avmModel) =~ "6[4,5,6][3,6,9][0,1]") && ($FW1 >= 7) && ($FW2 >= 21)) { # FB Cable
|
|
# if (1==1) {
|
|
my $returnStr;
|
|
|
|
my $powerLevels;
|
|
my $frequencys;
|
|
my $latencys;
|
|
my $corrErrors;
|
|
my $nonCorrErrors;
|
|
my $mses;
|
|
|
|
my %oldDocDevice;
|
|
|
|
#collect current mac-readings (to delete the ones that are inactive or disappeared)
|
|
foreach (keys %{ $hash->{READINGS} }) {
|
|
$oldDocDevice{$_} = $hash->{READINGS}{$_}{VAL} if $_ =~ /^box_docsis/ && defined $hash->{READINGS}{$_}{VAL};
|
|
}
|
|
|
|
# xhr 1 lang de page docInfo xhrId all no_sidrenew nop
|
|
@webCmdArray = ();
|
|
push @webCmdArray, "xhr" => "1";
|
|
push @webCmdArray, "lang" => "de";
|
|
push @webCmdArray, "page" => "docInfo";
|
|
push @webCmdArray, "xhrId" => "all";
|
|
push @webCmdArray, "no_sidrenew" => "";
|
|
|
|
# for debugging
|
|
# my $TestSIS = '{"pid":"docInfo","hide":{"mobile":true,"ssoSet":true,"liveTv":true},"time":[],"data":{"channelDs":{"docsis31":[{"powerLevel":"-1.6","type":"4K","channel":1,"channelID":0,"frequency":"751 - 861"},{"powerLevel":"7.7","type":"4K","channel":2,"channelID":1,"frequency":"175 - 237"}],"docsis30":[{"type":"256QAM","corrErrors":92890,"mse":"-36.4","powerLevel":"5.1","channel":1,"nonCorrErrors":9773,"latency":0.32,"channelID":7,"frequency":"538"},{"type":"256QAM","corrErrors":20553,"mse":"-37.4","powerLevel":"10.2","channel":2,"nonCorrErrors":9420,"latency":0.32,"channelID":26,"frequency":"698"},{"type":"256QAM","corrErrors":28673,"mse":"-37.6","powerLevel":"10.0","channel":3,"nonCorrErrors":140,"latency":0.32,"channelID":25,"frequency":"690"},{"type":"256QAM","corrErrors":25930,"mse":"-37.6","powerLevel":"10.0","channel":4,"nonCorrErrors":170,"latency":0.32,"channelID":27,"frequency":"706"},{"type":"256QAM","corrErrors":98698,"mse":"-36.6","powerLevel":"8.8","channel":5,"nonCorrErrors":9151,"latency":0.32,"channelID":30,"frequency":"746"},{"type":"256QAM","corrErrors":24614,"mse":"-37.4","powerLevel":"9.4","channel":6,"nonCorrErrors":9419,"latency":0.32,"channelID":28,"frequency":"730"},{"type":"256QAM","corrErrors":25882,"mse":"-37.4","powerLevel":"9.9","channel":7,"nonCorrErrors":9308,"latency":0.32,"channelID":24,"frequency":"682"},{"type":"256QAM","corrErrors":33817,"mse":"-37.4","powerLevel":"9.8","channel":8,"nonCorrErrors":146,"latency":0.32,"channelID":23,"frequency":"674"},{"type":"256QAM","corrErrors":112642,"mse":"-37.6","powerLevel":"7.8","channel":9,"nonCorrErrors":7783,"latency":0.32,"channelID":3,"frequency":"490"},{"type":"256QAM","corrErrors":41161,"mse":"-37.6","powerLevel":"9.8","channel":10,"nonCorrErrors":203,"latency":0.32,"channelID":21,"frequency":"658"},{"type":"256QAM","corrErrors":33219,"mse":"-37.4","powerLevel":"8.8","channel":11,"nonCorrErrors":10962,"latency":0.32,"channelID":18,"frequency":"634"},{"type":"256QAM","corrErrors":32680,"mse":"-37.6","powerLevel":"9.2","channel":12,"nonCorrErrors":145,"latency":0.32,"channelID":19,"frequency":"642"},{"type":"256QAM","corrErrors":33001,"mse":"-37.4","powerLevel":"9.8","channel":13,"nonCorrErrors":7613,"latency":0.32,"channelID":22,"frequency":"666"},{"type":"256QAM","corrErrors":42666,"mse":"-37.4","powerLevel":"8.1","channel":14,"nonCorrErrors":172,"latency":0.32,"channelID":17,"frequency":"626"},{"type":"256QAM","corrErrors":41023,"mse":"-37.4","powerLevel":"9.3","channel":15,"nonCorrErrors":10620,"latency":0.32,"channelID":20,"frequency":"650"},{"type":"256QAM","corrErrors":106921,"mse":"-37.6","powerLevel":"7.4","channel":16,"nonCorrErrors":356,"latency":0.32,"channelID":4,"frequency":"498"},{"type":"256QAM","corrErrors":86650,"mse":"-36.4","powerLevel":"4.9","channel":17,"nonCorrErrors":85,"latency":0.32,"channelID":12,"frequency":"578"},{"type":"256QAM","corrErrors":91838,"mse":"-36.4","powerLevel":"4.8","channel":18,"nonCorrErrors":168,"latency":0.32,"channelID":8,"frequency":"546"},{"type":"256QAM","corrErrors":110719,"mse":"-35.8","powerLevel":"4.5","channel":19,"nonCorrErrors":103,"latency":0.32,"channelID":10,"frequency":"562"},{"type":"256QAM","corrErrors":111846,"mse":"-37.6","powerLevel":"8.2","channel":20,"nonCorrErrors":247,"latency":0.32,"channelID":2,"frequency":"482"},{"type":"256QAM","corrErrors":668242,"mse":"-36.6","powerLevel":"5.8","channel":21,"nonCorrErrors":6800,"latency":0.32,"channelID":5,"frequency":"522"},{"type":"256QAM","corrErrors":104070,"mse":"-36.6","powerLevel":"5.3","channel":22,"nonCorrErrors":149,"latency":0.32,"channelID":6,"frequency":"530"},{"type":"256QAM","corrErrors":120994,"mse":"-35.8","powerLevel":"4.4","channel":23,"nonCorrErrors":10240,"latency":0.32,"channelID":9,"frequency":"554"},{"type":"256QAM","corrErrors":59145,"mse":"-36.4","powerLevel":"5.3","channel":24,"nonCorrErrors":9560,"latency":0.32,"channelID":11,"frequency":"570"},{"type":"256QAM","corrErrors":118271,"mse":"-37.6","powerLevel":"8.4","channel":25,"nonCorrErrors":810,"latency":0.32,"channelID":1,"frequency":"474"},{"type":"256QAM","corrErrors":40255,"mse":"-37.4","powerLevel":"6.5","channel":26,"nonCorrErrors":13474,"latency":0.32,"channelID":15,"frequency":"602"},{"type":"256QAM","corrErrors":62716,"mse":"-36.4","powerLevel":"5.3","channel":27,"nonCorrErrors":9496,"latency":0.32,"channelID":13,"frequency":"586"},{"type":"256QAM","corrErrors":131364,"mse":"-36.6","powerLevel":"8.9","channel":28,"nonCorrErrors":12238,"latency":0.32,"channelID":29,"frequency":"738"}]},"oem":"lgi","readyState":"ready","channelUs":{"docsis31":[],"docsis30":[{"powerLevel":"43.0","type":"64QAM","channel":1,"multiplex":"ATDMA","channelID":4,"frequency":"51"},{"powerLevel":"44.3","type":"64QAM","channel":2,"multiplex":"ATDMA","channelID":2,"frequency":"37"},{"powerLevel":"43.8","type":"64QAM","channel":3,"multiplex":"ATDMA","channelID":3,"frequency":"45"},{"powerLevel":"45.8","type":"64QAM","channel":4,"multiplex":"ATDMA","channelID":1,"frequency":"31"}]}},"sid":"14341afbc7d83b4c"}';
|
|
# my $TestSIS = '{"pid":"docInfo","hide":{"mobile":true,"ssoSet":true,"liveTv":true},"time":[],"data":{"channelDs":{"docsis30":[{"type":"256QAM","corrErrors":92890,"mse":"-36.4","powerLevel":"5.1","channel":1,"nonCorrErrors":9773,"latency":0.32,"channelID":7,"frequency":"538"},{"type":"256QAM","corrErrors":20553,"mse":"-37.4","powerLevel":"10.2","channel":2,"nonCorrErrors":9420,"latency":0.32,"channelID":26,"frequency":"698"},{"type":"256QAM","corrErrors":28673,"mse":"-37.6","powerLevel":"10.0","channel":3,"nonCorrErrors":140,"latency":0.32,"channelID":25,"frequency":"690"},{"type":"256QAM","corrErrors":25930,"mse":"-37.6","powerLevel":"10.0","channel":4,"nonCorrErrors":170,"latency":0.32,"channelID":27,"frequency":"706"},{"type":"256QAM","corrErrors":98698,"mse":"-36.6","powerLevel":"8.8","channel":5,"nonCorrErrors":9151,"latency":0.32,"channelID":30,"frequency":"746"},{"type":"256QAM","corrErrors":24614,"mse":"-37.4","powerLevel":"9.4","channel":6,"nonCorrErrors":9419,"latency":0.32,"channelID":28,"frequency":"730"},{"type":"256QAM","corrErrors":25882,"mse":"-37.4","powerLevel":"9.9","channel":7,"nonCorrErrors":9308,"latency":0.32,"channelID":24,"frequency":"682"},{"type":"256QAM","corrErrors":33817,"mse":"-37.4","powerLevel":"9.8","channel":8,"nonCorrErrors":146,"latency":0.32,"channelID":23,"frequency":"674"},{"type":"256QAM","corrErrors":112642,"mse":"-37.6","powerLevel":"7.8","channel":9,"nonCorrErrors":7783,"latency":0.32,"channelID":3,"frequency":"490"},{"type":"256QAM","corrErrors":41161,"mse":"-37.6","powerLevel":"9.8","channel":10,"nonCorrErrors":203,"latency":0.32,"channelID":21,"frequency":"658"},{"type":"256QAM","corrErrors":33219,"mse":"-37.4","powerLevel":"8.8","channel":11,"nonCorrErrors":10962,"latency":0.32,"channelID":18,"frequency":"634"},{"type":"256QAM","corrErrors":32680,"mse":"-37.6","powerLevel":"9.2","channel":12,"nonCorrErrors":145,"latency":0.32,"channelID":19,"frequency":"642"},{"type":"256QAM","corrErrors":33001,"mse":"-37.4","powerLevel":"9.8","channel":13,"nonCorrErrors":7613,"latency":0.32,"channelID":22,"frequency":"666"},{"type":"256QAM","corrErrors":42666,"mse":"-37.4","powerLevel":"8.1","channel":14,"nonCorrErrors":172,"latency":0.32,"channelID":17,"frequency":"626"},{"type":"256QAM","corrErrors":41023,"mse":"-37.4","powerLevel":"9.3","channel":15,"nonCorrErrors":10620,"latency":0.32,"channelID":20,"frequency":"650"},{"type":"256QAM","corrErrors":106921,"mse":"-37.6","powerLevel":"7.4","channel":16,"nonCorrErrors":356,"latency":0.32,"channelID":4,"frequency":"498"},{"type":"256QAM","corrErrors":86650,"mse":"-36.4","powerLevel":"4.9","channel":17,"nonCorrErrors":85,"latency":0.32,"channelID":12,"frequency":"578"},{"type":"256QAM","corrErrors":91838,"mse":"-36.4","powerLevel":"4.8","channel":18,"nonCorrErrors":168,"latency":0.32,"channelID":8,"frequency":"546"},{"type":"256QAM","corrErrors":110719,"mse":"-35.8","powerLevel":"4.5","channel":19,"nonCorrErrors":103,"latency":0.32,"channelID":10,"frequency":"562"},{"type":"256QAM","corrErrors":111846,"mse":"-37.6","powerLevel":"8.2","channel":20,"nonCorrErrors":247,"latency":0.32,"channelID":2,"frequency":"482"},{"type":"256QAM","corrErrors":668242,"mse":"-36.6","powerLevel":"5.8","channel":21,"nonCorrErrors":6800,"latency":0.32,"channelID":5,"frequency":"522"},{"type":"256QAM","corrErrors":104070,"mse":"-36.6","powerLevel":"5.3","channel":22,"nonCorrErrors":149,"latency":0.32,"channelID":6,"frequency":"530"},{"type":"256QAM","corrErrors":120994,"mse":"-35.8","powerLevel":"4.4","channel":23,"nonCorrErrors":10240,"latency":0.32,"channelID":9,"frequency":"554"},{"type":"256QAM","corrErrors":59145,"mse":"-36.4","powerLevel":"5.3","channel":24,"nonCorrErrors":9560,"latency":0.32,"channelID":11,"frequency":"570"},{"type":"256QAM","corrErrors":118271,"mse":"-37.6","powerLevel":"8.4","channel":25,"nonCorrErrors":810,"latency":0.32,"channelID":1,"frequency":"474"},{"type":"256QAM","corrErrors":40255,"mse":"-37.4","powerLevel":"6.5","channel":26,"nonCorrErrors":13474,"latency":0.32,"channelID":15,"frequency":"602"},{"type":"256QAM","corrErrors":62716,"mse":"-36.4","powerLevel":"5.3","channel":27,"nonCorrErrors":9496,"latency":0.32,"channelID":13,"frequency":"586"},{"type":"256QAM","corrErrors":131364,"mse":"-36.6","powerLevel":"8.9","channel":28,"nonCorrErrors":12238,"latency":0.32,"channelID":29,"frequency":"738"}]},"oem":"lgi","readyState":"ready","channelUs":{"docsis30":[{"powerLevel":"43.0","type":"64QAM","channel":1,"multiplex":"ATDMA","channelID":4,"frequency":"51"},{"powerLevel":"44.3","type":"64QAM","channel":2,"multiplex":"ATDMA","channelID":2,"frequency":"37"},{"powerLevel":"43.8","type":"64QAM","channel":3,"multiplex":"ATDMA","channelID":3,"frequency":"45"},{"powerLevel":"45.8","type":"64QAM","channel":4,"multiplex":"ATDMA","channelID":1,"frequency":"31"}]}},"sid":"14341afbc7d83b4c"}';
|
|
# my $resultData = FRITZBOX_Process_JSON($hash, $TestSIS, "14341afbc7d83b4c", ""); ;
|
|
|
|
$resultData = FRITZBOX_Function_Lua($hash, "data", \@webCmdArray) ;
|
|
|
|
if(defined $resultData->{Error}) {
|
|
$tmpData = FRITZBOX_ERR_Result($hash, $resultData);
|
|
FRITZBOX_Log $hash, 3, $tmpData;
|
|
} else {
|
|
|
|
FRITZBOX_Log $hash, 5, "DEBUG: \n" . Dumper ($resultData->{data});
|
|
|
|
$nbViews = 0;
|
|
if (defined $resultData->{data}->{channelUs}->{docsis30}) {
|
|
$views = $resultData->{data}->{channelUs}->{docsis30};
|
|
$nbViews = scalar @$views;
|
|
}
|
|
|
|
if ($nbViews > 0) {
|
|
|
|
$powerLevels = "";
|
|
$frequencys = "";
|
|
|
|
eval {
|
|
for(my $i = 0; $i <= $nbViews - 1; $i++) {
|
|
$powerLevels .= $resultData->{data}->{channelUs}->{docsis30}->[$i]->{powerLevel} . " ";
|
|
$frequencys .= $resultData->{data}->{channelUs}->{docsis30}->[$i]->{frequency} . " ";
|
|
}
|
|
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "box_docsis30_Us_powerLevels", substr($powerLevels,0,-1);
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "box_docsis30_Us_frequencys", substr($frequencys,0,-1);
|
|
delete $oldDocDevice{box_docsis30_Us_powerLevels} if exists $oldDocDevice{box_docsis30_Us_powerLevels};
|
|
delete $oldDocDevice{box_docsis30_Us_frequencys} if exists $oldDocDevice{box_docsis30_Us_frequencys};
|
|
};
|
|
}
|
|
|
|
$nbViews = 0;
|
|
if (defined $resultData->{data}->{channelUs}->{docsis31}) {
|
|
$views = $resultData->{data}->{channelUs}->{docsis31};
|
|
$nbViews = scalar @$views;
|
|
}
|
|
|
|
if ($nbViews > 0) {
|
|
|
|
$powerLevels = "";
|
|
$frequencys = "";
|
|
|
|
eval {
|
|
for(my $i = 0; $i <= $nbViews - 1; $i++) {
|
|
$powerLevels .= $resultData->{data}->{channelUs}->{docsis31}->[$i]->{powerLevel} . " ";
|
|
$frequencys .= $resultData->{data}->{channelUs}->{docsis31}->[$i]->{frequency} . " ";
|
|
}
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "box_docsis31_Us_powerLevels", substr($powerLevels,0,-1);
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "box_docsis31_Us_frequencys", substr($frequencys,0,-1);
|
|
delete $oldDocDevice{box_docsis31_Us_powerLevels} if exists $oldDocDevice{box_docsis31_Us_powerLevels};
|
|
delete $oldDocDevice{box_docsis31_Us_frequencys} if exists $oldDocDevice{box_docsis31_Us_frequencys};
|
|
};
|
|
|
|
}
|
|
|
|
$nbViews = 0;
|
|
if (defined $resultData->{data}->{channelDs}->{docsis30}) {
|
|
$views = $resultData->{data}->{channelDs}->{docsis30};
|
|
$nbViews = scalar @$views;
|
|
}
|
|
|
|
if ($nbViews > 0) {
|
|
|
|
$powerLevels = "";
|
|
$latencys = "";
|
|
$frequencys = "";
|
|
$corrErrors = "";
|
|
$nonCorrErrors = "";
|
|
$mses = "";
|
|
|
|
eval {
|
|
for(my $i = 0; $i <= $nbViews - 1; $i++) {
|
|
$powerLevels .= $resultData->{data}->{channelDs}->{docsis30}->[$i]->{powerLevel} . " ";
|
|
$latencys .= $resultData->{data}->{channelDs}->{docsis30}->[$i]->{latency} . " ";
|
|
$frequencys .= $resultData->{data}->{channelDs}->{docsis30}->[$i]->{frequency} . " ";
|
|
$corrErrors .= $resultData->{data}->{channelDs}->{docsis30}->[$i]->{corrErrors} . " ";
|
|
$nonCorrErrors .= $resultData->{data}->{channelDs}->{docsis30}->[$i]->{nonCorrErrors} . " ";
|
|
$mses .= $resultData->{data}->{channelDs}->{docsis30}->[$i]->{mse} . " ";
|
|
}
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "box_docsis30_Ds_powerLevels", substr($powerLevels,0,-1);
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "box_docsis30_Ds_latencys", substr($latencys,0,-1);
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "box_docsis30_Ds_frequencys", substr($frequencys,0,-1);
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "box_docsis30_Ds_corrErrors", substr($corrErrors,0,-1);
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "box_docsis30_Ds_nonCorrErrors", substr($latencys,0,-1);
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "box_docsis30_Ds_mses", substr($mses,0,-1);
|
|
delete $oldDocDevice{box_docsis30_Ds_powerLevels} if exists $oldDocDevice{box_docsis30_Ds_powerLevels};
|
|
delete $oldDocDevice{box_docsis30_Ds_latencys} if exists $oldDocDevice{box_docsis30_Ds_latencys};
|
|
delete $oldDocDevice{box_docsis30_Ds_frequencys} if exists $oldDocDevice{box_docsis30_Ds_frequencys};
|
|
delete $oldDocDevice{box_docsis30_Ds_corrErrors} if exists $oldDocDevice{box_docsis30_Ds_corrErrors};
|
|
delete $oldDocDevice{box_docsis30_Ds_nonCorrErrors} if exists $oldDocDevice{box_docsis30_Ds_nonCorrErrors};
|
|
delete $oldDocDevice{box_docsis30_Ds_mses} if exists $oldDocDevice{box_docsis30_Ds_mses};
|
|
};
|
|
|
|
}
|
|
|
|
$nbViews = 0;
|
|
if (defined $resultData->{data}->{channelDs}->{docsis31}) {
|
|
$views = $resultData->{data}->{channelDs}->{docsis31};
|
|
$nbViews = scalar @$views;
|
|
}
|
|
|
|
if ($nbViews > 0) {
|
|
|
|
$powerLevels = "";
|
|
$frequencys = "";
|
|
|
|
eval {
|
|
for(my $i = 0; $i <= $nbViews - 1; $i++) {
|
|
$powerLevels .= $resultData->{data}->{channelDs}->{docsis31}->[$i]->{powerLevel} . " ";
|
|
$frequencys .= $resultData->{data}->{channelDs}->{docsis31}->[$i]->{frequency} . " ";
|
|
}
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "box_docsis31_Ds_powerLevels", substr($powerLevels,0,-1);
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "box_docsis31_Ds_frequencys", substr($frequencys,0,-1);
|
|
delete $oldDocDevice{box_docsis31_Ds_powerLevels} if exists $oldDocDevice{box_docsis31_Ds_powerLevels};
|
|
delete $oldDocDevice{box_docsis31_Ds_frequencys} if exists $oldDocDevice{box_docsis31_Ds_frequencys};
|
|
};
|
|
}
|
|
}
|
|
|
|
# Remove inactive or non existing wan-readings in two steps
|
|
foreach ( keys %oldDocDevice ) {
|
|
# set the wan readings to 'inactive' and delete at next readout
|
|
if ( $oldDocDevice{$_} ne "inactive" ) {
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, $_, "inactive";
|
|
} else {
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, $_, "";
|
|
}
|
|
}
|
|
} else {
|
|
FRITZBOX_Log $hash, 4, "DEBUG: wrong Fritz!OS: $FW1.$FW2 or AVM-Model: $avmModel for docsis informations.";
|
|
}
|
|
|
|
} else {
|
|
FRITZBOX_Log $hash, 4, "DEBUG: wrong Fritz!OS: $FW1.$FW2 or data.lua not available";
|
|
}
|
|
|
|
if ( $hash->{TR064} == 1 && $hash->{SECPORT} ) {
|
|
|
|
my $strCurl;
|
|
my @tr064CmdArray;
|
|
my @tr064Result;
|
|
|
|
#-------------------------------------------------------------------------------------
|
|
# USB Mobilfunk-Modem Informationen
|
|
|
|
if (($avmModel =~ "Box") && AttrVal($name, "enableMobileModem", 0) && ($FW1 >= 7) && ($FW2 >= 50)) { # FB mit Mobile Modem-Stick
|
|
|
|
@tr064CmdArray = (["X_AVM-DE_WANMobileConnection:1", "x_wanmobileconn", "GetInfoEx"]);
|
|
|
|
@tr064Result = FRITZBOX_TR064_Cmd( $hash, 0, \@tr064CmdArray );
|
|
|
|
if ($tr064Result[0]->{UPnPError}) {
|
|
$strCurl = Dumper (@tr064Result);
|
|
FRITZBOX_Log $hash, 2, "ERROR: Mobile GetInfoEX -> \n" . $strCurl;
|
|
} else {
|
|
|
|
FRITZBOX_Log $hash, 5, "DEBUG: Mobile GetInfoEx -> \n" . Dumper (@tr064Result);
|
|
|
|
if ($tr064Result[0]->{GetInfoExResponse}) {
|
|
|
|
if (defined $tr064Result[0]->{GetInfoExResponse}->{NewCellList}) {
|
|
my $data = $tr064Result[0]->{GetInfoExResponse}->{NewCellList};
|
|
$data =~ s/</</isg;
|
|
$data =~ s/>/>/isg;
|
|
|
|
FRITZBOX_Log $hash, 5, "DEBUG: Data Mobile GetInfoEx (NewCellList): \n" . $data;
|
|
|
|
while( $data =~ /<Cell>(.*?)<\/Cell>/isg ) {
|
|
my $cellList = $1;
|
|
|
|
FRITZBOX_Log $hash, 5, "DEBUG: Data Mobile GetInfoEx (Cell): \n" . $1;
|
|
|
|
my $Index = $1 if $cellList =~ m/<Index>(.*?)<\/Index>/is;
|
|
my $Connected = $1 if $cellList =~ m/<Connected>(.*?)<\/Connected>/is;
|
|
my $CellType = $1 if $cellList =~ m/<CellType>(.*?)<\/CellType>/is;
|
|
my $PLMN = $1 if $cellList =~ m/<PLMN>(.*?)<\/PLMN>/is;
|
|
my $Provider = $1 if $cellList =~ m/<Provider>(.*?)<\/Provider>/is;
|
|
my $TAC = $1 if $cellList =~ m/<TAC>(.*?)<\/TAC>/is;
|
|
my $PhysicalId = $1 if $cellList =~ m/<PhysicalId>(.*?)<\/PhysicalId>/is;
|
|
my $Distance = $1 if $cellList =~ m/<Distance>(.*?)<\/Distance>/is;
|
|
my $Rssi = $1 if $cellList =~ m/<Rssi>(.*?)<\/Rssi>/is;
|
|
my $Rsrq = $1 if $cellList =~ m/<Rsrq>(.*?)<\/Rsrq>/is;
|
|
my $RSRP = $1 if $cellList =~ m/<RSRP>(.*?)<\/RSRP>/is;
|
|
my $Cellid = $1 if $cellList =~ m/<Cellid>(.*?)<\/Cellid>/is;
|
|
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "usbMobile" . $Index ."_Connected", $Connected;
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "usbMobile" . $Index ."_CellType", $CellType;
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "usbMobile" . $Index ."_PLMN", $PLMN;
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "usbMobile" . $Index ."_Provider", $Provider;
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "usbMobile" . $Index ."_TAC", $TAC;
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "usbMobile" . $Index ."_PhysicalId", $PhysicalId;
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "usbMobile" . $Index ."_Distance", $Distance;
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "usbMobile" . $Index ."_Rssi", $Rssi;
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "usbMobile" . $Index ."_Rsrq", $Rsrq;
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "usbMobile" . $Index ."_RSRP", $RSRP;
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "usbMobile" . $Index ."_Cellid", $Cellid;
|
|
}
|
|
|
|
}
|
|
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "usbMobile_PPPUsername", $tr064Result[0]->{GetInfoExResponse}->{NewPPPUsername};
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "usbMobile_PDN2_MTU", $tr064Result[0]->{GetInfoExResponse}->{NewPDN2_MTU};
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "usbMobile_APN", $tr064Result[0]->{GetInfoExResponse}->{NewAPN};
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "usbMobile_SoftwareVersion", $tr064Result[0]->{GetInfoExResponse}->{NewSoftwareVersion};
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "usbMobile_Roaming", $tr064Result[0]->{GetInfoExResponse}->{NewRoaming};
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "usbMobile_PDN1_MTU", $tr064Result[0]->{GetInfoExResponse}->{NewPDN1_MTU};
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "usbMobile_IMSI", $tr064Result[0]->{GetInfoExResponse}->{NewIMSI};
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "usbMobile_SignalRSRP1", $tr064Result[0]->{GetInfoExResponse}->{NewSignalRSRP1};
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "usbMobile_CurrentAccessTechnology", $tr064Result[0]->{GetInfoExResponse}->{NewCurrentAccessTechnology};
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "usbMobile_PPPUsernameVoIP", $tr064Result[0]->{GetInfoExResponse}->{NewPPPUsernameVoIP};
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "usbMobile_EnableVoIPPDN", $tr064Result[0]->{GetInfoExResponse}->{NewEnableVoIPPDN};
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "usbMobile_APN_VoIP", $tr064Result[0]->{GetInfoExResponse}->{NewAPN_VoIP};
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "usbMobile_Uptime", $tr064Result[0]->{GetInfoExResponse}->{NewUptime};
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "usbMobile_SignalRSRP0", $tr064Result[0]->{GetInfoExResponse}->{NewSignalRSRP0};
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "usbMobile_SerialNumber", $tr064Result[0]->{GetInfoExResponse}->{NewSerialNumber};
|
|
}
|
|
|
|
}
|
|
|
|
@tr064CmdArray = (["X_AVM-DE_WANMobileConnection:1", "x_wanmobileconn", "GetInfo"]);
|
|
|
|
@tr064Result = FRITZBOX_TR064_Cmd( $hash, 0, \@tr064CmdArray );
|
|
|
|
if ($tr064Result[0]->{UPnPError}) {
|
|
$strCurl = Dumper (@tr064Result);
|
|
FRITZBOX_Log $hash, 2, "ERROR: Mobile GetInfo -> \n" . $strCurl;
|
|
} else {
|
|
|
|
FRITZBOX_Log $hash, 5, "DEBUG: Mobile GetInfo -> \n" . Dumper (@tr064Result);
|
|
|
|
if ($tr064Result[0]->{GetInfoResponse}) {
|
|
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "usbMobile_PINFailureCount", $tr064Result[0]->{GetInfoResponse}->{NewPINFailureCount};
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "usbMobile_PUKFailureCount", $tr064Result[0]->{GetInfoResponse}->{NewPUKFailureCount};
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "usbMobile_Enabled", $tr064Result[0]->{GetInfoResponse}->{NewEnabled};
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "usbMobile_Status", $tr064Result[0]->{GetInfoResponse}->{NewStatus};
|
|
|
|
}
|
|
|
|
}
|
|
|
|
# X_AVM-DE_WANMobileConnection:1 x_wanmobileconn GetBandCapabilities
|
|
# 'GetBandCapabilitiesResponse' => {
|
|
# 'NewBandCapabilitiesLTE' => '',
|
|
# 'NewBandCapabilities5GSA' => 'unknown',
|
|
# 'NewBandCapabilities5GNSA' => 'unknown'
|
|
# }
|
|
|
|
# X_AVM-DE_WANMobileConnection:1 x_wanmobileconn GetAccessTechnology
|
|
# 'GetAccessTechnologyResponse' => {
|
|
# 'NewCurrentAccessTechnology' => 'unknown',
|
|
# 'NewPossibleAccessTechnology' => '',
|
|
# 'NewAccessTechnology' => 'AUTO'
|
|
# }
|
|
|
|
|
|
} else {
|
|
FRITZBOX_Log $hash, 4, "DEBUG: wrong Fritz!OS: $FW1.$FW2 for usb mobile via TR064 or not a Fritz!Box" if AttrVal($name, "enableMobileModem", 0);
|
|
}
|
|
|
|
#-------------------------------------------------------------------------------------
|
|
# getting DSL donw/up stream rate
|
|
|
|
if (($avmModel =~ "Box") && ($mesh ne "slave") && (($FW1 > 6 && $FW2 >= 80) || $FW1 >= 7) && (lc($avmModel) !~ "5[4,5][9,3]0|40[2,4,6]0|68[2,5]0|6[4,5,6][3,6,9][0,1]|fiber|cable") ) { # FB ohne VDSL
|
|
|
|
@tr064CmdArray = (["WANDSLInterfaceConfig:1", "wandslifconfig1", "GetInfo"]);
|
|
@tr064Result = FRITZBOX_TR064_Cmd( $hash, 0, \@tr064CmdArray );
|
|
|
|
if ($tr064Result[0]->{UPnPError}) {
|
|
$strCurl = Dumper (@tr064Result);
|
|
FRITZBOX_Log $hash, 2, "ERROR: VDSL up/down rate GetInfo -> \n" . $strCurl;
|
|
} else {
|
|
|
|
FRITZBOX_Log $hash, 5, "DEBUG: VDSL up/down rate GetInfo -> \n" . Dumper (@tr064Result);
|
|
|
|
if ($tr064Result[0]->{GetInfoResponse}) {
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "box_vdsl_downStreamRate", $tr064Result[0]->{GetInfoResponse}->{NewDownstreamCurrRate} / 1000;
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "box_vdsl_downStreamMaxRate", $tr064Result[0]->{GetInfoResponse}->{NewDownstreamMaxRate} / 1000;
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "box_vdsl_upStreamRate", $tr064Result[0]->{GetInfoResponse}->{NewUpstreamCurrRate} / 1000;
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "box_vdsl_upStreamMaxRate", $tr064Result[0]->{GetInfoResponse}->{NewUpstreamMaxRate} / 1000;
|
|
}
|
|
}
|
|
|
|
} else {
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "box_vdsl_downStreamRate", "";
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "box_vdsl_downStreamMaxRate", "";
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "box_vdsl_upStreamRate", "";
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "box_vdsl_upStreamMaxRate", "";
|
|
}
|
|
|
|
my $getInfo2cd = 0;
|
|
if ($avmModel =~ "Box" && ( lc($avmModel) !~ "6[4,5,6][3,6,9][0,1]" ) ) {
|
|
|
|
#-------------------------------------------------------------------------------------
|
|
# box_ipIntern WANPPPConnection:1 wanpppconn1 GetInfo
|
|
|
|
@tr064CmdArray = (["WANPPPConnection:1", "wanpppconn1", "GetInfo"]);
|
|
@tr064Result = FRITZBOX_TR064_Cmd( $hash, 0, \@tr064CmdArray );
|
|
|
|
if ($tr064Result[0]->{UPnPError}) {
|
|
$strCurl = Dumper (@tr064Result);
|
|
FRITZBOX_Log $hash, 4, "INFO: wanpppconn GetInfo -> \n" . $strCurl;
|
|
$getInfo2cd = 1;
|
|
} else {
|
|
|
|
FRITZBOX_Log $hash, 5, "DEBUG: wanpppconn GetInfo -> \n" . Dumper (@tr064Result);
|
|
|
|
if ($tr064Result[0]->{GetInfoResponse}) {
|
|
my $dns_servers = $tr064Result[0]->{GetInfoResponse}->{NewDNSServers};
|
|
$dns_servers =~ s/ //;
|
|
my @dns_list = split(/\,/, $dns_servers);
|
|
my $cnt = 0;
|
|
foreach ( @dns_list ) {
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "box_dns_Server$cnt", $_;
|
|
$cnt++;
|
|
}
|
|
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "box_ipv4_Extern", $tr064Result[0]->{GetInfoResponse}->{NewExternalIPAddress};
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "box_connection_Type", $tr064Result[0]->{GetInfoResponse}->{NewConnectionType};
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "box_connect", $tr064Result[0]->{GetInfoResponse}->{NewConnectionStatus};
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "box_last_connect_err", $tr064Result[0]->{GetInfoResponse}->{NewLastConnectionError};
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "box_last_auth_err", $tr064Result[0]->{GetInfoResponse}->{NewLastAuthErrorInfo};
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "box_mac_Address", $tr064Result[0]->{GetInfoResponse}->{NewMACAddress};
|
|
|
|
$strCurl = $tr064Result[0]->{GetInfoResponse}->{NewUptime};
|
|
$Sek = $strCurl;
|
|
$Tag = int($Sek/86400);
|
|
$Std = int(($Sek/3600)-(24*$Tag));
|
|
$Min = int(($Sek/60)-($Std*60)-(1440*$Tag));
|
|
$Sek -= (($Min*60)+($Std*3600)+(86400*$Tag));
|
|
|
|
$Std = substr("0".$Std,-2);
|
|
$Min = substr("0".$Min,-2);
|
|
$Sek = substr("0".$Sek,-2);
|
|
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "box_uptimeConnect", ($mesh ne "slave") ? $strCurl . " sec = " . $Tag . "T $Std:$Min:$Sek" : "";
|
|
}
|
|
}
|
|
}
|
|
|
|
#-------------------------------------------------------------------------------------
|
|
# TR064 with xml enveloap via SOAP request wanipconnection1
|
|
|
|
my $soap_resp;
|
|
my $control_url = "igdupnp/control/";
|
|
my $service_type = "urn:schemas-upnp-org:service:WANIPConnection:1";
|
|
my $service_command = "GetStatusInfo";
|
|
|
|
if ($avmModel =~ "Box" && ((lc($avmModel) =~ "6[4,5,6][3,6,9][0,1]") || $getInfo2cd) ) {
|
|
|
|
#-------------------------------------------------------------------------------------
|
|
# box_uptimeConnect
|
|
|
|
$soap_resp = FRITZBOX_SOAP_Request($hash,$control_url . "WANIPConn1", $service_type, $service_command);
|
|
|
|
if(defined $soap_resp->{Error}) {
|
|
FRITZBOX_Log $hash, 5, "DEBUG: SOAP-ERROR -> " . $soap_resp->{Error};
|
|
|
|
} elsif ( $soap_resp->{Response} ) {
|
|
|
|
$strCurl = $soap_resp->{Response};
|
|
FRITZBOX_Log $hash, 5, "DEBUG: Curl-> " . $strCurl;
|
|
|
|
if($strCurl =~ m/<NewConnectionStatus>(.*?)<\/NewConnectionStatus>/i) {
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "box_connect", $1;
|
|
}
|
|
if($strCurl =~ m/<NewLastConnectionError>(.*?)<\/NewLastConnectionError>/i) {
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "box_last_connect_err", $1;
|
|
}
|
|
|
|
if($strCurl =~ m/<NewUptime>(.*?)<\/NewUptime>/i) {
|
|
$Sek = $1;
|
|
$Tag = int($Sek/86400);
|
|
$Std = int(($Sek/3600)-(24*$Tag));
|
|
$Min = int(($Sek/60)-($Std*60)-(1440*$Tag));
|
|
$Sek -= (($Min*60)+($Std*3600)+(86400*$Tag));
|
|
|
|
$Std = substr("0".$Std,-2);
|
|
$Min = substr("0".$Min,-2);
|
|
$Sek = substr("0".$Sek,-2);
|
|
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "box_uptimeConnect", $1 . " sec = " . $Tag . "T $Std:$Min:$Sek";
|
|
}
|
|
}
|
|
|
|
|
|
#-------------------------------------------------------------------------------------
|
|
# box_ipExtern
|
|
|
|
$service_command = "GetExternalIPAddress";
|
|
|
|
$soap_resp = FRITZBOX_SOAP_Request($hash,$control_url . "WANIPConn1", $service_type, $service_command);
|
|
|
|
if(exists $soap_resp->{Error}) {
|
|
FRITZBOX_Log $hash, 5, "DEBUG: SOAP-ERROR -> " . $soap_resp->{Error};
|
|
|
|
} elsif ( $soap_resp->{Response} ) {
|
|
|
|
$strCurl = $soap_resp->{Response};
|
|
FRITZBOX_Log $hash, 5, "DEBUG: Curl-> " . $strCurl;
|
|
|
|
if($strCurl =~ m/<NewExternalIPAddress>(.*?)<\/NewExternalIPAddress>/i) {
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "box_ipv4_Extern", $1;
|
|
}
|
|
}
|
|
}
|
|
|
|
if ($avmModel =~ "Box") {
|
|
#-------------------------------------------------------------------------------------
|
|
|
|
# box_ipv6 -> NewPreferedLifetime, NewExternalIPv6Address, NewValidLifetime, NewPrefixLength
|
|
$service_command = "X_AVM_DE_GetExternalIPv6Address";
|
|
|
|
$soap_resp = FRITZBOX_SOAP_Request($hash,$control_url . "WANIPConn1", $service_type, $service_command);
|
|
|
|
if(exists $soap_resp->{Error}) {
|
|
FRITZBOX_Log $hash, 5, "DEBUG: SOAP/TR064-ERROR -> " . $soap_resp->{Error};
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "box_ipv6_Extern", $soap_resp->{ErrLevel} == 2?"unknown error":"";
|
|
|
|
} elsif ( $soap_resp->{Response} ) {
|
|
|
|
$strCurl = $soap_resp->{Response};
|
|
FRITZBOX_Log $hash, 5, "DEBUG: Curl-> " . $strCurl;
|
|
|
|
if($strCurl =~ m/<NewExternalIPv6Address>(.*?)<\/NewExternalIPv6Address>/i) {
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "box_ipv6_Extern", $1;
|
|
}
|
|
}
|
|
|
|
#-------------------------------------------------------------------------------------
|
|
# box_ipv6_Prefix -> NewPreferedLifetime, NewIPv6Prefix, NewValidLifetime, NewPrefixLength
|
|
|
|
$service_command = "X_AVM_DE_GetIPv6Prefix";
|
|
|
|
$soap_resp = FRITZBOX_SOAP_Request($hash,$control_url . "WANIPConn1", $service_type, $service_command);
|
|
|
|
if(exists $soap_resp->{Error}) {
|
|
FRITZBOX_Log $hash, 5, "DEBUG: SOAP/TR064-ERROR -> " . $soap_resp->{Error};
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "box_ipv6_Extern", $soap_resp->{ErrLevel} == 2?"unknown error":"";
|
|
|
|
} elsif ( $soap_resp->{Response} ) {
|
|
|
|
$strCurl = $soap_resp->{Response};
|
|
FRITZBOX_Log $hash, 5, "DEBUG: Curl-> " . $strCurl;
|
|
|
|
if($strCurl =~ m/<NewIPv6Prefix>(.*?)<\/NewIPv6Prefix>/i) {
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "box_ipv6_Prefix", $1;
|
|
}
|
|
}
|
|
|
|
# box_wan_AccessType
|
|
$service_command = "GetCommonLinkProperties";
|
|
|
|
$soap_resp = FRITZBOX_SOAP_Request($hash,$control_url . "WANCommonIFC1", "urn:schemas-upnp-org:service:WANCommonInterfaceConfig:1", $service_command);
|
|
|
|
if(exists $soap_resp->{Error}) {
|
|
FRITZBOX_Log $hash, 5, "DEBUG: SOAP/TR064-ERROR -> " . $soap_resp->{Error};
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "box_wan_AccessType", $soap_resp->{ErrLevel} == 2?"unknown error":"";
|
|
|
|
} elsif ( $soap_resp->{Response} ) {
|
|
|
|
$strCurl = $soap_resp->{Response};
|
|
FRITZBOX_Log $hash, 5, "DEBUG: Curl-> " . $strCurl;
|
|
|
|
if($strCurl =~ m/<NewWANAccessType>(.*?)<\/NewWANAccessType>/i) {
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "box_wan_AccessType", $1;
|
|
}
|
|
}
|
|
|
|
} elsif ($avmModel =~ "Repeater") {
|
|
|
|
} else {
|
|
FRITZBOX_Log $hash, 4, "DEBUG: unknown AVM Model $avmModel";
|
|
}
|
|
|
|
} else {
|
|
FRITZBOX_Log $hash, 4, "DEBUG: TR064: $hash->{TR064} or secure Port:" . ($hash->{SECPORT} ? $hash->{SECPORT} : "none") . " not available or wrong Fritz!OS: $FW1.$FW2.";
|
|
}
|
|
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "fhem->sid", $result->{sid} if $result->{sid};
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "fhem->sidTime", time();
|
|
|
|
# statistics
|
|
FRITZBOX_Readout_Add_Reading ($hash, \@roReadings, "->HINWEIS", "");
|
|
|
|
push @roReadings, "readoutTime", sprintf( "%.2f", time()-$startTime);
|
|
my $returnStr = join('|', @roReadings );
|
|
|
|
FRITZBOX_Log $hash, 4, "INFO: Captured " . @roReadings . " values";
|
|
FRITZBOX_Log $hash, 5, "DEBUG: Handover to main process (" . length ($returnStr) . "): " . $returnStr;
|
|
return $name."|".encode_base64($returnStr,"");
|
|
|
|
} # End FRITZBOX_Readout_Run_Web
|
|
|
|
#######################################################################
|
|
sub FRITZBOX_Readout_Done($)
|
|
{
|
|
my ($string) = @_;
|
|
unless (defined $string)
|
|
{
|
|
Log 1, "Fatal Error: no parameter handed over";
|
|
return;
|
|
}
|
|
|
|
my ($name,$string2) = split("\\|", $string, 2);
|
|
my $hash = $defs{$name};
|
|
|
|
FRITZBOX_Log $hash, 5, "DEBUG: Back at main process";
|
|
|
|
# delete the marker for RUNNING_PID process
|
|
delete($hash->{helper}{READOUT_RUNNING_PID});
|
|
|
|
$string2 = decode_base64($string2);
|
|
FRITZBOX_Readout_Process ($hash, $string2);
|
|
|
|
} # end FRITZBOX_Readout_Done
|
|
|
|
#######################################################################
|
|
sub FRITZBOX_Readout_Process($$)
|
|
{
|
|
my ($hash,$string) = @_;
|
|
# Fatal Error: no hash parameter handed over
|
|
unless (defined $hash) {
|
|
Log 1, "Fatal Error: no hash parameter handed over";
|
|
return;
|
|
}
|
|
|
|
my $name = $hash->{NAME};
|
|
my (%values) = split("\\|", $string);
|
|
|
|
my $reading_list = AttrVal($name, "disableBoxReadings", "none");
|
|
$reading_list =~ s/,/\|/g;
|
|
FRITZBOX_Log $hash, 5, "DEBUG: box_ disable list: $reading_list";
|
|
|
|
my $mesh = ReadingsVal($name, "box_meshRole", "master");
|
|
|
|
readingsBeginUpdate($hash);
|
|
|
|
if ( defined $values{Error} ) {
|
|
readingsBulkUpdate( $hash, "retStat_lastReadout", $values{Error} );
|
|
readingsBulkUpdate( $hash, "state", $values{Error} );
|
|
if (defined $values{"fhem->sidTime"}) {
|
|
$hash->{fhem}{sidTime} = $values{"fhem->sidTime"};
|
|
FRITZBOX_Log $hash, 4, "DEBUG: Reset SID";
|
|
}
|
|
|
|
} else {
|
|
# Statistics
|
|
if ($mesh ne "slave") {
|
|
if ( defined $values{".box_TodayBytesReceivedLow"} && defined $hash->{READINGS}{".box_TodayBytesReceivedLow"}) {
|
|
my $valueHigh = $values{".box_TodayBytesReceivedHigh"} - $hash->{READINGS}{".box_TodayBytesReceivedHigh"}{VAL};
|
|
my $valueLow = $values{".box_TodayBytesReceivedLow"} - $hash->{READINGS}{".box_TodayBytesReceivedLow"}{VAL};
|
|
# Consider reset of day counter
|
|
if ($valueHigh < 0 || $valueHigh == 0 && $valueLow < 0) {
|
|
$valueLow = $values{".box_TodayBytesReceivedLow"};
|
|
$valueHigh = $values{".box_TodayBytesReceivedHigh"};
|
|
}
|
|
$valueHigh *= 2**22;
|
|
$valueLow /= 2**10;
|
|
my $time = time()-time_str2num($hash->{READINGS}{".box_TodayBytesReceivedLow"}{TIME});
|
|
$values{ "box_rateDown" } = sprintf ("%.3f", ($valueHigh+$valueLow) / $time ) ;
|
|
}
|
|
|
|
if ( defined $values{".box_TodayBytesSentLow"} && defined $hash->{READINGS}{".box_TodayBytesSentLow"} ) {
|
|
my $valueHigh = $values{".box_TodayBytesSentHigh"} - $hash->{READINGS}{".box_TodayBytesSentHigh"}{VAL};
|
|
my $valueLow = $values{".box_TodayBytesSentLow"} - $hash->{READINGS}{".box_TodayBytesSentLow"}{VAL};
|
|
|
|
# Consider reset of day counter
|
|
if ($valueHigh < 0 || $valueHigh == 0 && $valueLow < 0) {
|
|
$valueLow = $values{".box_TodayBytesSentLow"};
|
|
$valueHigh = $values{".box_TodayBytesSentHigh"};
|
|
}
|
|
$valueHigh *= 2**22;
|
|
$valueLow /= 2**10;
|
|
my $time = time()-time_str2num($hash->{READINGS}{".box_TodayBytesSentLow"}{TIME});
|
|
$values{ "box_rateUp" } = sprintf ("%.3f", ($valueHigh+$valueLow) / $time ) ;
|
|
}
|
|
} else {
|
|
$values{ "box_rateDown" } = "";
|
|
$values{ "box_rateUp" } = "";
|
|
}
|
|
|
|
# Fill all handed over readings
|
|
my $x = 0;
|
|
while (my ($rName, $rValue) = each(%values) ) {
|
|
#hash values
|
|
if ($rName =~ /->/) {
|
|
# 4 levels
|
|
my ($rName1, $rName2, $rName3, $rName4) = split /->/, $rName;
|
|
# 4th level (Internal Value)
|
|
if ($rName1 ne "" && defined $rName4) {
|
|
$hash->{$rName1}{$rName2}{$rName3}{$rName4} = $rValue;
|
|
}
|
|
# 3rd level (Internal Value)
|
|
elsif ($rName1 ne "" && defined $rName3) {
|
|
$hash->{$rName1}{$rName2}{$rName3} = $rValue;
|
|
}
|
|
# 1st level (Internal Value)
|
|
elsif ($rName1 eq "") {
|
|
$hash->{$rName2} = $rValue;
|
|
}
|
|
# 2nd levels
|
|
else {
|
|
$hash->{$rName1}{$rName2} = $rValue;
|
|
}
|
|
delete ($hash->{HINWEIS}) if $rName2 eq "HINWEIS" && $rValue eq "";
|
|
}
|
|
elsif ($rName eq "box_fwVersion" && defined $values{box_fwUpdate}) {
|
|
$rValue .= " (old)" if $values{box_fwUpdate} eq "1";
|
|
}
|
|
elsif ($rName eq "box_model") {
|
|
$hash->{MODEL} = $rValue;
|
|
if (($rValue =~ "Box") && (lc($rValue) =~ "6[4,5,6][3,6,9][0,1]") ) {
|
|
#if (1==1) {
|
|
my $cable = "boxUser "
|
|
."disable:0,1 "
|
|
."nonblockingTimeOut:50,75,100,125 "
|
|
."INTERVAL "
|
|
."m3uFileLocal "
|
|
."m3uFileURL "
|
|
."m3uFileActive:0,1 "
|
|
."userTickets "
|
|
."enablePassivLanDevices:0,1 "
|
|
."enableKidProfiles:0,1 "
|
|
."enableVPNShares:0,1 "
|
|
."enableUserInfo:0,1 "
|
|
."enableAlarmInfo:0,1 "
|
|
."enableWLANneighbors:0,1 "
|
|
."enableMobileModem:0,1 "
|
|
."wlanNeighborsPrefix "
|
|
."disableHostIPv4check:0,1 "
|
|
."disableDectInfo:0,1 "
|
|
."disableFonInfo:0,1 "
|
|
."enableSIP:0,1 "
|
|
."disableBoxReadings:multiple-strict,box_connect,box_connection_Type,box_cpuTemp,box_dect,box_dsl_downStream,box_dsl_upStream,"
|
|
."box_guestWlan,box_guestWlanCount,box_guestWlanRemain,box_macFilter_active,,box_mac_Addressbox_ipv4_Extern,box_ipv6_Extern,"
|
|
."box_ipv6_Prefix,box_dns_Server,box_last_connect_err,box_moh,box_powerRate,box_rateDown,"
|
|
."box_fon_LogNewest,box_sys_LogNewest,box_wlan_LogExtended,box_wlan_LogNewest,"
|
|
."box_rateUp,box_stdDialPort,box_tr064,box_tr069,box_upnp,box_upnp_control_activated,box_uptimeConnect,box_uptime,"
|
|
."box_wan_AccessType,box_wlan_Count,box_wlan_2.4GHz,box_wlan_5GHz,"
|
|
."box_vdsl_downStreamRate,box_vdsl_upStreamRate,box_vdsl_downStreamMaxRate,box_vdsl_upStreamMaxRate,"
|
|
."box_docsis30_Ds_powerLevels,box_docsis30_Ds_latencys,box_docsis30_Ds_frequencys,box_docsis30_Ds_corrErrors,box_docsis30_Ds_nonCorrErrors,box_docsis30_Ds_mses,"
|
|
."box_docsis30_Us_powerLevels,box_docsis30_Us_frequencys,box_docsis31_Us_powerLevels,box_docsis31_Us_frequencys,box_docsis31_Ds_powerLevels,box_docsis31_Ds_frequencys "
|
|
."deviceInfo:sortable,ipv4,name,uid,connection,speed,rssi,_noDefInf_ "
|
|
.$readingFnAttributes;
|
|
|
|
setDevAttrList($hash->{NAME}, $cable);
|
|
} else {
|
|
setDevAttrList($hash->{NAME});
|
|
}
|
|
$rValue .= " [".$values{box_oem}."]" if $values{box_oem};
|
|
}
|
|
|
|
# writing all other readings
|
|
if ($rName !~ /->|box_fwUpdate|box_oem|readoutTime/) {
|
|
if ($rValue ne "" && $rName !~ /$reading_list/) {
|
|
readingsBulkUpdate( $hash, $rName, $rValue );
|
|
FRITZBOX_Log $hash, 5, "DEBUG: SET $rName = '$rValue'";
|
|
}
|
|
elsif ( exists $hash->{READINGS}{$rName} ) {
|
|
delete $hash->{READINGS}{$rName};
|
|
FRITZBOX_Log $hash, 5, "DEBUG: Delete reading $rName.";
|
|
}
|
|
else {
|
|
FRITZBOX_Log $hash, 5, "DEBUG: Ignore reading $rName.";
|
|
}
|
|
}
|
|
}
|
|
|
|
# Create state with wlan states
|
|
if ( defined $values{"box_wlan_2.4GHz"} ) {
|
|
my $newState = "WLAN: ";
|
|
if ( $values{"box_wlan_2.4GHz"} eq "on" ) {
|
|
$newState .= "on";
|
|
}
|
|
elsif ( $values{box_wlan_5GHz} ) {
|
|
if ( $values{box_wlan_5GHz} eq "on") {
|
|
$newState .= "on";
|
|
} else {
|
|
$newState .= "off";
|
|
}
|
|
}
|
|
else {
|
|
$newState .= "off";
|
|
}
|
|
$newState .=" gWLAN: ".$values{box_guestWlan} ;
|
|
$newState .=" (Remain: ".$values{box_guestWlanRemain}." min)" if $values{box_guestWlan} eq "on" && $values{box_guestWlanRemain} > 0;
|
|
readingsBulkUpdate( $hash, "state", $newState);
|
|
FRITZBOX_Log $hash, 5, "DEBUG: SET state = '$newState'";
|
|
}
|
|
|
|
# adapt TR064-Mode
|
|
if ( defined $values{box_tr064} ) {
|
|
if ( $values{box_tr064} eq "off" && defined $hash->{SECPORT} ) {
|
|
FRITZBOX_Log $hash, 4, "INFO: TR-064 is switched off";
|
|
delete $hash->{SECPORT};
|
|
$hash->{TR064} = 0;
|
|
}
|
|
elsif ( $values{box_tr064} eq "on" && not defined $hash->{SECPORT} ) {
|
|
FRITZBOX_Log $hash, 4, "INFO: TR-064 is switched on";
|
|
my $tr064Port = FRITZBOX_TR064_Init ($hash, $hash->{HOST});
|
|
$hash->{SECPORT} = $tr064Port if $tr064Port;
|
|
$hash->{TR064} = 1;
|
|
}
|
|
}
|
|
|
|
my $msg = keys( %values ) . " values captured in " . $values{readoutTime} . " s";
|
|
readingsBulkUpdate( $hash, "retStat_lastReadout", $msg );
|
|
FRITZBOX_Log $hash, 5, "DEBUG: BulkUpdate lastReadout: " . $msg;
|
|
}
|
|
|
|
readingsEndUpdate( $hash, 1 );
|
|
|
|
} # end FRITZBOX_Readout_Process
|
|
|
|
#######################################################################
|
|
sub FRITZBOX_Readout_Aborted($)
|
|
{
|
|
my ($hash) = @_;
|
|
delete($hash->{helper}{READOUT_RUNNING_PID});
|
|
my $msg = "Error: Timeout when reading Fritz!Box data.";
|
|
readingsSingleUpdate($hash, "retStat_lastReadout", $msg, 1);
|
|
readingsSingleUpdate($hash, "state", $msg, 1);
|
|
FRITZBOX_Log $hash, 1, $msg;
|
|
|
|
} # end FRITZBOX_Readout_Aborted
|
|
|
|
#######################################################################
|
|
sub FRITZBOX_Readout_Format($$$)
|
|
{
|
|
my ($hash, $format, $readout) = @_;
|
|
|
|
$readout = "" unless defined $readout;
|
|
|
|
return $readout unless defined( $format ) && $format ne "";
|
|
# return $readout unless $readout ne "" && $format ne "" ; #Funktioniert nicht bei $format "01"
|
|
|
|
if ($format eq "01" && $readout ne "1") {
|
|
$readout = "0";
|
|
}
|
|
|
|
return $readout unless $readout ne "";
|
|
|
|
if ($format eq "aldays") {
|
|
if ($readout eq "0") {
|
|
$readout = "once";
|
|
}
|
|
elsif ($readout >= 127) {
|
|
$readout = "daily";
|
|
}
|
|
else {
|
|
my $bitStr = $readout;
|
|
$readout = "";
|
|
foreach (sort {$a <=> $b} keys %alarmDays) {
|
|
$readout .= (($bitStr & $_) == $_) ? $alarmDays{$_}." " : "";
|
|
}
|
|
chop $readout;
|
|
}
|
|
}
|
|
elsif ($format eq "alnumber") {
|
|
my $intern = $readout;
|
|
if (1 <= $readout && $readout <=2) {
|
|
$readout = "FON $intern";
|
|
} elsif ($readout == 9) {
|
|
$readout = "all DECT";
|
|
} elsif (60 <= $readout && $readout <=65) {
|
|
$intern = $readout + 550;
|
|
$readout = "DECT $intern";
|
|
} elsif ($readout == 50) {
|
|
$readout = "all";
|
|
}
|
|
$readout .= " (".$hash->{fhem}{$intern}{name}.")"
|
|
if defined $hash->{fhem}{$intern}{name};
|
|
}
|
|
elsif ($format eq "altime") {
|
|
$readout =~ s/(\d\d)(\d\d)/$1:$2/;
|
|
}
|
|
elsif ($format eq "deviceip") {
|
|
$readout = $landevice{$readout}." ($readout)"
|
|
if defined $landevice{$readout};
|
|
}
|
|
elsif ($format eq "dialport") {
|
|
$readout = $dialPort{$readout} if $dialPort{$readout};
|
|
}
|
|
elsif ($format eq "gsmnetstate") {
|
|
$readout = $gsmNetworkState{$readout} if defined $gsmNetworkState{$readout};
|
|
}
|
|
elsif ($format eq "gsmact") {
|
|
$readout = $gsmTechnology{$readout} if defined $gsmTechnology{$readout};
|
|
}
|
|
elsif ($format eq "model") {
|
|
$readout = $fonModel{$readout} if defined $fonModel{$readout};
|
|
}
|
|
elsif ($format eq "mohtype") {
|
|
$readout = $mohtype{$readout} if defined $mohtype{$readout};
|
|
}
|
|
elsif ($format eq "nounderline") {
|
|
$readout =~ s/_/ /g;
|
|
}
|
|
elsif ($format eq "onoff") {
|
|
$readout =~ s/er//;
|
|
$readout =~ s/no-emu//;
|
|
$readout =~ s/0/off/;
|
|
$readout =~ s/1/on/;
|
|
}
|
|
elsif ($format eq "radio") {
|
|
if (defined $hash->{fhem}{radio}{$readout}) {
|
|
$readout = $hash->{fhem}{radio}{$readout};
|
|
}
|
|
else {
|
|
$readout .= " (unknown)";
|
|
}
|
|
}
|
|
elsif ($format eq "ringtone") {
|
|
$readout = $ringTone{$readout} if $ringTone{$readout};
|
|
}
|
|
elsif ($format eq "secondsintime") {
|
|
if ($readout < 243600) {
|
|
$readout = sprintf "%d:%02d", int $readout/3600, int( ($readout %3600) / 60);
|
|
}
|
|
else {
|
|
$readout = sprintf "%dd %d:%02d", int $readout/24/3600, int ($readout%24*3600)/3600, int( ($readout %3600) / 60);
|
|
}
|
|
}
|
|
elsif ($format eq "usertype") {
|
|
$readout = $userType{$readout};
|
|
}
|
|
|
|
return $readout;
|
|
|
|
} # end FRITZBOX_Readout_Format
|
|
|
|
#######################################################################
|
|
sub FRITZBOX_Readout_Add_Reading ($$$$@)
|
|
{
|
|
my ($hash, $roReadings, $rName, $rValue, $rFormat) = @_;
|
|
|
|
$rFormat = "" unless defined $rFormat;
|
|
$rValue = FRITZBOX_Readout_Format ($hash, $rFormat, $rValue);
|
|
|
|
push @{$roReadings}, $rName . "|" . $rValue ;
|
|
|
|
FRITZBOX_Log $hash, 5, "DEBUG: $rName: $rValue";
|
|
|
|
} # end FRITZBOX_Readout_Add_Reading
|
|
|
|
##############################################################################################################################################
|
|
sub FRITZBOX_Set_Cmd_Start($)
|
|
{
|
|
my ($timerpara) = @_;
|
|
|
|
# my ( $name, $func ) = split( /\./, $timerpara );
|
|
my $index = rindex( $timerpara, "." ); # rechter punkt
|
|
my $func = substr $timerpara, $index + 1, length($timerpara); # function extrahieren
|
|
my $name = substr $timerpara, 0, $index; # name extrahieren
|
|
my $hash = $defs{$name};
|
|
my $cmdFunction;
|
|
my $timeout;
|
|
my $handover;
|
|
|
|
return "no command in buffer." unless int @cmdBuffer;
|
|
|
|
# kill old process if timeout + 10s is reached
|
|
if ( exists( $hash->{helper}{CMD_RUNNING_PID}) && time()> $cmdBufferTimeout + 10 ) {
|
|
FRITZBOX_Log $hash, 1, "INFO: Old command still running. Killing old command: ".$cmdBuffer[0];
|
|
shift @cmdBuffer;
|
|
BlockingKill( $hash->{helper}{CMD_RUNNING_PID} );
|
|
# stop FHEM, giving FritzBox some time to free the memory
|
|
delete $hash->{helper}{CMD_RUNNING_PID};
|
|
return "no command in buffer." unless int @cmdBuffer;
|
|
}
|
|
|
|
# (re)start timer if command buffer is still filled
|
|
if (int @cmdBuffer >1) {
|
|
FRITZBOX_Log $hash, 3, "INFO: restarting internal Timer: command buffer is still filled";
|
|
RemoveInternalTimer($hash->{helper}{TimerCmd});
|
|
InternalTimer(gettimeofday()+1, "FRITZBOX_Set_Cmd_Start", $hash->{helper}{TimerCmd}, 1);
|
|
}
|
|
|
|
# do not continue until running command has finished or is aborted
|
|
|
|
my @val = split / /, $cmdBuffer[0];
|
|
my $xline = ( caller(0) )[2];
|
|
my $xsubroutine = ( caller(1) )[3];
|
|
my $sub = ( split( ':', $xsubroutine ) )[2];
|
|
$sub =~ s/FRITZBOX_// if ( defined $sub );
|
|
$sub ||= 'no-subroutine-specified';
|
|
|
|
FRITZBOX_Log $hash, 5, "DEBUG: Set_CMD_Start -> $sub.$xline -> $val[0]";
|
|
|
|
return "Process " . $hash->{helper}{CMD_RUNNING_PID} . " is still running" if exists $hash->{helper}{CMD_RUNNING_PID};
|
|
|
|
# Preparing SET Call
|
|
if ($val[0] eq "call") {
|
|
shift @val;
|
|
$timeout = 60;
|
|
$timeout = $val[2] if defined $val[2] && $val[2] =~/^\d+$/;
|
|
$timeout += 30;
|
|
$cmdBufferTimeout = time() + $timeout;
|
|
$handover = $name . "|" . join( "|", @val );
|
|
$cmdFunction = "FRITZBOX_Run_Call_Web";
|
|
}
|
|
# Preparing SET guestWLAN
|
|
elsif ($val[0] eq "guestwlan") {
|
|
shift @val;
|
|
$timeout = 20;
|
|
$cmdBufferTimeout = time() + $timeout;
|
|
$handover = $name . "|" . join( "|", @val );
|
|
$cmdFunction = "FRITZBOX_Run_GuestWlan_Web";
|
|
}
|
|
# Preparing SET RING
|
|
elsif ($val[0] eq "ring") {
|
|
shift @val;
|
|
$timeout = 20;
|
|
if ($val[2]) {
|
|
$timeout = $val[2] if $val[2] =~/^\d+$/;
|
|
}
|
|
$timeout += 30;
|
|
$cmdBufferTimeout = time() + $timeout;
|
|
$handover = $name . "|" . join( "|", @val );
|
|
$cmdFunction = "FRITZBOX_Ring_Run_Web";
|
|
}
|
|
# Preparing SET WLAN
|
|
elsif ($val[0] eq "wlan") {
|
|
$timeout = 10;
|
|
$cmdBufferTimeout = time() + $timeout;
|
|
$handover = $name . "|" . join( "|", @val );
|
|
$cmdFunction = "FRITZBOX_Wlan_Run_Web";
|
|
}
|
|
# Preparing SET wlanlogextended
|
|
elsif ($val[0] eq "wlanlogextended") {
|
|
$timeout = 20;
|
|
$cmdBufferTimeout = time() + $timeout;
|
|
$handover = $name . "|" . join( "|", @val );
|
|
$cmdFunction = "FRITZBOX_Run_fritzloginfo";
|
|
}
|
|
# Preparing SET WLAN2.4
|
|
elsif ( $val[0] =~ /^wlan(2\.4|5)$/ ) {
|
|
$timeout = 10;
|
|
$cmdBufferTimeout = time() + $timeout;
|
|
$handover = $name . "|" . join( "|", @val );
|
|
$cmdFunction = "FRITZBOX_Wlan_Run_Web";
|
|
}
|
|
# Preparing SET rescanWLANneighbors
|
|
elsif ( $val[0] eq "rescanwlanneighbors" ) {
|
|
$timeout = 10;
|
|
$cmdBufferTimeout = time() + $timeout;
|
|
$handover = $name . "|" . join( "|", @val );
|
|
$cmdFunction = "FRITZBOX_Run_rescan_neighborhood";
|
|
}
|
|
# Preparing SET macFilter
|
|
elsif ($val[0] eq "macfilter") {
|
|
$timeout = 25;
|
|
$cmdBufferTimeout = time() + $timeout;
|
|
$handover = $name . "|" . join( "|", @val );
|
|
$cmdFunction = "FRITZBOX_Run_macFilter";
|
|
}
|
|
# Preparing SET chgProfile
|
|
elsif ($val[0] eq "chgprofile") {
|
|
$timeout = 25;
|
|
$cmdBufferTimeout = time() + $timeout;
|
|
$handover = $name . "|" . join( "|", @val );
|
|
$cmdFunction = "FRITZBOX_Run_chgProfile";
|
|
}
|
|
# Preparing SET lockLandevice
|
|
elsif ($val[0] eq "locklandevice") {
|
|
$timeout = 25;
|
|
$cmdBufferTimeout = time() + $timeout;
|
|
$handover = $name . "|" . join( "|", @val );
|
|
$cmdFunction = "FRITZBOX_Run_lockLandevice";
|
|
}
|
|
# Preparing SET enableVPNshare
|
|
elsif ($val[0] eq "enablevpnshare") {
|
|
$timeout = 10;
|
|
$cmdBufferTimeout = time() + $timeout;
|
|
$handover = $name . "|" . join( "|", @val );
|
|
$cmdFunction = "FRITZBOX_Run_enableVPNshare";
|
|
}
|
|
# Preparing SET wakeUpCall
|
|
elsif ($val[0] eq "wakeupcall") {
|
|
$timeout = 10;
|
|
$cmdBufferTimeout = time() + $timeout;
|
|
$handover = $name . "|" . join( "|", @val );
|
|
$cmdFunction = "FRITZBOX_Run_wakeUpCall";
|
|
}
|
|
# Preparing GET fritzlog information
|
|
elsif ($val[0] eq "fritzloginfo") {
|
|
$timeout = 20;
|
|
$cmdBufferTimeout = time() + $timeout;
|
|
$handover = $name . "|" . join( "|", @val );
|
|
$cmdFunction = "FRITZBOX_Run_fritzloginfo";
|
|
}
|
|
# No valid set operation
|
|
else {
|
|
my $msg = "Unknown command '".join( " ", @val )."'";
|
|
FRITZBOX_Log $hash, 4, "INFO: " . $msg;
|
|
return $msg;
|
|
}
|
|
|
|
# Starting new command
|
|
FRITZBOX_Log $hash, 4, "INFO: Fork process $cmdFunction";
|
|
$hash->{helper}{CMD_RUNNING_PID} = BlockingCall($cmdFunction, $handover,
|
|
"FRITZBOX_Set_Cmd_Done", $timeout,
|
|
"FRITZBOX_Set_Cmd_Aborted", $hash);
|
|
return undef;
|
|
} # end FRITZBOX_Set_Cmd_Start
|
|
|
|
#######################################################################
|
|
sub FRITZBOX_Set_Cmd_Done($)
|
|
{
|
|
my ($string) = @_;
|
|
|
|
unless (defined $string)
|
|
{
|
|
Log 1, "FATAL ERROR: no parameter handed over";
|
|
return;
|
|
}
|
|
|
|
my ($name, $success, $result) = split("\\|", $string, 3);
|
|
my $hash = $defs{$name};
|
|
|
|
FRITZBOX_Log $hash, 4, "INFO: Back at main process";
|
|
|
|
shift (@cmdBuffer);
|
|
delete($hash->{helper}{CMD_RUNNING_PID});
|
|
|
|
if ( $success !~ /1|2|3/ )
|
|
{
|
|
FRITZBOX_Log $hash, 1, "ERROR: " . $result;
|
|
FRITZBOX_Readout_Process ( $hash, "Error|" . $result );
|
|
}
|
|
elsif ( $success == 1 )
|
|
{
|
|
FRITZBOX_Log $hash, 4, "INFO: " . $result;
|
|
}
|
|
elsif ($success == 2 )
|
|
{
|
|
$result = decode_base64($result);
|
|
FRITZBOX_Readout_Process ( $hash, $result );
|
|
}
|
|
elsif ($success == 3 )
|
|
{
|
|
my ($resultOut, $cmd, $logJSON) = split("\\|", $result, 3);
|
|
$result = decode_base64($resultOut);
|
|
FRITZBOX_Readout_Process ( $hash, $result );
|
|
|
|
FRITZBOX_Log $hash, 5, "DEBUG: fritzLog to Sub: $cmd \n" . $logJSON;
|
|
|
|
my $jsonResult = eval { JSON->new->latin1->decode( $logJSON ) };
|
|
if ($@) {
|
|
FRITZBOX_Log $hash, 2, "INFO: Decode JSON string: decode_json failed, invalid json. error:$@";
|
|
}
|
|
|
|
FRITZBOX_Log $hash, 5, "DEBUG: Decode JSON string: " . ref($jsonResult);
|
|
|
|
my $returnStr = eval { myUtilsFritzLogExPost ($hash, $cmd, $jsonResult); };
|
|
|
|
if ($@) {
|
|
FRITZBOX_Log $hash, 2, "ERROR: fritzLogExPost: " . $@;
|
|
readingsSingleUpdate($hash, "retStat_fritzLogExPost", "->ERROR: " . $@, 1);
|
|
} else {
|
|
readingsSingleUpdate($hash, "retStat_fritzLogExPost", $returnStr, 1);
|
|
}
|
|
}
|
|
|
|
} # end FRITZBOX_Set_Cmd_Done
|
|
|
|
#######################################################################
|
|
sub FRITZBOX_Set_Cmd_Aborted($)
|
|
{
|
|
my ($hash) = @_;
|
|
my $lastCmd = shift (@cmdBuffer);
|
|
delete($hash->{helper}{CMD_RUNNING_PID});
|
|
FRITZBOX_Log $hash, 1, "INFO: Timeout reached for: $lastCmd";
|
|
|
|
} # end FRITZBOX_Set_Cmd_Aborted
|
|
|
|
sub FRITZBOX_Run_wakeUpCall($)
|
|
#######################################################################
|
|
{
|
|
my ($string) = @_;
|
|
my ($name, $cmd, @val) = split "\\|", $string;
|
|
my $hash = $defs{$name};
|
|
my $result;
|
|
my @webCmdArray;
|
|
my @roReadings;
|
|
my $startTime = time();
|
|
|
|
my @fwV = split(/\./, ReadingsVal($name, "box_fwVersion", "0.0.0.error"));
|
|
|
|
my $FW1 = substr($fwV[1],0,2);
|
|
my $FW2 = substr($fwV[2],0,2);
|
|
|
|
|
|
# xhr 1 lang de page alarm xhrId all
|
|
|
|
# xhr: 1
|
|
# active: 1 | 0
|
|
# hour: 07
|
|
# minutes: 00
|
|
# device: 70
|
|
# name: Wecker 1
|
|
# optionRepeat: daily | only_once | per_day { mon: 1 tue: 0 wed: 1 thu: 0 fri: 1 sat: 0 sun: 0 }
|
|
# apply: true
|
|
# lang: de
|
|
# page: alarm | alarm1 | alarm2
|
|
|
|
my $wecker = "Fhem Device $name Wecker ";
|
|
$wecker .= substr($val[0],-1);
|
|
|
|
my $page;
|
|
$page = "alarm" if $val[0] =~ /alarm1/;
|
|
$page = "alarm1" if $val[0] =~ /alarm2/;
|
|
$page = "alarm2" if $val[0] =~ /alarm3/;
|
|
|
|
push @webCmdArray, "xhr" => "1";
|
|
|
|
if ($FW1 == 7 && $FW2 < 50) {
|
|
push @webCmdArray, "apply" => "";
|
|
} else {
|
|
push @webCmdArray, "apply" => "true";
|
|
}
|
|
push @webCmdArray, "lang" => "de";
|
|
|
|
# alarm1 62 per_day 10:00 mon:1 tue:0 wed:1 thu:0 fri:1 sat:0 sun:0
|
|
# alarm1 62 only_once 08:03
|
|
|
|
# set <name> wakeUpCall <alarm1|alarm2|alarm3> <off>
|
|
if (int @val == 2) { # turn wakeUpCall off
|
|
push @webCmdArray, "page" => $page;
|
|
push @webCmdArray, "active" => "0";
|
|
} elsif (int @val > 2) {
|
|
push @webCmdArray, "active" => "1";
|
|
push @webCmdArray, "page" => $page;
|
|
push @webCmdArray, "device" => $val[1];
|
|
push @webCmdArray, "hour" => substr($val[3],0,2);
|
|
push @webCmdArray, "minutes" => substr($val[3],3,2);
|
|
push @webCmdArray, "name" => $wecker;
|
|
|
|
if ( $val[2] =~ /^(daily|only_once)$/) {
|
|
push @webCmdArray, "optionRepeat" => $val[2];
|
|
} elsif ( $val[2] eq "per_day" ) {
|
|
push @webCmdArray, "optionRepeat" => $val[2];
|
|
|
|
for(my $i = 4; $i <= 10; $i++) {
|
|
push @webCmdArray, substr($val[$i],0,3) => substr($val[$i],4,1);
|
|
}
|
|
}
|
|
}
|
|
|
|
FRITZBOX_Log $hash, 5, "DEBUG: data.lua: \n" . join(" ", @webCmdArray);
|
|
|
|
$result = FRITZBOX_Function_Lua($hash, "data", \@webCmdArray) ;
|
|
|
|
if(defined $result->{Error}) {
|
|
FRITZBOX_Log $hash, 2, "ERROR: setting wakeUpCall: " . $result->{Error};
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "retStat_wakeUpCall", "->ERROR: " . $result->{Error};
|
|
} else {
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "retStat_wakeUpCall", "done";
|
|
}
|
|
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "fhem->sid", $result->{sid} if $result->{sid};
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "fhem->sidTime", time();
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "readoutTime", sprintf( "%.2f", time()-$startTime);
|
|
|
|
my $returnStr = join('|', @roReadings );
|
|
FRITZBOX_Log $hash, 5, "DEBUG: Handover to main process: " . $returnStr;
|
|
return $name . "|2|" . encode_base64($returnStr,"");
|
|
|
|
} # end FRITZBOX_Run_wakeUpCall
|
|
|
|
#######################################################################
|
|
sub FRITZBOX_Run_fritzloginfo($)
|
|
{
|
|
my ($string) = @_;
|
|
my ($name, $cmd, @val) = split "\\|", $string;
|
|
my $hash = $defs{$name};
|
|
my $result;
|
|
my @webCmdArray;
|
|
my @roReadings;
|
|
my $startTime = time();
|
|
my $returnCase = "|2|";
|
|
my $returnLog = "";
|
|
|
|
# Frizt!OS >= 7.50
|
|
# xhr 1 lang de page log apply nop filter wlan wlan on | off -> on oder off erweitertes WLAN-Logging
|
|
|
|
# xhr 1 lang de page log xhrId log filter all useajax 1 no_sidrenew nop -> Log-Einträge Alle
|
|
# xhr 1 lang de page log xhrId log filter sys useajax 1 no_sidrenew nop -> Log-Einträge System
|
|
# xhr 1 lang de page log xhrId log filter wlan useajax 1 no_sidrenew nop -> Log-Einträge WLAN
|
|
# xhr 1 lang de page log xhrId log filter usb useajax 1 no_sidrenew nop -> Log-Einträge USB
|
|
# xhr 1 lang de page log xhrId log filter net useajax 1 no_sidrenew nop -> Log-Einträge Internetverbindung
|
|
# xhr 1 lang de page log xhrId log filter fon useajax 1 no_sidrenew nop -> Log-Einträge Fon
|
|
|
|
# Frizt!OS < 7.50
|
|
# xhr 1 lang de page log xhrId all wlan 7 (on) | 6 (off) -> on oder off erweitertes WLAN-Logging
|
|
|
|
# xhr 1 lang de page log xhrId log filter 0 useajax 1 no_sidrenew nop -> Log-Einträge Alle
|
|
# xhr 1 lang de page log xhrId log filter 1 useajax 1 no_sidrenew nop -> Log-Einträge System
|
|
# xhr 1 lang de page log xhrId log filter 4 useajax 1 no_sidrenew nop -> Log-Einträge WLAN
|
|
# xhr 1 lang de page log xhrId log filter 5 useajax 1 no_sidrenew nop -> Log-Einträge USB
|
|
# xhr 1 lang de page log xhrId log filter 2 useajax 1 no_sidrenew nop -> Log-Einträge Internetverbindung
|
|
# xhr 1 lang de page log xhrId log filter 3 useajax 1 no_sidrenew nop -> Log-Einträge Fon
|
|
|
|
my @fwV = split(/\./, ReadingsVal($name, "box_fwVersion", "0.0.0.error"));
|
|
|
|
my $FW1 = substr($fwV[1],0,2);
|
|
my $FW2 = substr($fwV[2],0,2);
|
|
|
|
if ($cmd eq "wlanlogextended") {
|
|
FRITZBOX_Log $hash, 4, "DEBUG: fritzlog -> $cmd, $val[0]";
|
|
push @webCmdArray, "xhr" => "1";
|
|
push @webCmdArray, "lang" => "de";
|
|
push @webCmdArray, "page" => "log";
|
|
|
|
if (($FW1 == 6 && $FW2 >= 80) || ($FW1 == 7 && $FW2 < 50)) {
|
|
push @webCmdArray, "wlan" => $val[0] eq "on" ? "7" : "6";
|
|
} elsif ($FW1 >= 7 && $FW2 >= 50) {
|
|
push @webCmdArray, "filter" => "wlan";
|
|
push @webCmdArray, "apply" => "";
|
|
push @webCmdArray, "wlan" => $val[0];
|
|
} else {
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "retStat_wlanLogExtended", "Not supported Fritz!OS $FW1.$FW2";
|
|
}
|
|
|
|
FRITZBOX_Log $hash, 5, "DEBUG: data.lua: \n" . join(" ", @webCmdArray);
|
|
|
|
my $result = FRITZBOX_Function_Lua($hash, "data", \@webCmdArray) ;
|
|
|
|
if(defined $result->{Error}) {
|
|
FRITZBOX_Log $hash, 2, "ERROR: wlanLogExtended: " . $result->{Error};
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "retStat_wlanLogExtended", "->ERROR: " . $result->{Error};
|
|
} else {
|
|
FRITZBOX_Log $hash, 5, "DEBUG: wlanLogExtended: " . $result->{data}->{wlan};
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "retStat_wlanLogExtended", $result->{data}->{apply};
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "box_wlan_LogExtended", $result->{data}->{wlan} ? "on" : "off";
|
|
}
|
|
|
|
} else {
|
|
|
|
FRITZBOX_Log $hash, 4, "DEBUG: fritzlog -> $cmd, $val[0], $val[1]";
|
|
|
|
push @webCmdArray, "xhr" => "1";
|
|
push @webCmdArray, "lang" => "de";
|
|
push @webCmdArray, "page" => "log";
|
|
push @webCmdArray, "xhrId" => "log";
|
|
push @webCmdArray, "useajax" => "1";
|
|
push @webCmdArray, "no_sidrenew" => "";
|
|
|
|
if (($FW1 == 6 && $FW2 >= 83) || ($FW1 == 7 && $FW2 < 50)) {
|
|
push @webCmdArray, "filter" => "0" if $val[1] =~ /all/;
|
|
push @webCmdArray, "filter" => "1" if $val[1] =~ /sys/;
|
|
push @webCmdArray, "filter" => "2" if $val[1] =~ /net/;
|
|
push @webCmdArray, "filter" => "3" if $val[1] =~ /fon/;
|
|
push @webCmdArray, "filter" => "4" if $val[1] =~ /wlan/;
|
|
push @webCmdArray, "filter" => "5" if $val[1] =~ /usb/;
|
|
} elsif ($FW1 >= 7 && $FW2 >= 50) {
|
|
push @webCmdArray, "filter" => $val[1];
|
|
}
|
|
|
|
FRITZBOX_Log $hash, 5, "DEBUG: data.lua: \n" . join(" ", @webCmdArray);
|
|
|
|
my $result = FRITZBOX_Function_Lua($hash, "data", \@webCmdArray) ;
|
|
|
|
if(defined $result->{Error}) {
|
|
FRITZBOX_Log $hash, 2, "ERROR: fritzLogInfo: " . $result->{Error};
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "retStat_fritzLogInfo", "->ERROR: " . $result->{Error};
|
|
} else {
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "retStat_fritzLogInfo", "done";
|
|
}
|
|
|
|
if (int @val == 3 && $val[2] eq "off") {
|
|
$returnLog = "|" . $val[1] . "|" . toJSON ($result);
|
|
$returnCase = "|3|";
|
|
} else {
|
|
|
|
my $returnExPost = eval { myUtilsFritzLogExPostnb ($hash, $val[1], $result); };
|
|
|
|
if ($@) {
|
|
FRITZBOX_Log $hash, 2, "ERROR: fritzLogExPost: " . $@;
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "retStat_fritzLogExPost", "->ERROR: " . $@;
|
|
} else {
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "retStat_fritzLogExPost", $returnExPost;
|
|
}
|
|
}
|
|
|
|
}
|
|
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "fhem->sid", $result->{sid} if $result->{sid};
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "fhem->sidTime", time();
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "readoutTime", sprintf( "%.2f", time()-$startTime);
|
|
|
|
my $returnStr = join('|', @roReadings );
|
|
FRITZBOX_Log $hash, 5, "DEBUG: Handover to main process: " . $returnStr;
|
|
return $name . $returnCase . encode_base64($returnStr,"") . $returnLog;
|
|
|
|
} # end FRITZBOX_Run_fritzloginfo
|
|
|
|
#######################################################################
|
|
sub FRITZBOX_Run_macFilter($)
|
|
{
|
|
my ($string) = @_;
|
|
my ($name, $cmd, @val) = split "\\|", $string;
|
|
my $hash = $defs{$name};
|
|
my $result;
|
|
my @webCmdArray;
|
|
my @tr064CmdArray;
|
|
my @roReadings;
|
|
my $startTime = time();
|
|
my $queryStr;
|
|
|
|
# xhr 1
|
|
# MACFilter 0
|
|
# currMACFilter 1
|
|
# apply nop
|
|
# lang de
|
|
# page wKey
|
|
|
|
# xhr 1 MACFilter 0 currMACFilter 1 apply nop lang de page wKey
|
|
# xhr 1 MACFilter 1 currMACFilter 0 apply nop lang de page wKey
|
|
|
|
my $returnStr;
|
|
|
|
my $switch = $val[0];
|
|
$switch =~ s/on/1/;
|
|
$switch =~ s/off/0/;
|
|
|
|
my $currMACFilter = ReadingsVal($name, "box_macFilter_active", "ERROR");
|
|
|
|
$queryStr = "&box_macFilter_active=wlan:settings/is_macfilter_active";
|
|
|
|
$result = FRITZBOX_Web_Query( $hash, $queryStr) ;
|
|
|
|
if ( defined $result->{Error} ) {
|
|
FRITZBOX_Log $hash, 2, "ERROR: macFilter -> " . $result->{Error};
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "retStat_macFilter", "macFilter->ERROR: " . $result->{Error};
|
|
} elsif ( defined $result->{AuthorizationRequired} ) {
|
|
FRITZBOX_Log $hash, 2, "ERROR: AuthorizationRequired -> " . $result->{AuthorizationRequired};
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "retStat_macFilter", "macFilter->ERROR: AuthorizationRequired";
|
|
} elsif ( ! defined ($result->{box_macFilter_active}) ) {
|
|
FRITZBOX_Log $hash, 2, "ERROR: MAC Filter not available";
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "retStat_macFilter", "macFilter->ERROR: MAC Filter not available";
|
|
} elsif ( $switch == $result->{box_macFilter_active} ) {
|
|
FRITZBOX_Log $hash, 4, "INFO: no macFilter change necessary";
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "retStat_macFilter", "macFilter->INFO: change necessary";
|
|
} else {
|
|
|
|
push @webCmdArray, "xhr" => "1";
|
|
|
|
push @webCmdArray, "MACFilter" => $switch;
|
|
push @webCmdArray, "currMACFilter" => $switch == 1? 0 : 1;
|
|
|
|
push @webCmdArray, "apply" => "";
|
|
push @webCmdArray, "lang" => "de";
|
|
push @webCmdArray, "page" => "wKey";
|
|
|
|
my @fwV = split(/\./, ReadingsVal($name, "box_fwVersion", "0.0.0.error"));
|
|
|
|
my $FW1 = substr($fwV[1],0,2);
|
|
my $FW2 = substr($fwV[2],0,2);
|
|
|
|
FRITZBOX_Log $hash, 4, "INFO: set $name $cmd (Fritz!OS: $FW1.$FW2)";
|
|
|
|
FRITZBOX_Log $hash, 5, "DEBUG: set $name $cmd " . join(" ", @webCmdArray);
|
|
|
|
$result = FRITZBOX_Function_Lua($hash, "data", \@webCmdArray) ;
|
|
|
|
if(defined $result->{Error}) {
|
|
FRITZBOX_Log $hash, 2, "ERROR: setting MAC Filter: " . $result->{Error};
|
|
return "ERROR: setting MAC Filter: " . $result->{Error};
|
|
} else {
|
|
|
|
$queryStr = "&box_macFilter_active=wlan:settings/is_macfilter_active";
|
|
|
|
$result = FRITZBOX_Web_Query( $hash, $queryStr) ;
|
|
|
|
if ( defined $result->{Error} ) {
|
|
FRITZBOX_Log $hash, 2, "ERROR: macFilter -> " . $result->{Error};
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "retStat_macFilter", "macFilter->ERROR: " . $result->{Error};
|
|
} elsif ( defined $result->{AuthorizationRequired} ) {
|
|
FRITZBOX_Log $hash, 2, "ERROR: AuthorizationRequired -> " . $result->{AuthorizationRequired};
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "retStat_macFilter", "macFilter->ERROR: AuthorizationRequired";
|
|
} elsif( !defined ($result->{box_macFilter_active}) ) {
|
|
FRITZBOX_Log $hash, 2, "ERROR: MAC Filter not available";
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "retStat_macFilter", "macFilter->ERROR: MAC Filter not available";
|
|
} elsif ( $switch != $result->{box_macFilter_active} ) {
|
|
FRITZBOX_Log $hash, 4, "INFO: no macFilter change necessary";
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "retStat_macFilter", "macFilter->INFO: change necessary";
|
|
} else {
|
|
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "box_macFilter_active", $val[0];
|
|
|
|
FRITZBOX_Log $hash, 4, "INFO: macFilter set to " . $val[0];
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "retStat_macFilter", "macFilter->set to " . $val[0];
|
|
}
|
|
}
|
|
}
|
|
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "fhem->sid", $result->{sid} if $result->{sid};
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "fhem->sidTime", time();
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "readoutTime", sprintf( "%.2f", time()-$startTime);
|
|
|
|
$returnStr = join('|', @roReadings );
|
|
FRITZBOX_Log $hash, 5, "DEBUG: Handover to main process: " . $returnStr;
|
|
return $name . "|2|" . encode_base64($returnStr,"");
|
|
|
|
} # end FRITZBOX_Run_macFilter
|
|
|
|
#######################################################################
|
|
sub FRITZBOX_Run_rescan_neighborhood($)
|
|
{
|
|
my ($string) = @_;
|
|
my ($name, $cmd, @val) = split "\\|", $string;
|
|
my $hash = $defs{$name};
|
|
my $result;
|
|
my @webCmdArray;
|
|
my @tr064CmdArray;
|
|
my @roReadings;
|
|
my $startTime = time();
|
|
|
|
# xhr 1 refresh nop lang de page chan
|
|
# xhr: 1
|
|
# refresh nop
|
|
# lang: de
|
|
# page: chan
|
|
|
|
push @webCmdArray, "xhr" => "1";
|
|
push @webCmdArray, "refresh" => "";
|
|
push @webCmdArray, "lang" => "de";
|
|
push @webCmdArray, "page" => "chan";
|
|
|
|
FRITZBOX_Log $hash, 5, "DEBUG: data.lua: \n" . join(" ", @webCmdArray);
|
|
|
|
$result = FRITZBOX_Function_Lua($hash, "data", \@webCmdArray) ;
|
|
|
|
if(defined $result->{Error}) {
|
|
FRITZBOX_Log $hash, 2, "ERROR: rescan WLAN neighborhood: " . $result->{Error};
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "retStat_rescanWLANneighbors", "->ERROR: " . $result->{Error};
|
|
} else {
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "retStat_rescanWLANneighbors", "done";
|
|
}
|
|
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "fhem->sid", $result->{sid} if $result->{sid};
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "fhem->sidTime", time();
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "readoutTime", sprintf( "%.2f", time()-$startTime);
|
|
|
|
my $returnStr = join('|', @roReadings );
|
|
FRITZBOX_Log $hash, 5, "DEBUG: Handover to main process: " . $returnStr;
|
|
return $name . "|2|" . encode_base64($returnStr,"");
|
|
|
|
} # end FRITZBOX_Run_rescan_neighborhood
|
|
|
|
#######################################################################
|
|
sub FRITZBOX_Run_chgProfile($)
|
|
{
|
|
my ($string) = @_;
|
|
my ($name, $cmd, @val) = split "\\|", $string;
|
|
my $hash = $defs{$name};
|
|
my $result;
|
|
my @webCmdArray;
|
|
my @tr064CmdArray;
|
|
my @roReadings;
|
|
my $startTime = time();
|
|
|
|
my $dev_name = $hash->{fhem}->{landevice}->{$val[0]};
|
|
|
|
my $state = $val[1];
|
|
|
|
# xhr: 1
|
|
# dev_name: amazon-echo-show
|
|
# dev_ip3: 59
|
|
# dev_ip: 192.168.0.59
|
|
# static_dhcp: on
|
|
# allow_pcp_and_upnp: off
|
|
# realtimedevice: off
|
|
# kisi_profile: filtprof1
|
|
# interface_id1: 42a2
|
|
# interface_id2: dbff
|
|
# interface_id3: fe51
|
|
# interface_id4: a472
|
|
# back_to_page: netDev
|
|
# dev: landevice7720
|
|
# apply:
|
|
# sid: e921ffcd7bbbd614
|
|
# lang: de
|
|
# page: edit_device
|
|
|
|
# ab 7.50
|
|
# xhr: 1
|
|
# dev_name: Wetterstation
|
|
# internetdetail: unlimited / internetdetail: realtime
|
|
# kisi_profile: filtprof1
|
|
# allow_pcp_and_upnp: off
|
|
# dev_ip0: 192
|
|
# dev_ip1: 168
|
|
# dev_ip2: 0
|
|
# dev_ip3: 96
|
|
# dev_ip: 192.168.0.96
|
|
# static_dhcp: on
|
|
# back_to_page: netDev
|
|
# dev: landevice9824
|
|
# apply: true
|
|
# sid: 0f2c4b19eaa23f44
|
|
# lang: de
|
|
# page: edit_device
|
|
|
|
my @webCmdArrayP;
|
|
my $queryStr;
|
|
|
|
push @webCmdArrayP, "xhr" => "1";
|
|
push @webCmdArrayP, "lang" => "de";
|
|
push @webCmdArrayP, "page" => "kidPro";
|
|
|
|
FRITZBOX_Log $hash, 5, "DEBUG: get $name $cmd " . join(" ", @webCmdArrayP);
|
|
|
|
$result = FRITZBOX_Function_Lua($hash, "data", \@webCmdArrayP) ;
|
|
|
|
if(defined $result->{Error}) {
|
|
FRITZBOX_Log $hash, 2, "ERROR: changing Kid Profile: " . $result->{Error};
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "retStat_chgProfile", $val[1] . "->ERROR: " . $result->{Error};
|
|
return "ERROR: $val[1] -> " . $result->{Error};
|
|
} else {
|
|
|
|
my $views = $result->{data}->{kidProfiles};
|
|
my $ProfileOK = "false";
|
|
|
|
eval {
|
|
foreach my $key (keys %$views) {
|
|
FRITZBOX_Log $hash, 5, "DEBUG: Kid Profiles: ".$key;
|
|
if ($result->{data}->{kidProfiles}->{$key}{Id} eq $val[1]) {
|
|
$ProfileOK = "true";
|
|
last;
|
|
}
|
|
}
|
|
};
|
|
|
|
if ($ProfileOK eq "false") {
|
|
FRITZBOX_Log $hash, 2, "ERROR: " . $val[1] . " not available/defined.";
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "retStat_chgProfile", $val[1] . "->ERROR: not available/defined";
|
|
} else {
|
|
|
|
FRITZBOX_Log $hash, 4, "INFO: Profile $val[1] available.";
|
|
|
|
my $lanDevice_Info = FRITZBOX_Lan_Device_Info( $hash, $val[0], "chgProf");
|
|
|
|
return $lanDevice_Info if $lanDevice_Info =~ /ERROR/;
|
|
|
|
FRITZBOX_Log $hash, 5, "DEBUG: \n" . Dumper $lanDevice_Info;
|
|
|
|
if($lanDevice_Info->{data}->{vars}->{dev}->{UID} eq $val[0]) {
|
|
|
|
my @fwV = split(/\./, ReadingsVal($name, "box_fwVersion", "0.0.0.error"));
|
|
|
|
my $FW1 = substr($fwV[1],0,2);
|
|
my $FW2 = substr($fwV[2],0,2);
|
|
|
|
FRITZBOX_Log $hash, 4, "INFO: set $name $cmd (Fritz!OS: $FW1.$FW2)";
|
|
|
|
push @webCmdArray, "xhr" => "1";
|
|
push @webCmdArray, "dev_name" => $lanDevice_Info->{data}->{vars}->{dev}->{name}->{displayName};
|
|
push @webCmdArray, "dev_ip" => $lanDevice_Info->{data}->{vars}->{dev}->{ipv4}->{current}->{ip};
|
|
push @webCmdArray, "kisi_profile" => $val[1];
|
|
push @webCmdArray, "back_to_page" => "netDev";
|
|
push @webCmdArray, "dev" => $val[0];
|
|
push @webCmdArray, "lang" => "de";
|
|
|
|
if ($lanDevice_Info->{data}->{vars}->{dev}->{ipv4}->{current}->{dhcp} eq "1") {
|
|
push @webCmdArray, "static_dhcp" => "on";
|
|
} else {
|
|
push @webCmdArray, "static_dhcp" => "off";
|
|
}
|
|
|
|
if ($FW1 <= 7 && $FW2 < 21) {
|
|
push @webCmdArray, "page" => "edit_device";
|
|
} elsif ($FW1 >= 7 && $FW2 < 50) {
|
|
push @webCmdArray, "page" => "edit_device2";
|
|
} else {
|
|
push @webCmdArray, "page" => "edit_device";
|
|
}
|
|
|
|
if ($FW1 <= 7 && $FW2 < 50) {
|
|
push @webCmdArray, "dev_ip3" => (split(/\./, $lanDevice_Info->{data}->{vars}->{dev}->{ipv4}->{current}->{ip}))[3];
|
|
|
|
if ($lanDevice_Info->{data}->{vars}->{dev}->{portForwarding}->{allowForwarding} eq "true") {
|
|
push @webCmdArray, "allow_pcp_and_upnp" => "on";
|
|
} else {
|
|
push @webCmdArray, "allow_pcp_and_upnp" => "off";
|
|
}
|
|
|
|
if ($lanDevice_Info->{data}->{vars}->{dev}->{realtime}->{state} eq "true") {
|
|
push @webCmdArray, "realtimedevice" => "on";
|
|
} else {
|
|
push @webCmdArray, "realtimedevice" => "off";
|
|
}
|
|
|
|
push @webCmdArray, "interface_id1" => (split(/:/, $lanDevice_Info->{data}->{vars}->{dev}->{ipv6}->{iface}->{ifaceid}))[2]; #42a2
|
|
push @webCmdArray, "interface_id2" => (split(/:/, $lanDevice_Info->{data}->{vars}->{dev}->{ipv6}->{iface}->{ifaceid}))[3]; #dbff
|
|
push @webCmdArray, "interface_id3" => (split(/:/, $lanDevice_Info->{data}->{vars}->{dev}->{ipv6}->{iface}->{ifaceid}))[4]; #fe51
|
|
push @webCmdArray, "interface_id4" => (split(/:/, $lanDevice_Info->{data}->{vars}->{dev}->{ipv6}->{iface}->{ifaceid}))[5]; #a472
|
|
push @webCmdArray, "apply" => "";
|
|
|
|
} else {
|
|
if ($lanDevice_Info->{data}->{vars}->{dev}->{ipv4}->{portForwarding}->{allowForwarding}) {
|
|
push @webCmdArray, "allow_pcp_and_upnp" => "on";
|
|
} else {
|
|
push @webCmdArray, "allow_pcp_and_upnp" => "off";
|
|
}
|
|
|
|
if ($lanDevice_Info->{data}->{vars}->{dev}->{realtime}->{state} eq "true") {
|
|
push @webCmdArray, "internetdetail" => "realtime";
|
|
} else {
|
|
push @webCmdArray, "internetdetail" => $lanDevice_Info->{data}->{vars}->{dev}->{netAccess}->{kisi}->{selectedRights}->{msgid};
|
|
}
|
|
|
|
push @webCmdArray, "dev_ip0" => (split(/\./, $lanDevice_Info->{data}->{vars}->{dev}->{ipv4}->{current}->{ip}))[0];
|
|
push @webCmdArray, "dev_ip1" => (split(/\./, $lanDevice_Info->{data}->{vars}->{dev}->{ipv4}->{current}->{ip}))[1];
|
|
push @webCmdArray, "dev_ip2" => (split(/\./, $lanDevice_Info->{data}->{vars}->{dev}->{ipv4}->{current}->{ip}))[2];
|
|
push @webCmdArray, "dev_ip3" => (split(/\./, $lanDevice_Info->{data}->{vars}->{dev}->{ipv4}->{current}->{ip}))[3];
|
|
push @webCmdArray, "apply" => "true";
|
|
}
|
|
|
|
FRITZBOX_Log $hash, 5, "DEBUG: get $name $cmd " . join(" ", @webCmdArray);
|
|
|
|
$result = FRITZBOX_Function_Lua($hash, "data", \@webCmdArray) ;
|
|
|
|
my $tmp = FRITZBOX_ERR_Result($hash, $result, 1);
|
|
|
|
if( substr($tmp, 0, 6) eq "ERROR:") {
|
|
FRITZBOX_Log $hash, 2, "ERROR: result $name $cmd " . $tmp;
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "retStat_chgProfile", $val[0] . "->ERROR: changing profile";
|
|
} else {
|
|
FRITZBOX_Log $hash, 4, "INFO: result $name $cmd " . $tmp;
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "retStat_chgProfile", $val[0] . "->INFO: profile ". $val[1];
|
|
}
|
|
|
|
} else {
|
|
FRITZBOX_Log $hash, 2, "ERROR: " . $val[0] . " not available/defined.";
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "retStat_chgProfile", $val[0] . "->ERROR: not available/defined";
|
|
}
|
|
}
|
|
}
|
|
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "fhem->sid", $result->{sid} if $result->{sid};
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "fhem->sidTime", time();
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "readoutTime", sprintf( "%.2f", time()-$startTime);
|
|
|
|
my $returnStr = join('|', @roReadings );
|
|
FRITZBOX_Log $hash, 5, "DEBUG: Handover to main process: " . $returnStr;
|
|
return $name . "|2|" . encode_base64($returnStr,"");
|
|
|
|
} # end FRITZBOX_Run_chgProfile
|
|
|
|
#######################################################################
|
|
sub FRITZBOX_Run_enableVPNshare($)
|
|
{
|
|
my ($string) = @_;
|
|
my ($name, $cmd, @val) = split "\\|", $string;
|
|
my $hash = $defs{$name};
|
|
my $result;
|
|
my @webCmdArray;
|
|
my @tr064CmdArray;
|
|
my @roReadings;
|
|
my $startTime = time();
|
|
|
|
# xhr: 1
|
|
# connection0: off
|
|
# active_connection0: 0
|
|
# apply:
|
|
# lang: de
|
|
# page: shareVpn
|
|
|
|
my $queryStr = "&vpn_info=vpn:settings/connection/list(remote_ip,activated,name,state,access_type)";
|
|
|
|
$result = FRITZBOX_Web_Query( $hash, $queryStr) ;
|
|
|
|
# Abbruch wenn Fehler beim Lesen der Fritzbox-Antwort
|
|
if ( defined $result->{Error} ) {
|
|
FRITZBOX_Log $hash, 2, "ERROR: evaluating $val[0] -> general error: " . $result->{Error};
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "retStat_enableVPNshare", $val[0] . "->ERROR: " . $result->{Error};
|
|
} elsif ( defined $result->{AuthorizationRequired} ) {
|
|
FRITZBOX_Log $hash, 2, "ERROR: evaluating vpn$val[0] -> AuthorizationRequired";
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "retStat_enableVPNshare", $val[0] . "->ERROR: AuthorizationRequired";
|
|
} else {
|
|
|
|
my $vpnok = 0;
|
|
my $vpnShare = substr($val[0],3);
|
|
|
|
foreach ( @{ $result->{vpn_info} } ) {
|
|
$_->{_node} =~ m/(\d+)/;
|
|
if ( $1 == $vpnShare) {
|
|
$vpnok = 1;
|
|
last;
|
|
}
|
|
}
|
|
|
|
if ($vpnok == 0){
|
|
FRITZBOX_Log $hash, 2, "ERROR: vo valid " . $val[0] . " found";
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "retStat_enableVPNshare", $val[0] . "->ERROR: not found";
|
|
} else {
|
|
FRITZBOX_Log $hash, 4, "INFO: set $name $cmd " . join(" ", @val);
|
|
|
|
my $state = $val[1] eq "on"?"1":"0";
|
|
|
|
#xhr 1 connection0 on active_connection0 1 apply nop lang de page shareVpn
|
|
|
|
push @webCmdArray, "xhr" => "1";
|
|
push @webCmdArray, "lang" => "de";
|
|
push @webCmdArray, "page" => "shareVpn";
|
|
push @webCmdArray, "apply" => "";
|
|
push @webCmdArray, "connection".$vpnShare => $val[1];
|
|
push @webCmdArray, "active_connection".$vpnShare => $state;
|
|
|
|
FRITZBOX_Log $hash, 5, "DEBUG: data.lua: \n" . join(" ", @webCmdArray);
|
|
|
|
$result = FRITZBOX_Function_Lua($hash, "data", \@webCmdArray) ;
|
|
|
|
if(defined $result->{Error}) {
|
|
FRITZBOX_Log $hash, 2, "ERROR: enable $val[0] share: " . $result->{Error};
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "retStat_enableVPNshare", $val[0] . "->ERROR: " . $result->{Error};
|
|
} else {
|
|
|
|
$queryStr = "&vpn_info=vpn:settings/connection$vpnShare/activated";
|
|
my $vpnState = FRITZBOX_Web_Query( $hash, $queryStr) ;
|
|
|
|
FRITZBOX_Log $hash, 5, "DEBUG: $vpnState->{vpn_info} \n" . Dumper $vpnState;
|
|
|
|
if(defined $vpnState->{Error}) {
|
|
FRITZBOX_Log $hash, 2, "ERROR: enable $val[0] share: " . $vpnState->{Error};
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "retStat_enableVPNshare", $val[0] . "->ERROR: " . $vpnState->{Error};
|
|
} elsif ($vpnState->{vpn_info} != $state) {
|
|
FRITZBOX_Log $hash, 2, "ERROR: VPNshare " . $val[0] . " not set to " . $val[1] . " <> " . $vpnState->{vpn_info};
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "retStat_enableVPNshare", $val[0] . "->ERROR: " . $vpnState->{vpn_info};
|
|
} else {
|
|
FRITZBOX_Log $hash, 4, "INFO: VPNshare " . $val[0] . " set to " . $val[1];
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "retStat_enableVPNshare", $val[0] . "->" . $val[1];
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, $val[0] . "_activated", $vpnState->{vpn_info};
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "fhem->sid", $result->{sid} if $result->{sid};
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "fhem->sidTime", time();
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "readoutTime", sprintf( "%.2f", time()-$startTime);
|
|
|
|
my $returnStr = join('|', @roReadings );
|
|
FRITZBOX_Log $hash, 5, "DEBUG: Handover to main process: " . $returnStr;
|
|
return $name . "|2|" . encode_base64($returnStr,"");
|
|
|
|
} # end FRITZBOX_Run_enableVPNshare
|
|
|
|
#######################################################################
|
|
sub FRITZBOX_Run_lockLandevice($)
|
|
{
|
|
my ($string) = @_;
|
|
my ($name, $cmd, @val) = split "\\|", $string;
|
|
my $hash = $defs{$name};
|
|
my $result;
|
|
my @webCmdArray;
|
|
my @roReadings;
|
|
my $startTime = time();
|
|
|
|
# xhr 1
|
|
# kisi_profile filtprof1
|
|
# back_to_page netDev
|
|
# dev landevice7731
|
|
# block_dev nop
|
|
# lang de
|
|
# page edit_device2
|
|
|
|
my $returnStr;
|
|
|
|
push @webCmdArray, "xhr" => "1";
|
|
if ($val[1] eq "on") {
|
|
push @webCmdArray, "kisi_profile" => "filtprof1";
|
|
}
|
|
|
|
push @webCmdArray, "dev" => $val[0];
|
|
push @webCmdArray, "lang" => "de";
|
|
|
|
my @fwV = split(/\./, ReadingsVal($name, "box_fwVersion", "0.0.0.error"));
|
|
|
|
my $FW1 = substr($fwV[1],0,2);
|
|
my $FW2 = substr($fwV[2],0,2);
|
|
my $dev_name = $hash->{fhem}->{landevice}->{$val[0]};
|
|
|
|
FRITZBOX_Log $hash, 4, "INFO: set $name $cmd (Fritz!OS$FW1.$FW2)";
|
|
|
|
if ($FW1 <= 7 && $FW2 < 21) {
|
|
push @webCmdArray, "page" => "edit_device2";
|
|
push @webCmdArray, "block_dev" => "";
|
|
} elsif ($FW1 >= 7 && $FW2 < 50) {
|
|
push @webCmdArray, "page" => "edit_device";
|
|
push @webCmdArray, "block_dev" => "";
|
|
} else {
|
|
if($val[1] eq "on") {
|
|
push @webCmdArray, "internetdetail" => "blocked";
|
|
} else {
|
|
push @webCmdArray, "internetdetail" => "unlimited";
|
|
}
|
|
push @webCmdArray, "page" => "edit_device";
|
|
push @webCmdArray, "apply" => "true";
|
|
push @webCmdArray, "dev_name" => "$dev_name";
|
|
}
|
|
|
|
FRITZBOX_Log $hash, 5, "DEBUG: get $name $cmd " . join(" ", @webCmdArray);
|
|
|
|
my $lock_res = FRITZBOX_Lan_Device_Info( $hash, $val[0], "lockLandevice");
|
|
|
|
unless (($lock_res =~ /blocked/ && $val[1] eq "on") || ($lock_res =~ /unlimited/ && $val[1] eq "off")) {
|
|
|
|
my $result = FRITZBOX_Function_Lua($hash, "data", \@webCmdArray);
|
|
|
|
if ( defined $result->{Error} ) {
|
|
FRITZBOX_Log $hash, 2, "ERROR: lockLandevice status: " . $result->{Error};
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "retStat_lockLandevice", $val[0] . "->ERROR: " . $result->{Error};
|
|
} else {
|
|
|
|
$lock_res = FRITZBOX_Lan_Device_Info( $hash, $val[0], "lockLandevice");
|
|
|
|
if ($lock_res =~ /ERROR/) {
|
|
FRITZBOX_Log $hash, 2, "ERROR: setting locklandevice: " . substr($lock_res, 7);
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "retStat_lockLandevice", $val[0] . "->ERROR:" . substr($lock_res, 7);
|
|
} else {
|
|
|
|
unless (($lock_res =~ /blocked/ && $val[1] eq "on") || ($lock_res =~ /unlimited/ && $val[1] eq "off")) {
|
|
FRITZBOX_Log $hash, 2, "ERROR: setting locklandevice: " . $val[0];
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "retStat_lockLandevice", $val[0] . "->ERROR: setting locklandevice " . $val[1];
|
|
} else {
|
|
FRITZBOX_Log $hash, 4, "INFO: " . $lock_res . " -> $name $cmd $val[1]";
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "retStat_lockLandevice", $val[0] . "->" . $val[1];
|
|
}
|
|
}
|
|
}
|
|
} else {
|
|
FRITZBOX_Log $hash, 4, "INFO: " . $lock_res . " -> $name $cmd $val[1]";
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "retStat_lockLandevice", $val[0] . "->" . $val[1];
|
|
}
|
|
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "fhem->sid", $result->{sid} if $result->{sid};
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "fhem->sidTime", time();
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "readoutTime", sprintf( "%.2f", time()-$startTime);
|
|
|
|
$returnStr = join('|', @roReadings );
|
|
FRITZBOX_Log $hash, 5, "DEBUG: Handover to main process: " . $returnStr;
|
|
return $name . "|2|" . encode_base64($returnStr,"");
|
|
|
|
} # end FRITZBOX_Run_lockLandevice
|
|
|
|
#######################################################################
|
|
sub FRITZBOX_Run_Call_Web($)
|
|
{
|
|
my ($string) = @_;
|
|
my ($name, @val) = split "\\|", $string;
|
|
my $hash = $defs{$name};
|
|
|
|
FRITZBOX_Log $hash, 4, "DEBUG: set $name " . join(" ", @val);
|
|
|
|
unless (int @val) {
|
|
FRITZBOX_Log $hash, 4, "DEBUG: At least one parameter must be defined.";
|
|
return "$name|0|Error: At least one parameter must be defined."
|
|
}
|
|
|
|
my $result;
|
|
my @tr064CallArray;
|
|
my $duration = 60;
|
|
my $extNo = $val[0];
|
|
|
|
# Check if 1st parameter is a valid number
|
|
|
|
unless ($extNo =~ /^[\d\*\#+,]+$/) {
|
|
FRITZBOX_Log $hash, 4, "DEBUG: Parameter '$extNo' not a valid phone number.";
|
|
return $name."|0|Error: Parameter '$extNo' not a valid phone number"
|
|
}
|
|
|
|
$extNo =~ s/#$//;
|
|
|
|
# Check if 2nd parameter is the duration
|
|
|
|
shift @val;
|
|
if (int @val) {
|
|
if ($val[0] =~ /^\d+$/ && int $val[0] > 0) {
|
|
$duration = $val[0];
|
|
FRITZBOX_Log $hash, 4, "DEBUG: Extracted call duration of $duration s.";
|
|
shift @val;
|
|
}
|
|
}
|
|
|
|
#Preparing command array to ring // X_VoIP:1 x_voip X_AVM-DE_DialNumber NewX_AVM-DE_PhoneNumber 01622846962#
|
|
FRITZBOX_Log $hash, 3, "INFO: Call $extNo for $duration seconds - " . $hash->{SECPORT};
|
|
if ($hash->{SECPORT}) {
|
|
push @tr064CallArray, ["X_VoIP:1", "x_voip", "X_AVM-DE_DialNumber", "NewX_AVM-DE_PhoneNumber", $extNo."#"];
|
|
$result = FRITZBOX_TR064_Cmd( $hash, 0, \@tr064CallArray);
|
|
FRITZBOX_Log $hash, 4, "DEBUG: result of calling number $extNo -> " . $result;
|
|
}
|
|
else {
|
|
FRITZBOX_Log $hash, 3, "INFO: Your Fritz!OS version has limited interfaces. You cannot use call.";
|
|
}
|
|
|
|
FRITZBOX_Log $hash, 4, "DEBUG: waiting";
|
|
sleep $duration; #+1; # 1s added because it takes sometime until it starts ringing
|
|
FRITZBOX_Log $hash, 4, "DEBUG: stop ringing ";
|
|
|
|
#Preparing command array to stop ringing and reset dial port // X_VoIP:1 x_voip X_AVM-DE_DialHangup
|
|
if ($hash->{SECPORT}) { #or hangup with TR-064
|
|
push @tr064CallArray, ["X_VoIP:1", "x_voip", "X_AVM-DE_DialHangup"];
|
|
$result = FRITZBOX_TR064_Cmd( $hash, 0, \@tr064CallArray);
|
|
FRITZBOX_Log $hash, 4, "DEBUG: result of stop ringing number $extNo -> ". $result;
|
|
}
|
|
|
|
return $name."|1|Calling done";
|
|
|
|
} # end FRITZBOX_Run_Call_Web
|
|
|
|
#######################################################################
|
|
sub FRITZBOX_Run_GuestWlan_Web($)
|
|
{
|
|
my ($string) = @_;
|
|
my ($name, @val) = split "\\|", $string;
|
|
my $hash = $defs{$name};
|
|
my $result;
|
|
my @webCmdArray;
|
|
my @tr064CmdArray;
|
|
my @roReadings;
|
|
my $startTime = time();
|
|
|
|
my $state = $val[0];
|
|
$state =~ s/on/1/;
|
|
$state =~ s/off/0/;
|
|
|
|
# Set guestWLAN, if necessary set also WLAN
|
|
if ( $hash->{SECPORT} ) { #TR-064
|
|
if ($state == 1) { # WLAN on when Guest WLAN on
|
|
push @tr064CmdArray, ["WLANConfiguration:2", "wlanconfig2", "SetEnable", "NewEnable", "1"]
|
|
if $hash->{fhem}->{is_double_wlan} == 1;
|
|
push @tr064CmdArray, ["WLANConfiguration:1", "wlanconfig1", "SetEnable", "NewEnable", "1"];
|
|
}
|
|
my $gWlanNo = 2;
|
|
$gWlanNo = 3 if $hash->{fhem}->{is_double_wlan} == 1;
|
|
push @tr064CmdArray, ["WLANConfiguration:".$gWlanNo, "wlanconfig".$gWlanNo, "SetEnable", "NewEnable", $state];
|
|
$result = FRITZBOX_TR064_Cmd( $hash, 0, \@tr064CmdArray );
|
|
FRITZBOX_Log $hash, 5, "DEBUG: switch GuestWLAN: " . $result;
|
|
}
|
|
else { #no API
|
|
FRITZBOX_Log $hash, 2, "ERROR: No API available to switch WLAN.";
|
|
}
|
|
|
|
# Read WLAN-Status
|
|
my $queryStr = "&box_wlan_24GHz=wlan:settings/ap_enabled"; # WLAN
|
|
$queryStr .= "&box_wlan_5GHz=wlan:settings/ap_enabled_scnd"; # 2nd WLAN
|
|
$queryStr .= "&box_guestWlan=wlan:settings/guest_ap_enabled"; # Gäste WLAN
|
|
$queryStr .= "&box_guestWlanRemain=wlan:settings/guest_time_remain";
|
|
$queryStr .= "&box_macFilter_active=wlan:settings/is_macfilter_active";
|
|
|
|
$result = FRITZBOX_Web_Query( $hash, $queryStr) ;
|
|
|
|
if ( defined $result->{Error} ) {
|
|
FRITZBOX_Log $hash, 2, "ERROR: ".$result->{Error};
|
|
} else {
|
|
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "box_wlan_2.4GHz", $result->{box_wlan_24GHz}, "onoff";
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "box_wlan_5GHz", $result->{box_wlan_5GHz}, "onoff";
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "box_guestWlan", $result->{box_guestWlan}, "onoff";
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "box_guestWlanRemain", $result->{box_guestWlanRemain};
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "box_macFilter_active", $result->{box_macFilter_active}, "onoff";
|
|
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "fhem->sid", $result->{sid} if $result->{sid};
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "fhem->sidTime", time();
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "readoutTime", sprintf( "%.2f", time()-$startTime);
|
|
}
|
|
|
|
my $returnStr = join('|', @roReadings );
|
|
FRITZBOX_Log $hash, 5, "DEBUG: Handover to main process: " . $returnStr;
|
|
return $name."|2|".encode_base64($returnStr,"");
|
|
|
|
} # end FRITZBOX_Run_GuestWlan_Shell
|
|
|
|
#######################################################################
|
|
sub FRITZBOX_Wlan_Run_Web($)
|
|
{
|
|
my ($string) = @_;
|
|
my ($name, $cmd, @val) = split "\\|", $string;
|
|
my $hash = $defs{$name};
|
|
my $result;
|
|
my @webCmdArray;
|
|
my @tr064CmdArray;
|
|
my @roReadings;
|
|
my $startTime = time();
|
|
|
|
my $state = $val[0];
|
|
$state =~ s/on/1/;
|
|
$state =~ s/off/0/;
|
|
|
|
# Set WLAN
|
|
if ($hash->{SECPORT}) { #TR-064
|
|
push @tr064CmdArray, ["WLANConfiguration:2", "wlanconfig2", "SetEnable", "NewEnable", $state]
|
|
if $hash->{fhem}->{is_double_wlan} == 1 && $cmd ne "wlan2.4";
|
|
push @tr064CmdArray, ["WLANConfiguration:1", "wlanconfig1", "SetEnable", "NewEnable", $state]
|
|
if $cmd =~ /^(wlan|wlan2\.4)$/;
|
|
FRITZBOX_Log $hash, 3, "INFO: TR-064 Command";
|
|
$result = FRITZBOX_TR064_Cmd( $hash, 0, \@tr064CmdArray );
|
|
}
|
|
else { #no API
|
|
FRITZBOX_Log $hash, 2, "ERROR: No API available to switch WLAN.";
|
|
}
|
|
|
|
# Read WLAN-Status
|
|
my $queryStr = "&box_wlan_24GHz=wlan:settings/ap_enabled"; # WLAN
|
|
$queryStr .= "&box_wlan_5GHz=wlan:settings/ap_enabled_scnd"; # 2nd WLAN
|
|
$queryStr .= "&box_guestWlan=wlan:settings/guest_ap_enabled"; # Gäste WLAN
|
|
$queryStr .= "&box_guestWlanRemain=wlan:settings/guest_time_remain";
|
|
$queryStr .= "&box_macFilter_active=wlan:settings/is_macfilter_active";
|
|
|
|
$result = FRITZBOX_Web_Query( $hash, $queryStr) ;
|
|
|
|
if ( defined $result->{Error} ) {
|
|
FRITZBOX_Log $hash, 2, "ERROR: ".$result->{Error};
|
|
} else {
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "box_wlan_2.4GHz", $result->{box_wlan_24GHz}, "onoff";
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "box_wlan_5GHz", $result->{box_wlan_5GHz}, "onoff";
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "box_guestWlan", $result->{box_guestWlan}, "onoff";
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "box_guestWlanRemain", $result->{box_guestWlanRemain};
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "box_macFilter_active", $result->{box_macFilter_active}, "onoff";
|
|
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "fhem->sid", $result->{sid} if $result->{sid};
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "fhem->sidTime", time();
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "readoutTime", sprintf( "%.2f", time()-$startTime);
|
|
}
|
|
|
|
my $returnStr = join('|', @roReadings );
|
|
FRITZBOX_Log $hash, 5, "DEBUG: Handover to main process: ".$returnStr;
|
|
return $name."|2|".encode_base64($returnStr,"");
|
|
|
|
} # end FRITZBOX_Wlan_Run_Web
|
|
|
|
#######################################################################
|
|
sub FRITZBOX_Ring_Run_Web($)
|
|
{
|
|
my ($string) = @_;
|
|
my ($name, @val) = split "\\|", $string;
|
|
my $hash = $defs{$name};
|
|
|
|
return "$name|0|Error: At least one parameter must be defined."
|
|
unless int @val;
|
|
|
|
my $result;
|
|
my @tr064Result;
|
|
my $curCallerName;
|
|
my @tr064CmdArray;
|
|
my @roReadings;
|
|
my $duration = -1;
|
|
my $intNo = $val[0];
|
|
my @FritzFons;
|
|
my $ringTone;
|
|
my %field;
|
|
my $lastField;
|
|
my $ttsLink;
|
|
my $startValue;
|
|
my $startTime = time();
|
|
|
|
# Check if 1st parameter are comma separated numbers
|
|
return $name."|0|Error (set ring): Parameter '$intNo' not a number (only commas (,) are allowed to separate phone numbers)"
|
|
unless $intNo =~ /^[\d,]+$/;
|
|
$intNo =~ s/#$//;
|
|
|
|
# Create a hash for the DECT devices whose ring tone (or radio station) can be changed
|
|
foreach ( split( /,/, $intNo ) ) {
|
|
if (defined $hash->{fhem}{$_}{brand} && "AVM" eq $hash->{fhem}{$_}{brand}) {
|
|
my $userId = $hash->{fhem}{$_}{userId};
|
|
FRITZBOX_Log $hash, 5, "DEBUG: Internal number $_ (dect$userId) seems to be a Fritz!Fon.";
|
|
push @FritzFons, $hash->{fhem}{$_}{userId};
|
|
}
|
|
}
|
|
|
|
# Check if 2nd parameter is the duration
|
|
shift @val;
|
|
if (int @val) {
|
|
if ($val[0] =~ /^\d+$/ && int $val[0] >= 0) {
|
|
$duration = $val[0];
|
|
FRITZBOX_Log $hash, 5, "DEBUG: Extracted ring duration of $duration s.";
|
|
shift @val;
|
|
}
|
|
}
|
|
|
|
# Check ClickToDial
|
|
unless ($startValue->{useClickToDial}) {
|
|
if ($hash->{SECPORT}) { # oder mit TR064
|
|
# get port name
|
|
push @tr064CmdArray, ["X_VoIP:1", "x_voip", "X_AVM-DE_GetPhonePort", "NewIndex", "1"];
|
|
@tr064Result = FRITZBOX_TR064_Cmd( $hash, 0, \@tr064CmdArray );
|
|
return $name."|0|Error (set ring): ".$tr064Result[0]->{Error} if $tr064Result[0]->{Error};
|
|
|
|
my $portName = $tr064Result[0]->{'X_AVM-DE_GetPhonePortResponse'}->{'NewX_AVM-DE_PhoneName'};
|
|
# set click to dial
|
|
if ($portName) {
|
|
push @tr064CmdArray, ["X_VoIP:1", "x_voip", "X_AVM-DE_DialSetConfig", "NewX_AVM-DE_PhoneName", $portName];
|
|
@tr064Result = FRITZBOX_TR064_Cmd( $hash, 0, \@tr064CmdArray );
|
|
FRITZBOX_Log $hash, 4, "INFO: Switch ClickToDial on, set dial port '$portName'";
|
|
}
|
|
}
|
|
else { #oder Pech gehabt
|
|
my $msg = "ERROR (set ring): Cannot ring because ClickToDial (Waehlhilfe) is off.";
|
|
FRITZBOX_Log $hash, 2, $msg;
|
|
return $name."|0|".$msg
|
|
}
|
|
}
|
|
|
|
if (int (@FritzFons) == 0 && $ttsLink) {
|
|
FRITZBOX_Log $hash, 3, "INFO: No Fritz!Fon identified, parameter 'say:' will be ignored.";
|
|
}
|
|
|
|
$intNo =~ s/,/#/g;
|
|
|
|
#Preparing 3rd command array to ring
|
|
FRITZBOX_Log $hash, 4, "INFO: Ringing $intNo for $duration seconds";
|
|
if ($hash->{SECPORT}) {
|
|
push @tr064CmdArray, ["X_VoIP:1", "x_voip", "X_AVM-DE_DialNumber", "NewX_AVM-DE_PhoneNumber", "**".$intNo."#"];
|
|
@tr064Result = FRITZBOX_TR064_Cmd( $hash, 0, \@tr064CmdArray );
|
|
return $name."|0|Error (set ring): ".$tr064Result[0]->{Error} if $tr064Result[0]->{Error};
|
|
}
|
|
else {
|
|
FRITZBOX_Log $hash, 3, "INFO: Your Fritz!OS version has limited interfaces. You cannot ring.";
|
|
}
|
|
|
|
sleep 5 if $duration <= 0; # always wait before reseting everything
|
|
sleep $duration if $duration > 0 ; #+1; # 1s added because it takes some time until it starts ringing
|
|
|
|
#Preparing 4th command array to stop ringing (but not when duration is 0 or play: and say: is used without duration)
|
|
unless ( $duration == 0 || $duration == -1 && $ttsLink ) {
|
|
push @tr064CmdArray, ["X_VoIP:1", "x_voip", "X_AVM-DE_DialHangup"];
|
|
$result = FRITZBOX_TR064_Cmd( $hash, 0, \@tr064CmdArray ) if $hash->{SECPORT};
|
|
}
|
|
|
|
# if ( $result->[0] == 1 ) {
|
|
if ( $result == "1" ) {
|
|
# FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "fhem->sid", $result->[1];
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "fhem->sidTime", time();
|
|
}
|
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "readoutTime", sprintf( "%.2f", time()-$startTime);
|
|
|
|
my $returnStr = join('|', @roReadings );
|
|
FRITZBOX_Log $hash, 5, "DEBUG: Handover to main process: ".$returnStr;
|
|
return $name."|2|".encode_base64($returnStr,"");
|
|
|
|
# return $name."|1|Ringing done";
|
|
} # end FRITZBOX_Ring_Run_Web
|
|
|
|
#######################################################################
|
|
sub FRITZBOX_SetMOH($@)
|
|
{
|
|
my ($hash, $type, @file) = @_;
|
|
my $returnStr;
|
|
my @cmdArray;
|
|
my $result;
|
|
my $name = $hash->{NAME};
|
|
my $uploadFile = '/var/tmp/fhem_moh_upload';
|
|
my $mohFile = '/var/tmp/fhem_fx_moh';
|
|
|
|
return undef;
|
|
} # end FRITZBOX_SetMOH
|
|
|
|
#######################################################################
|
|
sub FRITZBOX_SetCustomerRingTone($@)
|
|
{
|
|
my ($hash, $intern, @file) = @_;
|
|
my @cmdArray;
|
|
my $result;
|
|
my $name = $hash->{NAME};
|
|
my $uploadDir = AttrVal( $name, "defaultUploadDir", "" );
|
|
|
|
$uploadDir .= "/"
|
|
unless $uploadDir =~ /\/$|^$/;
|
|
|
|
my $inFile = join " ", @file;
|
|
$inFile = $uploadDir.$inFile
|
|
unless $inFile =~ /^\//;
|
|
|
|
return "Error: Please give a complete file path or the attribute 'defaultUploadDir'"
|
|
unless $inFile =~ /^\//;
|
|
|
|
return "Error: Only MP3 or G722 files can be uploaded to the phone."
|
|
unless $inFile =~ /\.mp3$|.g722$/i;
|
|
|
|
return undef;
|
|
|
|
} # end FRITZBOX_SetCustomerRingTone
|
|
|
|
#######################################################################
|
|
sub FRITZBOX_ConvertMOH ($@)
|
|
{
|
|
my ($hash, @file) = @_;
|
|
|
|
my $name = $hash->{NAME};
|
|
|
|
my $uploadDir = AttrVal( $name, "defaultUploadDir", "" );
|
|
$uploadDir .= "/"
|
|
unless $uploadDir =~ /\/$|^$/;
|
|
|
|
my $inFile = join " ", @file;
|
|
$inFile = $uploadDir.$inFile
|
|
unless $inFile =~ /^\//;
|
|
|
|
return "Error: You have to give a complete file path or to set the attribute 'defaultUploadDir'"
|
|
unless $inFile =~ /^\//;
|
|
|
|
return "Error: only MP3 or WAV files can be converted"
|
|
unless $inFile =~ /\.mp3$|.wav$/i;
|
|
|
|
$inFile =~ s/file:\/\///;
|
|
|
|
my $outFile = $inFile;
|
|
$outFile = substr($inFile,0,-4)
|
|
if ($inFile =~ /\.(mp3|wav)$/i);
|
|
|
|
return undef;
|
|
|
|
} # end FRITZBOX_ConvertMOH
|
|
|
|
#######################################################################
|
|
sub FRITZBOX_ConvertRingTone ($@)
|
|
{
|
|
my ($hash, @file) = @_;
|
|
|
|
my $name = $hash->{NAME};
|
|
|
|
my $uploadDir = AttrVal( $name, "defaultUploadDir", "" );
|
|
$uploadDir .= "/"
|
|
unless $uploadDir =~ /\/$|^$/;
|
|
|
|
my $inFile = join " ", @file;
|
|
$inFile = $uploadDir.$inFile
|
|
unless $inFile =~ /^\//;
|
|
|
|
return "Error: You have to give a complete file path or to set the attribute 'defaultUploadDir'"
|
|
unless $inFile =~ /^\//;
|
|
|
|
return "Error: only MP3 or WAV files can be converted"
|
|
unless $inFile =~ /\.mp3$|.wav$/i;
|
|
|
|
$inFile =~ s/file:\/\///;
|
|
|
|
my $outFile = $inFile;
|
|
$outFile = substr($inFile,0,-4)
|
|
if ($inFile =~ /\.(mp3|wav)$/i);
|
|
|
|
return undef
|
|
;
|
|
} # end FRITZBOX_ConvertRingTone
|
|
|
|
#######################################################################
|
|
sub FRITZBOX_StartRadio_Web($@)
|
|
{
|
|
my ($hash, @val) = @_;
|
|
my @webCmdArray;
|
|
my @getCmdArray;
|
|
my @tr064CmdArray;
|
|
my $name = $hash->{NAME};
|
|
my $intNo = $val[0];
|
|
my $radioStation;
|
|
my $radioStationName;
|
|
my $result;
|
|
|
|
# Check if 1st parameter is a number
|
|
return "Error: 1st Parameter '$intNo' not an internal DECT number"
|
|
unless $intNo =~ /^61[012345]$/;
|
|
|
|
# Check if the 1st parameter is a Fritz!Fon
|
|
return "Error: Internal number $intNo does not seem to be a Fritz!Fon."
|
|
unless $hash->{fhem}{$intNo}{brand} eq "AVM";
|
|
|
|
# Check if remaining parameter is an internet Radio Station
|
|
shift (@val);
|
|
if (@val) {
|
|
$radioStationName = join (" ", @val);
|
|
if ($radioStationName =~ /^\d+$/) {
|
|
$radioStation = $radioStationName;
|
|
$radioStationName = $hash->{fhem}{radio}{$radioStation};
|
|
return "Error: Unknown internet radio number $radioStation."
|
|
unless defined $radioStationName;
|
|
}
|
|
else {
|
|
foreach (keys %{$hash->{fhem}{radio}}) {
|
|
if (lc $hash->{fhem}{radio}{$_} eq lc $radioStationName) {
|
|
$radioStation = $_;
|
|
last;
|
|
}
|
|
}
|
|
return "Error: Unknown internet radio station '$radioStationName'"
|
|
unless defined $radioStation;
|
|
|
|
}
|
|
}
|
|
|
|
# Get current ringtone
|
|
my $userNo = $intNo-609;
|
|
my $queryStr = "&curRingTone=telcfg:settings/Foncontrol/User".$userNo."/IntRingTone";
|
|
$queryStr .= "&curRadioStation=telcfg:settings/Foncontrol/User".$userNo."/RadioRingID";
|
|
my $startValue = FRITZBOX_Web_Query( $hash, $queryStr );
|
|
|
|
# Set ring tone Internet Radio
|
|
if ( defined $startValue->{Error} ) {
|
|
FRITZBOX_Log $hash, 2, "ERROR: ".$startValue->{Error};
|
|
} else {
|
|
|
|
FRITZBOX_Log $hash, 5, "DEBUG: Call $intNo";
|
|
|
|
if ($hash->{SECPORT}) { #ring with TR-064
|
|
push @tr064CmdArray, ["X_VoIP:1", "x_voip", "X_AVM-DE_DialNumber", "NewX_AVM-DE_PhoneNumber", "**".$intNo."#"];
|
|
FRITZBOX_TR064_Cmd( $hash, 0, \@tr064CmdArray );
|
|
}
|
|
}
|
|
|
|
return undef;
|
|
|
|
} # end sub FRITZBOX_StartRadio_Web
|
|
|
|
# Execute a Command via SOAP Request
|
|
# {FRITZBOX_SOAP_Test_Request("FritzBox", "igdupnp\/control\/WANIPConn1", "urn:schemas-upnp-org:service:WANIPConnection:1", "GetStatusInfo")}
|
|
#################################################
|
|
sub FRITZBOX_SOAP_Test_Request($$$$)
|
|
{
|
|
my ($box,$control_url,$service_type,$service_command) = @_;
|
|
my $hash = $defs{$box};
|
|
|
|
return Dumper FRITZBOX_SOAP_Request($hash, $control_url, $service_type, $service_command);
|
|
|
|
} # end of FRITZBOX_SOAP_Test_Request
|
|
|
|
# Execute a Command via SOAP Request
|
|
#################################################
|
|
sub FRITZBOX_SOAP_Request($$$$)
|
|
{
|
|
my ($hash,$control_url,$service_type,$service_command) = @_;
|
|
|
|
my $name = $hash->{NAME};
|
|
my $port = $hash->{SECPORT};
|
|
|
|
my %retHash;
|
|
|
|
unless ($port) {
|
|
FRITZBOX_Log $hash, 2, "ERROR: TR064 not used. No security port defined.";
|
|
%retHash = ( "Error" => "TR064 not used. No security port defined", "ErrLevel" => "1" ) ;
|
|
return \%retHash;
|
|
}
|
|
|
|
# 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;
|
|
$ua->ssl_opts( verify_hostname => 0 ,SSL_verify_mode => 0x00);
|
|
|
|
my $host = $hash->{HOST};
|
|
|
|
my $connectionStatus;
|
|
|
|
# Prepare request for query LAN host
|
|
$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">
|
|
</u:$service_command>
|
|
</s:Body>
|
|
</s:Envelope>
|
|
EOD
|
|
|
|
# http port:49000
|
|
# my $init_url = "http://$host:49000/$control_url";
|
|
|
|
my $init_url = "https://$host:$port/$control_url";
|
|
my $resp_init = $ua->post($init_url, Content_Type => 'text/xml; charset=utf-8', Content => $init_request);
|
|
|
|
# Check the outcome of the response
|
|
unless ($resp_init->is_success) {
|
|
FRITZBOX_Log $hash, 4, "INFO: SOAP response error: " . $resp_init->status_line;
|
|
%retHash = ( "Error" => "SOAP response error: " . $resp_init->status_line, "ErrLevel" => "1" ) ;
|
|
return \%retHash;
|
|
}
|
|
|
|
unless( $resp_init->decoded_content ) {
|
|
FRITZBOX_Log $hash, 4, "INFO: SOAP response error: " . $resp_init->status_line;
|
|
%retHash = ( "Error" => "SOAP response error: " . $resp_init->status_line, "ErrLevel" => "1" ) ;
|
|
return \%retHash;
|
|
}
|
|
|
|
if (ref($resp_init->decoded_content) eq "HASH") {
|
|
FRITZBOX_Log $hash, 4, "DEBUG: XML_RESONSE:\n" . Dumper ($resp_init->decoded_content);
|
|
%retHash = ( "Info" => "SOAP response: " . $resp_init->status_line, "Response" => Dumper ($resp_init->decoded_content) ) ;
|
|
} elsif (ref($resp_init->decoded_content) eq "ARRAY") {
|
|
FRITZBOX_Log $hash, 4, "DEBUG: XML_RESONSE:\n" . Dumper ($resp_init->decoded_content);
|
|
%retHash = ( "Info" => "SOAP response: " . $resp_init->status_line, "Response" => Dumper ($resp_init->decoded_content) ) ;
|
|
} else {
|
|
FRITZBOX_Log $hash, 4, "DEBUG: XML_RESONSE:\n" . $resp_init->decoded_content;
|
|
%retHash = ( "Info" => "SOAP response: " . $resp_init->status_line, "Response" => $resp_init->decoded_content) ;
|
|
}
|
|
|
|
#<?xml version="1.0"?>
|
|
# <s:Envelope xmlns:s="http://schemas.xmlsoap.org/soap/envelope/" s:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/">
|
|
# <s:Body>
|
|
# <s:Fault>
|
|
# <faultcode>s:Client</faultcode>
|
|
# <faultstring>UPnPError</faultstring>
|
|
# <detail>
|
|
# <UPnPError xmlns="urn:schemas-upnp-org:control-1-0">
|
|
# <errorCode>401</errorCode>
|
|
# <errorDescription>Invalid Action</errorDescription>
|
|
# </UPnPError>
|
|
# </detail>
|
|
# </s:Fault>
|
|
# </s:Body>
|
|
#</s:Envelope>
|
|
|
|
my $sFault = \%retHash;
|
|
|
|
if($sFault =~ m/<s:Fault>(.*?)<\/s:Fault>/i) {
|
|
my $sFaultDetail = $1;
|
|
if($sFaultDetail =~ m/<errorCode>(.*?)<\/errorCode>/i) {
|
|
my $errInfo = "Code: $1";
|
|
if($sFaultDetail =~ m/<errorDescription>(.*?)<\/errorDescription>/i) {
|
|
$errInfo .= " Text: $1";
|
|
}
|
|
FRITZBOX_Log $hash, 4, "INFO: SOAP response error: " . $errInfo;
|
|
%retHash = ( "Error" => "SOAP response error: " . $errInfo, "ErrLevel" => "1" );
|
|
} else {
|
|
FRITZBOX_Log $hash, 4, "INFO: SOAP response error: " . $sFaultDetail;
|
|
%retHash = ( "Error" => "SOAP response error: " . $sFaultDetail, "ErrLevel" => "1" );
|
|
}
|
|
}
|
|
|
|
return \%retHash;
|
|
|
|
} # end of FRITZBOX_SOAP_Request
|
|
|
|
# Execute a Command via TR-064
|
|
#################################################
|
|
sub FRITZBOX_TR064_Cmd($$$)
|
|
{
|
|
my ($hash, $xml, $cmdArray) = @_;
|
|
|
|
my $name = $hash->{NAME};
|
|
my $port = $hash->{SECPORT};
|
|
|
|
unless ($port) {
|
|
FRITZBOX_Log $hash, 2, "ERROR: TR064 not used. No security port defined.";
|
|
return undef;
|
|
}
|
|
|
|
# Set Password und User for TR064 access
|
|
$FRITZBOX_TR064pwd = FRITZBOX_readPassword($hash) unless defined $FRITZBOX_TR064pwd;
|
|
$FRITZBOX_TR064user = AttrVal( $name, "boxUser", "dslf-config" );
|
|
|
|
my $host = $hash->{HOST};
|
|
|
|
my @retArray;
|
|
|
|
foreach( @{$cmdArray} ) {
|
|
next unless int @{$_} >=3 && int( @{$_} ) % 2 == 1;
|
|
my( $service, $control, $action, %params) = @{$_};
|
|
my @soapParams;
|
|
|
|
$service =~ s/urn:dslforum-org:service://;
|
|
$control =~ s#/upnp/control/##;
|
|
|
|
my $logMsg = "service='$service', control='$control', action='$action'";
|
|
# Prepare action parameter
|
|
foreach (sort keys %params) {
|
|
$logMsg .= ", parameter" . (int(@soapParams)+1) . "='$_' => '$params{$_}'" ;
|
|
push @soapParams, SOAP::Data->name( $_ => $params{$_} );
|
|
}
|
|
|
|
FRITZBOX_Log $hash, 5, "DEBUG: Perform TR-064 call - $action => " . $logMsg;
|
|
|
|
my $soap = SOAP::Lite
|
|
-> on_fault ( sub {} )
|
|
-> uri( "urn:dslforum-org:service:".$service )
|
|
-> proxy('https://'.$host.":".$port."/upnp/control/".$control, ssl_opts => [ SSL_verify_mode => 0 ], timeout => 10 )
|
|
-> readable(1);
|
|
|
|
my $res = eval { $soap -> call( $action => @soapParams )};
|
|
|
|
if ($@) {
|
|
FRITZBOX_Log $hash, 2, "INFO: TR064-PARAM-Error: " . $@;
|
|
my %errorMsg = ( "Error" => $@ );
|
|
push @retArray, \%errorMsg;
|
|
$FRITZBOX_TR064pwd = undef;
|
|
|
|
} else {
|
|
|
|
unless( $res ) { # Transport-Error
|
|
FRITZBOX_Log $hash, 4, "DEBUG: TR064-Transport-Error: ".$soap->transport->status;
|
|
my %errorMsg = ( "Error" => $soap->transport->status );
|
|
push @retArray, \%errorMsg;
|
|
$FRITZBOX_TR064pwd = undef;
|
|
}
|
|
elsif( $res->fault ) { # SOAP Error - will be defined if Fault element is in the message
|
|
# my $fcode = $s->faultcode; #
|
|
# my $fstring = $s->faultstring; # also available
|
|
# my $factor = $s->faultactor;
|
|
|
|
my $ecode = $res->faultdetail->{'UPnPError'}->{'errorCode'};
|
|
my $edesc = $res->faultdetail->{'UPnPError'}->{'errorDescription'};
|
|
|
|
FRITZBOX_Log $hash, 4, "DEBUG: TR064 error $ecode:$edesc ($logMsg)";
|
|
|
|
@{$cmdArray} = ();
|
|
# my $fdetail = Dumper($res->faultdetail); # returns value of 'detail' element as string or object
|
|
# return "Error\n".$fdetail;
|
|
|
|
push @retArray, $res->faultdetail;
|
|
$FRITZBOX_TR064pwd = undef;
|
|
}
|
|
else { # normal result
|
|
push @retArray, $res->body;
|
|
}
|
|
}
|
|
}
|
|
|
|
@{$cmdArray} = ();
|
|
return @retArray;
|
|
|
|
} # end of FRITZBOX_TR064_Cmd
|
|
|
|
# get Fritzbox tr064ServiceList
|
|
#################################################
|
|
sub FRITZBOX_TR064_Get_ServiceList($)
|
|
{
|
|
my ($hash) = @_;
|
|
my $name = $defs{NAME};
|
|
|
|
|
|
if ( $missingModulWeb ) {
|
|
my $msg = "ERROR: Perl modul " . $missingModulWeb . "is missing on this system. Please install before using this modul.";
|
|
FRITZBOX_Log $hash, 2, $msg;
|
|
return $msg;
|
|
}
|
|
|
|
my $host = $hash->{HOST};
|
|
my $url = 'http://'.$host.":49000/tr64desc.xml";
|
|
|
|
my $returnStr = "_" x 130 ."\n\n";
|
|
$returnStr .= " List of TR-064 services and actions that are provided by the device '$host'\n";
|
|
|
|
return "TR-064 switched off." if $hash->{READINGS}{box_tr064}{VAL} eq "off";
|
|
|
|
FRITZBOX_Log $hash, 5, "DEBUG: Getting service page $url";
|
|
my $agent = LWP::UserAgent->new( env_proxy => 1, keep_alive => 1, protocols_allowed => ['http'], timeout => 10);
|
|
my $response = $agent->get( $url );
|
|
|
|
return "$url does not exist." if $response->is_error();
|
|
|
|
my $content = $response->content;
|
|
my @serviceArray;
|
|
|
|
# Get basic service data
|
|
while( $content =~ /<service>(.*?)<\/service>/isg ) {
|
|
my $serviceXML = $1;
|
|
my @service;
|
|
my $service = $1 if $serviceXML =~ m/<servicetype>urn:dslforum-org:service:(.*?)<\/servicetype>/is;
|
|
my $control = $1 if $serviceXML =~ m/<controlurl>\/upnp\/control\/(.*?)<\/controlurl>/is;
|
|
my $scpd = $1 if $serviceXML =~ m/<scpdurl>(.*?)<\/scpdurl>/is;
|
|
|
|
push @serviceArray, [$service, $control, $scpd];
|
|
}
|
|
|
|
# Get actions of each service
|
|
foreach (@serviceArray) {
|
|
|
|
$url = 'http://'.$host.":49000".$_->[2];
|
|
|
|
FRITZBOX_Log $hash, 5, "DEBUG: Getting action page $url";
|
|
my $agent = LWP::UserAgent->new( env_proxy => 1, keep_alive => 1, protocols_allowed => ['http'], timeout => 10);
|
|
my $response = $agent->get( $url );
|
|
|
|
return "ServiceSCPD $url does not exist" if $response->is_error();
|
|
|
|
my $content = $response->content;
|
|
|
|
# get version
|
|
$content =~ /<major>(.*?)<\/major>/isg;
|
|
my $version = $1;
|
|
$content =~ /<minor>(.*?)<\/minor>/isg;
|
|
$version .= ".".$1;
|
|
|
|
$returnStr .= "_" x 130 ."\n\n";
|
|
$returnStr .= " Spec: http://".$host.":49000".$_->[2]." Version: ".$version."\n";
|
|
$returnStr .= " Service: ".$_->[0]." Control: ".$_->[1]."\n";
|
|
$returnStr .= "-" x 130 ."\n";
|
|
|
|
# get name and arguments of each action
|
|
while( $content =~ /<action>(.*?)<\/action>/isg ) {
|
|
|
|
my $serviceXML = $1;
|
|
$serviceXML =~ /<name>(.*?)<\/name>/is;
|
|
my $action = $1;
|
|
$serviceXML =~ /<argumentlist>(.*?)<\/argumentlist>/is;
|
|
my $argXML = $1;
|
|
|
|
my $lineStr = " $action (";
|
|
my $tab = " " x length( $lineStr );
|
|
|
|
my @argArray = ($argXML =~ /<argument>(.*?)<\/argument>/isg);
|
|
my @argOut;
|
|
foreach (@argArray) {
|
|
$_ =~ /<name>(.*?)<\/name>/is;
|
|
my $argName = $1;
|
|
$_ =~ /<direction>(.*?)<\/direction>/is;
|
|
my $argDir = $1;
|
|
if ($argDir eq "in") {
|
|
# Wrap
|
|
if (length ($lineStr.$argName) > 129) {
|
|
$returnStr .= $lineStr."\n" ;
|
|
$lineStr = $tab;
|
|
}
|
|
$lineStr .= " $argName";
|
|
}
|
|
else { push @argOut, $argName; }
|
|
}
|
|
$lineStr .= " )";
|
|
$lineStr .= " = (" if int @argOut;
|
|
foreach (@argOut) {
|
|
# Wrap
|
|
if (length ($lineStr.$_) > 129) {
|
|
$returnStr .= $lineStr."\n" ;
|
|
$lineStr = $tab ." " x 6;
|
|
}
|
|
$lineStr .= " $_";
|
|
}
|
|
$lineStr .= " )" if int @argOut;
|
|
$returnStr .= $lineStr."\n";
|
|
}
|
|
}
|
|
|
|
return $returnStr;
|
|
|
|
} # end FRITZBOX_TR064_Get_ServiceList
|
|
|
|
#######################################################################
|
|
sub FRITZBOX_TR064_Init ($$)
|
|
{
|
|
my ($hash, $host) = @_;
|
|
my $name = $hash->{NAME};
|
|
|
|
if ($missingModulTR064) {
|
|
FRITZBOX_Log $hash, 2, "ERROR: Cannot use TR-064. Perl modul " . $missingModulTR064 . " is missing on this system. Please install.";
|
|
return undef;
|
|
}
|
|
|
|
# Security Port anfordern
|
|
FRITZBOX_Log $hash, 4, "INFO: Open TR-064 connection and ask for security port";
|
|
my $s = SOAP::Lite
|
|
-> uri('urn:dslforum-org:service:DeviceInfo:1')
|
|
-> proxy('http://' . $host . ':49000/upnp/control/deviceinfo', timeout => 10 )
|
|
-> getSecurityPort();
|
|
|
|
FRITZBOX_Log $hash, 5, "INFO: SecPort-String " . Dumper($s);
|
|
|
|
my $port = $s->result;
|
|
FRITZBOX_Log $hash, 4, "INFO: SecPort-Result " . Dumper($s->result);
|
|
|
|
unless( $port ) {
|
|
FRITZBOX_Log $hash, 2, "ERROR: Could not get secure port: $!";
|
|
return undef;
|
|
}
|
|
|
|
# $hash->{TR064USER} = "dslf-config";
|
|
|
|
# jetzt die Zertifikatsüberprüfung (sofort) abschalten
|
|
BEGIN {
|
|
$ENV{PERL_LWP_SSL_VERIFY_HOSTNAME}=0;
|
|
}
|
|
|
|
# dieser Code authentifiziert an der Box
|
|
sub SOAP::Transport::HTTP::Client::get_basic_credentials {return $FRITZBOX_TR064user => $FRITZBOX_TR064pwd;}
|
|
|
|
return $port;
|
|
|
|
} # end FRITZBOX_TR064_Init
|
|
|
|
# Opens a Web connection to an external Fritzbox
|
|
############################################
|
|
sub FRITZBOX_Web_OpenCon ($)
|
|
{
|
|
my ($hash) = @_;
|
|
my $name = $hash->{NAME};
|
|
|
|
if ($missingModulWeb) {
|
|
FRITZBOX_Log $hash, 2, "ERROR: Perl modul ".$missingModulWeb."is missing on this system. Please install before using this modul.";
|
|
return undef;
|
|
}
|
|
|
|
FRITZBOX_Log $hash, 5, "DEBUG: checking HOST -> " . $hash->{DEF} if defined $hash->{DEF};
|
|
|
|
# my $hash = $defs{$name};
|
|
my $host = $hash->{HOST};
|
|
|
|
my $URL_MATCH = FRITZBOX_Url_Regex();
|
|
|
|
if (defined $hash->{DEF} && $hash->{DEF} !~ m=$URL_MATCH=i) {
|
|
|
|
my $phost = inet_aton($hash->{DEF});
|
|
if (! defined($phost)) {
|
|
FRITZBOX_Log $hash, 2, "INFO: phost -> not defined";
|
|
return "offline" if !AttrVal($name, "disableHostIPv4check", 0);
|
|
}
|
|
|
|
my $host = inet_ntoa($phost);
|
|
|
|
if (! defined($host)) {
|
|
FRITZBOX_Log $hash, 2, "INFO: host -> $host";
|
|
return "offline" if !AttrVal($name, "disableHostIPv4check", 0);
|
|
}
|
|
$hash->{HOST} = $host;
|
|
|
|
}
|
|
|
|
my $p = Net::Ping->new;
|
|
my $isAlive = $p->ping($host);
|
|
$p->close;
|
|
|
|
unless ($isAlive) {
|
|
FRITZBOX_Log $hash, 4, "INFO: Host $host not available";
|
|
return "offline" if !AttrVal($name, "disableHostIPv4check", 0);
|
|
}
|
|
|
|
# Use old sid if last access later than 9.5 minutes
|
|
my $sid = $hash->{fhem}{sid};
|
|
|
|
if (defined $sid && $hash->{fhem}{sidTime} > time() - 9.5 * 60) {
|
|
FRITZBOX_Log $hash, 4, "DEBUG: using old SID from " . strftime "%H:%M:%S", localtime($hash->{fhem}{sidTime});
|
|
return $sid
|
|
} else {
|
|
my $msg;
|
|
$msg .= "SID: " if defined $sid ? $sid : "no SID";
|
|
$msg .= " timed out" if defined $hash->{fhem}{sidTime} && $hash->{fhem}{sidTime} < time() - 9.5 * 60;
|
|
FRITZBOX_Log $hash, 4, "DEBUG renewing SID while: " . $msg;
|
|
}
|
|
|
|
my $pwd = FRITZBOX_readPassword($hash);
|
|
|
|
unless (defined $pwd) {
|
|
FRITZBOX_Log $hash, 2, "INFO: No password set. Please define it (once) with 'set $name password YourPassword'";
|
|
return undef;
|
|
}
|
|
my $user = AttrVal( $name, "boxUser", "" );
|
|
|
|
FRITZBOX_Log $hash, 4, "INFO: Open Web connection to $host : $user";
|
|
FRITZBOX_Log $hash, 4, "INFO: getting new SID";
|
|
$sid = (FB_doCheckPW($host, $user, $pwd));
|
|
|
|
if ($sid) {
|
|
FRITZBOX_Log $hash, 4, "INFO: Web session opened with sid $sid";
|
|
$hash->{fhem}{sidTime} = time();
|
|
$hash->{fhem}{sid} = $sid;
|
|
return $sid;
|
|
}
|
|
|
|
FRITZBOX_Log $hash, 2, "ERROR: Web connection could not be established. Please check your credentials (password, user).";
|
|
|
|
return undef;
|
|
|
|
} # end FRITZBOX_Web_OpenCon
|
|
|
|
|
|
# Read box values via the web connection
|
|
############################################
|
|
sub FRITZBOX_Web_Query($$@)
|
|
{
|
|
my ($hash, $queryStr, $charSet, $f_lua) = @_;
|
|
$charSet = "" unless defined $charSet;
|
|
$f_lua = "luaQuery" unless defined $f_lua;
|
|
|
|
my $name = $hash->{NAME};
|
|
|
|
my $sid = FRITZBOX_Web_OpenCon( $hash );
|
|
unless ($sid) {
|
|
my %retHash = ( "Error" => "Didn't get a session ID", "ResetSID" => "1" ) ;
|
|
return \%retHash;
|
|
} elsif ($sid eq "offline") {
|
|
my %retHash = ( "Error" => "Device is offline", "ResetSID" => "1" ) ;
|
|
return \%retHash;
|
|
}
|
|
|
|
FRITZBOX_Log $hash, 4, "DEBUG: Request data via API " . $f_lua;
|
|
my $host = $hash->{HOST};
|
|
my $url = 'http://' . $host;
|
|
|
|
if ( $f_lua eq "luaQuery") {
|
|
$url .= '/query.lua?sid=' . $sid . $queryStr;
|
|
} elsif ( $f_lua eq "luaCall") {
|
|
$url .= '/' . $queryStr;
|
|
$url .= '?sid=' . $sid if $queryStr ne "login_sid.lua";
|
|
} else {
|
|
FRITZBOX_Log $hash, 2, "ERROR: Wrong function name. function_name: " . $f_lua;
|
|
my %retHash = ( "Error" => "Wrong function name", "function_name" => $f_lua ) ;
|
|
return \%retHash;
|
|
}
|
|
|
|
my $agent = LWP::UserAgent->new( env_proxy => 1, keep_alive => 1, protocols_allowed => ['http'], timeout => 180);
|
|
my $response;
|
|
|
|
FRITZBOX_Log $hash, 5, "get -> URL: $url";
|
|
|
|
$response = $agent->get ( $url );
|
|
|
|
FRITZBOX_Log $hash, 5, "DEBUG: Response: " . $response->status_line . "\n" . $response->content;
|
|
|
|
unless ($response->is_success) {
|
|
my %retHash = ("Error" => $response->status_line, "ResetSID" => "1");
|
|
FRITZBOX_Log $hash, 2, "ERROR: " . $response->status_line;
|
|
return \%retHash;
|
|
}
|
|
|
|
#################
|
|
FRITZBOX_Log $hash, 5, "DEBUG: Response: " . $response->content;
|
|
#################
|
|
|
|
my $jsonResult ;
|
|
|
|
if ( $f_lua ne "luaCall") {
|
|
|
|
return FRITZBOX_Process_JSON($hash, $response->content, $sid, $charSet);
|
|
|
|
} else {
|
|
$jsonResult->{sid} = $sid;
|
|
$jsonResult->{result} = $response->status_line if defined $response->status_line;
|
|
$jsonResult->{result} .= ", " . $response->content if defined $response->content;
|
|
}
|
|
|
|
return $jsonResult;
|
|
|
|
} # end FRITZBOX_Web_Query
|
|
|
|
# Read box values via the web connection
|
|
############################################
|
|
sub FRITZBOX_Function_Lua($$$@)
|
|
{
|
|
my ($hash, $luaFunction, $queryStr, $charSet) = @_;
|
|
$charSet = "" unless defined $charSet;
|
|
|
|
my $name = $hash->{NAME};
|
|
|
|
if ($hash->{LUADATA} <= 0) {
|
|
my %retHash = ( "Error" => "data.lua not supportet", "Info" => "Fritz!Box or Fritz!OS outdated" ) ;
|
|
FRITZBOX_Log $hash, 2, "INFO: data.lua not supportet. Fritz!Box or Fritz!OS outdated.";
|
|
return \%retHash;
|
|
}
|
|
|
|
my $sid = FRITZBOX_Web_OpenCon( $hash );
|
|
unless ($sid) {
|
|
my %retHash = ( "Error" => "Didn't get a session ID", "ResetSID" => "1" ) ;
|
|
return \%retHash;
|
|
} elsif ($sid eq "offline") {
|
|
my %retHash = ( "Error" => "Device is offline", "ResetSID" => "1" ) ;
|
|
return \%retHash;
|
|
}
|
|
|
|
FRITZBOX_Log $hash, 4, "INFO: Request data via API dataQuery.";
|
|
my $host = $hash->{HOST};
|
|
my $url = 'http://' . $host . '/' . $luaFunction . '.lua?sid=' . $sid;
|
|
|
|
FRITZBOX_Log $hash, 4, "INFO: URL: $url";
|
|
|
|
my $agent = LWP::UserAgent->new( env_proxy => 1, keep_alive => 1, protocols_allowed => ['http'], timeout => 180);
|
|
my $response = $agent->post ( $url, $queryStr );
|
|
|
|
FRITZBOX_Log $hash, 4, "DEBUG: Response: " . $response->status_line . "\n" . $response->content;
|
|
|
|
unless ($response->is_success) {
|
|
my %retHash = ("Error" => $response->status_line, "ResetSID" => "1");
|
|
FRITZBOX_Log $hash, 4, "DEBUG: \n".$response->status_line;
|
|
return \%retHash;
|
|
}
|
|
|
|
my $data = $response->content;
|
|
|
|
# handling for getting wakeUpCall Informations
|
|
########### HTML #################################
|
|
|
|
if ( $data =~ m/\<select size="1" id="uiViewDevice" name="device"\>(.*?)\<\/select\>/igs ) {
|
|
FRITZBOX_Log $hash, 4, "INFO: Response : \n" . $data;
|
|
my $profile_content;
|
|
$profile_content = '{"sid":"'.$sid.'","pid":"fonDevice","data":{"phonoptions":[';
|
|
|
|
my $mLine = $1;
|
|
|
|
FRITZBOX_Log $hash, 5, "DEBUG: Response 1: \n" . $mLine;
|
|
|
|
my $count = 0;
|
|
|
|
foreach my $line ($mLine =~ m/\<option(.*?\<)\/option\>/igs) {
|
|
FRITZBOX_Log $hash, 4, "INFO: Response 2: " . $line;
|
|
|
|
if ($line =~ m/value="(.*?)".*?\>(.*?)\</igs) {
|
|
FRITZBOX_Log $hash, 4, "INFO: Profile name: " . $1 . " Profile Id: " . $2;
|
|
$profile_content .= '{"text":"' . $2 . '","value":"' .$1 . '"},';
|
|
}
|
|
$count ++;
|
|
}
|
|
|
|
$profile_content = substr($profile_content, 0, length($profile_content)-1);
|
|
|
|
$profile_content .= ']}}';
|
|
|
|
FRITZBOX_Log $hash, 5, "DEBUG: Response JSON: " . $profile_content;
|
|
|
|
return FRITZBOX_Process_JSON($hash, $profile_content, $sid, $charSet);
|
|
}
|
|
|
|
# handling for getting profile Informations
|
|
########### HTML #################################
|
|
|
|
my $pattern_tr = '\<tr\>\<td(.*?)\<\/td\>\<\/tr\>';
|
|
|
|
my $pattern_vl = 'class="name".title="(.*?)".datalabel=.*?\<button.type="submit".name="edit".value="(.*?)".class="icon.edit".title="';
|
|
|
|
if ( $data =~ m/\<table id="uiProfileList"(.*?)\<\/table\>/is ) {
|
|
my $profile_content;
|
|
$profile_content = '{"pid":"kidProfile","data":{"kidProfiles":{';
|
|
|
|
FRITZBOX_Log $hash, 5, "DEBUG: Response 1: " . $1;
|
|
|
|
my $count = 0;
|
|
|
|
foreach my $line ($data =~ m/$pattern_tr/gs) {
|
|
FRITZBOX_Log $hash, 5, "DEBUG: Response 2: " . $line;
|
|
|
|
if ($line =~ m/$pattern_vl/gs) {
|
|
FRITZBOX_Log $hash, 4, "INFO: Profile name: " . $1 . " Profile Id: " . $2;
|
|
$profile_content .= '"profile' . $count . '":{"Id":"' .$2 . '","Name":"' . $1 . '"},';
|
|
}
|
|
$count ++;
|
|
|
|
}
|
|
|
|
$profile_content = substr($profile_content, 0, length($profile_content)-1);
|
|
|
|
$profile_content .= '}},"sid":"' . $sid . '"}';
|
|
|
|
FRITZBOX_Log $hash, 5, "DEBUG: Response 1: " . $profile_content;
|
|
|
|
return FRITZBOX_Process_JSON($hash, $profile_content, $sid, $charSet);
|
|
}
|
|
|
|
########### Standard JSON #################################
|
|
FRITZBOX_Log $hash, 5, "DEBUG: Response: " . $response->content;
|
|
|
|
return FRITZBOX_Process_JSON($hash, $response->content, $sid, $charSet);
|
|
|
|
} # end FRITZBOX_Lua_Data
|
|
|
|
# Process JSON from lua response
|
|
############################################
|
|
sub FRITZBOX_Process_JSON($$$@) {
|
|
|
|
my ($hash, $jsonText, $sid, $charSet) = @_;
|
|
$charSet = "" unless defined $charSet;
|
|
my $name = $hash->{NAME};
|
|
|
|
if ($jsonText =~ /<html|"pid": "logout"|<head>/) {
|
|
FRITZBOX_Log $hash, 4, "DEBUG: Old SID not valid anymore. ResetSID";
|
|
my %retHash = ("Error" => "Old SID not valid anymore.", "ResetSID" => "1");
|
|
return \%retHash;
|
|
}
|
|
|
|
# Remove illegal escape sequences
|
|
$jsonText =~ s/\\'/'/g; #Hochkomma
|
|
$jsonText =~ s/\\x\{[0-9a-f]\}//g; #delete control codes (as hex numbers)
|
|
|
|
FRITZBOX_Log $hash, 5, "DEBUG: Decode JSON string.";
|
|
|
|
my $jsonResult ;
|
|
if ($charSet eq "UTF-8") {
|
|
$jsonResult = eval { JSON->new->utf8->decode( $jsonText ) };
|
|
if ($@) {
|
|
FRITZBOX_Log $hash, 4, "INFO: Decode JSON string: decode_json failed, invalid json. error:$@";
|
|
}
|
|
}
|
|
else {
|
|
$jsonResult = eval { JSON->new->latin1->decode( $jsonText ) };
|
|
if ($@) {
|
|
FRITZBOX_Log $hash, 4, "INFO: Decode JSON string: decode_json failed, invalid json. error:$@";
|
|
}
|
|
}
|
|
|
|
# FRITZBOX_Log $hash, 5, "DEBUG: JSON: " . Dumper($jsonResult);
|
|
|
|
#Not a HASH reference at ./FHEM/72_FRITZBOX.pm line 4662.
|
|
# 2018.03.19 18:43:28 3: FRITZBOX: get Fritzbox luaQuery settings/sip
|
|
if ( ref ($jsonResult) ne "HASH" ) {
|
|
chop $jsonText;
|
|
FRITZBOX_Log $hash, 4, "ERROR: no json string returned\n (" . $jsonText . ")";
|
|
my %retHash = ("Error" => "no json string returned (" . $jsonText . ")", "ResetSID" => "1");
|
|
return \%retHash;
|
|
}
|
|
|
|
$jsonResult->{sid} = $sid;
|
|
$jsonResult->{Error} = $jsonResult->{error} if defined $jsonResult->{error};
|
|
|
|
return $jsonResult;
|
|
|
|
} # end FRITZBOX_Process_JSON
|
|
|
|
# create error response for lua return
|
|
############################################
|
|
sub FRITZBOX_ERR_Result($$;@) {
|
|
|
|
my ($hash, $result, $retData) = @_;
|
|
$retData = 0 unless defined $retData;
|
|
my $name = $hash->{NAME};
|
|
|
|
my $tmp;
|
|
|
|
if (defined $result->{Error} ) {
|
|
$tmp = "ERROR: " . $result->{Error};
|
|
}
|
|
elsif (ref ($result->{result}) eq "ARRAY" || ref ($result->{data}) eq "HASH" ){
|
|
$tmp = Dumper ($result);
|
|
# $tmp = "\n";
|
|
}
|
|
elsif (defined $result->{result} ) {
|
|
$tmp = $result->{result};
|
|
# $tmp = "\n";
|
|
}
|
|
elsif (defined $result->{pid} ) {
|
|
$tmp = "$result->{pid}";
|
|
if (ref ($result->{data}) eq "ARRAY" || ref ($result->{data}) eq "HASH" ) {
|
|
$tmp .= "\n" . Dumper ($result) if $retData == 1;
|
|
}
|
|
elsif (defined $result->{data} ) {
|
|
$tmp .= "\n" . $result->{data} if $retData == 1;
|
|
}
|
|
}
|
|
elsif (defined $result->{sid} ) {
|
|
$tmp = $result->{sid};
|
|
}
|
|
else {
|
|
$tmp = "Unexpected result: " . Dumper ($result);
|
|
}
|
|
|
|
return $tmp;
|
|
|
|
} # end FRITZBOX_ERR_Result
|
|
|
|
# get list of User informations
|
|
############################################
|
|
sub FRITZBOX_User_Info_List($) {
|
|
my ($hash) = @_;
|
|
my $name = $hash->{NAME};
|
|
|
|
my $queryStr = "&user_info=boxusers:settings/user/list(name,box_admin_rights,enabled,email,myfritz_boxuser_uid,homeauto_rights,dial_rights,nas_rights,vpn_access)";
|
|
|
|
my $returnStr;
|
|
|
|
my $result = FRITZBOX_Web_Query( $hash, $queryStr) ;
|
|
|
|
if ( defined $result->{Error} ) {
|
|
my $tmp = FRITZBOX_ERR_Result($hash, $result);
|
|
FRITZBOX_Log $hash, 2, "ERROR: evaluating user info -> " . $tmp;
|
|
$returnStr .= "Benutzer Informationen:\n";
|
|
$returnStr .= "---------------------------\n";
|
|
return $returnStr . $tmp;
|
|
} elsif ( defined $result->{AuthorizationRequired} ) {
|
|
FRITZBOX_Log $hash, 2, "ERROR: evaluating user info -> AuthorizationRequired";
|
|
$returnStr .= "Benutzer Informationen:\n";
|
|
$returnStr .= "---------------------------\n";
|
|
return $returnStr . "AuthorizationRequired";
|
|
}
|
|
|
|
eval {
|
|
FRITZBOX_Log $hash, 5, "DEBUG: evaluating user info: \n" . Dumper $result->{user_info};
|
|
};
|
|
|
|
my $views = $result->{user_info};
|
|
|
|
# border(8),cellspacing(10),cellpadding(20)
|
|
my $tableFormat = AttrVal($name, "disableTableFormat", "undef");
|
|
|
|
$returnStr .= '<table';
|
|
$returnStr .= ' border="8"' if $tableFormat !~ "border";
|
|
$returnStr .= ' cellspacing="10"' if $tableFormat !~ "cellspacing";
|
|
$returnStr .= ' cellpadding="20"' if $tableFormat !~ "cellpadding";
|
|
$returnStr .= '>';
|
|
$returnStr .= "<tr>\n";
|
|
$returnStr .= '<td colspan="4">Benutzer Informationen</td><td colspan="5">Berechtigungen</td>';
|
|
$returnStr .= "</tr>\n";
|
|
$returnStr .= "<tr>\n";
|
|
$returnStr .= "<td>Aktiv</td><td>Name</td><td>Box-ID</td><td>E-Mail</td><td>Box</td><td>Home</td><td>Dial</td><td>NAS</td><td>VPN</td>\n";
|
|
$returnStr .= "</tr>\n";
|
|
|
|
eval {
|
|
for (my $cnt = 0; $cnt < @$views; $cnt++) {
|
|
$returnStr .= "<tr>\n";
|
|
$returnStr .= "<td>" . @$views[$cnt]->{enabled} . "</td>";
|
|
$returnStr .= "<td>" . @$views[$cnt]->{name} . "</td>";
|
|
$returnStr .= "<td>" . @$views[$cnt]->{myfritz_boxuser_uid} . "</td>";
|
|
$returnStr .= "<td>" . @$views[$cnt]->{email} . "</td>";
|
|
$returnStr .= "<td>" . @$views[$cnt]->{box_admin_rights} . "</td>";
|
|
$returnStr .= "<td>" . @$views[$cnt]->{homeauto_rights} . "</td>";
|
|
$returnStr .= "<td>" . @$views[$cnt]->{dial_rights} . "</td>";
|
|
$returnStr .= "<td>" . @$views[$cnt]->{nas_rights} . "</td>";
|
|
$returnStr .= "<td>" . @$views[$cnt]->{vpn_access} . "</td>";
|
|
$returnStr .= "</tr>\n";
|
|
}
|
|
};
|
|
|
|
$returnStr .= "</table>\n";
|
|
|
|
return $returnStr;
|
|
|
|
} # end FRITZBOX_User_Info_List
|
|
|
|
# get list of FritzBox log informations
|
|
############################################
|
|
sub FRITZBOX_Fritz_Log_Info($$$) {
|
|
|
|
my ($hash, $retFormat, $logInfo) = @_;
|
|
my $name = $hash->{NAME};
|
|
|
|
# Frizt!OS >= 7.50
|
|
|
|
# xhr 1 lang de page log xhrId log filter all useajax 1 no_sidrenew nop -> Log-Einträge Alle
|
|
# xhr 1 lang de page log xhrId log filter sys useajax 1 no_sidrenew nop -> Log-Einträge System
|
|
# xhr 1 lang de page log xhrId log filter wlan useajax 1 no_sidrenew nop -> Log-Einträge WLAN
|
|
# xhr 1 lang de page log xhrId log filter usb useajax 1 no_sidrenew nop -> Log-Einträge USB
|
|
# xhr 1 lang de page log xhrId log filter net useajax 1 no_sidrenew nop -> Log-Einträge Internetverbindung
|
|
# xhr 1 lang de page log xhrId log filter fon useajax 1 no_sidrenew nop -> Log-Einträge Fon
|
|
|
|
# Frizt!OS < 7.50
|
|
|
|
# xhr 1 lang de page log xhrId log filter 0 useajax 1 no_sidrenew nop -> Log-Einträge Alle
|
|
# xhr 1 lang de page log xhrId log filter 1 useajax 1 no_sidrenew nop -> Log-Einträge System
|
|
# xhr 1 lang de page log xhrId log filter 4 useajax 1 no_sidrenew nop -> Log-Einträge WLAN
|
|
# xhr 1 lang de page log xhrId log filter 5 useajax 1 no_sidrenew nop -> Log-Einträge USB
|
|
# xhr 1 lang de page log xhrId log filter 2 useajax 1 no_sidrenew nop -> Log-Einträge Internetverbindung
|
|
# xhr 1 lang de page log xhrId log filter 3 useajax 1 no_sidrenew nop -> Log-Einträge Fon
|
|
|
|
my @fwV = split(/\./, ReadingsVal($name, "box_fwVersion", "0.0.0.error"));
|
|
|
|
my $FW1 = substr($fwV[1],0,2);
|
|
my $FW2 = substr($fwV[2],0,2);
|
|
|
|
my @webCmdArray;
|
|
|
|
push @webCmdArray, "xhr" => "1";
|
|
push @webCmdArray, "lang" => "de";
|
|
push @webCmdArray, "page" => "log";
|
|
push @webCmdArray, "xhrId" => "log";
|
|
push @webCmdArray, "useajax" => "1";
|
|
push @webCmdArray, "no_sidrenew" => "";
|
|
|
|
my $returnStr;
|
|
|
|
if (($FW1 == 6 && $FW2 >= 80) || ($FW1 == 7 && $FW2 < 50)) {
|
|
push @webCmdArray, "filter" => "0" if $logInfo =~ /all/;
|
|
push @webCmdArray, "filter" => "1" if $logInfo =~ /sys/;
|
|
push @webCmdArray, "filter" => "2" if $logInfo =~ /net/;
|
|
push @webCmdArray, "filter" => "3" if $logInfo =~ /fon/;
|
|
push @webCmdArray, "filter" => "4" if $logInfo =~ /wlan/;
|
|
push @webCmdArray, "filter" => "5" if $logInfo =~ /usb/;
|
|
} elsif ($FW1 >= 7 && $FW2 >= 50) {
|
|
push @webCmdArray, "filter" => $logInfo;
|
|
} else {
|
|
$returnStr .= "FritzLog Filter:$logInfo\n";
|
|
$returnStr .= "---------------------------------\n";
|
|
return $returnStr . "Not supported Fritz!OS $FW1.$FW2";
|
|
}
|
|
|
|
FRITZBOX_Log $hash, 3, "INFO: set $name $logInfo " . join(" ", @webCmdArray);
|
|
|
|
my $result = FRITZBOX_Function_Lua($hash, "data", \@webCmdArray) ;
|
|
|
|
if(defined $result->{Error}) {
|
|
$returnStr .= "FritzLog Filter:$logInfo\n";
|
|
$returnStr .= "---------------------------------\n";
|
|
my $tmp = FRITZBOX_ERR_Result($hash, $result);
|
|
return $returnStr . $tmp;
|
|
}
|
|
|
|
my $nbViews;
|
|
my $views;
|
|
|
|
$nbViews = 0;
|
|
if (defined $result->{data}->{log}) {
|
|
$views = $result->{data}->{log};
|
|
$nbViews = scalar @$views;
|
|
}
|
|
|
|
my $tableFormat = AttrVal($name, "disableTableFormat", "undef");
|
|
|
|
$returnStr .= '<table';
|
|
$returnStr .= ' border="8"' if $tableFormat !~ "border";
|
|
$returnStr .= ' cellspacing="10"' if $tableFormat !~ "cellspacing";
|
|
$returnStr .= ' cellpadding="20"' if $tableFormat !~ "cellpadding";
|
|
$returnStr .= '>';
|
|
$returnStr .= "<tr>\n";
|
|
$returnStr .= '<td colspan="4">FritzLog Filter: ' . $logInfo . '</td>';
|
|
$returnStr .= "</tr>\n";
|
|
$returnStr .= "<tr>\n";
|
|
$returnStr .= "<td>ID</td><td>Tag</td><td>Uhrzeit</td><td>Meldung</td>\n";
|
|
$returnStr .= "</tr>\n";
|
|
|
|
if ($nbViews > 0) {
|
|
if (($FW1 == 6 && $FW2 >= 80) || ($FW1 == 7 && $FW2 < 50)) {
|
|
eval {
|
|
for(my $i = 0; $i <= $nbViews - 1; $i++) {
|
|
$returnStr .= "<tr>\n";
|
|
$returnStr .= "<td>" . $result->{data}->{log}->[$i][3] . "</td>";
|
|
$returnStr .= "<td>" . $result->{data}->{log}->[$i][0] . "</td>";
|
|
$returnStr .= "<td>" . $result->{data}->{log}->[$i][1] . "</td>";
|
|
$returnStr .= "<td>" . $result->{data}->{log}->[$i][2] . "</td>";
|
|
$returnStr .= "</tr>\n";
|
|
}
|
|
};
|
|
} elsif ($FW1 >= 7 && $FW2 >= 50) {
|
|
eval {
|
|
for(my $i = 0; $i <= $nbViews - 1; $i++) {
|
|
$returnStr .= "<tr>\n";
|
|
$returnStr .= "<td>" . $result->{data}->{log}->[$i]->{id} . "</td>";
|
|
$returnStr .= "<td>" . $result->{data}->{log}->[$i]->{date} . "</td>";
|
|
$returnStr .= "<td>" . $result->{data}->{log}->[$i]->{time} . "</td>";
|
|
$returnStr .= "<td>" . $result->{data}->{log}->[$i]->{msg} . "</td>";
|
|
$returnStr .= "</tr>\n";
|
|
}
|
|
};
|
|
}
|
|
}
|
|
|
|
$returnStr .= "</table>\n";
|
|
|
|
return $returnStr;
|
|
|
|
} # end FRITZBOX_Fritz_Log_Info
|
|
|
|
# get list of Kid Profiles
|
|
############################################
|
|
sub FRITZBOX_Kid_Profiles_List($) {
|
|
|
|
my ($hash) = @_;
|
|
my $name = $hash->{NAME};
|
|
|
|
# "xhr 1 lang de page shareVpn xhrId all;
|
|
|
|
my @webCmdArray;
|
|
push @webCmdArray, "xhr" => "1";
|
|
push @webCmdArray, "lang" => "de";
|
|
push @webCmdArray, "page" => "kidPro";
|
|
|
|
my $returnStr;
|
|
|
|
my $result = FRITZBOX_Function_Lua($hash, "data", \@webCmdArray) ;
|
|
|
|
if(defined $result->{Error}) {
|
|
my $tmp = FRITZBOX_ERR_Result($hash, $result);
|
|
$returnStr .= "Kid Profiles:\n";
|
|
$returnStr .= "---------------------------------\n";
|
|
return $returnStr . $tmp;
|
|
}
|
|
|
|
my $views = $result->{data}->{kidProfiles};
|
|
|
|
# border(8),cellspacing(10),cellpadding(20)
|
|
my $tableFormat = AttrVal($name, "disableTableFormat", "undef");
|
|
|
|
$returnStr .= '<table';
|
|
$returnStr .= ' border="8"' if $tableFormat !~ "border";
|
|
$returnStr .= ' cellspacing="10"' if $tableFormat !~ "cellspacing";
|
|
$returnStr .= ' cellpadding="20"' if $tableFormat !~ "cellpadding";
|
|
$returnStr .= '>';
|
|
$returnStr .= "<tr>\n";
|
|
$returnStr .= '<td colspan="3">Kid Profiles</td>';
|
|
$returnStr .= "</tr>\n";
|
|
$returnStr .= "<tr>\n";
|
|
$returnStr .= "<td>Name</td><td>Id</td><td>Profil</td>\n";
|
|
$returnStr .= "</tr>\n";
|
|
$returnStr .= "<tr>\n";
|
|
$returnStr .= "<td>profile2</td>";
|
|
$returnStr .= "<td>unbegrenzt</td>";
|
|
$returnStr .= "<td>filtprof3</td>";
|
|
$returnStr .= "</tr>\n";
|
|
|
|
eval {
|
|
foreach my $key (keys %$views) {
|
|
FRITZBOX_Log $hash, 5, "DEBUG: Kid Profiles: ".$key;
|
|
$returnStr .= "<tr>\n";
|
|
$returnStr .= "<td>" . $key . "</td>";
|
|
$returnStr .= "<td>" . $result->{data}->{kidProfiles}->{$key}{Name} . "</td>";
|
|
$returnStr .= "<td>" . $result->{data}->{kidProfiles}->{$key}{Id} . "</td>";
|
|
$returnStr .= "</tr>\n";
|
|
}
|
|
};
|
|
|
|
$returnStr .= "</table>\n";
|
|
|
|
return $returnStr;
|
|
|
|
} # end FRITZBOX_Kid_Profiles_List
|
|
|
|
# get list of DOCSIS informations
|
|
############################################
|
|
sub FRITZBOX_DOCSIS_Informations($) {
|
|
|
|
my ($hash) = @_;
|
|
my $name = $hash->{NAME};
|
|
|
|
# xhr 1 lang de page docInfo xhrId all no_sidrenew nop
|
|
my @webCmdArray;
|
|
push @webCmdArray, "xhr" => "1";
|
|
push @webCmdArray, "lang" => "de";
|
|
push @webCmdArray, "page" => "docInfo";
|
|
push @webCmdArray, "xhrId" => "all";
|
|
push @webCmdArray, "no_sidrenew" => "";
|
|
|
|
my $returnStr;
|
|
|
|
my $result = FRITZBOX_Function_Lua($hash, "data", \@webCmdArray) ;
|
|
my $tmp;
|
|
|
|
if(defined $result->{Error}) {
|
|
$tmp = FRITZBOX_ERR_Result($hash, $result);
|
|
$returnStr .= "DOCSIS: Informationen\n";
|
|
$returnStr .= "---------------------------------\n";
|
|
return $returnStr . $tmp;
|
|
}
|
|
|
|
FRITZBOX_Log $hash, 5, "DEBUG: \n" . Dumper ($result->{data});
|
|
|
|
my $views;
|
|
my $nbViews;
|
|
|
|
# border(8),cellspacing(10),cellpadding(20)
|
|
my $tableFormat = AttrVal($name, "disableTableFormat", "undef");
|
|
|
|
$returnStr .= '<table';
|
|
$returnStr .= ' border="8"' if $tableFormat !~ "border";
|
|
$returnStr .= ' cellspacing="10"' if $tableFormat !~ "cellspacing";
|
|
$returnStr .= ' cellpadding="20"' if $tableFormat !~ "cellpadding";
|
|
$returnStr .= '>';
|
|
$returnStr .= "<tr>\n";
|
|
$returnStr .= '<td colspan="10">DOCSIS Informationen</td>';
|
|
$returnStr .= "</tr>\n";
|
|
$returnStr .= "<tr>\n";
|
|
$returnStr .= "<td>Kanal</td><td>KanalID</td><td>Multiplex</td><td>Typ</td><td>Powerlevel</td><td>Frequenz</td>";
|
|
$returnStr .= "<td>Latenz</td><td>corrErrors</td><td>nonCorrErrors</td><td>MSE</td>\n";
|
|
$returnStr .= "</tr>\n";
|
|
|
|
$nbViews = 0;
|
|
if (defined $result->{data}->{channelUs}->{docsis30}) {
|
|
$views = $result->{data}->{channelUs}->{docsis30};
|
|
$nbViews = scalar @$views;
|
|
}
|
|
|
|
if ($nbViews > 0) {
|
|
$returnStr .= "<tr>\n";
|
|
$returnStr .= '<td colspan="10">channelUs - docsis30</td>';
|
|
$returnStr .= "</tr>\n";
|
|
|
|
eval {
|
|
for(my $i = 0; $i <= $nbViews - 1; $i++) {
|
|
$returnStr .= "<tr>\n";
|
|
$returnStr .= "<td>" . $result->{data}->{channelUs}->{docsis30}->[$i]->{channel} . "</td>";
|
|
$returnStr .= "<td>" . $result->{data}->{channelUs}->{docsis30}->[$i]->{channelID} . "</td>";
|
|
$returnStr .= "<td>" . $result->{data}->{channelUs}->{docsis30}->[$i]->{multiplex} . "</td>";
|
|
$returnStr .= "<td>" . $result->{data}->{channelUs}->{docsis30}->[$i]->{type} . "</td>";
|
|
$returnStr .= "<td>" . $result->{data}->{channelUs}->{docsis30}->[$i]->{powerLevel} . "</td>";
|
|
$returnStr .= "<td>" . $result->{data}->{channelUs}->{docsis30}->[$i]->{frequency} . "</td>";
|
|
$returnStr .= "</tr>\n";
|
|
}
|
|
};
|
|
|
|
$returnStr .= "</tr>\n";
|
|
$returnStr .= '<td colspan="10"> </td>';
|
|
$returnStr .= "</tr>\n";
|
|
}
|
|
|
|
$nbViews = 0;
|
|
if (defined $result->{data}->{channelUs}->{docsis31}) {
|
|
$views = $result->{data}->{channelUs}->{docsis31};
|
|
$nbViews = scalar @$views;
|
|
}
|
|
|
|
if ($nbViews > 0) {
|
|
$returnStr .= "</tr>\n";
|
|
$returnStr .= '<td colspan="10">channelUs - docsis31</td>';
|
|
$returnStr .= "</tr>\n";
|
|
|
|
eval {
|
|
for(my $i = 0; $i <= $nbViews - 1; $i++) {
|
|
$returnStr .= "<tr>\n";
|
|
$returnStr .= "<td>" . $result->{data}->{channelUs}->{docsis31}->[$i]->{channel} . "</td>";
|
|
$returnStr .= "<td>" . $result->{data}->{channelUs}->{docsis31}->[$i]->{channelID} . "</td>";
|
|
$returnStr .= "<td>" . $result->{data}->{channelUs}->{docsis31}->[$i]->{multiplex} . "</td>" if $result->{data}->{channelUs}->{docsis31}->[$i]->{multiplex};
|
|
$returnStr .= "<td>" . $result->{data}->{channelUs}->{docsis31}->[$i]->{type} . "</td>";
|
|
$returnStr .= "<td>" . $result->{data}->{channelUs}->{docsis31}->[$i]->{powerLevel} . "</td>";
|
|
$returnStr .= "<td>" . $result->{data}->{channelUs}->{docsis31}->[$i]->{frequency} . "</td>";
|
|
$returnStr .= "</tr>\n";
|
|
}
|
|
};
|
|
|
|
$returnStr .= "</tr>\n";
|
|
$returnStr .= '<td colspan="10"> </td>';
|
|
$returnStr .= "</tr>\n";
|
|
}
|
|
|
|
$nbViews = 0;
|
|
if (defined $result->{data}->{channelDs}->{docsis30}) {
|
|
$views = $result->{data}->{channelDs}->{docsis30};
|
|
$nbViews = scalar @$views;
|
|
}
|
|
|
|
if ($nbViews > 0) {
|
|
$returnStr .= "</tr>\n";
|
|
$returnStr .= '<td colspan="10">channelDs - docsis30</td>';
|
|
$returnStr .= "</tr>\n";
|
|
|
|
eval {
|
|
for(my $i = 0; $i <= $nbViews - 1; $i++) {
|
|
$returnStr .= "<tr>\n";
|
|
$returnStr .= "<td>" . $result->{data}->{channelDs}->{docsis30}->[$i]->{channel} . "</td>";
|
|
$returnStr .= "<td>" . $result->{data}->{channelDs}->{docsis30}->[$i]->{channelID} . "</td>";
|
|
$returnStr .= "<td>" . $result->{data}->{channelDs}->{docsis30}->[$i]->{type} . "</td>";
|
|
$returnStr .= "<td>" . $result->{data}->{channelDs}->{docsis30}->[$i]->{powerLevel} . "</td>";
|
|
$returnStr .= "<td>" . $result->{data}->{channelDs}->{docsis30}->[$i]->{latency} . "</td>";
|
|
$returnStr .= "<td>" . $result->{data}->{channelDs}->{docsis30}->[$i]->{frequency} . "</td>";
|
|
$returnStr .= "<td>" . $result->{data}->{channelDs}->{docsis30}->[$i]->{corrErrors} . "</td>";
|
|
$returnStr .= "<td>" . $result->{data}->{channelDs}->{docsis30}->[$i]->{nonCorrErrors} . "</td>";
|
|
$returnStr .= "<td>" . $result->{data}->{channelDs}->{docsis30}->[$i]->{mse} . "</td>";
|
|
$returnStr .= "</tr>\n";
|
|
}
|
|
};
|
|
|
|
$returnStr .= "</tr>\n";
|
|
$returnStr .= '<td colspan="10"> </td>';
|
|
$returnStr .= "</tr>\n";
|
|
}
|
|
|
|
$nbViews = 0;
|
|
if (defined $result->{data}->{channelDs}->{docsis31}) {
|
|
$views = $result->{data}->{channelDs}->{docsis31};
|
|
$nbViews = scalar @$views;
|
|
}
|
|
|
|
if ($nbViews > 0) {
|
|
$returnStr .= "</tr>\n";
|
|
$returnStr .= '<td colspan="10">channelDs - docsis31</td>';
|
|
$returnStr .= "</tr>\n";
|
|
|
|
eval {
|
|
for(my $i = 0; $i <= $nbViews - 1; $i++) {
|
|
$returnStr .= "<tr>\n";
|
|
$returnStr .= "<td>" . $result->{data}->{channelDs}->{docsis31}->[$i]->{channel} . "</td>";
|
|
$returnStr .= "<td>" . $result->{data}->{channelDs}->{docsis31}->[$i]->{channelID} . "</td>";
|
|
$returnStr .= "<td>" . $result->{data}->{channelDs}->{docsis31}->[$i]->{type} . "</td>";
|
|
$returnStr .= "<td>" . $result->{data}->{channelDs}->{docsis31}->[$i]->{powerLevel} . "</td>";
|
|
$returnStr .= "<td>" . $result->{data}->{channelDs}->{docsis31}->[$i]->{frequency} . "</td>";
|
|
$returnStr .= "</tr>\n";
|
|
}
|
|
};
|
|
}
|
|
|
|
$returnStr .= "</table>\n";
|
|
|
|
return $returnStr;
|
|
|
|
} # end FRITZBOX_DOCSIS_Informations
|
|
|
|
# get list of WLAN in environment
|
|
############################################
|
|
sub FRITZBOX_WLAN_Environment($) {
|
|
|
|
my ($hash) = @_;
|
|
my $name = $hash->{NAME};
|
|
|
|
# "xhr 1 lang de page chan xhrId environment requestCount 0 useajax 1;
|
|
|
|
my @webCmdArray;
|
|
push @webCmdArray, "xhr" => "1";
|
|
push @webCmdArray, "lang" => "de";
|
|
push @webCmdArray, "page" => "chan";
|
|
push @webCmdArray, "xhrId" => "environment";
|
|
|
|
my $returnStr;
|
|
|
|
my $result = FRITZBOX_Function_Lua($hash, "data", \@webCmdArray) ;
|
|
my $tmp;
|
|
|
|
if(defined $result->{Error}) {
|
|
$tmp = FRITZBOX_ERR_Result($hash, $result);
|
|
$returnStr .= "WLAN: Netzwerke in der Umgebung\n";
|
|
$returnStr .= "---------------------------------\n";
|
|
return $returnStr . $tmp;
|
|
}
|
|
|
|
FRITZBOX_Log $hash, 5, "DEBUG: \n" . Dumper ($result->{data}->{scanlist});
|
|
|
|
my $views = $result->{data}->{scanlist};
|
|
my $nbViews = scalar @$views;
|
|
|
|
# border(8),cellspacing(10),cellpadding(20)
|
|
my $tableFormat = AttrVal($name, "disableTableFormat", "undef");
|
|
|
|
$returnStr .= '<table';
|
|
$returnStr .= ' border="8"' if $tableFormat !~ "border";
|
|
$returnStr .= ' cellspacing="10"' if $tableFormat !~ "cellspacing";
|
|
$returnStr .= ' cellpadding="20"' if $tableFormat !~ "cellpadding";
|
|
$returnStr .= '>';
|
|
$returnStr .= "<tr>\n";
|
|
$returnStr .= '<td colspan="4">WLAN: Netzwerke in der Umgebung</td>';
|
|
$returnStr .= "</tr>\n";
|
|
$returnStr .= "<tr>\n";
|
|
$returnStr .= "<td>MAC</td><td>SSID</td><td>Kanal</td><td>BandID</td>\n";
|
|
$returnStr .= "</tr>\n";
|
|
|
|
eval {
|
|
for(my $i = 0; $i <= $nbViews - 1; $i++) {
|
|
$returnStr .= "<tr>\n";
|
|
$returnStr .= "<td>" . $result->{data}->{scanlist}->[$i]->{mac} . "</td>";
|
|
$returnStr .= "<td>" . $result->{data}->{scanlist}->[$i]->{ssid} . "</td>";
|
|
$returnStr .= "<td>" . $result->{data}->{scanlist}->[$i]->{channel} . "</td>";
|
|
$returnStr .= "<td>" . $result->{data}->{scanlist}->[$i]->{bandId} . "</td>";
|
|
$returnStr .= "</tr>\n";
|
|
}
|
|
};
|
|
|
|
$returnStr .= "</table>\n";
|
|
|
|
return $returnStr;
|
|
|
|
} # end sub FRITZBOX_WLAN_Environment
|
|
|
|
# get list of VPN Shares
|
|
############################################
|
|
sub FRITZBOX_VPN_Shares_List($) {
|
|
|
|
my ($hash) = @_;
|
|
my $name = $hash->{NAME};
|
|
|
|
# "xhr 1 lang de page shareVpn xhrId all;
|
|
|
|
my @webCmdArray;
|
|
push @webCmdArray, "xhr" => "1";
|
|
push @webCmdArray, "lang" => "de";
|
|
push @webCmdArray, "page" => "shareVpn";
|
|
push @webCmdArray, "xhrId" => "all";
|
|
|
|
my $returnStr;
|
|
|
|
my $result = FRITZBOX_Function_Lua($hash, "data", \@webCmdArray) ;
|
|
my $tmp;
|
|
|
|
if(defined $result->{Error}) {
|
|
$returnStr .= "VPN Shares: Benutzer-Verbindungen\n";
|
|
$returnStr .= "---------------------------------\n";
|
|
$tmp = FRITZBOX_ERR_Result($hash, $result);
|
|
return $returnStr . $tmp;
|
|
}
|
|
|
|
my $views;
|
|
my $jID;
|
|
if ($result->{data}->{vpnInfo}->{userConnections}) {
|
|
$views = $result->{data}->{vpnInfo}->{userConnections};
|
|
$jID = "vpnInfo";
|
|
} elsif ($result->{data}->{init}->{userConnections}) {
|
|
$views = $result->{data}->{init}->{userConnections};
|
|
$jID = "init";
|
|
}
|
|
|
|
# border(8),cellspacing(10),cellpadding(20)
|
|
my $tableFormat = AttrVal($name, "disableTableFormat", "undef");
|
|
|
|
$returnStr .= '<table';
|
|
$returnStr .= ' border="8"' if $tableFormat !~ "border";
|
|
$returnStr .= ' cellspacing="10"' if $tableFormat !~ "cellspacing";
|
|
$returnStr .= ' cellpadding="20"' if $tableFormat !~ "cellpadding";
|
|
$returnStr .= '>';
|
|
$returnStr .= "<tr>\n";
|
|
$returnStr .= '<td colspan="7">VPN Shares: Benutzer-Verbindungen</td>';
|
|
$returnStr .= "</tr>\n";
|
|
$returnStr .= "<tr>\n";
|
|
$returnStr .= "<td>Verbindung</td><td>Typ</td><td>Aktiv</td><td>Verbunden</td><td>UID</td><td>Name</td><td>Remote-IP</td>\n";
|
|
$returnStr .= "</tr>\n";
|
|
|
|
FRITZBOX_Log $hash, 5, "DEBUG: \n" . Dumper ($result->{data}->{init}->{boxConnections});
|
|
|
|
eval {
|
|
foreach my $key (keys %$views) {
|
|
FRITZBOX_Log $hash, 4, "INFO: userConnections: ".$key;
|
|
$returnStr .= "<tr>\n";
|
|
$returnStr .= "<td>" . $key . "</td>";
|
|
$returnStr .= "<td>" . $result->{data}->{$jID}->{userConnections}->{$key}{type} . "</td>";
|
|
$returnStr .= "<td>" . $result->{data}->{$jID}->{userConnections}->{$key}{active} . "</td>";
|
|
$returnStr .= "<td>" . $result->{data}->{$jID}->{userConnections}->{$key}{connected} . "</td>";
|
|
$returnStr .= "<td>" . $result->{data}->{$jID}->{userConnections}->{$key}{userId} . "</td>";
|
|
$returnStr .= "<td>" . $result->{data}->{$jID}->{userConnections}->{$key}{name} . "</td>";
|
|
$returnStr .= "<td>" . $result->{data}->{$jID}->{userConnections}->{$key}{address} . "</td>";
|
|
#$returnStr .= "<td>" . $result->{data}->{$jID}->{userConnections}->{$key}{deletable} . "</td>";
|
|
#$returnStr .= "<td>" . $result->{data}->{$jID}->{userConnections}->{$key}{virtualAddress} . "</td>";
|
|
$returnStr .= "</tr>\n";
|
|
}
|
|
};
|
|
$returnStr .= "</table>\n";
|
|
|
|
if ($result->{data}->{vpnInfo}->{boxConnections}) {
|
|
$views = $result->{data}->{vpnInfo}->{boxConnections};
|
|
$jID = "vpnInfo";
|
|
} elsif ($result->{data}->{init}->{boxConnections}) {
|
|
$views = $result->{data}->{init}->{boxConnections};
|
|
$jID = "init";
|
|
}
|
|
|
|
$returnStr .= "\n";
|
|
# border(8),cellspacing(10),cellpadding(20)
|
|
$tableFormat = AttrVal($name, "disableTableFormat", "undef");
|
|
|
|
$returnStr .= '<table';
|
|
$returnStr .= ' border="8"' if $tableFormat !~ "border";
|
|
$returnStr .= ' cellspacing="10"' if $tableFormat !~ "cellspacing";
|
|
$returnStr .= ' cellpadding="20"' if $tableFormat !~ "cellpadding";
|
|
$returnStr .= '>';
|
|
$returnStr .= "<tr>\n";
|
|
$returnStr .= '<td colspan="7">VPN Shares: Box-Verbindungen</td>';
|
|
$returnStr .= "</tr>\n";
|
|
$returnStr .= "<tr>\n";
|
|
$returnStr .= "<td>Verbindung</td><td>Typ</td><td>Aktiv</td><td>Verbunden</td><td>Host</td><td>Name</td><td>Remote-IP</td>\n";
|
|
$returnStr .= "</tr>\n";
|
|
|
|
FRITZBOX_Log $hash, 5, "DEBUG: \n" . Dumper ($result->{data}->{init}->{boxConnections});
|
|
|
|
eval {
|
|
foreach my $key (keys %$views) {
|
|
FRITZBOX_Log $hash, 4, "INFO: boxConnections: ".$key;
|
|
$returnStr .= "<tr>\n";
|
|
$returnStr .= "<td>" . $key . "</td>";
|
|
$returnStr .= "<td>" . $result->{data}->{$jID}->{boxConnections}->{$key}{type} . "</td>";
|
|
$returnStr .= "<td>" . $result->{data}->{$jID}->{boxConnections}->{$key}{active} . "</td>";
|
|
$returnStr .= "<td>" . $result->{data}->{$jID}->{boxConnections}->{$key}{connected} . "</td>";
|
|
$returnStr .= "<td>" . $result->{data}->{$jID}->{boxConnections}->{$key}{accessHostname} . "</td>";
|
|
$returnStr .= "<td>" . $result->{data}->{$jID}->{boxConnections}->{$key}{name} . "</td>";
|
|
$returnStr .= "<td>" . $result->{data}->{$jID}->{boxConnections}->{$key}{remoteIP} . "</td>";
|
|
$returnStr .= "</tr>\n";
|
|
}
|
|
};
|
|
|
|
my @fwV = split(/\./, ReadingsVal($name, "box_fwVersion", "0.0.0.error"));
|
|
|
|
my $FW1 = substr($fwV[1],0,2);
|
|
my $FW2 = substr($fwV[2],0,2);
|
|
|
|
# Wirguard VPN only available with Fritz!OS 7.50 and greater
|
|
return $returnStr . "</table>\n" if $FW1 <= 7 && $FW2 < 50;
|
|
|
|
@webCmdArray = ();
|
|
push @webCmdArray, "xhr" => "1";
|
|
push @webCmdArray, "lang" => "de";
|
|
push @webCmdArray, "page" => "shareWireguard";
|
|
push @webCmdArray, "xhrId" => "all";
|
|
|
|
$result = FRITZBOX_Function_Lua($hash, "data", \@webCmdArray) ;
|
|
|
|
if(defined $result->{Error}) {
|
|
$tmp = FRITZBOX_ERR_Result($hash, $result);
|
|
$returnStr .= "</table>\n";
|
|
return $returnStr . $tmp;
|
|
}
|
|
|
|
if ($result->{data}->{init}->{boxConnections}) {
|
|
$views = $result->{data}->{init}->{boxConnections};
|
|
$jID = "init";
|
|
|
|
FRITZBOX_Log $hash, 5, "DEBUG: \n" . Dumper ($result->{data}->{init}->{boxConnections});
|
|
|
|
eval {
|
|
foreach my $key (keys %$views) {
|
|
FRITZBOX_Log $hash, 4, "INFO: boxConnections: ".$key;
|
|
$returnStr .= "<tr>\n";
|
|
$returnStr .= "<td>" . $key . "</td>";
|
|
$returnStr .= "<td>" . $result->{data}->{$jID}->{boxConnections}->{$key}{type} . "</td>";
|
|
$returnStr .= "<td>" . $result->{data}->{$jID}->{boxConnections}->{$key}{active} . "</td>";
|
|
$returnStr .= "<td>" . $result->{data}->{$jID}->{boxConnections}->{$key}{connected} . "</td>";
|
|
$returnStr .= "<td>" . $result->{data}->{$jID}->{boxConnections}->{$key}{accessHostname} . "</td>";
|
|
$returnStr .= "<td>" . $result->{data}->{$jID}->{boxConnections}->{$key}{name} . "</td>";
|
|
$returnStr .= "<td>" . $result->{data}->{$jID}->{boxConnections}->{$key}{remoteIp} . "</td>";
|
|
$returnStr .= "</tr>\n";
|
|
}
|
|
};
|
|
}
|
|
$returnStr .= "</table>\n";
|
|
|
|
return $returnStr;
|
|
|
|
} # end FRITZBOX_VPN_Shares_List
|
|
|
|
# get list of lanDevices
|
|
############################################
|
|
sub FRITZBOX_Lan_Devices_List($) {
|
|
|
|
my ($hash) = @_;
|
|
my $name = $hash->{NAME};
|
|
|
|
my @fwV = split(/\./, ReadingsVal($name, "box_fwVersion", "0.0.0.error"));
|
|
|
|
my $FW1 = substr($fwV[1],0,2);
|
|
my $FW2 = substr($fwV[2],0,2);
|
|
|
|
FRITZBOX_Log $hash, 4, "INFO: FRITZBOX_Lan_Device_List (Fritz!OS: $FW1.$FW2) ";
|
|
|
|
my @webCmdArray;
|
|
# "xhr 1 lang de page netDev xhrId cleanup useajax 1 no_sidrenew nop;
|
|
push @webCmdArray, "xhr" => "1";
|
|
push @webCmdArray, "lang" => "de";
|
|
push @webCmdArray, "page" => "netDev";
|
|
push @webCmdArray, "xhrId" => "all";
|
|
|
|
my $returnStr;
|
|
|
|
my $result = FRITZBOX_Function_Lua($hash, "data", \@webCmdArray) ;
|
|
|
|
if(defined $result->{Error}) {
|
|
my $tmp = FRITZBOX_ERR_Result($hash, $result);
|
|
$returnStr = "LanDevices: Active\n";
|
|
$returnStr .= "------------------\n";
|
|
return $returnStr . $tmp;
|
|
}
|
|
|
|
# border(8),cellspacing(10),cellpadding(20)
|
|
my $tableFormat = AttrVal($name, "disableTableFormat", "undef");
|
|
|
|
$returnStr .= '<table';
|
|
$returnStr .= ' border="8"' if $tableFormat !~ "border";
|
|
$returnStr .= ' cellspacing="10"' if $tableFormat !~ "cellspacing";
|
|
$returnStr .= ' cellpadding="20"' if $tableFormat !~ "cellpadding";
|
|
$returnStr .= '>';
|
|
$returnStr .= "<tr>\n";
|
|
$returnStr .= '<td colspan="6">LanDevices: Active</td>';
|
|
$returnStr .= "</tr>\n";
|
|
$returnStr .= "<tr>\n";
|
|
$returnStr .= "<td>MAC</td><td>IPv4</td><td>UID</td><td>NAME</td><td>STATUS</td><td>INFO</td>\n";
|
|
$returnStr .= "</tr>\n";
|
|
|
|
my $views;
|
|
my $nbViews = 0;
|
|
|
|
if (defined $result->{data}->{active}) {
|
|
$views = $result->{data}->{active};
|
|
$nbViews = scalar @$views;
|
|
}
|
|
|
|
if ($nbViews > 0) {
|
|
|
|
for(my $i = 0; $i <= $nbViews - 1; $i++) {
|
|
$returnStr .= "<tr>\n";
|
|
$returnStr .= "<td>" . $result->{data}->{active}->[$i]->{mac} . "</td>";
|
|
$returnStr .= "<td>" . $result->{data}->{active}->[$i]->{ipv4}->{ip} . "</td>";
|
|
$returnStr .= "<td>" . $result->{data}->{active}->[$i]->{UID} . "</td>";
|
|
$returnStr .= "<td>" . $result->{data}->{active}->[$i]->{name} . "</td>";
|
|
# if( exists $result->{data}->{active}->[$i]->{state}->{class}) {
|
|
if( ref($result->{data}->{active}->[$i]->{state}) eq "HASH") {
|
|
$returnStr .= "<td>" . $result->{data}->{active}->[$i]->{state}->{class} . "</td>";
|
|
} else {
|
|
$returnStr .= "<td>" . $result->{data}->{active}->[$i]->{state} . "</td>";
|
|
}
|
|
$returnStr .= "<td>" . $result->{data}->{active}->[$i]->{properties}->[1]->{txt} . "</td>" if defined ($result->{data}->{active}->[$i]->{properties}->[1]->{txt});
|
|
$returnStr .= "</tr>\n";
|
|
}
|
|
}
|
|
$returnStr .= "</table>\n";
|
|
|
|
$returnStr .= "\n";
|
|
# border(8),cellspacing(10),cellpadding(20)
|
|
$tableFormat = AttrVal($name, "disableTableFormat", "undef");
|
|
|
|
$returnStr .= '<table';
|
|
$returnStr .= ' border="8"' if $tableFormat !~ "border";
|
|
$returnStr .= ' cellspacing="10"' if $tableFormat !~ "cellspacing";
|
|
$returnStr .= ' cellpadding="20"' if $tableFormat !~ "cellpadding";
|
|
$returnStr .= '>';
|
|
$returnStr .= "<tr>\n";
|
|
$returnStr .= '<td colspan="6">LanDevices: Passiv</td>';
|
|
$returnStr .= "</tr>\n";
|
|
$returnStr .= "<tr>\n";
|
|
$returnStr .= "<td>MAC</td><td>IPv4</td><td>UID</td><td>NAME</td><td>STATUS</td><td>INFO</td>\n";
|
|
$returnStr .= "</tr>\n";
|
|
|
|
$nbViews = 0;
|
|
|
|
if (defined $result->{data}->{passive}) {
|
|
$views = $result->{data}->{passive};
|
|
$nbViews = scalar @$views;
|
|
}
|
|
|
|
if ($nbViews > 0) {
|
|
|
|
for(my $i = 0; $i <= $nbViews - 1; $i++) {
|
|
$returnStr .= "<tr>\n";
|
|
$returnStr .= "<td>" . $result->{data}->{passive}->[$i]->{mac} . "</td>";
|
|
$returnStr .= "<td>" . $result->{data}->{passive}->[$i]->{ipv4}->{ip} . "</td>";
|
|
$returnStr .= "<td>" . $result->{data}->{passive}->[$i]->{UID} . "</td>";
|
|
$returnStr .= "<td>" . $result->{data}->{passive}->[$i]->{name} . "</td>";
|
|
if (ref($result->{data}->{passive}->[$i]->{state}) ne "ARRAY") {
|
|
$returnStr .= "<td>" . $result->{data}->{passive}->[$i]->{state} . "</td>";
|
|
} else {
|
|
$returnStr .= "<td>---</td>";
|
|
}
|
|
$returnStr .= "<td>" . $result->{data}->{passive}->[$i]->{properties}->[1]->{txt} . "</td>" if defined ($result->{data}->{passive}->[$i]->{properties}->[1]->{txt});
|
|
$returnStr .= "</tr>\n";
|
|
}
|
|
}
|
|
|
|
$returnStr .= "</table>\n";
|
|
|
|
return $returnStr;
|
|
|
|
} # end FRITZBOX_Lan_Devices_List
|
|
|
|
# get info for a lanDevice
|
|
############################################
|
|
sub FRITZBOX_Lan_Device_Info($$$) {
|
|
my ($hash, $lDevID, $action) = @_;
|
|
my $name = $hash->{NAME};
|
|
FRITZBOX_Log $hash, 4, "INFO: LanDevice to proof: " . $lDevID . " for: " . $action;
|
|
|
|
my @webCmdArray;
|
|
my $returnStr;
|
|
|
|
#xhr 1
|
|
#xhrId all
|
|
#backToPage netDev
|
|
#dev landevice7718 / landevice7731 Apollo
|
|
#initalRefreshParamsSaved true
|
|
#no_sidrenew nop
|
|
#lang de
|
|
#page edit_device2
|
|
|
|
push @webCmdArray, "xhr" => "1";
|
|
push @webCmdArray, "xhrId" => "all";
|
|
push @webCmdArray, "backToPage" => "netDev";
|
|
push @webCmdArray, "dev" => $lDevID;
|
|
push @webCmdArray, "initalRefreshParamsSaved" => "true";
|
|
push @webCmdArray, "lang" => "de";
|
|
|
|
my @fwV = split(/\./, ReadingsVal($name, "box_fwVersion", "0.0.0.error"));
|
|
|
|
my $FW1 = substr($fwV[1],0,2);
|
|
my $FW2 = substr($fwV[2],0,2);
|
|
|
|
FRITZBOX_Log $hash, 4, "INFO: FRITZBOX_Lan_Device_Info (Fritz!OS: $FW1.$FW2) ";
|
|
|
|
if ($FW1 >= 7 && $FW2 >= 25) {
|
|
push @webCmdArray, "page" => "edit_device";
|
|
} else {
|
|
push @webCmdArray, "page" => "edit_device2";
|
|
}
|
|
|
|
FRITZBOX_Log $hash, 4, "INFO: set $name $action " . join(" ", @webCmdArray);
|
|
|
|
my $result = FRITZBOX_Function_Lua($hash, "data", \@webCmdArray) ;
|
|
|
|
if(defined $result->{Error}) {
|
|
FRITZBOX_Log $hash, 2, "ERROR: get $name $action \n" . FRITZBOX_ERR_Result($hash, $result);
|
|
return "ERROR: getting Lan_Device_Info: " . $action . " for: " . $lDevID;
|
|
}
|
|
|
|
if (exists $result->{data}->{vars}) {
|
|
FRITZBOX_Log $hash, 5, "DEBUG: landevice: " . $lDevID . "landevice: \n" . FRITZBOX_ERR_Result($hash, $result);
|
|
|
|
if ($action eq "info") {
|
|
if($result->{data}->{vars}->{dev}->{UID} eq $lDevID) {
|
|
my $returnStr = "";
|
|
$returnStr .= "MAC:" . $result->{data}->{vars}->{dev}->{mac};
|
|
$returnStr .= " IPv4:" . $result->{data}->{vars}->{dev}->{ipv4}->{current}->{ip};
|
|
$returnStr .= " UID:" . $result->{data}->{vars}->{dev}->{UID};
|
|
$returnStr .= " NAME:" . $result->{data}->{vars}->{dev}->{name}->{displayName};
|
|
if ( ref ($result->{data}->{vars}->{dev}->{netAccess}->{kisi}->{selectedRights}) eq 'HASH' ) {
|
|
$returnStr .= " ACCESS:" . $result->{data}->{vars}->{dev}->{netAccess}->{kisi}->{selectedRights}->{msgid} if defined($result->{data}->{vars}->{dev}->{netAccess}->{kisi}->{selectedRights}->{msgid});
|
|
}
|
|
$returnStr .= " DEVTYPE:" . $result->{data}->{vars}->{dev}->{devType};
|
|
$returnStr .= " STATE:" . $result->{data}->{vars}->{dev}->{wlan}->{state} if defined($result->{data}->{vars}->{dev}->{wlan}->{state}) and $result->{data}->{vars}->{dev}->{devType} eq 'wlan';
|
|
$returnStr .= " ONLINE:" . $result->{data}->{vars}->{dev}->{state};
|
|
$returnStr .= " REALTIME:" . $result->{data}->{vars}->{dev}->{realtime}->{state} if defined($result->{data}->{vars}->{dev}->{realtime}->{state});
|
|
return $returnStr;
|
|
} else {
|
|
return "ERROR: no lanDeviceInfo: " . $lDevID;
|
|
}
|
|
} elsif ($action eq "chgProf") {
|
|
if($result->{data}->{vars}->{dev}->{UID} eq $lDevID) {
|
|
return $result;
|
|
}
|
|
} elsif ($action eq "lockLandevice") {
|
|
unless (defined $result->{data}->{vars}->{dev}->{netAccess}->{kisi}->{selectedRights}->{msgid}) {
|
|
FRITZBOX_Log $hash, 2, "ERROR: no msgId returned";
|
|
return "ERROR: no msgId returned";
|
|
}
|
|
|
|
my $jsonMsgId = $result->{data}->{vars}->{dev}->{netAccess}->{kisi}->{selectedRights}->{msgid};
|
|
|
|
FRITZBOX_Log $hash, 5, "DEBUG: MsgId: " . $jsonMsgId;
|
|
return "INFO: " . $jsonMsgId;
|
|
}
|
|
} else {
|
|
FRITZBOX_Log $hash, 2, "ERROR: landevice: " . $lDevID . "landevice: Fehler holen Lan_Device_Info";
|
|
|
|
return "ERROR: Lan_Device_Info: " . $action . ": " . $lDevID;
|
|
}
|
|
|
|
} # end FRITZBOX_Lan_Device_Info
|
|
|
|
# get info for restrinctions for kids
|
|
############################################
|
|
sub FRITZBOX_Lua_Kids($$@)
|
|
{
|
|
my ($hash, $queryStr, $charSet) = @_;
|
|
$charSet = "" unless defined $charSet;
|
|
my $name = $hash->{NAME};
|
|
|
|
my $sid = FRITZBOX_Web_OpenCon( $hash );
|
|
unless ($sid) {
|
|
my %retHash = ( "Error" => "Didn't get a session ID", "ResetSID" => "1" ) ;
|
|
return \%retHash;
|
|
} elsif ($sid eq "offline") {
|
|
my %retHash = ( "Error" => "Device is offline", "ResetSID" => "1" ) ;
|
|
return \%retHash;
|
|
}
|
|
|
|
FRITZBOX_Log $hash, 5, "DEBUG: Request data via API dataQuery.";
|
|
my $host = $hash->{HOST};
|
|
my $url = 'http://' . $host . '/internet/kids_userlist.lua?sid=' . $sid; # . '&' . $queryStr;
|
|
|
|
FRITZBOX_Log $hash, 5, "DEBUG: URL: $url";
|
|
|
|
my $agent = LWP::UserAgent->new( env_proxy => 1, keep_alive => 1, protocols_allowed => ['http'], timeout => 180);
|
|
my $response = $agent->post ( $url, $queryStr );
|
|
|
|
FRITZBOX_Log $hash, 5, "DEBUG: Response: ".$response->status_line."\n".$response->content;
|
|
|
|
unless ($response->is_success) {
|
|
my %retHash = ("Error" => $response->status_line, "ResetSID" => "1");
|
|
FRITZBOX_Log $hash, 2, "ERROR: ".$response->status_line;
|
|
return \%retHash;
|
|
}
|
|
|
|
my $jsonText = $response->content;
|
|
|
|
if ($jsonText =~ /<html>|"pid": "logout"/) {
|
|
FRITZBOX_Log $hash, 2, "ERROR: Old SID not valid anymore. ResetSID";
|
|
my %retHash = ("Error" => "Old SID not valid anymore.", "ResetSID" => "1");
|
|
return \%retHash;
|
|
}
|
|
|
|
|
|
#################
|
|
#FRITZBOX_Log $hash, 3, "INFO: Response: ".$response->content;
|
|
#################
|
|
|
|
# Remove illegal escape sequences
|
|
$jsonText =~ s/\\'/'/g; #Hochkomma
|
|
$jsonText =~ s/\\x\{[0-9a-f]\}//g; #delete control codes (as hex numbers)
|
|
|
|
FRITZBOX_Log $hash, 5, "DEBUG: Decode JSON string.";
|
|
my $jsonResult ;
|
|
if ($charSet eq "UTF-8") {
|
|
$jsonResult = JSON->new->utf8->decode( $jsonText );
|
|
}
|
|
else {
|
|
$jsonResult = JSON->new->latin1->decode( $jsonText );
|
|
}
|
|
#Not a HASH reference at ./FHEM/72_FRITZBOX.pm line 4662.
|
|
# 2018.03.19 18:43:28 3: FRITZBOX: get Fritzbox luaQuery settings/sip
|
|
if ( ref ($jsonResult) ne "HASH" ) {
|
|
chop $jsonText;
|
|
FRITZBOX_Log $hash, 5, "DEBUG: no json string returned (" . $jsonText . ")";
|
|
my %retHash = ("Error" => "no json string returned (" . $jsonText . ")", "ResetSID" => "1");
|
|
return \%retHash;
|
|
}
|
|
$jsonResult->{sid} = $sid;
|
|
$jsonResult->{Error} = $jsonResult->{error} if defined $jsonResult->{error};
|
|
return $jsonResult;
|
|
|
|
} # end FRITZBOX_Lua_Kids
|
|
|
|
#####################################
|
|
# checks and stores FritzBox password used for webinterface connection
|
|
sub FRITZBOX_storePassword($$)
|
|
{
|
|
my ($hash, $password) = @_;
|
|
|
|
my $index = $hash->{TYPE}."_".$hash->{NAME}."_passwd";
|
|
my $key = getUniqueId().$index;
|
|
|
|
my $enc_pwd = "";
|
|
|
|
if(eval "use Digest::MD5;1")
|
|
{
|
|
$key = Digest::MD5::md5_hex(unpack "H*", $key);
|
|
$key .= Digest::MD5::md5_hex($key);
|
|
}
|
|
|
|
for my $char (split //, $password)
|
|
{
|
|
my $encode=chop($key);
|
|
$enc_pwd.=sprintf("%.2x",ord($char)^ord($encode));
|
|
$key=$encode.$key;
|
|
}
|
|
|
|
my $err = setKeyValue($index, $enc_pwd);
|
|
return "error while saving the password - $err" if(defined($err));
|
|
|
|
return "password successfully saved";
|
|
|
|
} # end FRITZBOX_storePassword
|
|
|
|
#####################################
|
|
# reads the FritzBox password
|
|
sub FRITZBOX_readPassword($)
|
|
{
|
|
my ($hash) = @_;
|
|
my $name = $hash->{NAME};
|
|
|
|
my $xline = ( caller(0) )[2];
|
|
my $xsubroutine = ( caller(1) )[3];
|
|
my $sub = ( split( ':', $xsubroutine ) )[2];
|
|
$sub =~ s/FRITZBOX_// if ( defined $sub );
|
|
$sub ||= 'no-subroutine-specified';
|
|
|
|
if ($sub !~ /Web_OpenCon|TR064_Cmd/) {
|
|
FRITZBOX_Log $hash, 2, "EMERGENCY: unauthorized call for reading password from: [$sub]";
|
|
$hash->{EMERGENCY} = "Unauthorized call for reading password from: [$sub]";
|
|
return undef;
|
|
}
|
|
|
|
my $index = $hash->{TYPE}."_".$hash->{NAME}."_passwd";
|
|
my $key = getUniqueId().$index;
|
|
|
|
my ($password, $err);
|
|
|
|
FRITZBOX_Log $hash, 4, "INFO: Read FritzBox password from file";
|
|
($err, $password) = getKeyValue($index);
|
|
|
|
if ( defined($err) ) {
|
|
FRITZBOX_Log $hash, 2, "ERROR: unable to read FritzBox password from file: $err";
|
|
return undef;
|
|
}
|
|
|
|
if ( defined($password) ) {
|
|
if ( eval "use Digest::MD5;1" ) {
|
|
$key = Digest::MD5::md5_hex(unpack "H*", $key);
|
|
$key .= Digest::MD5::md5_hex($key);
|
|
}
|
|
|
|
my $dec_pwd = '';
|
|
|
|
for my $char (map { pack('C', hex($_)) } ($password =~ /(..)/g)) {
|
|
my $decode=chop($key);
|
|
$dec_pwd.=chr(ord($char)^ord($decode));
|
|
$key=$decode.$key;
|
|
}
|
|
|
|
return $dec_pwd;
|
|
}
|
|
else {
|
|
FRITZBOX_Log $hash, 2, "INFO: No password in file";
|
|
return undef;
|
|
}
|
|
|
|
} # end FRITZBOX_readPassword
|
|
|
|
#####################################
|
|
|
|
1;
|
|
|
|
=pod
|
|
=item device
|
|
=item summary Controls some features of AVM's FRITZ!BOX, FRITZ!Repeater and Fritz!Fon.
|
|
=item summary_DE Steuert einige Funktionen von AVM's FRITZ!BOX, Fritz!Repeater und Fritz!Fon.
|
|
|
|
=begin html
|
|
|
|
<a name="FRITZBOX"></a>
|
|
<h3>FRITZBOX</h3>
|
|
<div>
|
|
<ul>
|
|
Controls some features of a FRITZ!BOX router or Fritz!Repeater. Connected Fritz!Fon's (MT-F, MT-D, C3, C4, C5) can be used as
|
|
signaling devices. MP3 files and Text2Speech can be played as ring tone or when calling phones.
|
|
<br>
|
|
For detail instructions, look at and please maintain the <a href="http://www.fhemwiki.de/wiki/FRITZBOX"><b>FHEM-Wiki</b></a>.
|
|
<br/><br/>
|
|
The box is partly controlled via the official TR-064 interface but also via undocumented interfaces between web interface and firmware kernel.</br>
|
|
<br>
|
|
The modul was tested on FRITZ!BOX 7590, 7490 and FRITZ!WLAN Repeater 1750E with Fritz!OS 7.50 and higher.
|
|
<br>
|
|
Check also the other FRITZ!BOX moduls: <a href="#SYSMON">SYSMON</a> and <a href="#FB_CALLMONITOR">FB_CALLMONITOR</a>.
|
|
<br>
|
|
<i>The modul uses the Perl modul 'JSON::XS', 'LWP', 'SOAP::Lite' for remote access.</i>
|
|
<br/><br/>
|
|
|
|
<a name="FRITZBOXdefine"></a>
|
|
<b>Define</b>
|
|
<ul>
|
|
<br>
|
|
<code>define <name> FRITZBOX <host></code>
|
|
<br/>
|
|
The parameter <i>host</i> is the web address (name or IP) of the FRITZ!BOX.
|
|
<br/><br/>
|
|
Example: <code>define Fritzbox FRITZBOX fritz.box</code>
|
|
<br/><br/>
|
|
</ul>
|
|
|
|
<a name="FRITZBOXset"></a>
|
|
<b>Set</b>
|
|
<ul>
|
|
<li><a name="call"></a>
|
|
<dt><code>set <name> call <number> [duration]</code></dt>
|
|
<br>
|
|
Calls for 'duration' seconds (default 60) the given number from an internal port (default 1).
|
|
</li><br>
|
|
|
|
<li><a name="checkAPIs"></a>
|
|
<dt><code>set <name> checkAPIs</code></dt>
|
|
<br>
|
|
Restarts the initial check of the programming interfaces of the FRITZ!BOX.
|
|
</li><br>
|
|
|
|
<li><a name="chgProfile"></a>
|
|
<dt><code>set <name> chgProfile <number> <filtprof<i>n</i>></code></dt>
|
|
<br>
|
|
<number> is the ID from landevice<i>n..n</i> or its MAC<br>
|
|
Changes the profile filtprof with the given number 1..n of the landevice.<br>
|
|
Execution is non-blocking. The feedback takes place in the reading: retStat_chgProfile<br>
|
|
Needs FRITZ!OS 7.21 or higher
|
|
<br>
|
|
</li><br>
|
|
|
|
<li><a name="dect"></a>
|
|
<dt><code>set <name> dect <on|off></code></dt>
|
|
<br>
|
|
Switches the DECT base of the box on or off.
|
|
<br>
|
|
Requires FRITZ!OS 7.21 or higher.
|
|
</li><br>
|
|
|
|
<li><a name="diversity"></a>
|
|
<dt><code>set <name> diversity <number> <on|off></code></dt>
|
|
<br>
|
|
Switches the call diversity number (1, 2 ...) on or off.
|
|
A call diversity for an incoming number has to be created with the FRITZ!BOX web interface. Requires TR064 (>=6.50).
|
|
<br>
|
|
Note! Only a diversity for a concret home number and <u>without</u> filter for the calling number can be set. Hence, an approbriate <i>diversity</i>-reading must exist.
|
|
</li><br>
|
|
|
|
<li><a name="guestWlan"></a>
|
|
<dt><code>set <name> guestWlan <on|off></code></dt>
|
|
<br>
|
|
Switches the guest WLAN on or off. The guest password must be set. If necessary, the normal WLAN is also switched on.
|
|
</li><br>
|
|
|
|
<li><a name="dectRingblock"></a>
|
|
<dt><code>set <name> dectRingblock <dect<nn>> <on|off></code></dt>
|
|
<br>
|
|
Activates / deactivates the Do Not Disturb for the DECT telephone with the ID dect<n>. The ID can be found in the reading list
|
|
of the <name> device.<br><br>
|
|
<code>set <name> dectRingblock <dect<nn>> <days> <hh:mm-hh:mm> [lmode:on|off] [emode:on|off]</code><br><br>
|
|
Activates / deactivates the do not disturb for the DECT telephone with the ID dect<n> for periods:<br>
|
|
<hh:mm-hh:mm> = Time from - time to<br>
|
|
<days> = wd for weekdays, ed for every day, we for weekend<br>
|
|
lmode:on|off = lmode defines the Do Not Disturb. If off, it is off except for the period specified.<br>
|
|
If on, the lock is on except for the specified period<br>
|
|
emode:on|off = emode switches events on/off when Do Not Disturb is set. See the FRITZ!BOX documentation<br>
|
|
Needs FRITZ!OS 7.21 or higher.
|
|
</li><br>
|
|
|
|
<li><a name="macFilter"></a>
|
|
<dt><code>set <name> macFilter <on|off></code></dt>
|
|
<br>
|
|
Activates/deactivates the MAC Filter. Depends to "new WLAN Devices in the FRITZ!BOX.<br>
|
|
Execution is non-blocking. The feedback takes place in the reading: retStat_macFilter<br>
|
|
Needs FRITZ!OS 7.21 or higher.
|
|
</li><br>
|
|
|
|
<li><a name="lockLandevice"></a>
|
|
<dt><code>set <name> lockLandevice <number> <on|off></code></dt>
|
|
<br>
|
|
<number> is the ID from landevice<i>n..n</i> or its MAC<br>
|
|
Switches the landevice on or off.<br>
|
|
Execution is non-blocking. The feedback takes place in the reading: retStat_lockLandevice<br>
|
|
Needs FRITZ!OS 7.21 or higher
|
|
</li><br>
|
|
|
|
<li><a name="enableVPNshare"></a>
|
|
<dt><code>set <name> enableVPNshare <number> <on|off></code></dt>
|
|
<br>
|
|
<number> results from the reading vpn<i>n..n</i>_user.. or _box<br>
|
|
Switches the vpn share with the given number nn on or off.<br>
|
|
Execution is non-blocking. The feedback takes place in the reading: retStat_enableVPNshare <br>
|
|
Needs FRITZ!OS 7.21 or higher
|
|
</li><br>
|
|
|
|
<li><a name="switchIPv4DNS"></a>
|
|
<dt><code>set <name> switchIPv4DNS <provider|other></code></dt>
|
|
<br>
|
|
Switches the ipv4 dns to the internet provider or another dns (must be defined for the FRITZ!BOX).
|
|
<br>
|
|
Needs FRITZ!OS 7.21 or higher
|
|
</li><br>
|
|
|
|
<li><a name="password"></a>
|
|
<dt><code>set <name> password <password></code></dt>
|
|
<br>
|
|
</li><br>
|
|
|
|
<li><a name="rescanWLANneighbors"></a>
|
|
<dt><code>set <name> rescanWLANneighbors</code></dt>
|
|
<br>
|
|
Rescan of the WLAN neighborhood.
|
|
Execution is non-blocking. The feedback takes place in the reading: retStat_rescanWLANneighbors<br>
|
|
</li><br>
|
|
|
|
<li><a name="reboot"></a>
|
|
<dt><code>set <name> reboot <minutes></code></dt>
|
|
<br>
|
|
Restarts the FRITZ!BOX in <minutes>. If this 'set' is executed, a one-time 'at' is generated in the room 'Unsorted',
|
|
which is then used to execute the reboot. The new 'at' has the device name: act_Reboot_<Name FB Device>.
|
|
</li><br>
|
|
|
|
<li><a name="ring"></a>
|
|
<dt><code>set <name> ring <intNumbers> [duration] [show:Text] [say:Text | play:MP3URL]</code></dt>
|
|
<dt>Example:</dt>
|
|
<dd>
|
|
<code>set <name> ring 611,612 5 Budapest show:It is raining</code>
|
|
<br>
|
|
<code>set <name> ring 611 8 say:(en)It is raining</code>
|
|
<br>
|
|
<code>set <name> ring 610 10 play:http://raspberrypi/sound.mp3</code>
|
|
</dd>
|
|
Rings the internal numbers for "duration" seconds and (on Fritz!Fons) with the given "ring tone" name.
|
|
Different internal numbers have to be separated by a comma (without spaces).
|
|
<br>
|
|
Default duration is 5 seconds. The FRITZ!BOX can create further delays. Default ring tone is the internal ring tone of the device.
|
|
Ring tone will be ignored for collected calls (9 or 50).
|
|
<br>
|
|
If the call is taken the callee hears the "music on hold" which can also be used to transmit messages.
|
|
<br/><br/>
|
|
If the <a href=#FRITZBOXattr>attribute</a> 'ringWithIntern' is specified, the text behind 'show:' will be shown as the callers name.
|
|
Maximal 30 characters are allowed.
|
|
<br/><br/>
|
|
On Fritz!Fons the parameter 'say:' can be used to let the phone speak a message (max. 100 characters) instead of using the ringtone.
|
|
Alternatively, a MP3 link (from a web server) can be played with 'play:'. This creates the web radio station 'FHEM' and uses translate.google.com for text2speech. It will <u>always</u> play the complete text/sound. It will than ring with standard ring tone until the end of the 'ring duration' is reached.
|
|
Say and play <u>may</u> work only with one single Fritz!Fon at a time.
|
|
<br>
|
|
The behaviour may vary depending on the Fritz!OS.
|
|
</li><br>
|
|
|
|
<li><a name="tam"></a>
|
|
<dt><code>set <name> tam <number> <on|off></code></dt>
|
|
<br>
|
|
Switches the answering machine number (1, 2 ...) on or off.
|
|
The answering machine has to be created on the FRITZ!BOX web interface.
|
|
</li><br>
|
|
|
|
<li><a name="update"></a>
|
|
<dt><code>set <name> update</code></dt>
|
|
<br>
|
|
Starts an update of the device readings.
|
|
</li><br>
|
|
|
|
<li><a name="wakeUpCall"></a>
|
|
<dt><code>set <name> wakeUpCall <alarm1|alarm2|alarm3> <off></code></dt>
|
|
<dt><code>set <name> wakeUpCall <alarm1|alarm2|alarm3> <Device Number|Name> <daily|only_once> <hh:mm></code></dt>
|
|
<dt><code>set <name> wakeUpCall <alarm1|alarm2|alarm3> <Device Number|Name> <per_day> <hh:mm> <mon:0|1 tue:0|1 wed:0|1 thu:0|1 fri:0|1 sat:0|1 sun:0|1></code></dt>
|
|
<br>
|
|
Disables or sets the wake up call: alarm1, alarm2 or alarm3.
|
|
<br>
|
|
THe DeviceNumber can be found in the reading <b>dect</b><i>n</i><b>_device</b> or <b>fon</b><i>n</i><b>_device</b>
|
|
<br>
|
|
If you get "redundant name in FB" in a reading <b>dect</b><i>n</i> or <b>fon</b><i>n</i> than the device name can not be used.
|
|
<br>
|
|
Needs FRITZ!OS 7.21 or higher
|
|
</li><br>
|
|
|
|
|
|
<li><a name="wlan"></a>
|
|
<dt><code>set <name> wlan <on|off></code></dt>
|
|
<br>
|
|
Switches WLAN on or off.
|
|
</li><br>
|
|
|
|
<li><a name="wlan2.4"></a>
|
|
<dt><code>set <name> wlan2.4 <on|off></code></dt>
|
|
<br>
|
|
Switches WLAN 2.4 GHz on or off.
|
|
</li><br>
|
|
|
|
<li><a name="wlan5"></a>
|
|
<dt><code>set <name> wlan5 <on|off></code></dt>
|
|
<br>
|
|
Switches WLAN 5 GHz on or off.
|
|
</li><br>
|
|
|
|
<li><a name="wlanLogExtended"></a>
|
|
<dt><code>set <name> wlanLogExtended <on|off></code></dt>
|
|
<br>
|
|
Toggles "Also log logins and logouts and extended Wi-Fi information" on or off.
|
|
<br>
|
|
Status in reading: retStat_wlanLogExtended.
|
|
</li><br>
|
|
|
|
</ul>
|
|
|
|
<a name="FRITZBOXget"></a>
|
|
<b>Get</b>
|
|
<ul>
|
|
<br>
|
|
|
|
<li><a name="fritzLog"></a>
|
|
<dt><code>get <name> fritzLog <table> <all | sys | wlan | usb | net | fon></code></dt>
|
|
<br>
|
|
<table> displays the result in FhemWeb as a table.
|
|
<br><br>
|
|
<dt><code>get <name> fritzLog <hash> <all | sys | wlan | usb | net | fon> [on|off]</code></dt>
|
|
<br>
|
|
<hash> [on] forwards the result to a function (non-blocking) myUtilsFritzLogExPostnb($hash, $filter, $result) for own processing.
|
|
<br>
|
|
<hash> <off> forwards the result to a function (blocking) myUtilsFritzLogExPost($hash, $filter, $result) für eigene Verarbeitung weiter.
|
|
<br>
|
|
where:<br>
|
|
$hash -> Fhem Device hash,<br>
|
|
$filter -> log filter,<br>
|
|
$result -> return of the data.lua query as JSON.
|
|
<br><br>
|
|
<all | sys | wlan | usb | net | fon> these parameters are used to filter the log information.
|
|
<br><br>
|
|
[on|off] gives parameter <hash> indicates whether further processing is blocking [off] or non-blocking [on] (default).
|
|
<br><br>
|
|
Feeback stored in the readings:<br>
|
|
retStat_fritzLogExPost = status of myUtilsFritzLogExPostnb / myUtilsFritzLogExPostnb<br>
|
|
retStat_fritzLogInfo = status log info request
|
|
<br><br>
|
|
Needs FRITZ!OS 7.21 or higher.
|
|
<br>
|
|
</li><br>
|
|
|
|
<li><a name="lanDeviceInfo"></a>
|
|
<dt><code>get <name> lanDeviceInfo <number></code></dt>
|
|
<br>
|
|
<number> is the ID from landevice<i>n..n</i> or its MAC<br>
|
|
Shows informations about a specific lan device.<br>
|
|
Needs FRITZ!OS 7.21 or higher.
|
|
</li><br>
|
|
|
|
<li><a name="luaData"></a>
|
|
<dt><code>get <name> luaData <Command></code></dt>
|
|
<br>
|
|
Evaluates commands via data.lua codes.
|
|
</li><br>
|
|
|
|
<li><a name="luaFunction"></a>
|
|
<dt><code>get <name> luaFunction <Command></code></dt>
|
|
<br>
|
|
Evaluates commands via AVM lua functions.
|
|
</li><br>
|
|
|
|
<li><a name="luaInfo"></a>
|
|
<dt><code>get <name> luaInfo <landevices|vpnShares|kidProfiles|userInfos|wlanNeighborhood|docsisInformation></code></dt>
|
|
<br>
|
|
Needs FRITZ!OS 7.21 or higher.<br>
|
|
lanDevices -> Shows a list of active and inactive lan devices.<br>
|
|
vpnShares -> Shows a list of active and inactive vpn shares.<br>
|
|
kidProfiles -> Shows a list of internet access profiles.<br>
|
|
userInfos -> Shows a list of FRITZ!BOX users.<br>
|
|
wlanNeighborhood -> Shows a list of WLAN neighborhood devices.<br>
|
|
docsisInformation -> Shows DOCSIS informations (only Cable).<br>
|
|
</li><br>
|
|
|
|
<li><a name="luaQuery"></a>
|
|
<dt><code>get <name> luaQuery <Command></code></dt>
|
|
<br>
|
|
Shows informations via query.lua requests.
|
|
</li><br>
|
|
|
|
<li><a name="tr064Command"></a>
|
|
<dt><code>get <name> tr064Command <service> <control> <action> [[argName1 argValue1] ...]</code></dt>
|
|
<br>
|
|
Executes TR-064 actions (see <a href="http://avm.de/service/schnittstellen/">API description</a> of AVM).
|
|
<br>
|
|
argValues with spaces have to be enclosed in quotation marks.
|
|
<br>
|
|
Example: <code>get <name> tr064Command X_AVM-DE_OnTel:1 x_contact GetDECTHandsetInfo NewDectID 1</code>
|
|
<br>
|
|
</li><br>
|
|
|
|
<li><a name="tr064ServiceList"></a>
|
|
<dt><code>get <name> tr064ServiceListe</code></dt>
|
|
<br>
|
|
Shows a list of TR-064 services and actions that are allowed on the device.
|
|
</li><br>
|
|
|
|
</ul>
|
|
|
|
<a name="FRITZBOXattr"></a>
|
|
<b>Attributes</b>
|
|
<ul>
|
|
<br>
|
|
<li><a name="INTERVAL"></a>
|
|
<dt><code>INTERVAL <seconds></code></dt>
|
|
<br>
|
|
Polling-Interval. Default is 300 (seconds). Smallest possible value is 60.
|
|
</li><br>
|
|
|
|
<li><a name="nonblockingTimeOut"></a>
|
|
<dt><code>nonblockingTimeOut <50|75|100|125></code></dt>
|
|
<br>
|
|
Timeout for fetching data from the Fritz!Box. Default is 55 (seconds).
|
|
</li><br>
|
|
|
|
<li><a name="boxUser"></a>
|
|
<dt><code>boxUser <user name></code></dt>
|
|
<br>
|
|
User name that is used for TR064 or other web based access. By default no user name is required to login.
|
|
<br>
|
|
If the FRITZ!BOX is configured differently, the user name has to be defined with this attribute.
|
|
</li><br>
|
|
|
|
<li><a name="deviceInfo"></a>
|
|
<dt><code>deviceInfo <ipv4, name, uid, connection, speed, rssi, _noDefInf_, _default_&, space, comma></code></dt>
|
|
<br>
|
|
This attribute can be used to design the content of the device readings (mac_...). If the attribute is not set, sets
|
|
the content breaks down as follows:<br>
|
|
<code>name,[uid],(connection: speed, rssi)</code><br><br>
|
|
|
|
If the <code>_noDefInf_</code> parameter is set, the order in the list is irrelevant here, non-existent network connection values are shown
|
|
as noConnectInfo (LAN or WLAN not available) and noSpeedInfo (speed not available).<br><br>
|
|
You can add your own text or characters via the free input field and classify them between the fixed parameters.<br>
|
|
There are the following special texts:<br>
|
|
<code>space</code> => becomes a space.<br>
|
|
<code>comma</code> => becomes a comma.<br>
|
|
<code>_default_...</code> => replaces the default space as separator.<br>
|
|
Examples:<br>
|
|
<code>_default_commaspace</code> => becomes a comma followed by a space separator.<br>
|
|
<code>_default_space:space</code> => becomes a space:space separator.<br>
|
|
Not all possible "nonsensical" combinations are intercepted. So sometimes things can go wrong.
|
|
</li><br>
|
|
|
|
<li><a name="disableBoxReadings"></a>
|
|
<dt><code>disableBoxReadings <list></code></dt>
|
|
<br>
|
|
disable single box_ Readings.
|
|
</li><br>
|
|
|
|
<li><a name="disableDectInfo"></a>
|
|
<dt><code>disableDectInfo <0 | 1></code></dt>
|
|
<br>
|
|
Switches the takeover of phone information off/on.
|
|
</li><br>
|
|
|
|
<li><a name="disableFonInfo"></a>
|
|
<dt><code>disableFonInfo <0 | 1></code></dt>
|
|
<br>
|
|
Switches the takeover of dect information off/on.
|
|
</li><br>
|
|
|
|
<li><a name="disableHostIPv4check"></a>
|
|
<dt><code>disableHostIPv4check<0 | 1></code></dt>
|
|
<br>
|
|
Disable the check if host is available.
|
|
</li><br>
|
|
|
|
<li><a name="disableTableFormat"></a>
|
|
<dt><code>disableTableFormat<border(8),cellspacing(10),cellpadding(20)></code></dt>
|
|
<br>
|
|
Disables table format parameters.
|
|
</li><br>
|
|
|
|
<li><a name="enableAlarmInfo"></a>
|
|
<dt><code>enableAlarmInfo <0 | 1></code></dt>
|
|
<br>
|
|
Switches the takeover of alarm information off/on.
|
|
</li><br>
|
|
|
|
<li><a name="enableKidProfiles"></a>
|
|
<dt><code>enableKidProfiles <0 | 1></code></dt>
|
|
<br>
|
|
Switches the takeover of kid profiles as reading off / on.
|
|
</li><br>
|
|
|
|
<li><a name="enableMobileModem"></a>
|
|
<dt><code>enableMobileModem <0 | 1></code></dt>
|
|
<br><br>
|
|
! Experimentel !
|
|
<br><br>
|
|
Switches the takeover of USB mobile devices as reading off / on.
|
|
<br>
|
|
Needs FRITZ!OS 7.50 or higher.
|
|
</li><br>
|
|
|
|
<li><a name="enablePassivLanDevices"></a>
|
|
<dt><code>enablePassivLanDevices <0 | 1></code></dt>
|
|
<br>
|
|
Switches the takeover of passive network devices as reading off / on.
|
|
</li><br>
|
|
|
|
<li><a name="enableSIP"></a>
|
|
<dt><code>enableSIP <0 | 1></code></dt>
|
|
<br>
|
|
Switches the takeover of SIP's as reading off / on.
|
|
</li><br>
|
|
|
|
<li><a name="enableUserInfo"></a>
|
|
<dt><code>enableUserInfo <0 | 1></code></dt>
|
|
<br>
|
|
Switches the takeover of user information off/on.
|
|
</li><br>
|
|
|
|
<li><a name="enableVPNShares"></a>
|
|
<dt><code>enableVPNShares <0 | 1></code></dt>
|
|
<br>
|
|
Switches the takeover of VPN shares as reading off / on.
|
|
</li><br>
|
|
|
|
<li><a name="enableWLANneighbors"></a>
|
|
<dt><code>enableWLANneighbors <0 | 1></code></dt>
|
|
<br>
|
|
Switches the takeover of WLAN neighborhood devices as reading off / on.
|
|
</li><br>
|
|
|
|
<li><a name="wlanNeighborsPrefix"></a>
|
|
<dt><code>wlanNeighborsPrefix <prefix></code></dt>
|
|
<br>
|
|
Defines a new prefix for the reading name of the wlan neighborhood devices that is build from the mac address. Default prefix is nbh_.
|
|
</li><br>
|
|
|
|
<li><a name="m3uFileActive"></a>
|
|
<dt><code>m3uFileActive <0 | 1></code></dt>
|
|
<br>
|
|
Activates the use of m3u files for using Internet radio for voice output on the Fritz!Fon devices.
|
|
<br>
|
|
This output is currently no longer working.
|
|
</li><br>
|
|
|
|
<li><a name="m3uFileLocal"></a>
|
|
<dt><code>m3uFileLocal </path/fileName></code></dt>
|
|
<br>
|
|
Can be used as a work around if the ring tone of a Fritz!Fon cannot be changed because of firmware restrictions (missing telnet or webcm).
|
|
<br>
|
|
How it works: If the FHEM server has also a web server running, the FritzFon can play a m3u file from this web server as an internet radio station.
|
|
For this an internet radio station on the FritzFon must point to the server URL of this file and the internal ring tone must be changed to that station.
|
|
<br>
|
|
If the attribute is set, the server file "m3uFileLocal" (local address of the FritzFon URL) will be filled with the URL of the text2speech engine (say:) or a MP3-File (play:). The FritzFon will then play this URL.
|
|
</li><br>
|
|
|
|
<li><a name="m3uFileURL"></a>
|
|
<dt><code>m3uFileURL <URL></code></dt>
|
|
<br>
|
|
</li><br>
|
|
|
|
<li><a href="#readingFnAttributes">readingFnAttributes</a></li>
|
|
</ul>
|
|
<br>
|
|
|
|
<a name="FRITZBOXreading"></a>
|
|
<b>Readings</b>
|
|
<ul><br>
|
|
<li><b>alarm</b><i>1</i> - Name of the alarm clock <i>1</i></li>
|
|
<li><b>alarm</b><i>1</i><b>_state</b> - Current state of the alarm clock <i>1</i></li>
|
|
<li><b>alarm</b><i>1</i><b>_target</b> - Internal number of the alarm clock <i>1</i></li>
|
|
<li><b>alarm</b><i>1</i><b>_time</b> - Alarm time of the alarm clock <i>1</i></li>
|
|
<li><b>alarm</b><i>1</i><b>_wdays</b> - Weekdays of the alarm clock <i>1</i></li>
|
|
<br>
|
|
<li><b>box_box_dns_Server</b><i>n</i> - DNS Server</li>
|
|
<li><b>box_connection_Type</b> - connection type</li>
|
|
<li><b>box_cpuTemp</b> - Tempreture of the Fritx!Box CPU</li>
|
|
<li><b>box_dect</b> - Current state of the DECT base: activ, inactiv</li>
|
|
<li><b>box_dsl_downStream</b> - minimum effective data rate (MBit/s)</li>
|
|
<li><b>box_dsl_upStream</b> - minimum effective data rate (MBit/s)</li>
|
|
<li><b>box_fon_LogNewest</b> - newest phone event: ID Date Time </li>
|
|
<li><b>box_fwVersion</b> - Firmware version of the box, if outdated then '(old)' is appended</li>
|
|
<li><b>box_guestWlan</b> - Current state of the guest WLAN</li>
|
|
<li><b>box_guestWlanCount</b> - Number of devices connected to guest WLAN</li>
|
|
<li><b>box_guestWlanRemain</b> - Remaining time until the guest WLAN is switched off</li>
|
|
<li><b>box_ipv4_Extern</b> - Internet IPv4 of the FRITZ!BOX</li>
|
|
<li><b>box_ipv6_Extern</b> - Internet IPv6 of the FRITZ!BOX</li>
|
|
<li><b>box_ipv6_Prefix</b> - Internet IPv6 Prefix of the FRITZ!BOX for the LAN/WLAN</li>
|
|
<li><b>box_last_auth_err</b> - last authentication error</li>
|
|
<li><b>box_mac_Address</b> - MAC address</li>
|
|
<li><b>box_macFilter_active</b> - Status of the WLAN MAC filter (restrict WLAN access to known WLAN devices)</li>
|
|
<li><b>box_meshRole</b> - from version 07.21 the mesh role (master, slave) is displayed.</li>
|
|
<li><b>box_model</b> - FRITZ!BOX model</li>
|
|
<li><b>box_moh</b> - music-on-hold setting</li>
|
|
<li><b>box_model</b> - FRITZ!BOX model</li>
|
|
<li><b>box_connect</b> - connection state: Unconfigured, Connecting, Authenticating, Connected, PendingDisconnect, Disconnecting, Disconnected</li>
|
|
<li><b>box_last_connect_err</b> - last connection error</li>
|
|
<li><b>box_upnp</b> - application interface UPNP (needed by this modul)</li>
|
|
<li><b>box_upnp_control_activated</b> - state if control via UPNP is enabled</li>
|
|
<li><b>box_uptime</b> - uptime since last reboot</li>
|
|
<li><b>box_uptimeConnect</b> - connect uptime since last reconnect</li>
|
|
<li><b>box_powerRate</b> - current power in percent of maximal power</li>
|
|
<li><b>box_rateDown</b> - average download rate in the last update interval</li>
|
|
<li><b>box_rateUp</b> - average upload rate in the last update interval</li>
|
|
<li><b>box_stdDialPort</b> - standard caller port when using the dial function of the box</li>
|
|
<li><b>box_sys_LogNewest</b> - newest system event: ID Date Time </li>
|
|
<li><b>box_tr064</b> - application interface TR-064 (needed by this modul)</li>
|
|
<li><b>box_tr069</b> - provider remote access TR-069 (safety issue!)</li>
|
|
<li><b>box_vdsl_downStreamRate</b> - Current down stream data rate (MBit/s)</li>
|
|
<li><b>box_vdsl_downStreamMaxRate</b> - Max down stream data rate (MBit/s)</li>
|
|
<li><b>box_vdsl_upStreamRate</b> - Current up stream data rate (MBit/s)</li>
|
|
<li><b>box_vdsl_upStreamMaxRate</b> - Max up stream data rate (MBit/s)</li>
|
|
<li><b>box_wan_AccessType</b> - access type (DSL, Ethernet, ...)</li>
|
|
<li><b>box_wlan_Count</b> - Number of devices connected via WLAN</li>
|
|
<li><b>box_wlan_2.4GHz</b> - Current state of the 2.4 GHz WLAN</li>
|
|
<li><b>box_wlan_5GHz</b> - Current state of the 5 GHz WLAN</li>
|
|
<li><b>box_wlan_lastScanTime</b> - last scan of the WLAN neighborhood. This readings is only available if the attribut enableWLANneighbors is set.</li>
|
|
<li><b>box_wlan_LogExtended</b> - Status -> "Also log logins and logouts and extended Wi-Fi information".</li>
|
|
<li><b>box_wlan_LogNewest</b> - newest WLAN event: ID Date time </li>
|
|
|
|
<br>
|
|
<li><b>box_docsis30_Ds_corrErrors</b> - Only Fritz!Box Cable</li>
|
|
<li><b>box_docsis30_Ds_frequencys</b> - Only Fritz!Box Cable</li>
|
|
<li><b>box_docsis30_Ds_latencys</b> - Only Fritz!Box Cable</li>
|
|
<li><b>box_docsis30_Ds_mses</b> - Only Fritz!Box Cable</li>
|
|
<li><b>box_docsis30_Ds_nonCorrErrors</b> - Only Fritz!Box Cable</li>
|
|
<li><b>box_docsis30_Ds_powerLevels</b> - Only Fritz!Box Cable</li>
|
|
|
|
<li><b>box_docsis30_Us_frequencys</b> - Only Fritz!Box Cable</li>
|
|
<li><b>box_docsis30_Us_powerLevels</b> - Only Fritz!Box Cable</li>
|
|
|
|
<li><b>box_docsis31_Ds_frequencys</b> - Only Fritz!Box Cable</li>
|
|
<li><b>box_docsis31_Ds_powerLevels</b> - Only Fritz!Box Cable</li>
|
|
|
|
<li><b>box_docsis31_Us_frequencys</b> - Only Fritz!Box Cable</li>
|
|
<li><b>box_docsis31_Us_powerLevels</b> - Only Fritz!Box Cable</li>
|
|
|
|
<br>
|
|
|
|
<li><b>dect</b><i>n</i> - Name of the DECT device <i>1</i></li>
|
|
<li><b>dect</b><i>n</i><b>_alarmRingTone</b> - Alarm ring tone of the DECT device <i>1</i></li>
|
|
<li><b>dect</b><i>n</i><b>_custRingTone</b> - Customer ring tone of the DECT device <i>1</i></li>
|
|
<li><b>dect</b><i>n</i><b>_device</b> - Internal device number of the DECT device <i>1</i></li>
|
|
<li><b>dect</b><i>n</i><b>_fwVersion</b> - Firmware Version of the DECT device <i>1</i></li>
|
|
<li><b>dect</b><i>n</i><b>_intern</b> - Internal phone number of the DECT device <i>1</i></li>
|
|
<li><b>dect</b><i>n</i><b>_intRingTone</b> - Internal ring tone of the DECT device <i>1</i></li>
|
|
<li><b>dect</b><i>n</i><b>_manufacturer</b> - Manufacturer of the DECT device <i>1</i></li>
|
|
<li><b>dect</b><i>n</i><b>_model</b> - Model of the DECT device <i>1</i></li>
|
|
<li><b>dect</b><i>n</i><b>_NoRingWithNightSetting</b> - Do not signal any events for the DECT telephone <i>n</i> when the Do Not Disturb feature is active</li>
|
|
<li><b>dect</b><i>n</i><b>_radio</b> - Current internet radio station ring tone of the DECT device <i>1</i></li>
|
|
<li><b>dect</b><i>n</i><b>_NoRingTime</b> - declined ring times of the DECT telephone <i>n</i></li>
|
|
<br>
|
|
<li><b>diversity</b><i>n</i> - Own (incoming) phone number of the call diversity <i>1</i></li>
|
|
<li><b>diversity</b><i>n</i><b>_dest</b> - Destination of the call diversity <i>1</i></li>
|
|
<li><b>diversity</b><i>n</i><b>_state</b> - Current state of the call diversity <i>1</i></li>
|
|
<br>
|
|
<li><b>fon</b><i>n</i> - Internal name of the analog FON port <i>1</i></li>
|
|
<li><b>fon</b><i>n</i><b>_device</b> - Internal device number of the FON port <i>1</i></li>
|
|
<li><b>fon</b><i>n</i><b>_intern</b> - Internal phone number of the analog FON port <i>1</i></li>
|
|
<li><b>fon</b><i>n</i><b>_out</b> - Outgoing number of the analog FON port <i>1</i></li>
|
|
<br>
|
|
<li><b>gsm_internet</b> - connection to internet established via GSM stick</li>
|
|
<li><b>gsm_rssi</b> - received signal strength indication (0-100)</li>
|
|
<li><b>gsm_state</b> - state of the connection to the GSM network</li>
|
|
<li><b>gsm_technology</b> - GSM technology used for data transfer (GPRS, EDGE, UMTS, HSPA)</li>
|
|
<br>
|
|
<li><b>mac_</b><i>nn_nn_nn_nn_nn_nn</i> - MAC address and name of an active network device.
|
|
<br>
|
|
If connect via WLAN, the term "WLAN" and (from boxes point of view) the down- and upload rate and the signal strength is added. For LAN devices the LAN port and its speed is added. Inactive or removed devices get first the value "inactive" and will be deleted during the next update.</li>
|
|
<br>
|
|
<li><b>nbh_</b><i>nn_nn_nn_nn_nn_nn</i> - MAC address and name of an active WLAN neighborhood device.
|
|
<br>
|
|
shown is the SSID, the channel and the bandwidth. Inactive or removed devices get first the value "inactive" and will be deleted during the next update.</li>
|
|
<br>
|
|
<li><b>radio</b><i>nn</i> - Name of the internet radio station <i>01</i></li>
|
|
<br>
|
|
<li><b>tam</b><i>n</i> - Name of the answering machine <i>1</i></li>
|
|
<li><b>tam</b><i>n</i><b>_newMsg</b> - New messages on the answering machine <i>1</i></li>
|
|
<li><b>tam</b><i>n</i><b>_oldMsg</b> - Old messages on the answering machine <i>1</i></li>
|
|
<li><b>tam</b><i>n</i><b>_state</b> - Current state of the answering machine <i>1</i></li>
|
|
<br>
|
|
<li><b>user</b><i>nn</i> - Name of user/IP <i>1</i> that is under parental control</li>
|
|
<li><b>user</b><i>nn</i>_thisMonthTime - this month internet usage of user/IP <i>1</i> (parental control)</li>
|
|
<li><b>user</b><i>nn</i>_todaySeconds - today's internet usage in seconds of user/IP <i>1</i> (parental control)</li>
|
|
<li><b>user</b><i>n</i>_todayTime - today's internet usage of user/IP <i>1</i> (parental control)</li>
|
|
<br>
|
|
<li><b>vpn</b><i>n</i> - Name of the VPN</li>
|
|
<li><b>vpn</b><i>n</i><b>_access_type</b> - access type: User VPN | Lan2Lan | Corporate VPN</li>
|
|
<li><b>vpn</b><i>n</i><b>_activated</b> - status if VPN <i>n</i> is active</li>
|
|
<li><b>vpn</b><i>n</i><b>_last_negotiation</b> - timestamp of the last negotiation of the connection (only wireguard)</li>
|
|
<li><b>vpn</b><i>n</i><b>_connected_since</b> - duration of the connection in seconds (only VPN)</li>
|
|
<li><b>vpn</b><i>n</i><b>_remote_ip</b> - IP from client site</li>
|
|
<li><b>vpn</b><i>n</i><b>_state</b> - not active | ready | none</li>
|
|
<li><b>vpn</b><i>n</i><b>_user_connected</b> - status of VPN <i>n</i> connection</li>
|
|
<br>
|
|
<li><b>sip</b><i>n</i>_<i>phone-number</i> - Status</li>
|
|
<li><b>sip_active</b> - shows the number of active SIP.</li>
|
|
<li><b>sip_inactive</b> - shows the number of inactive SIP.</li>
|
|
<li><b>sip_error</b> - counting of SIP's with error. 0 == everything ok.</li>
|
|
<br>
|
|
<li><b>retStat_chgProfile</b> - Return Status: set <name> chgProfile <number> <filtprofn></li>
|
|
<li><b>retStat_enableVPNshare</b> - Return Status: set <name> enableVPNshare <number> <on|off></li>
|
|
<li><b>retStat_fritzLogInfo</b> - Return Status: get <name> <hash> <...></li>
|
|
<li><b>retStat_fritzLogExPost</b> - Return Status of the hook-function myUtilsFritzLogExPost($hash, $filter, $result) depending to: get <name> <hash> <...></li>
|
|
<li><b>retStat_lastReadout</b> - Return Status: set <name> update or intervall update</li>
|
|
<li><b>retStat_lockLandevice</b> - Return Status: set <name> lockLandevice <number> <on|off></li>
|
|
<li><b>retStat_macFilter</b> - Return Status: set <name> macFilter <on|off></li>
|
|
<li><b>retStat_rescanWLANneighbors</b> - Return Status: set <name> rescanWLANneighbors</li>
|
|
<li><b>retStat_wakeUpCall</b> - Return Status: set <name> wakeUpCall</li>
|
|
<li><b>retStat_wlanLogExtended</b> - Return Status: set <name> wlanLogExtended <on|off></li>
|
|
</ul>
|
|
<br>
|
|
<a name="FRITZBOX Event-Codes"></a>
|
|
<b>Event-Codes</b>
|
|
<ul><br>
|
|
<li><b>1</b> IGMPv3 multicast router n.n.n.n active</li>
|
|
<li><b>11</b> DSL ist verfügbar (DSL-Synchronisierung besteht mit n/n kbit/s).</li>
|
|
<li><b>12</b> DSL-Synchronisierung beginnt (Training).</li>
|
|
<li><b>14</b> Mobilfunkmodem initialisiert.</li>
|
|
<li><b>23</b> Internetverbindung wurde getrennt.</li>
|
|
<li><b>24</b> Internetverbindung wurde erfolgreich hergestellt. IP-Adresse: ..., DNS-Server: ... und ..., Gateway: ..., Breitband-PoP: ..., LineID:...</li>
|
|
<li><b>25</b> Internetverbindung IPv6 wurde erfolgreich hergestellt. IP-Adresse: ...:...:...:...:...:...:...:...</li>
|
|
<li><b>26</b> Internetverbindung wurde getrennt.</li>
|
|
<li><b>27</b> IPv6-Präfix wurde erfolgreich bezogen. Neues Präfix: ....:....:....:....:/nn</li>
|
|
<li><b>28</b> Internetverbindung IPv6 wurde getrennt, Präfix nicht mehr gültig.</li>
|
|
<br>
|
|
<li><b>73</b> Anmeldung der Internetrufnummer <Nummer> war nicht erfolgreich. Ursache: Gegenstelle antwortet nicht. Zeitüberschreitung.</li>
|
|
<li><b>85</b> Die Internetverbindung wird kurz unterbrochen, um der Zwangstrennung durch den Anbieter zuvorzukommen.</li>
|
|
<br>
|
|
<li><b>119</b> Information des Anbieters über die Geschwindigkeit des Internetzugangs (verfügbare Bitrate): nnnn/nnnn kbit/s</li>
|
|
<li><b>131</b> USB-Gerät 1003, Klasse 'USB 2.0 (hi-speed) storage', angesteckt</li>
|
|
<li><b>132</b> USB-Gerät 1002 abgezogen</li>
|
|
<li><b>140</b> Der USB-Speicher ZTE-MMCStorage-01 wurde eingebunden.</li>
|
|
<br>
|
|
<li><b>201</b> Es liegt keine Störung der Telefonie mehr vor. Alle Rufnummern sind ab sofort wieder verfügbar.</li>
|
|
<li><b>205</b> Anmeldung für IP-Telefoniegerät "Telefonie-Gerät" von IP-Adresse ... nicht erfolgreich.</li>
|
|
<li><b>267</b> Integrierter Faxempfang wurde aktiviert auf USB-Speicher 'xxx'.</li>
|
|
<br>
|
|
<li><b>401</b> SIP_UNAUTHORIZED, Beschreibung steht in der Hilfe (Webinterface)</li>
|
|
<li><b>403</b> SIP_FORBIDDEN, Beschreibung steht in der Hilfe (Webinterface)</li>
|
|
<li><b>404</b> SIP_NOT_FOUND, Gegenstelle nicht erreichbar (local part der SIP-URL nicht erreichbar (Host schon))</li>
|
|
<li><b>405</b> SIP_METHOD_NOT_ALLOWED</li>
|
|
<li><b>406</b> SIP_NOT_ACCEPTED</li>
|
|
<li><b>408</b> SIP_NO_ANSWER</li>
|
|
<br>
|
|
<li><b>484</b> SIP_ADDRESS_INCOMPLETE, Beschreibung steht in der Hilfe (Webinterface)</li>
|
|
<li><b>485</b> SIP_AMBIGUOUS, Beschreibung steht in der Hilfe (Webinterface)</li>
|
|
<br>
|
|
<li><b>486</b> SIP_BUSY_HERE, Ziel besetzt (vermutlich auch andere Gründe bei der Gegenstelle)</li>
|
|
<li><b>487</b> SIP_REQUEST_TERMINATED, Anrufversuch beendet (Gegenstelle nahm nach ca. 30 Sek. nicht ab)</li>
|
|
<br>
|
|
<li><b>500</b> Anmeldung an der FRITZ!Box-Benutzeroberfläche von von IP-Adresse ...</li>
|
|
<li><b>501</b> Anmeldung an der FRITZ!Box-Benutzeroberfläche von IP-Adresse ... gescheitert (falsches Kennwort).</li>
|
|
<li><b>502</b> Die FRITZ!Box-Einstellungen wurden über die Benutzeroberfläche geändert.</li>
|
|
<li><b>503</b> Anmeldung an der FRITZ!Box-Benutzeroberfläche von IP-Adresse yy gescheitert (ungültige Sitzungskennung). Zur Sicherheit werden</li>
|
|
<li><b>504</b> Anmeldung des Benutzers FhemUser an der FRITZ!Box-Benutzeroberfläche von IP-Adresse ...</li>
|
|
<li><b>505</b> Anmeldung des Benutzers xx an der FRITZ!Box-Benutzeroberfläche von IP-Adresse yy gescheitert (falsches Kennwort)</li>
|
|
<li><b>506</b> Anmeldung einer App des Benutzers FhemUser von IP-Adresse</li>
|
|
<li><b>510</b> Anmeldung einer App mit unbekanntem Anmeldenamen von IP-Adresse ... gescheitert.</li>
|
|
<br>
|
|
<li><b>689</b> WLAN-Anmeldung ist gescheitert : Die MAC-Adresse des WLAN-Geräts ist gesperrt. MAC-Adresse</li>
|
|
<li><b>692</b> WLAN-Anmeldung ist gescheitert : Verbindungsaufbau fehlgeschlagen. MAC-Adresse</li>
|
|
<li><b>705</b> WLAN-Gerät Anmeldung gescheitert (5 GHz): ungültiger WLAN-Schlüssel. MAC-Adresse</li>
|
|
<li><b>706</b> [...] WLAN-Gerät Anmeldung am Gastzugang gescheitert (n,n GHz): ungültiger WLAN-Schlüssel. MAC-Adresse: nn:nn:nn:nn:nn:nn.</li>
|
|
<li><b>748</b> [...] WLAN-Gerät angemeldet (n,n GHz), nn Mbit/s, PC-..., IP ..., MAC ... .</li>
|
|
<li><b>752</b> [...] WLAN-Gerät hat sich abgemeldet (n,n GHz), PC-..., IP ..., MAC ....</li>
|
|
<li><b>754</b> [...] WLAN-Gerät wurde abgemeldet (.,. GHz), PC-..., IP ..., MAC ... .</li>
|
|
<li><b>756</b> WLAN-Gerät hat sich neu angemeldet (n,n GHz), nn Mbit/s, Gerät, IP ..., MAC ....</li>
|
|
<li><b>782</b> WLAN-Anmeldung ist gescheitert : Die erneute Anmeldung ist aufgrund aktiver "Unterstützung für geschützte Anmeldungen von WLAN-Geräten (PMF)</li>
|
|
<br>
|
|
<li><b>2104</b> Die Systemzeit wurde erfolgreich aktualisiert von Zeitserver nnn.nnn.nnn.nnn .</li>
|
|
|
|
<li><b>2364</b> Ein neues Gerät wurde an der FRITZ!Box angemeldet (Schnurlostelefon)</li>
|
|
<li><b>2358</b> Einstellungen wurden gesichert. Diese änderung erfolgte von Ihrem Heimnetzgerät ... (IP-Adresse: ...)</li>
|
|
<li><b>2380</b> Es besteht keine Verbindung mehr zu den verschlüsselten DNS-Servern.</li>
|
|
<li><b>2383</b> Es wurde erfolgreich eine Verbindung - samt vollständiger Validierung - zu den verschlüsselten DNS-Servern aufgebaut.</li>
|
|
<li><b>2380</b> Es besteht keine Verbindung mehr zu den verschlüsselten DNS-Servern.</li>
|
|
<li><b>3330</b> Verbindung zum Online-Speicher hergestellt.</li>
|
|
</ul>
|
|
<br>
|
|
</ul>
|
|
</div>
|
|
|
|
=end html
|
|
|
|
=begin html_DE
|
|
|
|
<a name="FRITZBOX"></a>
|
|
<h3>FRITZBOX</h3>
|
|
<div>
|
|
<ul>
|
|
Steuert gewisse Funktionen eines FRITZ!BOX Routers. Verbundene Fritz!Fon's (MT-F, MT-D, C3, C4) können als Signalgeräte genutzt werden. MP3-Dateien und Text (Text2Speech) können als Klingelton oder einem angerufenen Telefon abgespielt werden.
|
|
<br>
|
|
Für detailierte Anleitungen bitte die <a href="http://www.fhemwiki.de/wiki/FRITZBOX"><b>FHEM-Wiki</b></a> konsultieren und ergänzen.
|
|
<br/><br/>
|
|
Die Steuerung erfolgt teilweise über die offizielle TR-064-Schnittstelle und teilweise über undokumentierte Schnittstellen zwischen Webinterface und Firmware Kern.</br>
|
|
<br>
|
|
Das Modul wurde auf der FRITZ!BOX 7590, 7490 und dem FRITZ!WLAN Repeater 1750E mit Fritz!OS 7.50 und höher getestet.
|
|
<br>
|
|
Bitte auch die anderen FRITZ!BOX-Module beachten: <a href="#SYSMON">SYSMON</a> und <a href="#FB_CALLMONITOR">FB_CALLMONITOR</a>.
|
|
<br>
|
|
<i>Das Modul nutzt das Perlmodule 'JSON::XS', 'LWP', 'SOAP::Lite' für den Fernzugriff.</i>
|
|
<br/><br/>
|
|
<a name="FRITZBOXdefine"></a>
|
|
<b>Define</b>
|
|
<ul>
|
|
<br>
|
|
<code>define <name> FRITZBOX <host></code>
|
|
<br/>
|
|
Der Parameter <i>host</i> ist die Web-Adresse (Name oder IP) der FRITZ!BOX / Repeater.
|
|
<br/><br/>
|
|
Beispiel: <code>define Fritzbox FRITZBOX fritz.box</code>
|
|
<br/><br/>
|
|
</ul>
|
|
|
|
<a name="FRITZBOXset"></a>
|
|
<b>Set</b>
|
|
<ul>
|
|
<li><a name="call"></a>
|
|
<dt><code>set <name> call <number> [duration]</code></dt>
|
|
<br>
|
|
Ruft für 'Dauer' Sekunden (Standard 60 s) die angegebene Telefonnummer von einem internen Telefonanschluss an (Standard ist 1). Wenn der Angerufene abnimmt, hört er die Wartemusik.
|
|
Der interne Telefonanschluss klingelt ebenfalls.
|
|
<br>
|
|
</li><br>
|
|
|
|
<li><a name="checkAPIs"></a>
|
|
<dt><code>set <name> checkAPIs</code></dt>
|
|
<br>
|
|
Startet eine erneute Abfrage der exitierenden Programmierschnittstellen der FRITZ!BOX.
|
|
</li><br>
|
|
|
|
<li><a name="chgProfile"></a>
|
|
<dt><code>set <name> chgProfile <number> <filtprof<i>n</i>></code></dt><br>
|
|
<number> ist die ID des landevice<i>n..n</i> oder dessen MAC <br>
|
|
ändert das Profile filtprof mit der Nummer 1..n des Netzgeräts.<br>
|
|
Die Ausführung erfolgt non Blocking. Die Rückmeldung erfolgt im Reading: retStat_chgProfile <br>
|
|
Benötigt FRITZ!OS 7.21 oder höher. <br>
|
|
</li><br>
|
|
|
|
<li><a name="dect"></a>
|
|
<dt><code>set <name> dect <on|off></code></dt>
|
|
<br>
|
|
Schaltet die DECT-Basis der Box an oder aus.
|
|
<br>
|
|
Benötigt mindestens FRITZ!OS 7.21
|
|
</li><br>
|
|
|
|
<li><a name="diversity"></a>
|
|
<dt><code>set <name> diversity <number> <on|off></code></dt>
|
|
<br>
|
|
Schaltet die Rufumleitung (Nummer 1, 2 ...) für einzelne Rufnummern an oder aus.
|
|
<br>
|
|
Achtung! Es lassen sich nur Rufumleitungen für einzelne angerufene Telefonnummern (also nicht "alle") und <u>ohne</u> Abhängigkeit von der anrufenden Nummer schalten.
|
|
Es muss also ein <i>diversity</i>-Gerätewert geben.
|
|
<br>
|
|
Benötigt die API: TR064 (>=6.50).
|
|
</li><br>
|
|
|
|
<li><a name="guestWlan"></a>
|
|
<dt><code>set <name> guestWlan <on|off></code></dt>
|
|
<br>
|
|
Schaltet das Gäste-WLAN an oder aus. Das Gäste-Passwort muss gesetzt sein. Wenn notwendig wird auch das normale WLAN angeschaltet.
|
|
</li><br>
|
|
|
|
<li><a name="dectRingblock"></a>
|
|
<dt><code>set <name> dectRingblock <dect<nn>> <on|off></code></dt>
|
|
<br>
|
|
Aktiviert / Deaktiviert die Klingelsperre für das DECT-Telefon mit der ID dect<n>. Die ID kann der Readingliste
|
|
des <name> Device entnommen werden.<br><br>
|
|
<code>set <name> dectRingblock <dect<nn>> <days> <hh:mm-hh:mm> [lmode:on|off] [emode:on|off]</code><br><br>
|
|
Aktiviert / Deaktiviert die Klingelsperre für das DECT-Telefon mit der ID dect<n> für Zeiträume:<br>
|
|
<hh:mm-hh:mm> = Uhrzeit_von bis Uhrzeit_bis<br>
|
|
<days> = wd für Werktags, ed für Jeden Tag, we für Wochenende<br>
|
|
lmode:on|off = lmode definiert die Sperre. Bei off ist sie aus, außer für den angegebenen Zeitraum.<br>
|
|
Bei on ist die Sperre an, außer für den angegebenen Zeitraum<br>
|
|
emode:on|off = emode schaltet Events bei gesetzter Klingelsperre ein/aus. Siehe hierzu die FRITZ!BOX Dokumentation<br>
|
|
Benötigt FRITZ!OS 7.21 oder höher.
|
|
</li><br>
|
|
|
|
<li><a name="macFilter"></a>
|
|
<dt><code>set <name> macFilter <on|off></code></dt>
|
|
<br>
|
|
Schaltet den MAC Filter an oder aus. In der FRITZ!BOX unter "neue WLAN Geräte zulassen/sperren<br>
|
|
Die Ausführung erfolgt non Blocking. Die Rückmeldung erfolgt im Reading: retStat_macFilter <br>
|
|
Benötigt FRITZ!OS 7.21 oder höher.
|
|
</li><br>
|
|
|
|
<li><a name="lockLandevice"></a>
|
|
<dt><code>set <name> lockLandevice <number> <on|off></code></dt>
|
|
<br>
|
|
<number> ist die ID des landevice<i>n..n</i> oder dessen MAC.<br>
|
|
Schaltet das Netzgerät an oder aus.<br>
|
|
Die Ausführung erfolgt non Blocking. Die Rückmeldung erfolgt im Reading: retStat_lockLandevice <br>
|
|
Benötigt FRITZ!OS 7.21 oder höher.
|
|
</li><br>
|
|
|
|
<li><a name="enableVPNshare"></a>
|
|
<dt><code>set <name> enableVPNshare <number> <on|off></code></dt>
|
|
<br>
|
|
<number> ist die Nummer des Readings vpn<i>n..n</i>_user.. oder _box <br>
|
|
Schaltet das VPN share mit der Nummer nn an oder aus.<br>
|
|
Die Ausführung erfolgt non Blocking. Die Rückmeldung erfolgt im Reading: retStat_enableVPNshare <br>
|
|
Benötigt FRITZ!OS 7.21 oder höher.
|
|
</li><br>
|
|
|
|
<li><a name="switchIPv4DNS"></a>
|
|
<dt><code>set <name> switchIPv4DNS <provider|other></code></dt>
|
|
<br>
|
|
Ändert den IPv4 DNS auf Internetanbieter oder einem alternativen DNS (sofern in der FRITZ!BOX hinterlegt).<br>
|
|
Benötigt FRITZ!OS 7.21 oder höher.
|
|
</li><br>
|
|
|
|
<li><a name="password"></a>
|
|
<dt><code>set <name> password <password></code></dt>
|
|
<br>
|
|
Speichert das Passwort für den Fernzugriff.
|
|
</li><br>
|
|
|
|
<li><a name="rescanWLANneighbors"></a>
|
|
<dt><code>set <name> rescanWLANneighbors</code></dt>
|
|
<br>
|
|
Löst eine Scan der WLAN Umgebung aus.
|
|
Die Ausführung erfolgt non Blocking. Die Rückmeldung erfolgt im Reading: retStat_rescanWLANneighbors<br>
|
|
</li><br>
|
|
|
|
<li><a name="reboot"></a>
|
|
<dt><code>set <name> reboot <Minuten></code></dt>
|
|
<br>
|
|
Startet die FRITZ!BOX in <Minuten> neu. Wird dieses 'set' ausgeführt, so wird ein einmaliges 'at' im Raum 'Unsorted' erzeugt,
|
|
über das dann der Reboot ausgeführt wird. Das neue 'at' hat den Devicenamen: act_Reboot_<Name FB Device>.
|
|
</li><br>
|
|
|
|
<li><a name="ring"></a>
|
|
<dt><code>set <name> ring <intNumbers> [duration] [show:Text] [say:Text | play:MP3URL]</code></dt>
|
|
<br>
|
|
<dt>Beispiel:</dt>
|
|
<dd>
|
|
<code>set <name> ring 611,612 5 Budapest show:Es regnet</code>
|
|
<br>
|
|
<code>set <name> ring 610 8 say:Es regnet</code>
|
|
<br>
|
|
<code>set <name> ring 610 10 play:http://raspberrypi/sound.mp3</code>
|
|
</dd>
|
|
Lässt die internen Nummern für "Dauer" Sekunden und (auf Fritz!Fons) mit dem angegebenen "Klingelton" klingeln.
|
|
<br>
|
|
Mehrere interne Nummern müssen durch ein Komma (ohne Leerzeichen) getrennt werden.
|
|
<br>
|
|
Standard-Dauer ist 5 Sekunden. Es kann aber zu Verzögerungen in der FRITZ!BOX kommen. Standard-Klingelton ist der interne Klingelton des Gerätes.
|
|
Der Klingelton wird für Rundrufe (9 oder 50) ignoriert.
|
|
<br>
|
|
Wenn der Anruf angenommen wird, hört der Angerufene die Wartemusik (music on hold), welche ebenfalls zur Nachrichtenübermittlung genutzt werden kann.
|
|
<br>
|
|
Wenn das <a href=#FRITZBOXattr>Attribut</a> 'ringWithIntern' existiert, wird der Text hinter 'show:' als Name des Anrufers angezeigt.
|
|
Er darf maximal 30 Zeichen lang sein.
|
|
<br/><br/>
|
|
Auf Fritz!Fons wird der Text (max. 100 Zeichen) hinter dem Parameter 'say:' direkt angesagt und ersetzt den Klingelton.
|
|
<br>
|
|
Alternativ kann mit 'play:' auch ein MP3-Link (vom einem Webserver) abgespielt werden. Dabei wird die Internetradiostation 39 'FHEM' erzeugt und translate.google.com für Text2Speech genutzt. Es wird <u>immer</u> der komplette Text/Klang abgespielt. Bis zum Ende der 'Klingeldauer' klingelt das Telefon dann mit seinem Standard-Klingelton.
|
|
Das Abspielen ist eventuell nicht auf mehreren Fritz!Fons gleichzeitig möglich.
|
|
<br>
|
|
Je nach Fritz!OS kann das beschriebene Verhalten abweichen.
|
|
<br>
|
|
</li><br>
|
|
|
|
<li><a name="tam"></a>
|
|
<dt><code>set <name> tam <number> <on|off></code></dt>
|
|
Schaltet den Anrufbeantworter (Nummer 1, 2 ...) an oder aus.
|
|
Der Anrufbeantworter muss zuvor auf der FRITZ!BOX eingerichtet werden.
|
|
</li><br>
|
|
|
|
<li><a name="update"></a>
|
|
<dt><code>set <name> update</code></dt>
|
|
<br>
|
|
Startet eine Aktualisierung der Geräte Readings.
|
|
</li><br>
|
|
|
|
<li><a name="wakeUpCall"></a>
|
|
<dt><code>set <name> wakeUpCall <alarm1|alarm2|alarm3> <off></code></dt>
|
|
<dt><code>set <name> wakeUpCall <alarm1|alarm2|alarm3> <Device Nummer|Name> <daily|only_once> <hh:mm></code></dt>
|
|
<dt><code>set <name> wakeUpCall <alarm1|alarm2|alarm3> <Device Nummer|Name> <per_day> <hh:mm> <mon:0|1 tue:0|1 wed:0|1 thu:0|1 fri:0|1 sat:0|1 sun:0|1></code></dt>
|
|
<br>
|
|
Inaktiviert oder stellt den Wecker: alarm1, alarm2, alarm3.
|
|
<br>
|
|
Die Device Nummer steht im Reading <b>dect</b><i>n</i><b>_device</b> or <b>fon</b><i>n</i><b>_device</b>
|
|
<br>
|
|
Wird im Reading <b>dect</b><i>n</i> or <b>fon</b><i>n</i> "redundant name in FB" angezeigt, dann kann der Device Name nicht genutzt werden..
|
|
<br>
|
|
Benötigt FRITZ!OS 7.21 oder höher.
|
|
</li><br>
|
|
|
|
<li><a name="wlan"></a>
|
|
<dt><code>set <name> wlan <on|off></code></dt>
|
|
<br>
|
|
Schaltet WLAN an oder aus.
|
|
</li><br>
|
|
|
|
<li><a name="wlan2.4"></a>
|
|
<dt><code>set <name> wlan2.4 <on|off></code></dt>
|
|
<br>
|
|
Schaltet WLAN 2.4 GHz an oder aus.
|
|
</li><br>
|
|
|
|
<li><a name="wlan5"></a>
|
|
<dt><code>set <name> wlan5 <on|off></code></dt>
|
|
<br>
|
|
Schaltet WLAN 5 GHz an oder aus.
|
|
</li><br>
|
|
|
|
<li><a name="wlanLogExtended"></a>
|
|
<dt><code>set <name> wlanLogExtended <on|off></code></dt>
|
|
<br>
|
|
Schaltet "Auch An- und Abmeldungen und erweiterte WLAN-Informationen protokollieren" an oder aus.
|
|
<br>
|
|
Status in Reading: retStat_wlanLogExtended
|
|
</li><br>
|
|
</ul>
|
|
|
|
<a name="FRITZBOXget"></a>
|
|
<b>Get</b>
|
|
<ul>
|
|
<br>
|
|
<li><a name="fritzLog"></a>
|
|
<dt><code>get <name> fritzLog <table> <all | sys | wlan | usb | net | fon></code></dt>
|
|
<br>
|
|
<table> zeigt das Ergebnis im FhemWeb als Tabelle an.
|
|
<br><br>
|
|
<dt><code>get <name> fritzLog <hash> <all | sys | wlan | usb | net | fon> [on|off]</code></dt>
|
|
<br>
|
|
<hash> leitet das Ergebnis als Standard an eine Funktion (non blocking) myUtilsFritzLogExPostnb($hash, $filter, $result) für eigene Verarbeitung weiter.
|
|
<br>
|
|
<hash> <off> leitet das Ergebnis an eine Funktion (blocking) myUtilsFritzLogExPost($hash, $filter, $result) für eigene Verarbeitung weiter.
|
|
<br>
|
|
wobei:
|
|
<br>
|
|
$hash -> Fhem Device hash,<br>
|
|
$filter -> gewählter Log Filter,<br>
|
|
$result -> Rückgabe der data.lua Abfrage im JSON Format.<br>
|
|
<br><br>
|
|
<all | sys | wlan | usb | net | fon> über diese Parameter erfolgt die Filterung der Log-Informationen.
|
|
<br><br>
|
|
[on|off] gibt bei Parameter <hash> an, ob die Weiterverarbeitung blocking [off] oder non blocking [on] (default) erfolgt.
|
|
<br><br>
|
|
Benötigt FRITZ!OS 7.21 oder höher.
|
|
<br><br>
|
|
Rückmeldung in den Readings:<br>
|
|
retStat_fritzLogExPost = Status des Funktionsaufrufes myUtilsFritzLogExPostnb / myUtilsFritzLogExPost<br>
|
|
retStat_fritzLogInfo = Status der Log Informations Abfrage.
|
|
<br>
|
|
</li><br>
|
|
|
|
<li><a name="lanDeviceInfo"></a>
|
|
<dt><code>get <name> lanDeviceInfo <number></code></dt>
|
|
<br>
|
|
<number> ist die ID des landevice<i>n..n</i> oder dessen MAC
|
|
Zeigt Informationen über das Netzwerkgerät an.<br>
|
|
Benötigt FRITZ!OS 7.21 oder höher.
|
|
</li><br>
|
|
|
|
<li><a name="luaData"></a>
|
|
<dt><code>get <name> luaData <Command></code></dt>
|
|
<br>
|
|
Führt Komandos über data.lua aus.
|
|
</li><br>
|
|
|
|
<li><a name="luaFunction"></a>
|
|
<dt><code>get <name> luaFunction <Command></code></dt>
|
|
<br>
|
|
Führt AVM lua Funktionen aus.
|
|
</li><br>
|
|
|
|
<li><a name="luaInfo"></a>
|
|
<dt><code>get <name> luaInfo <landevices|vpnShares|kidProfiles|userInfos>|wlanNeighborhood|docsisInformation;</code></dt>
|
|
<br>
|
|
Benötigt FRITZ!OS 7.21 oder höher.<br>
|
|
lanDevices -> Generiert eine Liste der aktiven und inaktiven Netzwerkgeräte.<br>
|
|
vpnShares -> Generiert eine Liste der aktiven und inaktiven VPN Shares.<br>
|
|
kidProfiles -> Generiert eine Liste der Zugangsprofile.<br>
|
|
userInfos -> Generiert eine Liste der FRITZ!BOX Benutzer.<br>
|
|
wlanNeighborhood -> Generiert eine Liste der WLAN Nachbarschaftsgeräte.<br>
|
|
docsisInformation -> Zeigt Informationen zu DOCSIS an (nur Cable).<br>
|
|
</li><br>
|
|
|
|
<li><a name="luaQuery"></a>
|
|
<dt><code>get <name> luaQuery <Command></code></dt>
|
|
<br>
|
|
Zeigt Informations durch Abfragen der query.lua.
|
|
</li><br>
|
|
|
|
<li><a name="tr064Command"></a>
|
|
<dt><code>get <name> tr064Command <service> <control> <action> [[argName1 argValue1] ...]</code></dt>
|
|
<br>
|
|
Führt über TR-064 Aktionen aus (siehe <a href="http://avm.de/service/schnittstellen/">Schnittstellenbeschreibung</a> von AVM).
|
|
<br>
|
|
argValues mit Leerzeichen müssen in Anführungszeichen eingeschlossen werden.
|
|
<br>
|
|
Beispiel: <code>get <name> tr064Command X_AVM-DE_OnTel:1 x_contact GetDECTHandsetInfo NewDectID 1</code>
|
|
<br>
|
|
</li><br>
|
|
|
|
<li><a name="tr064ServiceList"></a>
|
|
<dt><code>get <name> tr064ServiceListe</code></dt>
|
|
<br>
|
|
Zeigt die Liste der TR-064-Dienste und Aktionen, die auf dem Gerät erlaubt sind.
|
|
</li><br>
|
|
</ul>
|
|
|
|
<a name="FRITZBOXattr"></a>
|
|
<b>Attributes</b>
|
|
<ul>
|
|
<br>
|
|
<li><a name="INTERVAL"></a>
|
|
<dt><code>INTERVAL <seconds></code></dt>
|
|
<br>
|
|
Abfrage-Interval. Standard ist 300 (Sekunden). Der kleinste mögliche Wert ist 60.
|
|
</li><br>
|
|
|
|
<li><a name="nonblockingTimeOut"></a>
|
|
<dt><code>nonblockingTimeOut <50|75|100|125></code></dt>
|
|
<br>
|
|
Timeout für das regelmäßige Holen der Daten von der Fritz!Box. Standard ist 55 (Sekunden).
|
|
</li><br>
|
|
|
|
<li><a name="boxUser"></a>
|
|
<dt><code>boxUser <user name></code></dt>
|
|
<br>
|
|
Benutzername für den TR064- oder einen anderen webbasierten Zugang. Normalerweise wird keine Benutzername für das Login benötigt.
|
|
Wenn die FRITZ!BOX anders konfiguriert ist, kann der Nutzer über dieses Attribut definiert werden.
|
|
</li><br>
|
|
|
|
<li><a name="deviceInfo"></a>
|
|
<dt><code>deviceInfo <ipv4, name, uid, connection, speed, rssi, _noDefInf_, _default_&, space, comma></code></dt>
|
|
<br>
|
|
Mit diesem Attribut kann der Inhalt der Device Readings (mac_...) gestaltet werden. Ist das Attribut nicht gesetzt, setzt
|
|
sich der Inhalt wie folgt zusammen:<br>
|
|
<code>name,[uid],(connection: speed, rssi)</code><br><br>
|
|
|
|
Wird der Parameter <code>_noDefInf_</code> gesetzt, die Reihenfolge ind der Liste spielt hier keine Rolle, dann werden nicht vorhandene Werte der Netzwerkverbindung
|
|
mit noConnectInfo (LAN oder WLAN nicht verfügbar) und noSpeedInfo (Geschwindigkeit nicht verfügbar) angezeigt.<br><br>
|
|
Über das freie Eingabefeld können eigene Text oder Zeichen hinzugefügt und zwischen die festen Paramter eingeordnet werden.<br>
|
|
Hierbei gibt es folgende spezielle Texte:<br>
|
|
<code>space</code> => wird zu einem Leerzeichen.<br>
|
|
<code>comma</code> => wird zu einem Komma.<br>
|
|
<code>_default_...</code> => ersetzt das default Leerzeichen als Trennzeichen.<br>
|
|
Beispiele:<br>
|
|
<code>_default_commaspace</code> => wird zu einem Komma gefolgt von einem Leerzeichen als Trenner.<br>
|
|
<code>_default_space:space</code> => wird zu einem einem Leerzeichen:Leerzeichen als Trenner.<br>
|
|
Es werden nicht alle möglichen "unsinnigen" Kombinationen abgefangen. Es kann also auch mal schief gehen.
|
|
<br>
|
|
</li><br>
|
|
|
|
<li><a name="disableBoxReadings"></a>
|
|
<dt><code>disableBoxReadings <liste></code></dt>
|
|
<br>
|
|
Abwählen einzelner box_ Readings.
|
|
</li><br>
|
|
|
|
<li><a name="disableDectInfo"></a>
|
|
<dt><code>disableDectInfo <0 | 1></code></dt>
|
|
<br>
|
|
Schaltet die Übernahme von Dect Informationen aus/ein.
|
|
</li><br>
|
|
|
|
<li><a name="disableFonInfo"></a>
|
|
<dt><code>disableFonInfo <0 | 1></code></dt>
|
|
<br>
|
|
Schaltet die Übernahme von Telefon Informationen aus/ein.
|
|
</li><br>
|
|
|
|
<li><a name="disableHostIPv4check"></a>
|
|
<dt><code>disableHostIPv4check<0 | 1></code></dt>
|
|
<br>
|
|
Deaktiviert den Check auf Erreichbarkeit des Host.
|
|
</li><br>
|
|
|
|
<li><a name="disableTableFormat"></a>
|
|
<dt><code>disableTableFormat<border(8),cellspacing(10),cellpadding(20)></code></dt>
|
|
<br>
|
|
Deaktiviert Parameter für die Formatierung der Tabelle.
|
|
</li><br>
|
|
|
|
<li><a name="enableAlarmInfo"></a>
|
|
<dt><code>enableAlarmInfo <0 | 1></code></dt>
|
|
<br>
|
|
Schaltet die Übernahme von Alarm Informationen aus/ein.
|
|
</li><br>
|
|
|
|
<li><a name="enableKidProfiles"></a>
|
|
<dt><code>enableKidProfiles <0 | 1></code></dt>
|
|
<br>
|
|
Schaltet die Übernahme von Kid-Profilen als Reading aus/ein.
|
|
</li><br>
|
|
|
|
<li><a name="enableMobileModem"></a>
|
|
<dt><code>enableMobileModem <0 | 1></code></dt>
|
|
<br><br>
|
|
! Experimentel !
|
|
<br><br>
|
|
Schaltet die Übernahme von USB Mobile Geräten als Reading aus/ein.
|
|
<br>
|
|
Benötigt Fritz!OS 7.50 oder höher.
|
|
</li><br>
|
|
|
|
<li><a name="enablePassivLanDevices"></a>
|
|
<dt><code>enablePassivLanDevices <0 | 1></code></dt>
|
|
<br>
|
|
Schaltet die Übernahme von passiven Netzwerkgeräten als Reading aus/ein.
|
|
</li><br>
|
|
|
|
<li><a name="enableSIP"></a>
|
|
<dt><code>enableSIP <0 | 1></code></dt>
|
|
<br>
|
|
Schaltet die Übernahme von SIP's als Reading aus/ein.
|
|
</li><br>
|
|
|
|
<li><a name="enableUserInfo"></a>
|
|
<dt><code>enableUserInfo <0 | 1></code></dt>
|
|
<br>
|
|
Schaltet die Übernahme von Benutzer Informationen aus/ein.
|
|
</li><br>
|
|
|
|
<li><a name="enableVPNShares"></a>
|
|
<dt><code>enableVPNShares <0 | 1></code></dt>
|
|
<br>
|
|
Schaltet die Übernahme von VPN Shares als Reading aus/ein.
|
|
</li><br>
|
|
|
|
<li><a name="enableWLANneighbors"></a>
|
|
<dt><code>enableWLANneighbors <0 | 1></code></dt>
|
|
<br>
|
|
Schaltet die Anzeige von WLAN Nachbarschaft Geräten als Reading aus/ein.
|
|
</li><br>
|
|
|
|
<li><a name="wlanNeighborsPrefix"></a>
|
|
<dt><code>wlanNeighborsPrefix <prefix></code></dt>
|
|
<br>
|
|
Definiert einen Präfix für den Reading Namen der WLAN Nachbarschaftsgeräte, der aus der MAC Adresse gebildet wird. Der default Präfix ist nbh_.
|
|
</li><br>
|
|
|
|
<li><a name="m3uFileActive"></a>
|
|
<dt><code>m3uFileActive <0 | 1></code></dt>
|
|
<br>
|
|
Aktiviert die Nutzung von m3u Dateien zur Nutzung des Internet Radios für Sprachausgaben auf den Fritz!Fon Geräte.
|
|
<br>
|
|
Aktuell funktioniert diese Ausgabe nicht mehr.
|
|
</li><br>
|
|
|
|
<li><a name="m3uFileLocal"></a>
|
|
<dt><code>m3uFileLocal </path/fileName></code></dt>
|
|
<br>
|
|
Steht als Work around zur Verfügung, wenn der Klingelton eines Fritz!Fon, auf Grund von Firmware Restriktionen (fehlendes Telnet oder WebCMD) nicht gewechselt werden kann.
|
|
<br>
|
|
Funktionsweise: Wenn der Fhem Server zusätzlich einen Web Server zur Verfügung hat, dann kann das Fritz!Fon eine m3u Datei von diesem Web Server als eine Radio Station abspielen.
|
|
Hierfür muss eine Internet Radio Station auf dem Fritz!Fon auf die Server URL für diese Datei zeigen und der interne Klingelton muss auf diese Station eingestellt werden.
|
|
<br>
|
|
Ist das Attribut gesetzt, wird die Server Datei "m3uFileLocal" (lokale Adresse der Fritz!Fon URL) mit der URL der text2speech Engine (say:) oder mit der MP3-Datei (play:) gefüllt. Das Fritz!Fon spielt dann diese URL ab.
|
|
</li><br>
|
|
|
|
<li><a name="m3uFileURL"></a>
|
|
<dt><code>m3uFileURL <URL></code></dt>
|
|
<br>
|
|
</li><br>
|
|
|
|
<li><a href="#readingFnAttributes">readingFnAttributes</a></li>
|
|
</ul>
|
|
<br>
|
|
|
|
<a name="FRITZBOXreading"></a>
|
|
<b>Readings</b>
|
|
<ul><br>
|
|
<li><b>alarm</b><i>1</i> - Name des Weckrufs <i>1</i></li>
|
|
<li><b>alarm</b><i>1</i><b>_state</b> - Aktueller Status des Weckrufs <i>1</i></li>
|
|
<li><b>alarm</b><i>1</i><b>_target</b> - Interne Nummer des Weckrufs <i>1</i></li>
|
|
<li><b>alarm</b><i>1</i><b>_time</b> - Weckzeit des Weckrufs <i>1</i></li>
|
|
<li><b>alarm</b><i>1</i><b>_wdays</b> - Wochentage des Weckrufs <i>1</i></li>
|
|
<br>
|
|
<li><b>box_connection_Type</b> - Verbindungsart</li>
|
|
<li><b>box_cpuTemp</b> - Temperatur der FritxBox CPU</li>
|
|
<li><b>box_dect</b> - Aktueller Status des DECT-Basis: aktiv, inaktiv</li>
|
|
<li><b>box_box_dns_Server</b><i>n</i> - genutzte DNS Server</li>
|
|
<li><b>box_dsl_downStream</b> - Min Effektive Datenrate (MBit/s)</li>
|
|
<li><b>box_dsl_upStream</b> - Min Effektive Datenrate (MBit/s)</li>
|
|
<li><b>box_fon_LogNewest</b> - aktuellstes Telefonie-Ereignis: ID Datum Zeit </li>
|
|
<li><b>box_fwVersion</b> - Firmware-Version der Box, wenn veraltet dann wird '(old)' angehangen</li>
|
|
<li><b>box_guestWlan</b> - Aktueller Status des Gäste-WLAN</li>
|
|
<li><b>box_guestWlanCount</b> - Anzahl der Geräte die über das Gäste-WLAN verbunden sind</li>
|
|
<li><b>box_guestWlanRemain</b> - Verbleibende Zeit bis zum Ausschalten des Gäste-WLAN</li>
|
|
<li><b>box_ipv4_Extern</b> - Internet IPv4 der FRITZ!BOX</li>
|
|
<li><b>box_ipv6_Extern</b> - Internet IPv6 der FRITZ!BOX</li>
|
|
<li><b>box_ipv6_Prefix</b> - Internet IPv6 Prefix der FRITZ!BOX für das LAN/WLAN</li>
|
|
<li><b>box_last_auth_err</b> - letzter Anmeldungsfehler</li>
|
|
<li><b>box_mac_Address</b> - MAC Adresse</li>
|
|
<li><b>box_macFilter_active</b> - Status des WLAN MAC-Filter (WLAN-Zugang auf die bekannten WLAN-Geräte beschränken)</li>
|
|
<li><b>box_meshRole</b> - ab Version 07.21 wird die Mesh Rolle (master, slave) angezeigt.</li>
|
|
<li><b>box_model</b> - FRITZ!BOX-Modell</li>
|
|
<li><b>box_moh</b> - Wartemusik-Einstellung</li>
|
|
<li><b>box_connect</b> - Verbindungsstatus: Unconfigured, Connecting, Authenticating, Connected, PendingDisconnect, Disconnecting, Disconnected</li>
|
|
<li><b>box_last_connect_err</b> - letzter Verbindungsfehler</li>
|
|
<li><b>box_upnp</b> - Status der Anwendungsschnittstelle UPNP (wird auch von diesem Modul benötigt)</li>
|
|
<li><b>box_upnp_control_activated</b> - Status Kontrolle über UPNP</li>
|
|
<li><b>box_uptime</b> - Laufzeit seit letztem Neustart</li>
|
|
<li><b>box_uptimeConnect</b> - Verbindungsdauer seit letztem Neuverbinden</li>
|
|
<li><b>box_powerRate</b> - aktueller Stromverbrauch in Prozent der maximalen Leistung</li>
|
|
<li><b>box_rateDown</b> - Download-Geschwindigkeit des letzten Intervals in kByte/s</li>
|
|
<li><b>box_rateUp</b> - Upload-Geschwindigkeit des letzten Intervals in kByte/s</li>
|
|
<li><b>box_sys_LogNewest</b> - aktuellstes Systemereignis: ID Datum Zeit </li>
|
|
<li><b>box_stdDialPort</b> - Anschluss der geräteseitig von der Wählhilfe genutzt wird</li>
|
|
<li><b>box_tr064</b> - Status der Anwendungsschnittstelle TR-064 (wird auch von diesem Modul benötigt)</li>
|
|
<li><b>box_tr069</b> - Provider-Fernwartung TR-069 (sicherheitsrelevant!)</li>
|
|
<li><b>box_vdsl_downStreamRate</b> - Aktuelle DownStream Datenrate (MBit/s)</li>
|
|
<li><b>box_vdsl_downStreamMaxRate</b> - Maximale DownStream Datenrate (MBit/s)</li>
|
|
<li><b>box_vdsl_upStreamRate</b> - Aktuelle UpStream Datenrate (MBit/s)</li>
|
|
<li><b>box_vdsl_upStreamMaxRate</b> - Maximale UpStream Datenrate (MBit/s)</li>
|
|
<li><b>box_wan_AccessType</b> - Verbindungstyp (DSL, Ethernet, ...)</li>
|
|
<li><b>box_wlan_Count</b> - Anzahl der Geräte die über WLAN verbunden sind</li>
|
|
<li><b>box_wlan_2.4GHz</b> - Aktueller Status des 2.4-GHz-WLAN</li>
|
|
<li><b>box_wlan_5GHz</b> - Aktueller Status des 5-GHz-WLAN</li>
|
|
<li><b>box_wlan_lastScanTime</b> - Letzter Scan der WLAN Umgebung. Ist nur vorhanden, wenn das Attribut enableWLANneighbors gesetzt ist.</li>
|
|
<li><b>box_wlan_LogExtended</b> - Status -> "Auch An- und Abmeldungen und erweiterte WLAN-Informationen protokollieren".</li>
|
|
<li><b>box_wlan_LogNewest</b> - aktuellstes WLAN-Ereignis: ID Datum Zeit </li>
|
|
<br>
|
|
<li><b>box_docsis30_Ds_corrErrors</b> - Nur Fritz!Box Cable</li>
|
|
<li><b>box_docsis30_Ds_frequencys</b> - Nur Fritz!Box Cable</li>
|
|
<li><b>box_docsis30_Ds_latencys</b> - Nur Fritz!Box Cable</li>
|
|
<li><b>box_docsis30_Ds_mses</b> - Nur Fritz!Box Cable</li>
|
|
<li><b>box_docsis30_Ds_nonCorrErrors</b> - Nur Fritz!Box Cable</li>
|
|
<li><b>box_docsis30_Ds_powerLevels</b> - Nur Fritz!Box Cable</li>
|
|
|
|
<li><b>box_docsis30_Us_frequencys</b> - Nur Fritz!Box Cable</li>
|
|
<li><b>box_docsis30_Us_powerLevels</b> - Nur Fritz!Box Cable</li>
|
|
|
|
<li><b>box_docsis31_Ds_frequencys</b> - Nur Fritz!Box Cable</li>
|
|
<li><b>box_docsis31_Ds_powerLevels</b> - Nur Fritz!Box Cable</li>
|
|
|
|
<li><b>box_docsis31_Us_frequencys</b> - Nur Fritz!Box Cable</li>
|
|
<li><b>box_docsis31_Us_powerLevels</b> - Nur Fritz!Box Cable</li>
|
|
<br>
|
|
<li><b>dect</b><i>n</i> - Name des DECT Telefons <i>n</i></li>
|
|
<li><b>dect</b><i>n</i><b>_alarmRingTone</b> - Klingelton beim Wecken über das DECT Telefon <i>n</i></li>
|
|
<li><b>dect</b><i>n</i><b>_custRingTone</b> - Benutzerspezifischer Klingelton des DECT Telefons <i>n</i></li>
|
|
<li><b>dect</b><i>n</i><b>_device</b> - Interne Device Nummer des DECT Telefons <i>n</i></li>
|
|
<li><b>dect</b><i>n</i><b>_fwVersion</b> - Firmware-Version des DECT Telefons <i>n</i></li>
|
|
<li><b>dect</b><i>n</i><b>_intern</b> - Interne Telefonnummer des DECT Telefons <i>n</i></li>
|
|
<li><b>dect</b><i>n</i><b>_intRingTone</b> - Interner Klingelton des DECT Telefons <i>n</i></li>
|
|
<li><b>dect</b><i>n</i><b>_manufacturer</b> - Hersteller des DECT Telefons <i>n</i></li>
|
|
<li><b>dect</b><i>n</i><b>_model</b> - Modell des DECT Telefons <i>n</i></li>
|
|
<li><b>dect</b><i>n</i><b>_NoRingWithNightSetting</b> - Bei aktiver Klingelsperre keine Ereignisse signalisieren für das DECT Telefon <i>n</i></li>
|
|
<li><b>dect</b><i>n</i><b>_radio</b> - aktueller Internet-Radio-Klingelton des DECT Telefons <i>n</i></li>
|
|
<li><b>dect</b><i>n</i><b>_NoRingTime</b> - Klingelsperren des DECT Telefons <i>n</i></li>
|
|
<br>
|
|
<li><b>diversity</b><i>n</i> - Eigene Rufnummer der Rufumleitung <i>n</i></li>
|
|
<li><b>diversity</b><i>n</i><b>_dest</b> - Zielnummer der Rufumleitung <i>n</i></li>
|
|
<li><b>diversity</b><i>n</i><b>_state</b> - Aktueller Status der Rufumleitung <i>n</i></li>
|
|
<br>
|
|
<li><b>fon</b><i>n</i> - Name des analogen Telefonanschlusses <i>n</i> an der FRITZ!BOX</li>
|
|
<li><b>fon</b><i>n</i><b>_device</b> - Interne Device Nummer des analogen Telefonanschlusses <i>n</i></li>
|
|
<li><b>fon</b><i>n</i><b>_intern</b> - Interne Telefonnummer des analogen Telefonanschlusses <i>n</i></li>
|
|
<li><b>fon</b><i>n</i><b>_out</b> - ausgehende Telefonnummer des Anschlusses <i>n</i></li>
|
|
<br>
|
|
<li><b>gsm_internet</b> - Internetverbindung errichtet über Mobilfunk-Stick </li>
|
|
<li><b>gsm_rssi</b> - Indikator der empfangenen GSM-Signalstärke (0-100)</li>
|
|
<li><b>gsm_state</b> - Status der Mobilfunk-Verbindung</li>
|
|
<li><b>gsm_technology</b> - GSM-Technologie, die für die Datenübertragung genutzt wird (GPRS, EDGE, UMTS, HSPA)</li>
|
|
<br>
|
|
<li><b>mac_</b><i>nn_nn_nn_nn_nn_nn</i> - MAC Adresse und Name eines aktiven Netzwerk-Gerätes.
|
|
<br>
|
|
Bei einer WLAN-Verbindung wird "WLAN" und (von der Box gesehen) die Sende- und Empfangsgeschwindigkeit und die Empfangsstärke angehangen. Bei einer LAN-Verbindung wird der LAN-Port und die LAN-Geschwindigkeit angehangen. Gast-Verbindungen werden mit "gWLAN" oder "gLAN" gekennzeichnet.
|
|
<br>
|
|
Inaktive oder entfernte Geräte erhalten zuerst den Werte "inactive" und werden beim nächsten Update gelöscht.</li>
|
|
<br>
|
|
<li><b>nbh_</b><i>nn_nn_nn_nn_nn_nn</i> - MAC Adresse und Name eines aktiven WAN-Gerätes.
|
|
<br>
|
|
Es wird die SSID, der Kanal und das Frequenzband angezeigt.
|
|
<br>
|
|
Inaktive oder entfernte Geräte erhalten zuerst den Werte "inactive" und werden beim nächsten Update gelöscht.</li>
|
|
<br>
|
|
<li><b>radio</b><i>nn</i> - Name der Internetradiostation <i>01</i></li>
|
|
<br>
|
|
<li><b>tam</b><i>n</i> - Name des Anrufbeantworters <i>n</i></li>
|
|
<li><b>tam</b><i>n</i><b>_newMsg</b> - Anzahl neuer Nachrichten auf dem Anrufbeantworter <i>n</i></li>
|
|
<li><b>tam</b><i>n</i><b>_oldMsg</b> - Anzahl alter Nachrichten auf dem Anrufbeantworter <i>n</i></li>
|
|
<li><b>tam</b><i>n</i><b>_state</b> - Aktueller Status des Anrufbeantworters <i>n</i></li>
|
|
<br>
|
|
<li><b>user</b><i>nn</i> - Name von Nutzer/IP <i>n</i> für den eine Zugangsbeschränkung (Kindersicherung) eingerichtet ist</li>
|
|
<li><b>user</b><i>nn</i>_thisMonthTime - Internetnutzung des Nutzers/IP <i>n</i> im aktuellen Monat (Kindersicherung)</li>
|
|
<li><b>user</b><i>nn</i>_todaySeconds - heutige Internetnutzung des Nutzers/IP <i>n</i> in Sekunden (Kindersicherung)</li>
|
|
<li><b>user</b><i>nn</i>_todayTime - heutige Internetnutzung des Nutzers/IP <i>n</i> (Kindersicherung)</li>
|
|
<br>
|
|
<li><b>vpn</b><i>n</i> - Name des VPN</li>
|
|
<li><b>vpn</b><i>n</i><b>_access_type</b> - Verbindungstyp: Benutzer VPN | Netzwert zu Netzwerk | Firmen VPN</li>
|
|
<li><b>vpn</b><i>n</i><b>_activated</b> - Status, ob VPN <i>n</i> aktiv ist</li>
|
|
<li><b>vpn</b><i>n</i><b>_last_negotiation</b> - Uhrzeit der letzten Aushandlung der Verbindung (nur Wireguard)</li>
|
|
<li><b>vpn</b><i>n</i><b>_connected_since</b> - Dauer der Verbindung in Sekunden (nur VPN)</li>
|
|
<li><b>vpn</b><i>n</i><b>_remote_ip</b> - IP der Gegenstelle</li>
|
|
<li><b>vpn</b><i>n</i><b>_state</b> - not active | ready | none</li>
|
|
<li><b>vpn</b><i>n</i><b>_user_connected</b> - Status, ob Benutzer VPN <i>n</i> verbunden ist</li>
|
|
<br>
|
|
<li><b>sip</b><i>n</i>_<i>Telefon-Nummer</i> - Status</li>
|
|
<li><b>sip_active</b> - zeigt die Anzahl aktiver SIP.</li>
|
|
<li><b>sip_inactive</b> - zeigt die Anzahl inaktiver SIP.</li>
|
|
<li><b>sip_error</b> - zeigt die Anzahl fehlerhafter SIP. 0 == alles Ok.</li>
|
|
<br>
|
|
<li><b>retStat_chgProfile</b> - Return Status: set <name> chgProfile <number> <filtprofn></li>
|
|
<li><b>retStat_enableVPNshare</b> - Return Status: set <name> enableVPNshare <number> <on|off></li>
|
|
<li><b>retStat_fritzLogInfo</b> - Return Status: get <name> <hash> <...></li>
|
|
<li><b>retStat_fritzLogExPost</b> - Return Status der Hook-Funktion myUtilsFritzLogExPost($hash, $filter, $result) zu: get <name> <hash> <...></li>
|
|
<li><b>retStat_lastReadout</b> - Return Status: set <name> update oder Intervall update</li>
|
|
<li><b>retStat_lockLandevice</b> - Return Status: set <name> lockLandevice <number> <on|off></li>
|
|
<li><b>retStat_macFilter</b> - Return Status: set <name> macFilter <on|off></li>
|
|
<li><b>retStat_rescanWLANneighbors</b> - Return Status: set <name> rescanWLANneighbors</li>
|
|
<li><b>retStat_wakeUpCall</b> - Return Status: set <name> wakeUpCall</li>
|
|
<li><b>retStat_wlanLogExtended</b> - Return Status: set <name> wlanLogExtended <on|off></li>
|
|
</ul>
|
|
<br>
|
|
<a name="FRITZBOX Ereignis-Codes"></a>
|
|
<b>Ereignis-Codes</b>
|
|
<ul><br>
|
|
<li><b>1</b> IGMPv3 multicast router n.n.n.n active</li>
|
|
<li><b>11</b> DSL ist verfügbar (DSL-Synchronisierung besteht mit n/n kbit/s).</li>
|
|
<li><b>12</b> DSL-Synchronisierung beginnt (Training).</li>
|
|
<li><b>14</b> Mobilfunkmodem initialisiert.</li>
|
|
<li><b>23</b> Internetverbindung wurde getrennt.</li>
|
|
<li><b>24</b> Internetverbindung wurde erfolgreich hergestellt. IP-Adresse: ..., DNS-Server: ... und ..., Gateway: ..., Breitband-PoP: ..., LineID:...</li>
|
|
<li><b>25</b> Internetverbindung IPv6 wurde erfolgreich hergestellt. IP-Adresse: ...:...:...:...:...:...:...:...</li>
|
|
<li><b>26</b> Internetverbindung wurde getrennt.</li>
|
|
<li><b>27</b> IPv6-Präfix wurde erfolgreich bezogen. Neues Präfix: ....:....:....:....:/nn</li>
|
|
<li><b>28</b> Internetverbindung IPv6 wurde getrennt, Präfix nicht mehr gültig.</li>
|
|
<br>
|
|
<li><b>73</b> Anmeldung der Internetrufnummer <Nummer> war nicht erfolgreich. Ursache: Gegenstelle antwortet nicht. Zeitüberschreitung.</li>
|
|
<li><b>85</b> Die Internetverbindung wird kurz unterbrochen, um der Zwangstrennung durch den Anbieter zuvorzukommen.</li>
|
|
<br>
|
|
<li><b>119</b> Information des Anbieters über die Geschwindigkeit des Internetzugangs (verfügbare Bitrate): nnnn/nnnn kbit/s</li>
|
|
<li><b>131</b> USB-Gerät ..., Klasse 'USB 2.0 (hi-speed) storage', angesteckt</li>
|
|
<li><b>132</b> USB-Gerät ... abgezogen</li>
|
|
<li><b>134</b> Es wurde ein nicht unterstützes USB-Gerät angeschlossen</li>
|
|
<li><b>140</b> Der USB-Speicher ... wurde eingebunden.</li>
|
|
<li><b>141</b> Der USB-Speicher ... wurde entfernt.</li>
|
|
<br>
|
|
<li><b>201</b> Es liegt keine Störung der Telefonie mehr vor. Alle Rufnummern sind ab sofort wieder verfügbar.</li>
|
|
<li><b>205</b> Anmeldung für IP-Telefoniegerät "Telefonie-Gerät" von IP-Adresse ... nicht erfolgreich.</li>
|
|
<li><b>267</b> Integrierter Faxempfang wurde aktiviert auf USB-Speicher 'xxx'.</li>
|
|
<br>
|
|
<li><b>401</b> SIP_UNAUTHORIZED, Beschreibung steht in der Hilfe (Webinterface)</li>
|
|
<li><b>403</b> SIP_FORBIDDEN, Beschreibung steht in der Hilfe (Webinterface)</li>
|
|
<li><b>404</b> SIP_NOT_FOUND, Gegenstelle nicht erreichbar (local part der SIP-URL nicht erreichbar (Host schon))</li>
|
|
<li><b>405</b> SIP_METHOD_NOT_ALLOWED</li>
|
|
<li><b>406</b> SIP_NOT_ACCEPTED</li>
|
|
<li><b>408</b> SIP_NO_ANSWER</li>
|
|
<br>
|
|
<li><b>484</b> SIP_ADDRESS_INCOMPLETE, Beschreibung steht in der Hilfe (Webinterface)</li>
|
|
<li><b>485</b> SIP_AMBIGUOUS, Beschreibung steht in der Hilfe (Webinterface)</li>
|
|
<br>
|
|
<li><b>486</b> SIP_BUSY_HERE, Ziel besetzt (vermutlich auch andere Gründe bei der Gegenstelle)</li>
|
|
<li><b>487</b> SIP_REQUEST_TERMINATED, Anrufversuch beendet (Gegenstelle nahm nach ca. 30 Sek. nicht ab)</li>
|
|
<br>
|
|
<li><b>500</b> Anmeldung an der FRITZ!Box-Benutzeroberfläche von von IP-Adresse ...</li>
|
|
<li><b>501</b> Anmeldung an der FRITZ!Box-Benutzeroberfläche von IP-Adresse ... gescheitert (falsches Kennwort).</li>
|
|
<li><b>502</b> Die FRITZ!Box-Einstellungen wurden über die Benutzeroberfläche geändert.</li>
|
|
<li><b>503</b> Anmeldung an der FRITZ!Box-Benutzeroberfläche von IP-Adresse yy gescheitert (ungültige Sitzungskennung). Zur Sicherheit werden</li>
|
|
<li><b>504</b> Anmeldung des Benutzers FhemUser an der FRITZ!Box-Benutzeroberfläche von IP-Adresse ...</li>
|
|
<li><b>505</b> Anmeldung des Benutzers xx an der FRITZ!Box-Benutzeroberfläche von IP-Adresse yy gescheitert (falsches Kennwort)</li>
|
|
<li><b>506</b> Anmeldung einer App des Benutzers FhemUser von IP-Adresse</li>
|
|
<li><b>510</b> Anmeldung einer App mit unbekanntem Anmeldenamen von IP-Adresse ... gescheitert.</li>
|
|
<br>
|
|
<li><b>689</b> WLAN-Anmeldung ist gescheitert : Die MAC-Adresse des WLAN-Geräts ist gesperrt. MAC-Adresse</li>
|
|
<li><b>692</b> WLAN-Anmeldung ist gescheitert : Verbindungsaufbau fehlgeschlagen. MAC-Adresse</li>
|
|
<li><b>705</b> WLAN-Gerät Anmeldung gescheitert (5 GHz): ungültiger WLAN-Schlüssel. MAC-Adresse</li>
|
|
<li><b>706</b> [...] WLAN-Gerät Anmeldung am Gastzugang gescheitert (n,n GHz): ungültiger WLAN-Schlüssel. MAC-Adresse: nn:nn:nn:nn:nn:nn.</li>
|
|
<li><b>748</b> [...] WLAN-Gerät angemeldet (n,n GHz), nn Mbit/s, PC-..., IP ..., MAC ... .</li>
|
|
<li><b>752</b> [...] WLAN-Gerät hat sich abgemeldet (n,n GHz), PC-..., IP ..., MAC ....</li>
|
|
<li><b>754</b> [...] WLAN-Gerät wurde abgemeldet (.,. GHz), PC-..., IP ..., MAC ... .</li>
|
|
<li><b>756</b> WLAN-Gerät hat sich neu angemeldet (n,n GHz), nn Mbit/s, Gerät, IP ..., MAC ....</li>
|
|
<li><b>782</b> WLAN-Anmeldung ist gescheitert : Die erneute Anmeldung ist aufgrund aktiver "Unterstützung für geschützte Anmeldungen von WLAN-Geräten (PMF)</li>
|
|
<br>
|
|
<li><b>2104</b> Die Systemzeit wurde erfolgreich aktualisiert von Zeitserver nnn.nnn.nnn.nnn .</li>
|
|
|
|
<li><b>2364</b> Ein neues Gerät wurde an der FRITZ!Box angemeldet (Schnurlostelefon)</li>
|
|
<li><b>2358</b> Einstellungen wurden gesichert. Diese änderung erfolgte von Ihrem Heimnetzgerät ... (IP-Adresse: ...)</li>
|
|
<li><b>2380</b> Es besteht keine Verbindung mehr zu den verschlüsselten DNS-Servern.</li>
|
|
<li><b>2383</b> Es wurde erfolgreich eine Verbindung - samt vollständiger Validierung - zu den verschlüsselten DNS-Servern aufgebaut.</li>
|
|
<li><b>2380</b> Es besteht keine Verbindung mehr zu den verschlüsselten DNS-Servern.</li>
|
|
<li><b>3330</b> Verbindung zum Online-Speicher hergestellt.</li>
|
|
</ul>
|
|
<br>
|
|
</ul>
|
|
</div>
|
|
=end html_DE
|
|
|
|
=cut--
|
|
|
|
###############################################################
|
|
# HOST=box:settings/hostname
|
|
# SSID1=wlan:settings/ssid
|
|
# SSID2=wlan:settings/ssid_scnd
|
|
# FORWARDS=forwardrules:settings/rule/list(activated,description,protocol,port,fwip,fwport,endport)
|
|
# SIPS=sip:settings/sip/list(ID,displayname)
|
|
# NUMBERS=telcfg:settings/VoipExtension/listwindow(2,2,Name,enabled) <=== eingeschränkte Ergebnismenge
|
|
# DEVICES=ctlusb:settings/device/count
|
|
# PHYS=usbdevices:settings/physmedium/list(name,vendor,serial,fw_version,conntype,capacity,status,usbspeed,model)
|
|
# PHYSCNT=usbdevices:settings/physmediumcnt
|
|
# VOLS=usbdevices:settings/logvol/list(name,status,enable,phyref,filesystem,capacity,usedspace,readonly)
|
|
# VOLSCNT=usbdevices:settings/logvolcnt
|
|
# PARTS=ctlusb:settings/storage-part/count
|
|
# SIP1=sip:settings/sip1/activated
|
|
# openports:settings/interfaces/list(name)
|
|
###############################################################
|
|
# xhr: 1
|
|
# holdmusic: 0 == Sprache, 1 == Musik
|
|
# apply:
|
|
# sid: nnnnnnnnnnnnnnnn
|
|
# lang: de
|
|
# page: moh_upload
|
|
#
|
|
# xhr: 1
|
|
# sid: nnnnnnnnnnnnnnnn
|
|
# lang: de
|
|
# page: phoneline
|
|
# xhrId: all
|
|
#
|
|
# xhr: 1
|
|
# sid: nnnnnnnnnnnnnnnn
|
|
# page: sipQual
|
|
#
|
|
# xhr: 1
|
|
# sid: nnnnnnnnnnnnnnnn
|
|
# page: numLi
|
|
#
|
|
# xhr: 1
|
|
# chooseexport: cfgexport
|
|
# uiPass: xxxxxxxxx
|
|
# sid: nnnnnnnnnnnnnnnn
|
|
# ImportExportPassword: xxxxxxxxx
|
|
# ConfigExport:
|
|
# AssetsImportExportPassword: xxxxxxxxx
|
|
# AssetsExport:
|
|
# back_to_page: sysSave
|
|
# apply:
|
|
# lang: de
|
|
# page: sysSave
|
|
#
|
|
###############################################################
|
|
# 7590 AX 7.50 30.03.2022
|
|
# 7590 7.50 01.12.2022
|
|
# 7583 VDSL 7.50 09.02.2023
|
|
# 7583 7.50 09.02.2023
|
|
# 7582 7.15 07.06.2021
|
|
# 7581 7.15 07.06.2021
|
|
# 7580 7.29 11.11.2021
|
|
# 7560 7.29 11.11.2021
|
|
# 7530 7.50 11.01.2023
|
|
# 7530 AX 7.31 07.04.2022
|
|
# 7520 B 7.50 24.01.2023
|
|
# 7520 7.50 24.01.2023
|
|
# 7510 7.50 02.03.2023
|
|
# 7490 7.29 11.11.2021
|
|
# 7430 7.29 11.11.2021
|
|
# 7412 6.87 22.11.2021
|
|
# 7390 6.87 07.12.2021
|
|
# 7362 SL 7.13 11.11.2021
|
|
# 7360 v2 6.87 07.12.2021
|
|
# 7360 v1 6.35 26.09.2019
|
|
# 7360 6.85 13.03.2017
|
|
# 7360 SL 6.34 30.09.2019
|
|
# 7312 6.55 30.09.2019
|
|
# 7272 6.88 08.12.2021
|
|
# 6890 LTE 7.29 22.12.2021
|
|
# 6850 5G 7.30 02.03.2022
|
|
# 6850 LTE 7.29 03.12.2021
|
|
# 6842 LTE 6.34 23.05.2017
|
|
# 6840 LTE 6.87 02.03.2022
|
|
# 6820 LTE 7.29 03.12.2021
|
|
# 6820 LTE v2 7.29 03.12.2021
|
|
# 6820 LTE v3 7.29 03.12.2021
|
|
# 6810 LTE 6.34 23.05.2017
|
|
# 6690 Cable 7.50 18.01.2023
|
|
# 6660 Cable 7.50 03.04.2023
|
|
# 6591 Cable 7.50 14.02.2023
|
|
# 6590 Cable 7.29 09.11.2021
|
|
# 6490 Cable 7.29 09.11.2021
|
|
# 6430 Cable 7.29 18.01.2022
|
|
# 5590 Fiber 7.30 06.12.2022
|
|
# 5530 Fiber 7.50 14.04.2023
|
|
# 5491 7.29 17.11.2021
|
|
# 5490 7.29 17.11.2021
|
|
# 4060 7.30 16.05.2022
|
|
# 4040 7.29 24.11.2021
|
|
# 4020 7.02 10.01.2022
|
|
# 3490 7.30 15.11.2021
|
|
# 3272 6.88 09.12.2021
|
|
#
|
|
###############################################################
|
|
#
|
|
# Mit der Firmware-Version FRITZ!OS 06.80 führt AVM eine Zweifaktor-Authentifizierung für folgende sicherheitskritische Aktionen ein:
|
|
#
|
|
# - Deaktivierung der Konfigurationsoption der Zweifaktor-Authentifizierung selbst
|
|
# - Einrichtung und Benutzerdaten sowie Internetfreigabe von IP-Telefonen
|
|
# - Einrichten und Konfigurieren von Rufumleitungen
|
|
# - Anbietervorwahlen und ausgehende Wahlregeln
|
|
# - Konfiguration von Callthrough
|
|
# - Interner Anrufbeantworter: Konfiguration der Fernabfrage
|
|
# - Aktivierung der Wählhilfe
|
|
# - Löschen und ändern von Rufsperren
|
|
# - Telefonie/Anschlusseinstellungen: Deaktivierung des Filters für SIP Traffic aus dem Heimnetz
|
|
# - Einrichten bzw. ändern von E-Mail-Adresse oder Kennwort für die Push-Mail-Funktion zum Versenden der Einstellungssicherung
|
|
# - Fax senden: Starten eines Sendevorganges
|
|
# - Telefonie/Anschlusseinstellungen: Deaktivierung der Betrugserkennungs-Heuristik
|
|
# - Telefonie/Anschlusseinstellungen: Setzen/ändern der LKZ sowie des LKZ-Präfix
|
|
# - Das Importieren und Exportieren von Einstellungen
|
|
#
|
|
###############################################################
|
|
# Time:1 time GetInfo
|
|
# 'GetInfoResponse' => {
|
|
# 'NewNTPServer1' => 'ntp.1und1.de',
|
|
# 'NewLocalTimeZoneName' => 'CET-1CEST-2,M3.5.0/02:00:00,M10.5.0/03:00:00',
|
|
# 'NewLocalTimeZone' => '',
|
|
# 'NewNTPServer2' => '',
|
|
# 'NewCurrentLocalTime' => '2023-04-21T18:42:03+02:00',
|
|
# 'NewDaylightSavingsStart' => '0001-01-01T00:00:00',
|
|
# 'NewDaylightSavingsUsed' => '0',
|
|
# 'NewDaylightSavingsEnd' => '0001-01-01T00:00:00'
|
|
#
|
|
# SetNTPServers ( NewNTPServer1 NewNTPServer2 )
|
|
#
|
|
# UserInterface:1 userif GetInfo
|
|
# 'GetInfoResponse' => {
|
|
# 'NewX_AVM-DE_BuildType' => 'Release',
|
|
# 'NewWarrantyDate' => '0001-01-01T00:00:00',
|
|
# 'NewUpgradeAvailable' => '0',
|
|
# 'NewX_AVM-DE_InfoURL' => '',
|
|
# 'NewX_AVM-DE_SetupAssistantStatus' => '1',
|
|
# 'NewX_AVM-DE_Version' => '',
|
|
# 'NewPasswordUserSelectable' => '1',
|
|
# 'NewX_AVM-DE_DownloadURL' => '',
|
|
# 'NewPasswordRequired' => '0',
|
|
# 'NewX_AVM-DE_UpdateState' => 'Stopped'
|
|
# }
|
|
#
|
|
# X_AVM-DE_AppSetup:1 x_appsetup GetAppRemoteInfo ab 7.29
|
|
#
|
|
# Service='X_AVM-DE_AppSetup:1' Control='x_appsetup' Action='GetAppRemoteInfo'
|
|
# ----------------------------------------------------------------------
|
|
# $VAR1 = {
|
|
# 'GetAppRemoteInfoResponse' => {
|
|
# 'NewSubnetMask' => '255.255.255.0',
|
|
# 'NewExternalIPAddress' => '91.22.231.84',
|
|
# 'NewRemoteAccessDDNSDomain' => 'ipwiemann.selfhost.eu',
|
|
# 'NewMyFritzEnabled' => '1',
|
|
# 'NewMyFritzDynDNSName' => 'r178c7aqb0gbdr62.myfritz.net',
|
|
# 'NewExternalIPv6Address' => '2003:c2:57ff:503:3ea6:2fff:feaf:c3ad',
|
|
# 'NewRemoteAccessDDNSEnabled' => '0',
|
|
# 'NewIPAddress' => '192.168.0.1'
|
|
# }
|
|
# };
|
|
#
|
|
#
|
|
# WLANConfiguration:1 wlanconfig1 GetInfo
|
|
# {FRITZBOX_SOAP_Test_Request("FB_Rep_OG", "igdupnp\/control\/wlanconfig1", "urn:schemas-upnp-org:service:WLANConfiguration:1", "GetInfo")}
|
|
# {FRITZBOX_SOAP_Test_Request("FritzBox", "igdupnp\/control\/WANCommonIFC1", "urn:schemas-upnp-org:service:WANCommonInterfaceConfig:1", "GetAddonInfos")}
|
|
#
|
|
# http://fritz.box:49000/igddesc.xml
|
|
# http://fritz.box:49000/any.xml
|
|
# http://fritz.box:49000/igdicfgSCPD.xml
|
|
# http://fritz.box:49000/igddslSCPD.xml
|
|
# http://fritz.box:49000/igdconnSCPD.xml
|
|
#
|
|
# ggf bei Repeater einbauen: xhr 1 lang de page overview xhrId all useajax 1
|