diff options
| author | link <link@localhost> | 2001-07-17 00:35:33 +0000 |
|---|---|---|
| committer | link <link@localhost> | 2001-07-17 00:35:33 +0000 |
| commit | 8db7b95f91a1458f17ca3d18d9e73f007121a058 (patch) | |
| tree | 5120d7c7c7d616aa71fa7599489a85e3bf745f5a | |
| parent | d2118883c2c57a1b8b19f8eda4667f95eb565504 (diff) | |
| download | markup-validator-8db7b95f91a1458f17ca3d18d9e73f007121a058.zip markup-validator-8db7b95f91a1458f17ca3d18d9e73f007121a058.tar.gz markup-validator-8db7b95f91a1458f17ca3d18d9e73f007121a058.tar.bz2 | |
Clean up raw (debug) ESIS output some (strip escape sequences).
| -rwxr-xr-x | httpd/cgi-bin/check | 15 |
1 files changed, 9 insertions, 6 deletions
diff --git a/httpd/cgi-bin/check b/httpd/cgi-bin/check index 9a0f7dd..fe6bd64 100755 --- a/httpd/cgi-bin/check +++ b/httpd/cgi-bin/check @@ -9,7 +9,7 @@ # This source code is available under the license at: # http://www.w3.org/Consortium/Legal/copyright-software # -# $Id: check,v 1.144 2001-07-16 23:23:03 link Exp $ +# $Id: check,v 1.145 2001-07-17 00:35:33 link Exp $ # # We need Perl 5.004. @@ -67,8 +67,7 @@ my $temp = "/tmp/validate.$$"; # @@ Use POSIX/IO::File tmpfiles instead! # # Executables and binaries -my $sp = '/usr/local/bin/lq-nsgmls'; -my $weblint = '/usr/bin/weblint'; +my $sp = '/usr/local/bin/lq-nsgmls'; # # URIs and fragments @@ -80,9 +79,9 @@ my $element_ref = 'http://www.htmlhelp.com/reference/html40/'; # # Strings -$VERSION = q$Revision: 1.144 $; +$VERSION = q$Revision: 1.145 $; $VERSION =~ s/Revision: ([\d\.]+) /$1/; -$DATE = q$Date: 2001-07-16 23:23:03 $; +$DATE = q$Date: 2001-07-17 00:35:33 $; $MAINTAINER = 'gerald@w3.org'; $NOTICE = ''; # "<p><strong>Note: This service will be ...</strong>"; @@ -1602,7 +1601,11 @@ sub show_esis ($) { <h2><a name="raw_esis">Raw ESIS Output</a></h2> <pre> EOF - for (@{shift->{'DEBUG'}->{ESIS}}) {print ent $_}; + for (@{shift->{'DEBUG'}->{ESIS}}) { + s/\\012//g; + s/\\n/\n/g; + print ent $_; + } print " </pre>\n </div>"; } |