diff --git a/scripts/zmx10.pl.z b/scripts/zmx10.pl.z index 98ad74c25..0021a4162 100755 --- a/scripts/zmx10.pl.z +++ b/scripts/zmx10.pl.z @@ -303,12 +303,12 @@ sub runServer my $task_list; if ( $state == 1 && $monitor->{LastState} == 0 ) # Gone into alarm state { - print( "Applying ON_list\n" ) if ( VERBOSE ); + print( "Applying ON_list\n" ) if ( main::VERBOSE ); $task_list = $monitor->{"ON_list"}; } elsif ( $state == 0 && $monitor->{LastState} > 0 ) # Come out of alarm state { - print( "Applying OFF_list\n" ) if ( VERBOSE ); + print( "Applying OFF_list\n" ) if ( main::VERBOSE ); $task_list = $monitor->{"OFF_list"}; } if ( $task_list ) @@ -356,7 +356,7 @@ sub addToDeviceList my $function = shift; my $limit = shift; - print( "Adding to device list, uc:$unit_code, ev:$event, mo:$monitor, fu:$function, li:$limit\n" ) if ( VERBOSE ); + print( "Adding to device list, uc:$unit_code, ev:$event, mo:$monitor, fu:$function, li:$limit\n" ) if ( main::VERBOSE ); my $device = $device_hash{$unit_code}; if ( !$device ) { @@ -385,7 +385,7 @@ sub addToMonitorList my $function = shift; my $limit = shift; - print( "Adding to monitor list, uc:$unit_code, ev:$event, mo:$monitor, fu:$function, li:$limit\n" ) if ( VERBOSE ); + print( "Adding to monitor list, uc:$unit_code, ev:$event, mo:$monitor, fu:$function, li:$limit\n" ) if ( main::VERBOSE ); my $device = $device_hash{$unit_code}; if ( !$device ) { @@ -410,7 +410,7 @@ sub loadTasks { %monitor_hash = (); - print( "Loading tasks\n" ) if ( VERBOSE ); + print( "Loading tasks\n" ) if ( main::VERBOSE ); # Clear out all old device task lists foreach my $unit_code ( sort( keys(%device_hash) ) ) { @@ -438,7 +438,7 @@ sub loadTasks if ( $monitor->{Function} eq 'X10' && $monitor->{X10Activation} ) { - print( "$monitor->{Name} has active string '$monitor->{X10Activation}'\n" ) if ( VERBOSE ); + print( "$monitor->{Name} has active string '$monitor->{X10Activation}'\n" ) if ( main::VERBOSE ); foreach my $code_string ( split( ',', $monitor->{X10Activation} ) ) { #print( "Code string: $code_string\n" ); @@ -459,7 +459,7 @@ sub loadTasks } if ( $monitor->{X10AlarmInput} ) { - print( "$monitor->{Name} has alarm input string '$monitor->{X10AlarmInput}'\n" ) if ( VERBOSE ); + print( "$monitor->{Name} has alarm input string '$monitor->{X10AlarmInput}'\n" ) if ( main::VERBOSE ); foreach my $code_string ( split( ',', $monitor->{X10AlarmInput} ) ) { #print( "Code string: $code_string\n" ); @@ -480,7 +480,7 @@ sub loadTasks } if ( $monitor->{X10AlarmOutput} ) { - print( "$monitor->{Name} has alarm output string '$monitor->{X10AlarmOutput}'\n" ) if ( VERBOSE ); + print( "$monitor->{Name} has alarm output string '$monitor->{X10AlarmOutput}'\n" ) if ( main::VERBOSE ); foreach my $code_string ( split( ',', $monitor->{X10AlarmOutput} ) ) { #print( "Code string: $code_string\n" );