X-Git-Url: http://git.jankratochvil.net/?p=www.jankratochvil.net.git;a=blobdiff_plain;f=html-test.pl;h=4f86344884949125f183dc185f7f7b27d85d8279;hp=043ad5d86477db4f342bf9aa1c83d1d653acc35a;hb=1355c7672008fdf2b13ec8131799c884daa9b53f;hpb=0c001b00860c2a42cfdff4067e9955705ec290f5

diff --git a/html-test.pl b/html-test.pl
index 043ad5d..4f86344 100755
--- a/html-test.pl
+++ b/html-test.pl
@@ -15,7 +15,8 @@ use Sys::Hostname::Long;
 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=";
 
@@ -61,6 +62,7 @@ for (0,($opt_validate ? 1 : ())) {
 			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(...);