sync

[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;
 
 
-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(...);