Public/fhem-mirror
1
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-05-04 22:19:38 +00:00
Code Issues Packages Projects Releases Wiki Activity

98_fheminfo.pm: prevent perl warnings

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@14490 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
betateilchen 2017-06-10 10:27:15 +00:00
parent ba738d33a7
commit e42f5dd7d9
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
fhem/FHEM/98_fheminfo.pm
View File

@ -117,7 +117,8 @@ sub _fi2_Send() {
sub _fi2_TelnetTable($) { sub _fi2_TelnetTable($) {
my ($doSend) = shift; my ($doSend) = shift;
my $upTime = _fi2_Uptime(); my $upTime = _fi2_Uptime();
my $str = "Following statistics data will be sent to server:\n(see Logfile for server response)\n\n" if($doSend == 1); my $str;
$str .= "Following statistics data will be sent to server:\n(see Logfile for server response)\n\n" if($doSend == 1);
$str .= "System Info\n"; $str .= "System Info\n";
$str .= sprintf(" Release%*s: %s\n",6," ",$fhemInfo{'system'}{'release'}); $str .= sprintf(" Release%*s: %s\n",6," ",$fhemInfo{'system'}{'release'});
$str .= sprintf(" FeatureLevel%*s: %s\n",0," ",$fhemInfo{'system'}{'feature'}); $str .= sprintf(" FeatureLevel%*s: %s\n",0," ",$fhemInfo{'system'}{'feature'});
@ -159,7 +160,8 @@ sub _fi2_HtmlTable($) {
my @keys = keys %fhemInfo; my @keys = keys %fhemInfo;
foreach my $type (sort @keys) foreach my $type (sort @keys)
{ {
next if $type eq 'system'; next if ($type eq 'system');
next unless $type;
$result .= "<tr><td>$type</td><td> </td><td>$fhemInfo{$type}{'noModel'}</td></tr>"; $result .= "<tr><td>$type</td><td> </td><td>$fhemInfo{$type}{'noModel'}</td></tr>";
while ( my ($model, $count) = each(%{$fhemInfo{$type}}) ) while ( my ($model, $count) = each(%{$fhemInfo{$type}}) )
{ $result .= "<tr><td> </td><td>$model</td><td>$fhemInfo{$type}{$model}</td></tr>" unless $model eq 'noModel'; } { $result .= "<tr><td> </td><td>$model</td><td>$fhemInfo{$type}{$model}</td></tr>" unless $model eq 'noModel'; }