FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-02-25 16:05:19 +00:00
Code Issues Releases Wiki Activity

72_FRITZBOX.pm: XML::Simple entfernt

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@27520 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
jowiemann 2023-05-03 20:29:39 +00:00
parent a228982675
commit 7949f3c434
1 changed files with 71 additions and 58 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

127
fhem/FHEM/72_FRITZBOX.pm
View File

@ -41,7 +41,7 @@ use warnings;
use Blocking; use Blocking;
use HttpUtils; use HttpUtils;
my $ModulVersion = "07.50.16f"; my $ModulVersion = "07.50.17";
my $missingModul = ""; my $missingModul = "";
my $missingModulWeb = ""; my $missingModulWeb = "";
my $missingModulTR064 = ""; my $missingModulTR064 = "";
@ -68,8 +68,6 @@ eval "use SOAP::Lite;1" or $missingModulTR064 .= "Soap::Lite ";
# $Data::Dumper::Sortkeys = 1; # $Data::Dumper::Sortkeys = 1;
eval "use Data::Dumper;1" or $missingModulTR064 .= "Data::Dumper "; eval "use Data::Dumper;1" or $missingModulTR064 .= "Data::Dumper ";
eval "use XML::Simple;1" or $missingModulTR064 .= "XML::Simple ";
sub FRITZBOX_Log($$$); sub FRITZBOX_Log($$$);
sub FRITZBOX_Initialize($); sub FRITZBOX_Initialize($);
sub FRITZBOX_Set_Cmd_Start($); sub FRITZBOX_Set_Cmd_Start($);
@ -3446,22 +3444,20 @@ sub FRITZBOX_Readout_Run_Web($)
if(defined $soap_resp->{Error}) { if(defined $soap_resp->{Error}) {
FRITZBOX_Log $hash, 4, "DEBUG: SOAP-ERROR -> " . $soap_resp->{Error}; FRITZBOX_Log $hash, 4, "DEBUG: SOAP-ERROR -> " . $soap_resp->{Error};
} elsif(exists $soap_resp->{'s:Body'}->{'u:GetStatusInfoResponse'}) { } elsif ( $soap_resp->{Response} ) {
if($soap_resp->{'s:Body'}->{'u:GetStatusInfoResponse'}->{NewConnectionStatus}) { $strCurl = $soap_resp->{Response};
$strCurl = $soap_resp->{'s:Body'}->{'u:GetStatusInfoResponse'}->{NewConnectionStatus}; FRITZBOX_Log $hash, 5, "DEBUG: Curl-> " . $strCurl;
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "box_connect", $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($soap_resp->{'s:Body'}->{'u:GetStatusInfoResponse'}->{NewLastConnectionError}) { if($strCurl =~ m/<NewUptime>(.*?)<\/NewUptime>/i) {
$strCurl = $soap_resp->{'s:Body'}->{'u:GetStatusInfoResponse'}->{NewLastConnectionError}; $Sek = $1;
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "box_last_connect_err", $strCurl;
}
if($soap_resp->{'s:Body'}->{'u:GetStatusInfoResponse'}->{NewUptime}) {
$strCurl = $soap_resp->{'s:Body'}->{'u:GetStatusInfoResponse'}->{NewUptime};
$Sek = $strCurl;
$Tag = int($Sek/86400); $Tag = int($Sek/86400);
$Std = int(($Sek/3600)-(24*$Tag)); $Std = int(($Sek/3600)-(24*$Tag));
$Min = int(($Sek/60)-($Std*60)-(1440*$Tag)); $Min = int(($Sek/60)-($Std*60)-(1440*$Tag));
@ -3471,7 +3467,7 @@ sub FRITZBOX_Readout_Run_Web($)
$Min = substr("0".$Min,-2); $Min = substr("0".$Min,-2);
$Sek = substr("0".$Sek,-2); $Sek = substr("0".$Sek,-2);
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "box_uptimeConnect", ($mesh ne "slave") ? $strCurl . " sec = " . $Tag . "T $Std:$Min:$Sek" : ""; FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "box_uptimeConnect", $1 . " sec = " . $Tag . "T $Std:$Min:$Sek";
} }
} }
@ -3486,11 +3482,13 @@ sub FRITZBOX_Readout_Run_Web($)
if(exists $soap_resp->{Error}) { if(exists $soap_resp->{Error}) {
FRITZBOX_Log $hash, 4, "DEBUG: SOAP-ERROR -> " . $soap_resp->{Error}; FRITZBOX_Log $hash, 4, "DEBUG: SOAP-ERROR -> " . $soap_resp->{Error};
} elsif(exists $soap_resp->{'s:Body'}->{'u:GetExternalIPAddressResponse'}) { } elsif ( $soap_resp->{Response} ) {
if($soap_resp->{'s:Body'}->{'u:GetExternalIPAddressResponse'}->{NewExternalIPAddress}) { $strCurl = $soap_resp->{Response};
$strCurl = $soap_resp->{'s:Body'}->{'u:GetExternalIPAddressResponse'}->{NewExternalIPAddress}; FRITZBOX_Log $hash, 5, "DEBUG: Curl-> " . $strCurl;
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "box_ipv4_Extern", ref($strCurl) ? "" : $strCurl;
if($strCurl =~ m/<NewExternalIPAddress>(.*?)<\/NewExternalIPAddress>/i) {
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "box_ipv4_Extern", $1;
} }
} }
} }
@ -3507,11 +3505,13 @@ sub FRITZBOX_Readout_Run_Web($)
FRITZBOX_Log $hash, 4, "DEBUG: SOAP/TR064-ERROR -> " . $soap_resp->{Error}; FRITZBOX_Log $hash, 4, "DEBUG: SOAP/TR064-ERROR -> " . $soap_resp->{Error};
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "box_ipv6_Extern", $soap_resp->{ErrLevel} == 2?"unknown error":""; FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "box_ipv6_Extern", $soap_resp->{ErrLevel} == 2?"unknown error":"";
} elsif(exists $soap_resp->{'s:Body'}->{'u:X_AVM_DE_GetExternalIPv6AddressResponse'}) { } elsif ( $soap_resp->{Response} ) {
if($soap_resp->{'s:Body'}->{'u:X_AVM_DE_GetExternalIPv6AddressResponse'}->{NewExternalIPv6Address}) { $strCurl = $soap_resp->{Response};
$strCurl = $soap_resp->{'s:Body'}->{'u:X_AVM_DE_GetExternalIPv6AddressResponse'}->{NewExternalIPv6Address}; FRITZBOX_Log $hash, 5, "DEBUG: Curl-> " . $strCurl;
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "box_ipv6_Extern", ref($strCurl) ? "" : $strCurl;
if($strCurl =~ m/<NewExternalIPv6Address>(.*?)<\/NewExternalIPv6Address>/i) {
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "box_ipv6_Extern", $1;
} }
} }
@ -3526,11 +3526,13 @@ sub FRITZBOX_Readout_Run_Web($)
FRITZBOX_Log $hash, 4, "DEBUG: SOAP/TR064-ERROR -> " . $soap_resp->{Error}; FRITZBOX_Log $hash, 4, "DEBUG: SOAP/TR064-ERROR -> " . $soap_resp->{Error};
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "box_ipv6_Extern", $soap_resp->{ErrLevel} == 2?"unknown error":""; FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "box_ipv6_Extern", $soap_resp->{ErrLevel} == 2?"unknown error":"";
} elsif(exists $soap_resp->{'s:Body'}->{'u:X_AVM_DE_GetIPv6PrefixResponse'}) { } elsif ( $soap_resp->{Response} ) {
if($soap_resp->{'s:Body'}->{'u:X_AVM_DE_GetIPv6PrefixResponse'}->{NewIPv6Prefix}) { $strCurl = $soap_resp->{Response};
$strCurl = $soap_resp->{'s:Body'}->{'u:X_AVM_DE_GetIPv6PrefixResponse'}->{NewIPv6Prefix}; FRITZBOX_Log $hash, 5, "DEBUG: Curl-> " . $strCurl;
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "box_ipv6_Prefix", ref($strCurl) ? "" : $strCurl;
if($strCurl =~ m/<NewIPv6Prefix>(.*?)<\/NewIPv6Prefix>/i) {
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "box_ipv6_Prefix", $1;
} }
} }
} elsif ($avmModel =~ "Repeater") { } elsif ($avmModel =~ "Repeater") {
@ -5460,45 +5462,49 @@ EOD
if (ref($resp_init->decoded_content) eq "HASH") { if (ref($resp_init->decoded_content) eq "HASH") {
FRITZBOX_Log $hash, 4, "DEBUG: XML_RESONSE:\n" . Dumper ($resp_init->decoded_content); 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") { } elsif (ref($resp_init->decoded_content) eq "ARRAY") {
FRITZBOX_Log $hash, 4, "DEBUG: XML_RESONSE:\n" . Dumper ($resp_init->decoded_content); 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 { } else {
FRITZBOX_Log $hash, 4, "DEBUG: XML_RESONSE:\n" . $resp_init->decoded_content; 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) ;
} }
my $xml_resp = eval { XMLin($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>
if ($@) { my $sFault = \%retHash;
FRITZBOX_Log $hash, 4, "DEBUG: SOAP/TR064-RESPONSE-Error: " . $@;
%retHash = ( "Error" => $@, "ErrLevel" => "2" ) ; if($sFault =~ m/<s:Fault>(.*?)<\/s:Fault>/i) {
return \%retHash; my $sFaultDetail = $1;
} else { if($sFaultDetail =~ m/<errorCode>(.*?)<\/errorCode>/i) {
unless( $xml_resp ) { # Transport-Error my $errInfo = "Code: $1";
FRITZBOX_Log $hash, 4, "DEBUG: TR064-Transport-Error"; if($sFaultDetail =~ m/<errorDescription>(.*?)<\/errorDescription>/i) {
%retHash = ( "Error" => "transport error", "ErrLevel" => "1" ) ; $errInfo .= " Text: $1";
return \%retHash;
}
if(exists $xml_resp->{'s:Body'}->{'s:Fault'}) {
if($xml_resp->{'s:Body'}->{'s:Fault'}->{detail}->{UPnPError}->{errorCode}) {
FRITZBOX_Log $hash, 5, "DEBUG: SOAP-ERROR -> " . $xml_resp->{'s:Body'}->{'s:Fault'}->{detail}->{UPnPError}->{errorCode};
%retHash = ( "Error" => "SOAP-ERROR -> " . $xml_resp->{'s:Body'}->{'s:Fault'}->{detail}->{UPnPError}->{errorCode}, "ErrLevel" => "1" ) ;
} else {
FRITZBOX_Log $hash, 5, "DEBUG: SOAP-ERROR -> \n" . Dumper $xml_resp;
%retHash = ( "Error" => "SOAP-ERROR -> unkown error", "ErrLevel" => "1" ) ;
} }
return \%retHash; 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" );
} }
} }
if (ref($xml_resp) eq "HASH") { return \%retHash;
FRITZBOX_Log $hash, 4, "DEBUG: XML_RESONSE:\n" . Dumper ($xml_resp);
} elsif (ref($xml_resp) eq "ARRAY") {
FRITZBOX_Log $hash, 4, "DEBUG: XML_RESONSE:\n" . Dumper ($xml_resp);
} else {
FRITZBOX_Log $hash, 4, "DEBUG: XML_RESONSE:\n" . $xml_resp;
}
return $xml_resp;
} # end of FRITZBOX_SOAP_Request } # end of FRITZBOX_SOAP_Request
@ -8710,5 +8716,12 @@ sub FRITZBOX_readPassword($)
# #
# WLANConfiguration:1 wlanconfig1 GetInfo # 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("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 # ggf bei Repeater einbauen: xhr 1 lang de page overview xhrId all useajax 1