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

This commit is contained in:
Kornel Benko 2024-10-08 11:36:25 +02:00
parent 46edbaca77
commit 4063951ded

View File

@ -228,6 +228,10 @@ for (my $i = 0; $i < $NR_JOBS; $i++) { # Number of subprocesses
if ($res || $checkSelectedOnly) { if ($res || $checkSelectedOnly) {
printx("$err_txt \"$u\"\n", $outSum, $fe, $fs); printx("$err_txt \"$u\"\n", $outSum, $fe, $fs);
} }
else {
printx("OK url: \"$u\"\n", $outSum, $fe, $fs);
$printSourceFiles = 1;
}
if ($printSourceFiles) { if ($printSourceFiles) {
if (defined($URLS{$u})) { if (defined($URLS{$u})) {
for my $f (sort keys %{$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; $wait[$i] = $pid;
} }
for (my $i = 0; $i < 10; $i++) { for (my $i = 0; $i < $NR_JOBS; $i++) {
my $p = $wait[$i]; my $p = $wait[$i];
if ($p > 0) { if ($p > 0) {
waitpid($p, 0); waitpid($p, 0);