X-Git-Url: http://jsfdemo.indexdata.com/?a=blobdiff_plain;f=lib%2FZOOM%2FIRSpy.pm;h=fe1984c9cac629e1fd52e118ebacd33188972b2f;hb=887ada2b0c58be15e4e0551fd0cee8672c9fbdb1;hp=de2c56163ba51af55b3a2013d6020bf264e0b0f1;hpb=a71cc3bc7959020502c5a2ba0fe907cd7afaab6c;p=irspy-moved-to-github.git diff --git a/lib/ZOOM/IRSpy.pm b/lib/ZOOM/IRSpy.pm index de2c561..fe1984c 100644 --- 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,9 +642,9 @@ 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->next()->address(), "' (", $node->next()->name(), ")"); $node = $node->next(); $skipcount++; }