Amend 341410a5: Change log-output to better parse urls

diff --git a/development/checkurls/search_url.pl b/development/checkurls/search_url.pl
index 5bd4c35215b5b7fe9e6ffdb493327c465352e5b2..8bf9789c78507842b520d5bfad892975358a4d4d 100755 (executable)
--- a/development/checkurls/search_url.pl
+++ b/development/checkurls/search_url.pl
@@ -228,6 +228,10 @@ for (my $i = 0; $i < $NR_JOBS; $i++) {    # Number of subprocesses
         if ($res || $checkSelectedOnly) {
           printx("$err_txt \"$u\"\n", $outSum, $fe, $fs);
         }
+        else {
+          printx("OK url: \"$u\"\n", $outSum, $fe, $fs);
+          $printSourceFiles = 1;
+        }
         if ($printSourceFiles) {
           if (defined($URLS{$u})) {
             for my $f (sort keys %{$URLS{$u}}) {
@@ -245,7 +249,7 @@ for (my $i = 0; $i < $NR_JOBS; $i++) {    # Number of subprocesses
   $wait[$i] = $pid;
 }
 
-for (my $i = 0; $i < 10; $i++) {
+for (my $i = 0; $i < $NR_JOBS; $i++) {
   my $p = $wait[$i];
   if ($p > 0) {
     waitpid($p, 0);