- From: Mercurial notifier <nobody@w3.org>
- Date: Tue, 23 Jun 2015 10:58:37 +0000
- To: link-checker updates <www-validator-cvs@w3.org>
changeset: 421:deea00eaeb6d
parent: 419:e3679807fdb8
user: Ted Guild <ted@w3.org>
date: Tue Jun 23 06:56:49 2015 -0400
files: bin/checklink
description:
extra paste
diff -r e3679807fdb8 -r deea00eaeb6d bin/checklink
--- a/bin/checklink Mon Jun 22 12:36:43 2015 -0400
+++ b/bin/checklink Tue Jun 23 06:56:49 2015 -0400
@@ -199,19 +199,7 @@
my $port = undef;
$port = $uri->port();
#whitelist regex if short enough
-# if (! $port =~ m/^(80|443|8000|8080)$/ ) {
- if ( $port =~ '22' ) {
- $resp = HTTP::Response->new(403,
- 'Checking certain ports disallowed by link checker configuration'
- );
- $resp->header('Client-Warning', 'Internal response');
- }
-
-# #defaults to 80
- my $port = undef;
- $port = $uri->port();
- #whitelist regex if short enough
- if ($port !~ m/^(80|443|8000|8080|8081|115|21)$/ ) {
+ if ($port !~ m/^(8[0-9]|21|443)$/ && $port < 1024) {
$resp = HTTP::Response->new(403,
'Checking certain ports disallowed by link checker configuration'
);
Received on Tuesday, 23 June 2015 10:58:40 UTC