git://git.jankratochvil.net
/
www.jankratochvil.net.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
resume/ResumeJanKratochvil.tex+pdf: RHCE: Update the number format.
[www.jankratochvil.net.git]
/
html-test.pl
diff --git
a/html-test.pl
b/html-test.pl
index
043ad5d
..
4f86344
100755
(executable)
--- a/
html-test.pl
+++ b/
html-test.pl
@@
-15,7
+15,8
@@
use Sys::Hostname::Long;
use URI::Escape;
use URI::Escape;
-my $URL_BASE="http://".hostname_long().":7680";
+#my $URL_BASE="http://".hostname_long().":7680";
+my $URL_BASE="http://www.jankratochvil.net";
my $URL_VALIDATOR_BASE="http://validator.w3.org/check?uri=";
my $URL_VALIDATOR_BASE_LOCAL="http://localhost/cgi-bin/check.cgi?uri=";
my $URL_VALIDATOR_BASE="http://validator.w3.org/check?uri=";
my $URL_VALIDATOR_BASE_LOCAL="http://localhost/cgi-bin/check.cgi?uri=";
@@
-61,6
+62,7
@@
for (0,($opt_validate ? 1 : ())) {
if ($validate) {
$url=($opt_local ? $URL_VALIDATOR_BASE_LOCAL : $URL_VALIDATOR_BASE).uri_escape($url);
}
if ($validate) {
$url=($opt_local ? $URL_VALIDATOR_BASE_LOCAL : $URL_VALIDATOR_BASE).uri_escape($url);
}
+$url=~s{\Q/Index.pm\E$}{/};
my $request=HTTP::Request->new("GET",$url);
$request->header("Cache-control"=>"no-cache");
# Do not: ...->request(...);
my $request=HTTP::Request->new("GET",$url);
$request->header("Cache-control"=>"no-cache");
# Do not: ...->request(...);