FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-03-03 16:56:54 +00:00
Code Issues 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:
# 0.0.29 (20.12.2019): Removed remaining "Dumper" code
# Few minor fixes
# 0.0.28: Fixed minor bug in regex for statistics
# Added Commandref for getFreezes
# 0.0.27: Slightly improved device detection
@ -111,7 +113,7 @@ use B qw(svref_2object);
use Blocking;
use vars qw($FW_CSRF);
my $version = "0.0.28";
my $version = "0.0.29";
my @logqueue = ();
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;
my $ret = "<html>";
$ret .= "<table><tr><th>Device</th><th>Count</th><th>Time</th></tr>";
my $i;
my $i = 0;
foreach my $p (@positioned) {
last if $i > 20;
$i++;
@ -1070,7 +1072,7 @@ sub freezemon_getDevice($$) {
}
elsif ( ref($shortarg) eq "" ) {
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 );
}
@ -1078,14 +1080,14 @@ sub freezemon_getDevice($$) {
else {
Log3 $name, 5,
"[Freezemon] $name found something that's a REF but not a HASH $fn "
. ref($shortarg) . " "
. Dumper($shortarg);
. ref($shortarg); # . " "
# . Dumper($shortarg);
$shortarg = "N/A";
}
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";
}
else {