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_local;
die if !GetOptions(
"validate!",\$opt_validate,
+ "local!",\$opt_local,
);
my($first_pattern)=@ARGV;
}
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");