- From: Olivier Thereaux <ot@hutz.w3.org>
- Date: Wed, 14 Apr 2004 05:46:15 +0000
- To: www-validator-cvs@w3.org
Update of /sources/public/perl/modules/W3C/LogValidator/lib/W3C/LogValidator In directory hutz:/tmp/cvs-serv19000/lib/W3C/LogValidator Modified Files: HTMLValidator.pm Log Message: adding rank when validating HTML documents Index: HTMLValidator.pm =================================================================== RCS file: /sources/public/perl/modules/W3C/LogValidator/lib/W3C/LogValidator/HTMLValidator.pm,v retrieving revision 1.5 retrieving revision 1.6 diff -u -d -r1.5 -r1.6 --- HTMLValidator.pm 5 Apr 2004 04:26:07 -0000 1.5 +++ HTMLValidator.pm 14 Apr 2004 05:46:12 -0000 1.6 @@ -141,6 +141,7 @@ my $intro="Here are the <census> most popular invalid document(s) that I could find in the logs for $name."; my $outro; + push @result_head, "Rank"; push @result_head, "Hits"; push @result_head, "#Error(s)"; push @result_head, "Address"; @@ -157,7 +158,7 @@ $self->new_doc(); my $uri_orig = $uri; $total_census++; - print " processing $uri..." if ($verbose > 1); + print " processing #$total_census $uri..." if ($verbose > 1); # escaping URI $uri = uri_escape($uri); # creating the HTTP query string with all parameters @@ -177,6 +178,7 @@ # if (1) # debug { my @result_tmp; + push @result_tmp, $total_census; push @result_tmp, $hits{$uri_orig}; push @result_tmp, $self->valid_err_num; push @result_tmp, $uri_orig;
Received on Wednesday, 14 April 2004 01:46:42 UTC