- From: Ville Skytta via cvs-syncmail <cvsmail@w3.org>
- Date: Sun, 10 Feb 2008 11:57:23 +0000
- To: www-validator-cvs@w3.org
Update of /sources/public/perl/modules/W3C/LinkChecker/bin In directory hutz:/tmp/cvs-serv15821 Modified Files: checklink Log Message: Trim whitespace, NFC. Index: checklink =================================================================== RCS file: /sources/public/perl/modules/W3C/LinkChecker/bin/checklink,v retrieving revision 4.81 retrieving revision 4.82 diff -u -d -r4.81 -r4.82 --- checklink 9 Feb 2008 14:49:13 -0000 4.81 +++ checklink 10 Feb 2008 11:57:21 -0000 4.82 @@ -770,7 +770,7 @@ if ($Opts{HTML}) { &html_header($uri, 0, $cookie) if $is_first; &print_form($query) if $is_start; - + print('<h2>'); } @@ -854,10 +854,10 @@ &encode(sprintf($Cfg{Markup_Validator_URI}, $esc_uri)), &encode(sprintf($Cfg{CSS_Validator_URI}, $esc_uri)), &encode($Opts{_Self_URI})); - + printf ('<h3 class="status_progress" id="status_progress%s">Status: <span></span></h3>', $result_anchor); print("<pre class=\"progress\">\n"); - + } } @@ -941,7 +941,7 @@ print ' ' if ($Opts{HTML} && !$Opts{Command_Line}); } else { printf('<script type="text/javascript">show_progress("Checking link %s", "status_progress%s");</script>' , $u, $result_anchor) - if ($Opts{HTML} && !$Opts{Summary_Only}); + if ($Opts{HTML} && !$Opts{Summary_Only}); &hprintf("Checking link %s\n", $u); } @@ -983,7 +983,7 @@ } } printf('<script type="text/javascript">show_progress("Done. Document processed in %ss.\n", "status_progress%s");</script>' , &time_diff($start, &get_timestamp()), $result_anchor) - if ($Opts{HTML} && !$Opts{Summary_Only}); + if ($Opts{HTML} && !$Opts{Summary_Only}); &hprintf("Processed in %ss.\n", &time_diff($start, &get_timestamp())) unless $Opts{Summary_Only}; @@ -2239,9 +2239,8 @@ sub banner ($) { - my $tagline ="Check links and anchors in Web pages or full Web sites"; - + printf(<<'EOF', $tagline); <div id="banner"><h1 id="title"><a href="http://www.w3.org/" title="W3C"><img alt="W3C" id="logo" src="http://validator.w3.org/images/w3c.png" /></a> <a href="checklink"><span>Link Checker</span></a></h1> @@ -2272,8 +2271,9 @@ $icon_type = 'error'; } return('<span class="err_type"><img src="http://validator.w3.org/images/info_icons/'.$icon_type.'.png" alt="'.$icon_type.'" /></span>'); - + } + sub bgcolor ($) { my ($code) = @_; @@ -2368,7 +2368,7 @@ my $chk = ' checked="checked"'; $q->param('hide_type', 'all') unless $q->param('hide_type'); - my $requested_uri = &encode($q->param('uri') || ''); + 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 : '';
Received on Sunday, 10 February 2008 11:57:32 UTC