From 06262337967d00b9d9b06e07839de00e8bc4eade Mon Sep 17 00:00:00 2001 From: jowiemann <> Date: Fri, 17 Mar 2023 14:05:11 +0000 Subject: [PATCH] 72_FRITZBOX.pm: UTF8 kodiert git-svn-id: https://svn.fhem.de/fhem/trunk@27333 2b470e98-0d58-463d-a4d8-8e2adae1ed80 --- fhem/FHEM/72_FRITZBOX.pm | 86 ++++++++++++++++++++-------------------- 1 file changed, 43 insertions(+), 43 deletions(-) diff --git a/fhem/FHEM/72_FRITZBOX.pm b/fhem/FHEM/72_FRITZBOX.pm index f49779be9..939fdd512 100644 --- a/fhem/FHEM/72_FRITZBOX.pm +++ b/fhem/FHEM/72_FRITZBOX.pm @@ -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 # # # -# 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 # # 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. # +# 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. # # # @@ -370,14 +370,14 @@ sub FRITZBOX_Rename($$) # # # 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). # # 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 à # +# 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 # @@ -549,14 +549,14 @@ sub FRITZBOX_Set($$@) . " password" . " update:noArg"; -# set abhängig von TR064 +# set abhängig von TR064 $list .= " call" . " diversity" . " ring" . " tam" 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" . " guestWlan:on,off" if $hash->{TR064} == 1 && $hash->{SECPORT} && $hash->{LUAQUERY} == 1; @@ -565,12 +565,12 @@ sub FRITZBOX_Set($$@) . " 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 +# set abhängig von TR064 und data.lua $list .= " macFilter:on,off" . " enableVPNshare" 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" . " dect:on,off" . " dectRingblock" @@ -710,7 +710,7 @@ sub FRITZBOX_Set($$@) my $FW1 = substr($fwV[1],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) { 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 $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) { 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 $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) { 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 $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) { 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 $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) { 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" ); if (open my $fh, '>', $m3uFileLocal) { - my $ttsText = uri_escape("Lirumlarumlöffelstielwerdasnichtkannderkannnichtviel"); + my $ttsText = uri_escape("Lirumlarumlöffelstielwerdasnichtkannderkannnichtviel"); my $ttsLink = $ttsLinkTemplate; $ttsLink =~ s/\[TEXT\]/$ttsText/; $ttsLink =~ s/\[SPRACHE\]/fr/; @@ -2108,7 +2108,7 @@ sub FRITZBOX_Readout_Run_Web($) foreach ( @{ $result->{wlanList} } ) { my $mac = $_->{mac}; $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_rx} = $_->{speed_rx} if ! defined $wlanList{$mac}{speed_rx} || $_->{speed_rx} ne "0"; #$wlanList{$mac}{speed_rx} = $result_lan->{$_->{_node}}; @@ -2179,13 +2179,13 @@ sub FRITZBOX_Readout_Run_Web($) my $srTmp = $deviceInfo; - # lan IPv4 ergänzen + # lan IPv4 ergänzen $srTmp =~ s/ipv4/$dIp/g; - # lan DeviceName ergänzen + # lan DeviceName ergänzen $srTmp =~ s/name/$dName/g; - # lan DeviceID ergänzen + # lan DeviceID ergänzen $srTmp =~ s/uid/$UID/g; # Create a reading if a landevice is connected @@ -2304,7 +2304,7 @@ sub FRITZBOX_Readout_Run_Web($) # Box model, firmware and uptimes - # Informationen über DSL Verbindung + # Informationen über DSL Verbindung # xhr 1 # lang de # 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."_oldMsg", $_->{NumOldMessages}; } -# Löschen ausgeblendeter TAMs +# Löschen ausgeblendeter TAMs elsif (defined $hash->{READINGS}{$rName} ) { FRITZBOX_Readout_Add_Reading $hash, \@roReadings, $rName,""; @@ -3404,7 +3404,7 @@ sub FRITZBOX_Run_macFilter($) my $FW1 = substr($fwV[1],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); @@ -3605,7 +3605,7 @@ sub FRITZBOX_Run_chgProfile($) my $FW1 = substr($fwV[1],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, "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 $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) { push @webCmdArray, "page" => "edit_device2"; @@ -3994,7 +3994,7 @@ sub FRITZBOX_Run_GuestWlan_Web($) # 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_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"; @@ -4050,7 +4050,7 @@ sub FRITZBOX_Wlan_Run_Web($) # 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_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"; @@ -4362,13 +4362,13 @@ sub FRITZBOX_SendMail_Shell($@) chop $field{body}; $field{body} =~ s/"/\\"/g; # 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/Ö|Ö/\\326/g; - $field{body} =~ s/Ü|Ãœ/\\334/g; - $field{body} =~ s/ß|ß/\\337/g; - $field{body} =~ s/ä|ä/\\344/g; - $field{body} =~ s/ö|ö/\\366/g; - $field{body} =~ s/ü|ü/\\374/g; + $field{body} =~ s/Ä|Ä/\\304/g; + $field{body} =~ s/Ö|Ö/\\326/g; + $field{body} =~ s/Ãœ|Ãœ/\\334/g; + $field{body} =~ s/ß|ß/\\337/g; + $field{body} =~ s/ä|ä/\\344/g; + $field{body} =~ s/ö|ö/\\366/g; + $field{body} =~ s/ü|ü/\\374/g; push @cmdArray, '/bin/echo -e "'.$field{body}.'" >/var/tmp/fhem_nachricht.txt'; $cmd .= " -i '/var/tmp/fhem_nachricht.txt'"; @@ -4677,7 +4677,7 @@ sub FRITZBOX_TR064_Init ($$) # $hash->{TR064USER} = "dslf-config"; - # jetzt die Zertifikatsüberprüfung (sofort) abschalten + # jetzt die Zertifikatsüberprüfung (sofort) abschalten BEGIN { $ENV{PERL_LWP_SSL_VERIFY_HOSTNAME}=0; } @@ -5545,7 +5545,7 @@ sub FRITZBOX_Lan_Devices_List($) { my $FW1 = substr($fwV[1],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; # "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 $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) { push @webCmdArray, "page" => "edit_device"; @@ -5700,7 +5700,7 @@ sub FRITZBOX_Lan_Device_Info($$$) { if(defined $result->{Error}) { 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}) { @@ -5742,7 +5742,7 @@ sub FRITZBOX_Lan_Device_Info($$$) { } else { 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 für Zeiträume:
<hh:mm-hh:mm> = Uhrzeit_von bis Uhrzeit_bis
<days> = wd für Werktags, ed für Jeden Tag, we für Wochenende
- lmode:on|off = lmode definiert die Sperre. Bei off ist sie aus, außer für den angegebenen Zeitraum.
- Bei on ist die Sperre an, außer für den angegebenen Zeitraum
+ lmode:on|off = lmode definiert die Sperre. Bei off ist sie aus, außer für den angegebenen Zeitraum.
+ Bei on ist die Sperre an, außer für den angegebenen Zeitraum
emode:on|off = emode schaltet Events bei gesetzter Klingelsperre ein/aus. Siehe hierzu die FRITZ!BOX Dokumentation
Benötigt FRITZ!OS 7.21 oder höher.
@@ -6876,7 +6876,7 @@ sub FRITZBOX_fritztris($)
  • box_ipExtern - Internet IPv4 der FRITZ!BOX
  • box_ipv6Extern - Internet IPv6 der FRITZ!BOX
  • box_ipv6Prefix - Internet IPv6 Prefix der FRITZ!BOX für das LAN/WLAN
    • -
  • box_macFilter_active - Status des WLAN MAC-Filter (WLAN-Zugang auf die bekannten WLAN-Geräte beschränken)
    • +
  • box_macFilter_active - Status des WLAN MAC-Filter (WLAN-Zugang auf die bekannten WLAN-Geräte beschränken)
  • box_meshRole - ab Version 07.21 wird die Mesh Rolle (master, slave) angezeigt.
  • box_model - FRITZ!BOX-Modell
  • box_moh - Wartemusik-Einstellung
    • @@ -6978,7 +6978,7 @@ sub FRITZBOX_fritztris($) # 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 +# 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