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_freezemon.pm: minor fixes

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@20804 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
KernSani 2019-12-22 15:30:26 +00:00
parent b3202c78fc
commit 55415f47c0
1 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
fhem/FHEM/98_freezemon.pm
View File

@ -22,6 +22,8 @@
# #
############################################################################## ##############################################################################
# Changelog: # Changelog:
# 0.0.29 (20.12.2019): Removed remaining "Dumper" code
# Few minor fixes
# 0.0.28: Fixed minor bug in regex for statistics # 0.0.28: Fixed minor bug in regex for statistics
# Added Commandref for getFreezes # Added Commandref for getFreezes
# 0.0.27: Slightly improved device detection # 0.0.27: Slightly improved device detection
@ -111,7 +113,7 @@ use B qw(svref_2object);
use Blocking; use Blocking;
use vars qw($FW_CSRF); use vars qw($FW_CSRF);
my $version = "0.0.28"; my $version = "0.0.29";
my @logqueue = (); my @logqueue = ();
my @fmCmd = (); my @fmCmd = ();
@ -737,7 +739,7 @@ sub freezemon_Get($@) {
sort { $stats{$b}{cnt} <=> $stats{$a}{cnt} or $stats{$b}{time} <=> $stats{$a}{time} } keys %stats; sort { $stats{$b}{cnt} <=> $stats{$a}{cnt} or $stats{$b}{time} <=> $stats{$a}{time} } keys %stats;
my $ret = "<html>"; my $ret = "<html>";
$ret .= "<table><tr><th>Device</th><th>Count</th><th>Time</th></tr>"; $ret .= "<table><tr><th>Device</th><th>Count</th><th>Time</th></tr>";
my $i; my $i = 0;
foreach my $p (@positioned) { foreach my $p (@positioned) {
last if $i > 20; last if $i > 20;
$i++; $i++;
@ -1070,7 +1072,7 @@ sub freezemon_getDevice($$) {
} }
elsif ( ref($shortarg) eq "" ) { elsif ( ref($shortarg) eq "" ) {
Log3 $name, 5, Log3 $name, 5,
"[Freezemon] $name found something that's not a REF $fn " . ref($shortarg) . " " . Dumper($shortarg); "[Freezemon] $name found something that's not a REF $fn " . ref($shortarg) . " " ; #. Dumper($shortarg);
( undef, $shortarg ) = split( /:|;/, $shortarg, 2 ); ( undef, $shortarg ) = split( /:|;/, $shortarg, 2 );
} }
@ -1078,14 +1080,14 @@ sub freezemon_getDevice($$) {
else { else {
Log3 $name, 5, Log3 $name, 5,
"[Freezemon] $name found something that's a REF but not a HASH $fn " "[Freezemon] $name found something that's a REF but not a HASH $fn "
. ref($shortarg) . " " . ref($shortarg); # . " "
. Dumper($shortarg); # . Dumper($shortarg);
$shortarg = "N/A"; $shortarg = "N/A";
} }
if ( !defined($shortarg) ) { if ( !defined($shortarg) ) {
Log3 $name, 5, "Freezemon: something went wrong $fn " . Dumper($arg); Log3 $name, 5, "Freezemon: something went wrong $fn "; # . Dumper($arg);
$shortarg = "N/A"; $shortarg = "N/A";
} }
else { else {