perl/modules/W3C/LinkChecker/bin checklink,4.156,4.157

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

Modified Files:
	checklink 
Log Message:
Add status icons next to error messages shown if the initial URI can't be checked.

Index: checklink
===================================================================
RCS file: /sources/public/perl/modules/W3C/LinkChecker/bin/checklink,v
retrieving revision 4.156
retrieving revision 4.157
diff -u -d -r4.156 -r4.157
--- checklink	19 Apr 2009 10:35:43 -0000	4.156
+++ checklink	19 Apr 2009 10:50:38 -0000	4.157
@@ -1166,9 +1166,8 @@
         if ($Opts{HTML}) {
           &html_header($uri, 0, $cookie) if ($check_num == 1);
           &print_form($params, $cookie, $check_num) if $is_start;
-          print "<p>";
+          print "<p>", &status_icon($response->code());
         }
-        # TODO: style this message to make it stand out
         &hprintf("\nError: %d %s\n",
                  $response->code(), $response->message() || '(no message)');
         print "</p>\n" if $Opts{HTML};
@@ -1211,9 +1210,9 @@
       if ($Opts{HTML}) {
         &html_header($uri, 0, $cookie) if ($check_num == 1);
         &print_form($params, $cookie, $check_num) if $is_start;
-        print "<p>";
+        print "<p>", &status_icon(406);
+
       }
-      # TODO: style this message to make it stand out
       &hprintf("Can't check links: %s.\n", $failed_reason);
       print "</p>\n" if $Opts{HTML};
     }
@@ -1820,9 +1819,12 @@
 <body>", $DocType, $Head);
     &banner(': 401 Authorization Required');
     &print_form($params, $cookie, $check_num) if $is_start;
-    printf("<p>
-  You need \"%s\" access to <a href=\"%s\">%s</a> to perform link checking.<br />
-", &encode($realm), (&encode($response->request()->url())) x 2);
+    printf('<p>
+  %s
+  You need "%s" access to <a href="%s">%s</a> to perform link checking.<br />
+',
+           &status_icon(401),
+           &encode($realm), (&encode($response->request()->url())) x 2);
 
     if ($Opts{Trusted}) {
       printf <<EOF, &encode($Opts{Trusted});

Received on Sunday, 19 April 2009 10:50:49 UTC