- From: Bjoern Hoehrmann via cvs-syncmail <cvsmail@w3.org>
- Date: Wed, 17 Aug 2005 00:43:18 +0000
- To: www-validator-cvs@w3.org
Update of /sources/public/validator/httpd/cgi-bin
In directory hutz:/tmp/cvs-serv30803
Modified Files:
check
Log Message:
some archaeologists found ancient remains in our code. They are moved into a museum.
Index: check
===================================================================
RCS file: /sources/public/validator/httpd/cgi-bin/check,v
retrieving revision 1.439
retrieving revision 1.440
diff -u -d -r1.439 -r1.440
--- check 17 Aug 2005 00:25:01 -0000 1.439
+++ check 17 Aug 2005 00:43:16 -0000 1.440
@@ -1822,15 +1822,6 @@
foreach my $err (@{$File->{Errors}}) {
chomp $err->{msg};
- # Find index into the %frag hash for the "explanation..." links.
- $err->{idx} = $err->{msg};
- $err->{idx} =~ s/"[^\"]*"/FOO/g;
- $err->{idx} =~ s/[^A-Za-z ]//g;
- $err->{idx} =~ s/\s+/ /g; # Collapse spaces
- $err->{idx} =~ s/(^\s|\s$)//g; # Remove leading and trailing spaces.
- $err->{idx} =~ s/(FOO )+/FOO /g; # Collapse FOOs.
- $err->{idx} =~ s/FOO FOO/FOO/g; # Collapse FOOs.
-
my $offset = $File->{Offsets}->[$err->{line} - 1]->[1] + $err->{char};
printf <<".EOF.", &ent($err->{msg});
<msg line="$err->{line}" col="$err->{char}" offset="$offset">%s</msg>
@@ -1887,15 +1878,6 @@
++$errnum ;
chomp $err->{msg};
- # Find index into the %frag hash for the "explanation..." links.
- $err->{idx} = $err->{msg};
- $err->{idx} =~ s/"[^\"]*"/FOO/g;
- $err->{idx} =~ s/[^A-Za-z ]//g;
- $err->{idx} =~ s/\s+/ /g; # Collapse spaces
- $err->{idx} =~ s/(^\s|\s\Z)//g; # Remove leading and trailing spaces.
- $err->{idx} =~ s/(FOO )+/FOO /g; # Collapse FOOs.
- $err->{idx} =~ s/FOO FOO/FOO/g; # Collapse FOOs.
-
my @offsets = (
$File->{Offsets}->[$err->{line} ]->[0],
$File->{Offsets}->[$err->{line} - 1]->[1],
@@ -1968,15 +1950,6 @@
my $err = $File->{Errors}->[$i];
chomp $err->{msg};
- # Find index into the %frag hash for the "explanation..." links.
- $err->{idx} = $err->{msg};
- $err->{idx} =~ s/"[^\"]*"/FOO/g;
- $err->{idx} =~ s/[^A-Za-z ]//g;
- $err->{idx} =~ s/\s+/ /g; # Collapse spaces
- $err->{idx} =~ s/(^\s|\s\Z)//g; # Remove leading and trailing spaces.
- $err->{idx} =~ s/(FOO )+/FOO /g; # Collapse FOOs.
- $err->{idx} =~ s/FOO FOO/FOO/g; # Collapse FOOs.
-
my @offsets = (
$File->{Offsets}->[$err->{line} ]->[0],
$File->{Offsets}->[$err->{line} - 1]->[1],
Received on Wednesday, 17 August 2005 00:43:25 UTC