- From: Mercurial notifier <nobody@w3.org>
- Date: Thu, 05 Aug 2010 14:47:09 +0000
- To: link-checker updates <www-validator-cvs@w3.org>
changeset: 188:b6065855b59e user: ot date: Fri Sep 14 05:14:29 2007 +0000 files: bin/checklink description: * pre-filling form with the URI being checked * only output footer intro blurb on home page, not results * giving class to "progress" <pre> for styling diff -r 2b9a1795ff62 -r b6065855b59e bin/checklink --- a/bin/checklink Thu Sep 13 16:38:23 2007 +0000 +++ b/bin/checklink Fri Sep 14 05:14:29 2007 +0000 @@ -5,7 +5,7 @@ # (c) 1999-2007 World Wide Web Consortium # based on Renaud Bruyeron's checklink.pl # -# $Id: checklink,v 4.68 2007-09-13 16:38:22 ville Exp $ +# $Id: checklink,v 4.69 2007-09-14 05:14:29 ot Exp $ # # This program is licensed under the W3C(r) Software License: # http://www.w3.org/Consortium/Legal/copyright-software @@ -204,7 +204,7 @@ $PROGRAM = 'W3C-checklink'; $VERSION = '4.3'; $REVISION = sprintf('version %s (c) 1999-2007 W3C', $VERSION); - my ($cvsver) = q$Revision: 4.68 $ =~ /(\d+[\d\.]*\.\d+)/; + my ($cvsver) = q$Revision: 4.69 $ =~ /(\d+[\d\.]*\.\d+)/; $AGENT = sprintf('%s/%s [%s] %s', $PROGRAM, $VERSION, $cvsver, LWP::RobotUA->_agent()); @@ -375,7 +375,7 @@ @{$Opts{Base_Locations}} = @bases; # Transform the parameter into a URI $uri = &urize($uri); - &check_uri($uri, $is_first, $Opts{Depth}, undef, undef, 1); + &check_uri(undef, $uri, $is_first, $Opts{Depth}, undef, undef, 1); $is_first &&= 0; } undef $is_first; @@ -464,7 +464,6 @@ $cookie = $query->cookie(%cookie); } - undef $query; # Not needed any more. # All Apache configurations don't set HTTP_AUTHORIZATION for CGI scripts. # If we're under mod_perl, there is a way around it... @@ -487,7 +486,8 @@ } } - &check_uri($uri, 1, $Opts{Depth}, $cookie); + &check_uri($query, $uri, 1, $Opts{Depth}, $cookie); + undef $query; # Not needed any more. &html_footer(); } @@ -713,13 +713,15 @@ # Check for broken links in a resource # ######################################## -sub check_uri ($$$;$$$) +sub check_uri ($$$$;$$$) { - my ($uri, $is_first, $depth, $cookie, $referer, $is_start) = @_; + my ($query, $uri, $is_first, $depth, $cookie, $referer, $is_start) = @_; $is_start ||= $is_first; if ($Opts{HTML}) { &html_header($uri, 0, $cookie) if $is_first; + &print_form($query) if $is_start; + print('<h2>'); } @@ -803,7 +805,7 @@ &encode(sprintf($Cfg{Markup_Validator_URI}, $esc_uri)), &encode(sprintf($Cfg{CSS_Validator_URI}, $esc_uri)), &encode($Opts{_Self_URI})); - print("<pre>\n"); + print("<pre id=\"progress\">\n"); } } @@ -971,9 +973,9 @@ } } if ($depth < 0) { - &check_uri($u, 0, -1, undef, $uri); + &check_uri($query, $u, 0, -1, undef, $uri); } else { - &check_uri($u, 0, $depth-1, undef, $uri); + &check_uri($query, $u, 0, $depth-1, undef, $uri); } } } @@ -2218,11 +2220,15 @@ sub html_footer () { printf("<p>%s</p>\n", &global_stats()) if ($doc_count > 0 && !$Opts{Quiet}); - printf(<<'EOF', $Cfg{Doc_URI}, $Cfg{Doc_URI}, $PACKAGE, $REVISION); + if (! $doc_count) { + printf(<<'EOF', $Cfg{Doc_URI}, $Cfg{Doc_URI}); <div class="intro"> <p>This Link Checker looks for issues in links, anchors and referenced objects in a Web page, or recursively on a whole Web site. For best results, it is recommended to first ensure that the documents checked use <a href="http://validator.w3.org/">Valid (X)HTML Markup</a>. The Link Checker is part of the W3C's <a href="http://www.w3.org/QA/Tools/">validators and Quality Web tools</a>.</p> </div> +EOF +} +printf(<<'EOF', $PACKAGE, $REVISION); </div><!-- main --> <ul class="navbar" id="menu"> <li><a href="%s" accesskey="3" title="Documentation for this Link Checker Service">Docs</a></li> @@ -2269,6 +2275,7 @@ my $chk = ' checked="checked"'; $q->param('hide_type', 'all') unless $q->param('hide_type'); + my $requested_uri = &encode($q->param('uri') || ''); my $sum = $q->param('summary') ? $chk : ''; my $red = $q->param('hide_redirects') ? $chk : ''; my $all = ($q->param('hide_type') ne 'dir') ? $chk : ''; @@ -2292,7 +2299,7 @@ print "<form action=\"", $Opts{_Self_URI}, "\" method=\"get\" onsubmit=\"return uriOk()\"> <p><label for=\"uri\">Enter the address (<a href=\"http://www.w3.org/Addressing/\">URL</a>) of a document that you would like to check:</label></p> -<p><input type=\"text\" size=\"50\" id=\"uri\" name=\"uri\" value=\"\"></p> +<p><input type=\"text\" size=\"50\" id=\"uri\" name=\"uri\" value=\"",$requested_uri,"\"></p> <fieldset> <legend>Options</legend> <p>
Received on Thursday, 5 August 2010 14:47:21 UTC