- From: Ville Skytta via cvs-syncmail <cvsmail@w3.org>
- Date: Sun, 19 Apr 2009 10:50:40 +0000
- To: www-validator-cvs@w3.org
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