mirror of
https://github.com/fhem/fhem-mirror.git
synced 2025-05-02 00:48:53 +00:00
72_FRITZBOX.pm: UTF8 kodiert
git-svn-id: https://svn.fhem.de/fhem/trunk@27333 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
parent
d25d1a68e7
commit
0626233796
@ -349,17 +349,17 @@ sub FRITZBOX_Rename($$)
|
|||||||
}
|
}
|
||||||
|
|
||||||
###############################################################################
|
###############################################################################
|
||||||
# Expression régulière pour valider une URL en Perl #
|
# Expression régulière pour valider une URL en Perl #
|
||||||
# Regular expression for URL validation in Perl #
|
# Regular expression for URL validation in Perl #
|
||||||
# #
|
# #
|
||||||
# La sous-routine url_regex fournit l'expression régulière pour valider une #
|
# 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 #
|
# URL. Ne sont pas reconnus les noms de domaine en punycode et les addresses #
|
||||||
# IPv6. #
|
# IPv6. #
|
||||||
# The url_regex subroutine returns the regular expression used to validate an #
|
# The url_regex subroutine returns the regular expression used to validate an #
|
||||||
# URL. Domain names in punycode and IPv6 adresses are not recognized. #
|
# URL. Domain names in punycode and IPv6 adresses are not recognized. #
|
||||||
# #
|
# #
|
||||||
# La liste de tests est celle publiée à l'adresse suivante, excepté deux #
|
# 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. #
|
# 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 #
|
# The test list is the one published at the following adress, except for two #
|
||||||
# cases given as false, although they are correct. #
|
# cases given as false, although they are correct. #
|
||||||
# #
|
# #
|
||||||
@ -370,14 +370,14 @@ sub FRITZBOX_Rename($$)
|
|||||||
# #
|
# #
|
||||||
# Auteur // Author : Guillaume Lestringant #
|
# Auteur // Author : Guillaume Lestringant #
|
||||||
# #
|
# #
|
||||||
# L'expression régulière est très largement basée sur celle publiée par #
|
# 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). #
|
# Diego Perini sous licence MIT (https://gist.github.com/dperini/729294). #
|
||||||
# Voir plus loin le texte de ladite licence (en anglais seulement). #
|
# Voir plus loin le texte de ladite licence (en anglais seulement). #
|
||||||
# The regular expression is very largely based on the one published by #
|
# The regular expression is very largely based on the one published by #
|
||||||
# Diego Perini under MIT license (https://gist.github.com/dperini/729294). #
|
# Diego Perini under MIT license (https://gist.github.com/dperini/729294). #
|
||||||
# See further for the text of sayed license. #
|
# See further for the text of sayed license. #
|
||||||
# #
|
# #
|
||||||
# Le présent code est placé sous licence CeCIll-B, dont le texte se trouve à #
|
# 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 #
|
# 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 #
|
# 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 #
|
# found at the adress http://cecill.info/licences/Licence_CeCILL-B_V1-en.html #
|
||||||
@ -549,14 +549,14 @@ sub FRITZBOX_Set($$@)
|
|||||||
. " password"
|
. " password"
|
||||||
. " update:noArg";
|
. " update:noArg";
|
||||||
|
|
||||||
# set abhängig von TR064
|
# set abhängig von TR064
|
||||||
$list .= " call"
|
$list .= " call"
|
||||||
. " diversity"
|
. " diversity"
|
||||||
. " ring"
|
. " ring"
|
||||||
. " tam"
|
. " tam"
|
||||||
if $hash->{TR064} == 1 && $hash->{SECPORT} && ($hash->{MODEL} =~ "Box") && $mesh eq "master";
|
if $hash->{TR064} == 1 && $hash->{SECPORT} && ($hash->{MODEL} =~ "Box") && $mesh eq "master";
|
||||||
|
|
||||||
# set abhängig von TR064 und luaCall
|
# set abhängig von TR064 und luaCall
|
||||||
$list .= " wlan:on,off"
|
$list .= " wlan:on,off"
|
||||||
. " guestWlan:on,off"
|
. " guestWlan:on,off"
|
||||||
if $hash->{TR064} == 1 && $hash->{SECPORT} && $hash->{LUAQUERY} == 1;
|
if $hash->{TR064} == 1 && $hash->{SECPORT} && $hash->{LUAQUERY} == 1;
|
||||||
@ -565,12 +565,12 @@ sub FRITZBOX_Set($$@)
|
|||||||
. " wlan5:on,off"
|
. " wlan5:on,off"
|
||||||
if $hash->{fhem}->{is_double_wlan} == 1 && $hash->{TR064} == 1 && $hash->{SECPORT} && $hash->{LUAQUERY} == 1;
|
if $hash->{fhem}->{is_double_wlan} == 1 && $hash->{TR064} == 1 && $hash->{SECPORT} && $hash->{LUAQUERY} == 1;
|
||||||
|
|
||||||
# set abhängig von TR064 und data.lua
|
# set abhängig von TR064 und data.lua
|
||||||
$list .= " macFilter:on,off"
|
$list .= " macFilter:on,off"
|
||||||
. " enableVPNshare"
|
. " enableVPNshare"
|
||||||
if ($hash->{LUADATA} == 1) && defined ($hash->{MODEL}) && ($hash->{MODEL} =~ "Box") && $hash->{TR064} == 1 && $hash->{SECPORT} && $mesh eq "master";
|
if ($hash->{LUADATA} == 1) && defined ($hash->{MODEL}) && ($hash->{MODEL} =~ "Box") && $hash->{TR064} == 1 && $hash->{SECPORT} && $mesh eq "master";
|
||||||
|
|
||||||
# set abhängig von data.lua
|
# set abhängig von data.lua
|
||||||
$list .= " switchIPv4DNS:provider,other"
|
$list .= " switchIPv4DNS:provider,other"
|
||||||
. " dect:on,off"
|
. " dect:on,off"
|
||||||
. " dectRingblock"
|
. " dectRingblock"
|
||||||
@ -710,7 +710,7 @@ sub FRITZBOX_Set($$@)
|
|||||||
my $FW1 = substr($fwV[1],0,2);
|
my $FW1 = substr($fwV[1],0,2);
|
||||||
my $FW2 = substr($fwV[2],0,2);
|
my $FW2 = substr($fwV[2],0,2);
|
||||||
|
|
||||||
FRITZBOX_Log $hash, 5, "DEBUG: set $name $cmd für Version: $FW1.$FW2 ";
|
FRITZBOX_Log $hash, 5, "DEBUG: set $name $cmd für Version: $FW1.$FW2 ";
|
||||||
|
|
||||||
if ($FW1 <= 7 && $FW2 < 21) {
|
if ($FW1 <= 7 && $FW2 < 21) {
|
||||||
FRITZBOX_Log $hash, 2, "ERROR: FritzOS version must be greater than 7.20";
|
FRITZBOX_Log $hash, 2, "ERROR: FritzOS version must be greater than 7.20";
|
||||||
@ -841,7 +841,7 @@ sub FRITZBOX_Set($$@)
|
|||||||
my $FW1 = substr($fwV[1],0,2);
|
my $FW1 = substr($fwV[1],0,2);
|
||||||
my $FW2 = substr($fwV[2],0,2);
|
my $FW2 = substr($fwV[2],0,2);
|
||||||
|
|
||||||
FRITZBOX_Log $hash, 4, "INFO: set $name $cmd für Version: $FW1.$FW2 ";
|
FRITZBOX_Log $hash, 4, "INFO: set $name $cmd für Version: $FW1.$FW2 ";
|
||||||
|
|
||||||
if ($FW1 <= 7 && $FW2 < 21) {
|
if ($FW1 <= 7 && $FW2 < 21) {
|
||||||
FRITZBOX_Log $hash, 2, "ERROR: FritzOS version must be greater than 7.20";
|
FRITZBOX_Log $hash, 2, "ERROR: FritzOS version must be greater than 7.20";
|
||||||
@ -940,7 +940,7 @@ sub FRITZBOX_Set($$@)
|
|||||||
my $FW1 = substr($fwV[1],0,2);
|
my $FW1 = substr($fwV[1],0,2);
|
||||||
my $FW2 = substr($fwV[2],0,2);
|
my $FW2 = substr($fwV[2],0,2);
|
||||||
|
|
||||||
FRITZBOX_Log $hash, 4, "INFO: set $name $cmd für Version: $FW1.$FW2 ";
|
FRITZBOX_Log $hash, 4, "INFO: set $name $cmd für Version: $FW1.$FW2 ";
|
||||||
|
|
||||||
if ($FW1 <= 7 && $FW2 < 21) {
|
if ($FW1 <= 7 && $FW2 < 21) {
|
||||||
FRITZBOX_Log $hash, 2, "ERROR: FritzOS version must be greater than 7.20";
|
FRITZBOX_Log $hash, 2, "ERROR: FritzOS version must be greater than 7.20";
|
||||||
@ -1196,7 +1196,7 @@ sub FRITZBOX_Get($@)
|
|||||||
my $FW1 = substr($fwV[1],0,2);
|
my $FW1 = substr($fwV[1],0,2);
|
||||||
my $FW2 = substr($fwV[2],0,2);
|
my $FW2 = substr($fwV[2],0,2);
|
||||||
|
|
||||||
FRITZBOX_Log $hash, 4, "INFO: set $name $cmd für Version: $FW1.$FW2 ";
|
FRITZBOX_Log $hash, 4, "INFO: set $name $cmd für Version: $FW1.$FW2 ";
|
||||||
|
|
||||||
if ($FW1 <= 7 && $FW2 < 21) {
|
if ($FW1 <= 7 && $FW2 < 21) {
|
||||||
FRITZBOX_Log $hash, 2, "ERROR: FritzOS version must be greater than 7.20";
|
FRITZBOX_Log $hash, 2, "ERROR: FritzOS version must be greater than 7.20";
|
||||||
@ -1312,7 +1312,7 @@ sub FRITZBOX_Proof_Params($@) {
|
|||||||
my $FW1 = substr($fwV[1],0,2);
|
my $FW1 = substr($fwV[1],0,2);
|
||||||
my $FW2 = substr($fwV[2],0,2);
|
my $FW2 = substr($fwV[2],0,2);
|
||||||
|
|
||||||
FRITZBOX_Log $hash, 4, "INFO: set $name $cmd für Version: $FW1.$FW2 ";
|
FRITZBOX_Log $hash, 4, "INFO: set $name $cmd für Version: $FW1.$FW2 ";
|
||||||
|
|
||||||
if ($FW1 <= 7 && $FW2 < 21) {
|
if ($FW1 <= 7 && $FW2 < 21) {
|
||||||
FRITZBOX_Log $hash, 2, "ERROR: FritzOS version must be greater than 7.20";
|
FRITZBOX_Log $hash, 2, "ERROR: FritzOS version must be greater than 7.20";
|
||||||
@ -1542,7 +1542,7 @@ sub FRITZBOX_API_Check_Run($)
|
|||||||
my $m3uFileLocal = AttrVal( $name, "m3uFileLocal", $globalModPath."/www/images/".$name.".m3u" );
|
my $m3uFileLocal = AttrVal( $name, "m3uFileLocal", $globalModPath."/www/images/".$name.".m3u" );
|
||||||
|
|
||||||
if (open my $fh, '>', $m3uFileLocal) {
|
if (open my $fh, '>', $m3uFileLocal) {
|
||||||
my $ttsText = uri_escape("Lirumlarumlöffelstielwerdasnichtkannderkannnichtviel");
|
my $ttsText = uri_escape("Lirumlarumlöffelstielwerdasnichtkannderkannnichtviel");
|
||||||
my $ttsLink = $ttsLinkTemplate;
|
my $ttsLink = $ttsLinkTemplate;
|
||||||
$ttsLink =~ s/\[TEXT\]/$ttsText/;
|
$ttsLink =~ s/\[TEXT\]/$ttsText/;
|
||||||
$ttsLink =~ s/\[SPRACHE\]/fr/;
|
$ttsLink =~ s/\[SPRACHE\]/fr/;
|
||||||
@ -2108,7 +2108,7 @@ sub FRITZBOX_Readout_Run_Web($)
|
|||||||
foreach ( @{ $result->{wlanList} } ) {
|
foreach ( @{ $result->{wlanList} } ) {
|
||||||
my $mac = $_->{mac};
|
my $mac = $_->{mac};
|
||||||
$mac =~ s/:/_/g;
|
$mac =~ s/:/_/g;
|
||||||
# Anscheinend gibt es Anmeldungen sowohl für Repeater als auch für FBoxen
|
# 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} = $_->{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} = $_->{speed_rx} if ! defined $wlanList{$mac}{speed_rx} || $_->{speed_rx} ne "0";
|
||||||
#$wlanList{$mac}{speed_rx} = $result_lan->{$_->{_node}};
|
#$wlanList{$mac}{speed_rx} = $result_lan->{$_->{_node}};
|
||||||
@ -2179,13 +2179,13 @@ sub FRITZBOX_Readout_Run_Web($)
|
|||||||
|
|
||||||
my $srTmp = $deviceInfo;
|
my $srTmp = $deviceInfo;
|
||||||
|
|
||||||
# lan IPv4 ergänzen
|
# lan IPv4 ergänzen
|
||||||
$srTmp =~ s/ipv4/$dIp/g;
|
$srTmp =~ s/ipv4/$dIp/g;
|
||||||
|
|
||||||
# lan DeviceName ergänzen
|
# lan DeviceName ergänzen
|
||||||
$srTmp =~ s/name/$dName/g;
|
$srTmp =~ s/name/$dName/g;
|
||||||
|
|
||||||
# lan DeviceID ergänzen
|
# lan DeviceID ergänzen
|
||||||
$srTmp =~ s/uid/$UID/g;
|
$srTmp =~ s/uid/$UID/g;
|
||||||
|
|
||||||
# Create a reading if a landevice is connected
|
# Create a reading if a landevice is connected
|
||||||
@ -2304,7 +2304,7 @@ sub FRITZBOX_Readout_Run_Web($)
|
|||||||
|
|
||||||
# Box model, firmware and uptimes
|
# Box model, firmware and uptimes
|
||||||
|
|
||||||
# Informationen über DSL Verbindung
|
# Informationen über DSL Verbindung
|
||||||
# xhr 1
|
# xhr 1
|
||||||
# lang de
|
# lang de
|
||||||
# page dslOv
|
# page dslOv
|
||||||
@ -2381,7 +2381,7 @@ sub FRITZBOX_Readout_Run_Web($)
|
|||||||
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, $rName."_newMsg", $_->{NumNewMessages};
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, $rName."_newMsg", $_->{NumNewMessages};
|
||||||
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, $rName."_oldMsg", $_->{NumOldMessages};
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, $rName."_oldMsg", $_->{NumOldMessages};
|
||||||
}
|
}
|
||||||
# Löschen ausgeblendeter TAMs
|
# Löschen ausgeblendeter TAMs
|
||||||
elsif (defined $hash->{READINGS}{$rName} )
|
elsif (defined $hash->{READINGS}{$rName} )
|
||||||
{
|
{
|
||||||
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, $rName,"";
|
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, $rName,"";
|
||||||
@ -3404,7 +3404,7 @@ sub FRITZBOX_Run_macFilter($)
|
|||||||
my $FW1 = substr($fwV[1],0,2);
|
my $FW1 = substr($fwV[1],0,2);
|
||||||
my $FW2 = substr($fwV[2],0,2);
|
my $FW2 = substr($fwV[2],0,2);
|
||||||
|
|
||||||
FRITZBOX_Log $hash, 4, "INFO: set $name $cmd für Version: $FW1.$FW2 ";
|
FRITZBOX_Log $hash, 4, "INFO: set $name $cmd für Version: $FW1.$FW2 ";
|
||||||
|
|
||||||
FRITZBOX_Log $hash, 5, "DEBUG: set $name $cmd " . join(" ", @webCmdArray);
|
FRITZBOX_Log $hash, 5, "DEBUG: set $name $cmd " . join(" ", @webCmdArray);
|
||||||
|
|
||||||
@ -3605,7 +3605,7 @@ sub FRITZBOX_Run_chgProfile($)
|
|||||||
my $FW1 = substr($fwV[1],0,2);
|
my $FW1 = substr($fwV[1],0,2);
|
||||||
my $FW2 = substr($fwV[2],0,2);
|
my $FW2 = substr($fwV[2],0,2);
|
||||||
|
|
||||||
FRITZBOX_Log $hash, 4, "INFO: set $name $cmd für Version: $FW1.$FW2 ";
|
FRITZBOX_Log $hash, 4, "INFO: set $name $cmd für Version: $FW1.$FW2 ";
|
||||||
|
|
||||||
push @webCmdArray, "xhr" => "1";
|
push @webCmdArray, "xhr" => "1";
|
||||||
push @webCmdArray, "dev_name" => $lanDevice_Info->{data}->{vars}->{dev}->{name}->{displayName};
|
push @webCmdArray, "dev_name" => $lanDevice_Info->{data}->{vars}->{dev}->{name}->{displayName};
|
||||||
@ -3831,7 +3831,7 @@ sub FRITZBOX_Run_lockLandevice($)
|
|||||||
my $FW2 = substr($fwV[2],0,2);
|
my $FW2 = substr($fwV[2],0,2);
|
||||||
my $dev_name = $hash->{fhem}->{landevice}->{$val[0]};
|
my $dev_name = $hash->{fhem}->{landevice}->{$val[0]};
|
||||||
|
|
||||||
FRITZBOX_Log $hash, 4, "INFO: set $name $cmd für Version: $FW1.$FW2 ";
|
FRITZBOX_Log $hash, 4, "INFO: set $name $cmd für Version: $FW1.$FW2 ";
|
||||||
|
|
||||||
if ($FW1 <= 7 && $FW2 < 21) {
|
if ($FW1 <= 7 && $FW2 < 21) {
|
||||||
push @webCmdArray, "page" => "edit_device2";
|
push @webCmdArray, "page" => "edit_device2";
|
||||||
@ -3994,7 +3994,7 @@ sub FRITZBOX_Run_GuestWlan_Web($)
|
|||||||
# Read WLAN-Status
|
# Read WLAN-Status
|
||||||
my $queryStr = "&box_wlan_24GHz=wlan:settings/ap_enabled"; # WLAN
|
my $queryStr = "&box_wlan_24GHz=wlan:settings/ap_enabled"; # WLAN
|
||||||
$queryStr .= "&box_wlan_5GHz=wlan:settings/ap_enabled_scnd"; # 2nd 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_guestWlan=wlan:settings/guest_ap_enabled"; # Gäste WLAN
|
||||||
$queryStr .= "&box_guestWlanRemain=wlan:settings/guest_time_remain";
|
$queryStr .= "&box_guestWlanRemain=wlan:settings/guest_time_remain";
|
||||||
$queryStr .= "&box_macFilter_active=wlan:settings/is_macfilter_active";
|
$queryStr .= "&box_macFilter_active=wlan:settings/is_macfilter_active";
|
||||||
|
|
||||||
@ -4050,7 +4050,7 @@ sub FRITZBOX_Wlan_Run_Web($)
|
|||||||
# Read WLAN-Status
|
# Read WLAN-Status
|
||||||
my $queryStr = "&box_wlan_24GHz=wlan:settings/ap_enabled"; # WLAN
|
my $queryStr = "&box_wlan_24GHz=wlan:settings/ap_enabled"; # WLAN
|
||||||
$queryStr .= "&box_wlan_5GHz=wlan:settings/ap_enabled_scnd"; # 2nd 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_guestWlan=wlan:settings/guest_ap_enabled"; # Gäste WLAN
|
||||||
$queryStr .= "&box_guestWlanRemain=wlan:settings/guest_time_remain";
|
$queryStr .= "&box_guestWlanRemain=wlan:settings/guest_time_remain";
|
||||||
$queryStr .= "&box_macFilter_active=wlan:settings/is_macfilter_active";
|
$queryStr .= "&box_macFilter_active=wlan:settings/is_macfilter_active";
|
||||||
|
|
||||||
@ -4362,13 +4362,13 @@ sub FRITZBOX_SendMail_Shell($@)
|
|||||||
chop $field{body};
|
chop $field{body};
|
||||||
$field{body} =~ s/"/\\"/g;
|
$field{body} =~ s/"/\\"/g;
|
||||||
# change none ASCII chars in octal code for ISO-8859-1 (acc. http://www.pjb.com.au/comp/diacritics.html)
|
# change none ASCII chars in octal code for ISO-8859-1 (acc. http://www.pjb.com.au/comp/diacritics.html)
|
||||||
$field{body} =~ s/Ä|Ä/\\304/g;
|
$field{body} =~ s/Ä|Ä/\\304/g;
|
||||||
$field{body} =~ s/Ö|Ö/\\326/g;
|
$field{body} =~ s/Ö|Ö/\\326/g;
|
||||||
$field{body} =~ s/Ü|Ü/\\334/g;
|
$field{body} =~ s/Ü|Ü/\\334/g;
|
||||||
$field{body} =~ s/ß|ß/\\337/g;
|
$field{body} =~ s/ß|ß/\\337/g;
|
||||||
$field{body} =~ s/ä|ä/\\344/g;
|
$field{body} =~ s/ä|ä/\\344/g;
|
||||||
$field{body} =~ s/ö|ö/\\366/g;
|
$field{body} =~ s/ö|ö/\\366/g;
|
||||||
$field{body} =~ s/ü|ü/\\374/g;
|
$field{body} =~ s/ü|ü/\\374/g;
|
||||||
|
|
||||||
push @cmdArray, '/bin/echo -e "'.$field{body}.'" >/var/tmp/fhem_nachricht.txt';
|
push @cmdArray, '/bin/echo -e "'.$field{body}.'" >/var/tmp/fhem_nachricht.txt';
|
||||||
$cmd .= " -i '/var/tmp/fhem_nachricht.txt'";
|
$cmd .= " -i '/var/tmp/fhem_nachricht.txt'";
|
||||||
@ -4677,7 +4677,7 @@ sub FRITZBOX_TR064_Init ($$)
|
|||||||
|
|
||||||
# $hash->{TR064USER} = "dslf-config";
|
# $hash->{TR064USER} = "dslf-config";
|
||||||
|
|
||||||
# jetzt die Zertifikatsüberprüfung (sofort) abschalten
|
# jetzt die Zertifikatsüberprüfung (sofort) abschalten
|
||||||
BEGIN {
|
BEGIN {
|
||||||
$ENV{PERL_LWP_SSL_VERIFY_HOSTNAME}=0;
|
$ENV{PERL_LWP_SSL_VERIFY_HOSTNAME}=0;
|
||||||
}
|
}
|
||||||
@ -5545,7 +5545,7 @@ sub FRITZBOX_Lan_Devices_List($) {
|
|||||||
my $FW1 = substr($fwV[1],0,2);
|
my $FW1 = substr($fwV[1],0,2);
|
||||||
my $FW2 = substr($fwV[2],0,2);
|
my $FW2 = substr($fwV[2],0,2);
|
||||||
|
|
||||||
FRITZBOX_Log $hash, 4, "INFO: FRITZBOX_Lan_Device_List für Version: $FW1.$FW2 ";
|
FRITZBOX_Log $hash, 4, "INFO: FRITZBOX_Lan_Device_List für Version: $FW1.$FW2 ";
|
||||||
|
|
||||||
my @webCmdArray;
|
my @webCmdArray;
|
||||||
# "xhr 1 lang de page netDev xhrId cleanup useajax 1 no_sidrenew nop;
|
# "xhr 1 lang de page netDev xhrId cleanup useajax 1 no_sidrenew nop;
|
||||||
@ -5686,7 +5686,7 @@ sub FRITZBOX_Lan_Device_Info($$$) {
|
|||||||
my $FW1 = substr($fwV[1],0,2);
|
my $FW1 = substr($fwV[1],0,2);
|
||||||
my $FW2 = substr($fwV[2],0,2);
|
my $FW2 = substr($fwV[2],0,2);
|
||||||
|
|
||||||
FRITZBOX_Log $hash, 4, "INFO: FRITZBOX_Lan_Device_Info für Version: $FW1.$FW2 ";
|
FRITZBOX_Log $hash, 4, "INFO: FRITZBOX_Lan_Device_Info für Version: $FW1.$FW2 ";
|
||||||
|
|
||||||
if ($FW1 >= 7 && $FW2 >= 25) {
|
if ($FW1 >= 7 && $FW2 >= 25) {
|
||||||
push @webCmdArray, "page" => "edit_device";
|
push @webCmdArray, "page" => "edit_device";
|
||||||
@ -5700,7 +5700,7 @@ sub FRITZBOX_Lan_Device_Info($$$) {
|
|||||||
|
|
||||||
if(defined $result->{Error}) {
|
if(defined $result->{Error}) {
|
||||||
FRITZBOX_Log $hash, 2, "ERROR: get $name $action \n" . FRITZBOX_ERR_Result($hash, $result);
|
FRITZBOX_Log $hash, 2, "ERROR: get $name $action \n" . FRITZBOX_ERR_Result($hash, $result);
|
||||||
return "ERROR: holen Lan_Device_Info: " . $action . " für: " . $lDevID;
|
return "ERROR: holen Lan_Device_Info: " . $action . " für: " . $lDevID;
|
||||||
}
|
}
|
||||||
|
|
||||||
if (exists $result->{data}->{vars}) {
|
if (exists $result->{data}->{vars}) {
|
||||||
@ -5742,7 +5742,7 @@ sub FRITZBOX_Lan_Device_Info($$$) {
|
|||||||
} else {
|
} else {
|
||||||
FRITZBOX_Log $hash, 2, "ERROR: landevice: " . $lDevID . "landevice: Fehler holen Lan_Device_Info";
|
FRITZBOX_Log $hash, 2, "ERROR: landevice: " . $lDevID . "landevice: Fehler holen Lan_Device_Info";
|
||||||
|
|
||||||
return "ERROR: Lan_Device_Info: " . $action . " für: " . $lDevID;
|
return "ERROR: Lan_Device_Info: " . $action . " für: " . $lDevID;
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
@ -6545,8 +6545,8 @@ sub FRITZBOX_fritztris($)
|
|||||||
Aktiviert / Deaktiviert die Klingelsperre für das DECT-Telefon mit der ID dect<n> für Zeiträume:<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>
|
<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>
|
<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>
|
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>
|
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>
|
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.
|
Benötigt FRITZ!OS 7.21 oder höher.
|
||||||
</li><br>
|
</li><br>
|
||||||
@ -6876,7 +6876,7 @@ sub FRITZBOX_fritztris($)
|
|||||||
<li><b>box_ipExtern</b> - Internet IPv4 der FRITZ!BOX</li>
|
<li><b>box_ipExtern</b> - Internet IPv4 der FRITZ!BOX</li>
|
||||||
<li><b>box_ipv6Extern</b> - Internet IPv6 der FRITZ!BOX</li>
|
<li><b>box_ipv6Extern</b> - Internet IPv6 der FRITZ!BOX</li>
|
||||||
<li><b>box_ipv6Prefix</b> - Internet IPv6 Prefix der FRITZ!BOX für das LAN/WLAN</li>
|
<li><b>box_ipv6Prefix</b> - Internet IPv6 Prefix der FRITZ!BOX für das LAN/WLAN</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_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_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_model</b> - FRITZ!BOX-Modell</li>
|
||||||
<li><b>box_moh</b> - Wartemusik-Einstellung</li>
|
<li><b>box_moh</b> - Wartemusik-Einstellung</li>
|
||||||
@ -6978,7 +6978,7 @@ sub FRITZBOX_fritztris($)
|
|||||||
# SSID2=wlan:settings/ssid_scnd
|
# SSID2=wlan:settings/ssid_scnd
|
||||||
# FORWARDS=forwardrules:settings/rule/list(activated,description,protocol,port,fwip,fwport,endport)
|
# FORWARDS=forwardrules:settings/rule/list(activated,description,protocol,port,fwip,fwport,endport)
|
||||||
# SIPS=sip:settings/sip/list(ID,displayname)
|
# SIPS=sip:settings/sip/list(ID,displayname)
|
||||||
# NUMBERS=telcfg:settings/VoipExtension/listwindow(2,2,Name,enabled) <=== eingeschränkte Ergebnismenge
|
# NUMBERS=telcfg:settings/VoipExtension/listwindow(2,2,Name,enabled) <=== eingeschränkte Ergebnismenge
|
||||||
# DEVICES=ctlusb:settings/device/count
|
# DEVICES=ctlusb:settings/device/count
|
||||||
# PHYS=usbdevices:settings/physmedium/list(name,vendor,serial,fw_version,conntype,capacity,status,usbspeed,model)
|
# PHYS=usbdevices:settings/physmedium/list(name,vendor,serial,fw_version,conntype,capacity,status,usbspeed,model)
|
||||||
# PHYSCNT=usbdevices:settings/physmediumcnt
|
# PHYSCNT=usbdevices:settings/physmediumcnt
|
||||||
|
Loading…
x
Reference in New Issue
Block a user