Compare commits

...

3 Commits

Author SHA1 Message Date
Kornel Benko
d5ade099cf Still some urls remaining, amend 82a0b093 2024-10-18 18:30:22 +02:00
Kornel Benko
36bde673db Cmake url tests: For each http url check (and mark) also the https
variant
2024-10-18 18:28:13 +02:00
Juergen Spitzmueller
1d6b70db64 de/Customization: include new sections on DocBook 2024-10-18 17:03:16 +02:00
9 changed files with 1868 additions and 25 deletions

View File

@ -3197,7 +3197,7 @@ status collapsed
\begin_layout Plain Layout
https://mirrors.ctan.org/fonts/tipa
https://www.ctan.org/tex-archive/fonts/tipa
\end_layout
\end_inset

View File

@ -143,6 +143,12 @@ for my $u (@urls) {
next if ($checkSelectedOnly && !defined($selectedURLS{$u}));
$URLScount++;
push(@testvals, {u => $u, use_curl => $use_curl,});
if ($u =~ s/^http:/https:/) {
if (!defined($selectedURLS{$u})) { # check also the corresponging 'https:' url
push(@testvals, {u => $u, use_curl => $use_curl, extra => 1,});
$URLScount++;
}
}
}
# Ready to go multitasking
@ -198,6 +204,7 @@ for (my $i = 0; $i < $NR_JOBS; $i++) { # Number of subprocesses
next if (!defined($rentry));
my $u = $rentry->{u};
my $use_curl = $rentry->{use_curl};
my $extra = defined($rentry->{extra});
print $fe "Checking($entryidx-$subprocess) '$u': ";
my ($res, $prnt, $outSum);
@ -220,7 +227,13 @@ for (my $i = 0; $i < $NR_JOBS; $i++) { # Number of subprocesses
};
printx("$prnt", $outSum, $fe, $fs);
my $printSourceFiles = 0;
my $err_txt = "Error url:";
my $err_txt;
if ($extra) {
$err_txt = "Extra_Error url:";
}
else {
$err_txt = "Error url:";
}
if ($res || $checkSelectedOnly) {
$printSourceFiles = 1;
@ -233,7 +246,14 @@ for (my $i = 0; $i < $NR_JOBS; $i++) { # Number of subprocesses
printx("$err_txt \"$u\"\n", $outSum, $fe, $fs);
}
else {
printx("OK url: \"$u\"\n", $outSum, $fe, $fs);
my $succes;
if ($extra) {
$succes = "Extra_OK url:";
}
else {
$succes = "OK url:";
}
printx("$succes \"$u\"\n", $outSum, $fe, $fs);
$printSourceFiles = 1;
}
if ($printSourceFiles) {
@ -278,8 +298,7 @@ do {
&readsublog($wait{$p});
$wait{$p} = -1;
}
}
until ($p < 0);
} until ($p < 0);
print "Started to protocol remaining subprocess-logs\n";
for my $p (keys %wait) {
@ -368,6 +387,7 @@ sub parse_file($) {
while (my $l = <FI>) {
$line++;
chomp($l);
# $l =~ s/[\r\n]+$//; # Simulate chomp
if ($status eq "out") {

File diff suppressed because it is too large Load Diff

View File

@ -33253,7 +33253,7 @@ status collapsed
\begin_layout Plain Layout
http://literateprogramming.com/lpfaq.pdf
http://www.literateprogramming.com/lpfaq.pdf
\end_layout
\end_inset

View File

@ -3378,7 +3378,7 @@ status collapsed
\begin_layout Plain Layout
https://mirrors.ctan.org/fonts/tipa
https://www.ctan.org/tex-archive/fonts/tipa
\end_layout
\end_inset

View File

@ -3400,7 +3400,7 @@ status collapsed
\begin_layout Plain Layout
https://mirrors.ctan.org/fonts/tipa
https://www.ctan.org/tex-archive/fonts/tipa
\end_layout
\end_inset

View File

@ -2663,7 +2663,7 @@ status collapsed
\begin_layout Plain Layout
https://mirrors.ctan.org/fonts/tipa
https://www.ctan.org/tex-archive/fonts/tipa
\end_layout
\end_inset

View File

@ -3430,7 +3430,7 @@ status collapsed
\begin_layout Plain Layout
https://mirrors.ctan.org/fonts/tipa
https://www.ctan.org/tex-archive/fonts/tipa
\end_layout
\end_inset

View File

@ -1670,7 +1670,7 @@ status collapsed
\begin_layout Plain Layout
https://mirrors.ctan.org/fonts/tipa
https://www.ctan.org/tex-archive/fonts/tipa
\end_layout
\end_inset