perl/modules/W3C/LinkChecker/bin checklink,4.129,4.130

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

Modified Files:
	checklink 
Log Message:
simplify, lighten, give air, do not yell at the user. Removed feature: sequence of status messages (status code squence kept)

Index: checklink
===================================================================
RCS file: /sources/public/perl/modules/W3C/LinkChecker/bin/checklink,v
retrieving revision 4.129
retrieving revision 4.130
diff -u -d -r4.129 -r4.130
--- checklink	6 Jan 2009 21:01:39 -0000	4.129
+++ checklink	6 Jan 2009 22:09:22 -0000	4.130
@@ -1929,7 +1929,7 @@
   print('List of duplicate and empty anchors');
   print <<EOF if $Opts{HTML};
 </p>
-<table border="1" summary="List of duplicate and empty anchors.">
+<table class="report" border="1" summary="List of duplicate and empty anchors.">
 <thead>
 <tr>
 <th>Anchor</th>
@@ -2059,40 +2059,38 @@
       my $redirmsg =
         $redirect_loop ? ' <em>redirect loop detected</em>' : '';
       printf("
-<dt%s>%s%s</dt>
-<dd>What does this mean? How to Fix? : <em>%s</em>%s<br /></dd>
-<dd>Response status code: %s<br />
-Response message: %s%s%s</dd>
-<dd>Line%s: %s</dd>\n",
+<dt%s>%s <span class='msg_loc'>Line%s: %s</span> %s</dt>
+<dd class='responsecode'><strong>Status</strong>: %s %s %s</dd>
+<dd class='message_explanation'><p>%s %s</p></dd>\n",
              # Anchor for return codes
              $idref,
              # Color
              &status_icon($c),
+             $s,
+             # List of lines
+             $lines_list,
              # List of redirects
-             $redirected ?
-             join(' redirected to ', @redirects_urls) . $redirmsg :
-             &show_url($u),
-             # What to do
-             $whattodo,
-             # Redirect too?
-             $redirect_too ?
-             sprintf(' <span %s>%s</span>', &bgcolor(301), $redirect_too) : '',
-             # Response code chain
-             join(' <span title="redirected to">-&gt;</span> ',
-                  map { &encode($_) } @http_codes),
+             $redirected ? join(' redirected to ', @redirects_urls) . $redirmsg : &show_url($u),
              # Realm
              defined($currloc->{realm})
              ? sprintf('Realm: %s<br />', &encode($currloc->{realm})) : '',
              # HTTP original message
-             defined($currloc->{orig_message})
-             ? &encode($currloc->{orig_message}).
-             ' <span title="redirected to">-&gt;</span> '
-             : '',
+             # defined($currloc->{orig_message})
+             # ? &encode($currloc->{orig_message}).
+             # ' <span title="redirected to">-&gt;</span> '
+             # : '',
+
+             # Response code chain
+             join(' <span class="redirected_to" title="redirected to">-&gt;</span> ',
+                  map { &encode($_) } @http_codes),             
              # HTTP final message
-             $http_message,
-             $s,
-             # List of lines
-             $lines_list);
+             $http_message, 
+             # What to do
+             $whattodo,
+             # Redirect too?
+             $redirect_too ?
+             sprintf(' <span %s>%s</span>', &bgcolor(301), $redirect_too) : '',
+             );
       if ($#fragments >= 0) {
         printf("<dd>Broken fragments: <ul>\n");
       }
@@ -2257,7 +2255,7 @@
 </h3>
 <p><em>There are issues with the URLs listed below. The table summarizes the
 issues and suggested actions by HTTP response status code.</em></p>
-<table border="1" summary="List of issues and suggested actions.">
+<table class="report" border="1" summary="List of issues and suggested actions.">
 <thead>
 <tr>
 <th>Code</th>

Received on Tuesday, 6 January 2009 22:09:34 UTC