FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-01-31 18:59:33 +00:00
Code Issues Releases Wiki Activity

34_ESPEasy.pm: minor fix for Data::Dumper usage

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@14844 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
dev0 2017-08-04 09:08:37 +00:00
parent fc03730334
commit 1dce059b62
1 changed files with 13 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
fhem/FHEM/34_ESPEasy.pm
View File

@ -36,7 +36,7 @@ use Color;
# ------------------------------------------------------------------------------
# global/default values
# ------------------------------------------------------------------------------
my $module_version = "1.22"; # Version of this module
my $module_version = "1.23"; # Version of this module
my $minEEBuild = 128; # informational
my $minJsonVersion = 1.02; # checked in received data
@ -600,8 +600,6 @@ sub ESPEasy_Read($) {
my $bhash = $modules{ESPEasy}{defptr}{BRIDGE}{$ipv}; #hash of original instance
my $bname = $bhash->{NAME};
my $btype = $bhash->{TYPE};
$Data::Dumper::Indent = 0;
$Data::Dumper::Terse = 1;
# Levering new TcpServerUtils security feature.
#$attr{$name}{allowfrom} = ".*" if !$attr{$name}{allowfrom};
@ -651,7 +649,8 @@ sub ESPEasy_Read($) {
$logHeader->{Authorization} =~ s/Basic\s.*\s/Basic ***** / if defined $logHeader->{Authorization};
# Dump logHeader
Log3 $bname, 5, "$btype $name: Received header: ".Dumper($logHeader) if defined $logHeader;
Log3 $bname, 5, "$btype $name: Received header: ".ESPEasy_dumpSingleLine($logHeader)
if (defined $logHeader);
# Dump content
Log3 $bname, 5, "$btype $name: Received content: $data[1]" if defined $data[1];
@ -2556,6 +2555,16 @@ sub ESPEasy_isHostname($)
# ------------------------------------------------------------------------------
sub ESPEasy_whoami() {return (split('::',(caller(1))[3]))[1] || '';}
# ------------------------------------------------------------------------------
sub ESPEasy_dumpSingleLine($)
{
my $saveIndent = $Data::Dumper::Indent; my $saveTerse = $Data::Dumper::Terse ;
$Data::Dumper::Indent = 0; $Data::Dumper::Terse = 1;
my $ret = Dumper($_[0]);
$Data::Dumper::Indent = $saveIndent; $Data::Dumper::Terse = $saveTerse;
return $ret;
}
# ------------------------------------------------------------------------------
sub ESPEasy_removeGit($)
{