diff options
| -rwxr-xr-x | httpd/cgi-bin/check | 17 |
1 files changed, 7 insertions, 10 deletions
diff --git a/httpd/cgi-bin/check b/httpd/cgi-bin/check index 47d91e6..05d7e28 100755 --- a/httpd/cgi-bin/check +++ b/httpd/cgi-bin/check @@ -8,7 +8,7 @@ # This source code is available under the license at: # http://www.w3.org/Consortium/Legal/copyright-software # -# $Id: check,v 1.123 2001-06-23 01:09:01 link Exp $ +# $Id: check,v 1.124 2001-06-23 01:14:34 link Exp $ # # We need Perl 5.004. @@ -77,9 +77,9 @@ my $element_ref = 'http://www.htmlhelp.com/reference/html40/'; # # Strings -$VERSION = q$Revision: 1.123 $; +$VERSION = q$Revision: 1.124 $; $VERSION =~ s/Revision: ([\d\.]+) /$1/; -$DATE = q$Date: 2001-06-23 01:09:01 $; +$DATE = q$Date: 2001-06-23 01:14:34 $; $MAINTAINER = 'gerald@w3.org'; $NOTICE = ''; # "<p><strong>Note: This service will be ...</strong>"; @@ -1085,8 +1085,7 @@ sub process_errors { $msgindex =~ s/"[^\"]+"/FOO/g; $msgindex =~ s/[^A-Za-z ]//g; - $newline =~ s/&/&/go; - $newline =~ s/</</go; + $newline = &ent($newline); $newline =~ s/$lt/</g; $newline =~ s/$gt/>/g; $newline =~ s/\t/ /g; @@ -1328,7 +1327,7 @@ EOF } $heading = substr($heading, 1); # chop the leading '-' or ' '. - $heading =~ s/&/&/go; $heading =~ s/</</go; + $heading = &ent($heading); print " <li>$heading\n"; } print " </ul>\n" x $level; @@ -1412,15 +1411,13 @@ EOF $prevdata .= $line; next; } elsif ($prevdata) { - $prevdata =~ s/&/&/go; - $prevdata =~ s/</</go; + $prevdata = &ent($prevdata); $prevdata =~ s/\s+/ /go; print wrap(' ' x $indent, ' ' x $indent, $prevdata), "\n"; undef $prevdata; } - $line =~ s/&/&/go; - $line =~ s/</</go; + $line = &ent($line); if ($line =~ /^\)/) { $indent -= 2; } |