- 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