W3C home > Mailing lists > Public > www-validator-cvs@w3.org > June 2015

link-checker commit: extra paste

From: Mercurial notifier <nobody@w3.org>
Date: Tue, 23 Jun 2015 10:58:37 +0000
To: link-checker updates <www-validator-cvs@w3.org>
Message-Id: <E1Z7LuX-0001cd-0T@mcbain.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

This archive was generated by hypermail 2.3.1 : Tuesday, 23 June 2015 10:58:40 UTC