- From: Bjoern Hoehrmann via cvs-syncmail <cvsmail@w3.org>
- Date: Wed, 17 Aug 2005 00:25:03 +0000
- To: www-validator-cvs@w3.org
Update of /sources/public/validator/httpd/cgi-bin
In directory hutz:/tmp/cvs-serv28498
Modified Files:
check
Log Message:
dropping dead code
Index: check
===================================================================
RCS file: /sources/public/validator/httpd/cgi-bin/check,v
retrieving revision 1.438
retrieving revision 1.439
diff -u -d -r1.438 -r1.439
--- check 16 Aug 2005 06:28:06 -0000 1.438
+++ check 17 Aug 2005 00:25:01 -0000 1.439
@@ -122,7 +122,6 @@
Protocols => {Allow => 'http,https'},
Paths => {
Base => ($ENV{W3C_VALIDATOR_HOME} || '/usr/local/validator'),
- SGML => {Parser => '/usr/bin/onsgmls'},
},
},
);
@@ -170,12 +169,6 @@
$CFG->{Protocols}->{Allow} = [split(/\s*,\s*/, $allowed)];
}
- #
- # Make sure onsgmls exists and is executable.
- unless (-x $CFG->{Paths}->{SGML}->{Parser}) {
- die qq(Configured SGML Parser "$CFG->{Paths}->{SGML}->{Parser}" not executable!\n);
- }
-
{ # Make types config indexed by FPI.
my $_types = {};
map { $_types->{$CFG->{Types}->{$_}->{PubID}} = $CFG->{Types}->{$_} }
@@ -1550,31 +1543,6 @@
}
#
-# Preprocess SSI files.
-sub prepSSI {
- my $opt = shift;
-
- my $fh = new IO::File "< $opt->{File}"
- or croak "open($opt->{File}) returned: $!\n";
- my $ssi = join '', <$fh>;
- close $fh or carp "close($opt->{File}) returned: $!\n";
-
- $ssi =~ s/<!--\#echo var="title" -->/$opt->{Title}/g
- if defined $opt->{Title};
-
- $ssi =~ s/<!--\#echo var="date" -->/$opt->{Date}/g
- if defined $opt->{Date};
-
- $ssi =~ s/<!--\#echo\s+var="revision"\s+-->/$opt->{Revision}/g
- if defined $opt->{Revision};
-
- # No need to parametrize this one, it's always "./" in this context.
- $ssi =~ s|<!--\#echo\s+var="relroot"\s+-->|./|g;
-
- return $ssi;
-}
-
-#
# Utility sub to tell if mode "is" XML.
sub is_xml {shift->{Mode} == MODE_XML};
Received on Wednesday, 17 August 2005 00:25:32 UTC