From cf447e42c707c4639258685fbcc2f5db0c860e89 Mon Sep 17 00:00:00 2001 From: betateilchen <> Date: Mon, 10 Jul 2017 17:46:09 +0000 Subject: [PATCH] 98_fheminfo.pm: minor changes git-svn-id: https://svn.fhem.de/fhem/trunk@14684 2b470e98-0d58-463d-a4d8-8e2adae1ed80 --- fhem/FHEM/98_fheminfo.pm | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/fhem/FHEM/98_fheminfo.pm b/fhem/FHEM/98_fheminfo.pm index ef9a638b1..46dcce29a 100644 --- a/fhem/FHEM/98_fheminfo.pm +++ b/fhem/FHEM/98_fheminfo.pm @@ -54,7 +54,10 @@ sub CommandFheminfo($$) { _fi2_Count(); - return toJSON(\%fhemInfo) if (defined($args[1]) && $args[1] eq 'debug'); + if (defined($args[1]) && $args[1] eq 'debug') { + $fhemInfo{$c_system}{'uniqueID'} = substr($fhemInfo{$c_system}{'uniqueID'},0,3); + return toJSON(\%fhemInfo); + } _fi2_Send() if $doSend; @@ -179,7 +182,7 @@ sub _fi2_TelnetTable($) { if (defined($fhemInfo{$c_system}{'revision'})); $str .= sprintf(" OS%*s: %s\n",11," ",$fhemInfo{$c_system}{'os'}); $str .= sprintf(" Perl%*s: %s\n",9," ",$fhemInfo{$c_system}{'perl'}); - $str .= sprintf(" uniqueID%*s: %s\n",5," ",$fhemInfo{$c_system}{'uniqueID'}); + $str .= sprintf(" uniqueID%*s: %s\n",5," ",substr($fhemInfo{$c_system}{'uniqueID'},0,3)); $str .= sprintf(" upTime%*s: %s\n",7," ",$upTime); my @keys = keys %fhemInfo; @@ -209,7 +212,7 @@ sub _fi2_HtmlTable($) { if (defined($fhemInfo{$c_system}{'revision'})); $result .= "