W3C home > Mailing lists > Public > www-validator-cvs@w3.org > September 2007

perl/modules/W3C/LinkChecker/bin checklink,4.70,4.71

From: Olivier Thereaux via cvs-syncmail <cvsmail@w3.org>
Date: Tue, 18 Sep 2007 06:06:34 +0000
To: www-validator-cvs@w3.org
Message-Id: <E1IXWEE-0005fS-Kn@lionel-hutz.w3.org>

Update of /sources/public/perl/modules/W3C/LinkChecker/bin
In directory hutz:/tmp/cvs-serv21743

Modified Files:
	checklink 
Log Message:
putting redirects together, separated from error list

Index: checklink
===================================================================
RCS file: /sources/public/perl/modules/W3C/LinkChecker/bin/checklink,v
retrieving revision 4.70
retrieving revision 4.71
diff -u -d -r4.70 -r4.71
--- checklink	15 Sep 2007 07:47:40 -0000	4.70
+++ checklink	18 Sep 2007 06:06:32 -0000	4.71
@@ -1807,14 +1807,17 @@
       } else {
         $whattodo = $todo->{$c};
       }
-      # @@@ 303 and 307 ???
-      if (defined($redirects{$u}) && ($c != 301) && ($c != 302)) {
-        $redirect_too = 'The original request has been redirected.';
-        $whattodo .= ' '.$redirect_too unless $Opts{HTML};
+    } elsif (defined($redirects{$u})) {
+      # Redirects
+      if (($u.'/') eq $redirects{$u}) {
+        $whattodo = 'The link is missing a trailing slash, and caused a redirect. Adding the trailing slash would speed up browsing.';
+      }
+      elsif  (($c eq 307) || ($c eq 302)) {
+        $whattodo = 'This is a temporary redirect. Update the link if you believe it makes sense, or leave it as is.';
+      }
+      elsif ($c eq 301) {
+        $whattodo = 'This is a permanent redirect. The link should be updated.';
       }
-    } else {
-      # Directory redirects
-      $whattodo = 'Add a trailing slash to the URL.';
     }
 
     my @unique = &sort_unique(map { line_number($_) } @total_lines);
@@ -1858,7 +1861,7 @@
              $idref,
              # List of redirects
              $redirected ?
-             join(' redirected to<br>', @redirects_urls) . $redirmsg :
+             join(' redirected to ', @redirects_urls) . $redirmsg :
              &show_url($u),
              # Color
              &bgcolor($c),
@@ -1959,10 +1962,10 @@
 
   my %todo = ( 200 => 'There are broken fragments which must be fixed.',
                300 => 'It usually means that there is a typo in a link that triggers mod_speling action - this must be fixed!',
-               301 => 'You should update the link.',
-               302 => 'Usually nothing.',
+               301 => 'This is a permanent redirect. The link should be updated.',
+               302 => 'This is a temporary redirect. Update the link if you believe it makes sense, or leave it as is.',
                303 => 'Usually nothing.',
-               307 => 'Usually nothing.',
+               307 => 'This is a temporary redirect. Update the link if you believe it makes sense, or leave it as is.',
                400 => 'Usually the sign of a malformed URL that cannot be parsed by the server.',
                401 => "The link is not public. You'd better specify it.",
                403 => 'The link is forbidden! This needs fixing. Usual suspects: a missing index.html or Overview.html, or a missing ACL.',
@@ -2002,8 +2005,7 @@
       # Check whether we have a "directory redirect"
       # e.g. http://www.w3.org/TR -> http://www.w3.org/TR/
       my ($redirect_loop, @redirects) = get_redirects($l, %$redirects);
-      if (($#redirects == 1)
-          && (($redirects[0].'/') eq $redirects[1])) {
+      if ($#redirects == 1) {
         push(@dir_redirect_urls, $l);
         next;
       }
@@ -2086,8 +2088,8 @@
   # Show directory redirects
   if ($Opts{Dir_Redirects} && ($#dir_redirect_urls > -1)) {
     print('<h3>') if $Opts{HTML};
-    print("\nList of directory redirects");
-    print("</h3>\n<p>The links below are not broken, but the document does not use the exact URL.</p>") if $Opts{HTML};
+    print("\nList of redirects");
+    print("</h3>\n<p>The links below are not broken, but the document does not use the exact URL, and the links were redirected. It may be a good idea to link to the final location, for the sake of speed.</p>") if $Opts{HTML};
     &show_link_report($links, $results, $broken, $redirects,
                       \@dir_redirect_urls);
   }
Received on Tuesday, 18 September 2007 06:36:35 GMT

This archive was generated by hypermail 2.2.0+W3C-0.50 : Thursday, 26 April 2012 12:54:59 GMT