Register the "irspy_data" log-level.

[irspy-moved-to-github.git] / lib / ZOOM / IRSpy.pm

diff --git a/lib/ZOOM/IRSpy.pm b/lib/ZOOM/IRSpy.pm
index de2c561..93b5192 100644 (file)
--- a/lib/ZOOM/IRSpy.pm
+++ b/lib/ZOOM/IRSpy.pm
@@ -65,6 +65,7 @@ BEGIN {
     ZOOM::Log::mask_str("irspy_unhandled");
     ZOOM::Log::mask_str("irspy_test");
     ZOOM::Log::mask_str("irspy_task");
+    ZOOM::Log::mask_str("irspy_data");
 }
 
 sub new {
@@ -533,7 +534,9 @@ sub check {
                    $conn->option(current_test_address => $nextaddr);
                    my $tname = $node->name();
                    if ($this->should_skip_test($tname)) {
-                       warn "skipping test '$tname' due to rule";
+                       $conn->log("irspy_test",
+                           "skipping test '$nextaddr' = $tname due to rule");
+                       $nskipped += 1;
                        goto NEXT_TEST;
                    }
 
@@ -639,7 +642,7 @@ sub check {
                my $skipcount = 0;
                while (defined $node->next() &&
                       length($node->next()->address()) >= length($address)) {
-                   $conn->log("irspy_debug", "skipping from '",
+                   $conn->log("irspy_test", "skipping from '",
                               $node->address(), "' to '",
                               $node->next()->address(), "'");
                    $node = $node->next();