FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-03-10 03:06:37 +00:00
Code Issues Releases Wiki Activity

98_freezemon.pm: Fixed warnings on startup

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@18200 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
KernSani 2019-01-09 22:45:18 +00:00
parent 9776c031d1
commit 20da14c3c0
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
fhem/FHEM/98_freezemon.pm
View File

@ -324,7 +324,7 @@ sub freezemon_ProcessTimer($) {
} }
# prioQueues are not unique, so we are using the old way... # prioQueues are not unique, so we are using the old way...
if ( $hash->{helper}{apptime} && $hash->{helper}{apptime} ne "" ) { if ( exists ($hash->{helper}{apptime}) && $hash->{helper}{apptime} ne "" ) {
my @olddev = split( " ", $hash->{helper}{apptime} ); my @olddev = split( " ", $hash->{helper}{apptime} );
my @newdev = split( " ", freezemon_apptime($hash) ); my @newdev = split( " ", freezemon_apptime($hash) );
@ -590,7 +590,7 @@ sub freezemon_Get($@) {
my $state = $hash->{STATE}; my $state = $hash->{STATE};
my $ret = ""; my $ret = "";
my $usage = 'Unknown argument $a[1], choose one of freeze:noArg log:'; my $usage = 'Unknown argument $a[1], choose one of freeze:noArg log:';
return "\"get $name\" needs at least one argument" unless ( defined( $a[1] ) ); return "\"get $name\" needs at least one argument" unless ( defined( $a[1] ) );
Log3 $name,5, "$name GET Coming with command $a[1]"; Log3 $name,5, "$name GET Coming with command $a[1]";
#get the logfiles #get the logfiles
@ -710,6 +710,9 @@ sub freezemon_Attr($) {
if ( $aVal ne 0 ) { if ( $aVal ne 0 ) {
freezemon_install_callFn_wrapper($hash); freezemon_install_callFn_wrapper($hash);
$fmFnLog = $aVal; $fmFnLog = $aVal;
$fmName = $name;
$fmFnLog = AttrVal( $name, "fm_CatchFnCalls", 0 );
} }
elsif ( defined ($hash->{helper}{mycallFn} ) ) { elsif ( defined ($hash->{helper}{mycallFn} ) ) {
Log3( "", 0, "[Freezemon] $name: Unwrapping CallFn" ); Log3( "", 0, "[Freezemon] $name: Unwrapping CallFn" );
@ -726,7 +729,9 @@ sub freezemon_Attr($) {
if ( $aVal ne 0 ) { if ( $aVal ne 0 ) {
freezemon_install_analyzeCommand_wrapper($hash); freezemon_install_analyzeCommand_wrapper($hash);
$fmCmdLog = $aVal; $fmCmdLog = $aVal;
} $fmName = $name;
$fmCmdLog = AttrVal( $name, "fm_CatchCmds", 0 );
}
elsif ( defined ( $hash->{helper}{analyzeCommand} ) ) { elsif ( defined ( $hash->{helper}{analyzeCommand} ) ) {
Log3( "", 0, "[Freezemon] $name: Unwrapping analyzeCommand" ); Log3( "", 0, "[Freezemon] $name: Unwrapping analyzeCommand" );
{ {