From b6e3a6788a9353112835c11bb2574dffa05b6eb4 Mon Sep 17 00:00:00 2001
From: jowiemann <>
Date: Thu, 8 Feb 2024 13:37:24 +0000
Subject: [PATCH] 72_FRITZBOX.pm: Version 07.57.11b

git-svn-id: https://svn.fhem.de/fhem/trunk@28493 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/72_FRITZBOX.pm | 21 +++++++++++++++++++--
 1 file changed, 19 insertions(+), 2 deletions(-)

diff --git a/fhem/FHEM/72_FRITZBOX.pm b/fhem/FHEM/72_FRITZBOX.pm
index 593d50cbb..85f7e9c13 100644
--- a/fhem/FHEM/72_FRITZBOX.pm
+++ b/fhem/FHEM/72_FRITZBOX.pm
@@ -45,7 +45,7 @@ use warnings;
 use Blocking;
 use HttpUtils;
 
-my $ModulVersion = "07.57.11a";
+my $ModulVersion = "07.57.11b";
 my $missingModul = "";
 my $FRITZBOX_TR064pwd;
 my $FRITZBOX_TR064user;
@@ -8890,7 +8890,12 @@ sub FRITZBOX_Get_Lan_Device_Info($$$) {
           $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 .= " ACCESS:"  . $result->{data}->{vars}->{dev}->{netAccess}->{kisi}->{selectedRights}->{msgid} if defined($result->{data}->{vars}->{dev}->{netAccess}->{kisi}->{selectedRights}->{msgid});
+             $returnStr .= " USEABLE:" . $result->{data}->{vars}->{dev}->{netAccess}->{kisi}->{onlineTime}->{useable};
+             $returnStr .= " UNSPENT:" . $result->{data}->{vars}->{dev}->{netAccess}->{kisi}->{onlineTime}->{unspent};
+             $returnStr .= " PERCENT:" . $result->{data}->{vars}->{dev}->{netAccess}->{kisi}->{onlineTime}->{percent};
+             $returnStr .= " USED:"    . $result->{data}->{vars}->{dev}->{netAccess}->{kisi}->{onlineTime}->{used};
+             $returnStr .= " USEDSTR:" . $result->{data}->{vars}->{dev}->{netAccess}->{kisi}->{onlineTime}->{usedstr};
           }
           $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';
@@ -10624,6 +10629,12 @@ sub FRITZBOX_Helper_Url_Regex {
          <br>
          &lt;number&gt; is the ID from landevice<i>n..n</i> or its MAC<br>
          Shows informations about a specific lan device.<br>
+         If there is a child lock, only then is the measurement taken, the following is also output:<br>
+         USEABLE: Allocation in seconds<br>
+         UNSPENT: not used in seconds<br>
+         PERCENT: in percent<br>
+         USED: used in seconds<br>
+         USEDSTR: shows the usage time from - to<br>
          Needs FRITZ!OS 7.21 or higher.
       </li><br>
 
@@ -11521,6 +11532,12 @@ sub FRITZBOX_Helper_Url_Regex {
          <br>
          &lt;number&gt; ist die ID des landevice<i>n..n</i> oder dessen MAC
          Zeigt Informationen &uuml;ber das Netzwerkger&auml;t an.<br>
+         Bei vorhandener Kindersicherung, nur dann wird gemessen, wird zusätzlich folgendes ausgegeben:<br>
+         USEABLE: Zuteilung in Sekunden<br>
+         UNSPENT: nicht genutzt in Sekunden<br>
+         PERCENT: in Prozent<br>
+         USED: genutzt in Sekunden<br>
+         USEDSTR: zeigt die Nutzungszeit von - bis<br>
 	  Ben&ouml;tigt FRITZ!OS 7.21 oder h&ouml;her.
       </li><br>