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
Start using sanitized &My::Web::escapeHTML instead of: &CGI::escapeHTML
[www.jankratochvil.net.git]
/
html-test.pl
diff --git
a/html-test.pl
b/html-test.pl
index
aa09b81
..
e5a4c4d
100755
(executable)
--- a/
html-test.pl
+++ b/
html-test.pl
@@
-17,11
+17,14
@@
use URI::Escape;
my $URL_BASE="http://".hostname_long().":7680";
my $URL_VALIDATOR_BASE="http://validator.w3.org/check?uri=";
my $URL_BASE="http://".hostname_long().":7680";
my $URL_VALIDATOR_BASE="http://validator.w3.org/check?uri=";
+my $URL_VALIDATOR_BASE_LOCAL="http://localhost/cgi-bin/check.cgi?uri=";
my $opt_validate;
my $opt_validate;
+my $opt_local;
die if !GetOptions(
"validate!",\$opt_validate,
die if !GetOptions(
"validate!",\$opt_validate,
+ "local!",\$opt_local,
);
my($first_pattern)=@ARGV;
);
my($first_pattern)=@ARGV;
@@
-50,7
+53,7
@@
My::ModPerlPm->list("sub"=>sub {
}
print ".";
if ($opt_validate) {
}
print ".";
if ($opt_validate) {
- $url=
$URL_VALIDATOR_BASE
.uri_escape($url);
+ $url=
($opt_local ? $URL_VALIDATOR_BASE_LOCAL : $URL_VALIDATOR_BASE)
.uri_escape($url);
}
my $request=HTTP::Request->new("GET",$url);
$request->header("Cache-control"=>"no-cache");
}
my $request=HTTP::Request->new("GET",$url);
$request->header("Cache-control"=>"no-cache");