- From: Ville Skytta via cvs-syncmail <cvsmail@w3.org>
- Date: Sat, 18 Feb 2006 20:05:31 +0000
- To: www-validator-cvs@w3.org
Update of /sources/public/validator/httpd/cgi-bin
In directory hutz:/tmp/cvs-serv22392/httpd/cgi-bin
Modified Files:
Tag: validator-0_7-branch
check
Log Message:
Trim trailing whitespace, NFC.
Index: check
===================================================================
RCS file: /sources/public/validator/httpd/cgi-bin/check,v
retrieving revision 1.432.2.8
retrieving revision 1.432.2.9
diff -u -d -r1.432.2.8 -r1.432.2.9
--- check 11 Feb 2006 12:25:09 -0000 1.432.2.8
+++ check 18 Feb 2006 20:05:28 -0000 1.432.2.9
@@ -595,7 +595,7 @@
$catalog = File::Spec->catfile($CFG->{Paths}->{SGML}->{Library}, 'xml.soc');
push(@spopt, '-wxml');
}
-
+
#
# Defaults for SP; turn off fixed charset mode and set encoding to UTF-8.
$ENV{SP_CHARSET_FIXED} = 'NO';
@@ -1292,7 +1292,7 @@
local $dtd = qq(<!DOCTYPE $name PUBLIC "$pubid");
$dtd .= qq( "$sysid") if $sysid; # We don't have one for all types.
$dtd .= '>';
-
+
local $org_dtd = '';
local $HTML = '';
local $seen = FALSE;
@@ -1369,7 +1369,7 @@
$err->{src} = $errors[1];
$err->{line} = $errors[2];
$err->{char} = $errors[3];
-
+
# Workaround for onsgmls 1.5 sometimes reporting errors beyond EOL.
if ((my $l = length($File->{Content}->[$err->{line}-1])) < $err->{char}) {
$err->{char} = $l;
@@ -1822,7 +1822,7 @@
print redirect &self_url_q($q, $File);
exit;
} else {
-
+
# Redirected from /check/referer to /check?uri=referer because
# the browser didn't send a Referer header, or the request was
# for /check?uri=referer but no Referer header was found.
@@ -2013,11 +2013,11 @@
$_ = $c->convert($_); # $_ is local!!
if ($in ne "" and (!defined($_) || $_ eq "")) {
push @{$File->{Lines}}, $line;
-
+
# try to decoded as much as possible of the line
my $short = 0; # longest okay
my $long = (length $in) - 1; # longest unknown
-
+
while ($long > $short) {
# binary search
my $try = int (($long+$short+1) / 2);
Received on Saturday, 18 February 2006 20:05:47 UTC