summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rwxr-xr-xhttpd/cgi-bin/check14
1 files changed, 9 insertions, 5 deletions
diff --git a/httpd/cgi-bin/check b/httpd/cgi-bin/check
index 25ab20e..f19f6c6 100755
--- a/httpd/cgi-bin/check
+++ b/httpd/cgi-bin/check
@@ -2489,15 +2489,19 @@ sub report_errors ($)
if (!exists $Errors_bytype{$err->{num}}) {
$Errors_bytype{$err->{num}}->{instances} = [];
my $msg_text;
- if ($err->{num} ne 'xmlwf') {
+ if ($err->{num} eq 'xmlwf') {
+
+ # FIXME need a catalog of errors from XML::LibXML
+ $msg_text = "XML Parsing Error";
+ }
+ elsif ($err->{num} eq 'html5') {
+ $msg_text = "HTML5 Validator Error";
+ }
+ else {
$msg_text = $RSRC{msg}->{$err->{num}}->{original};
$msg_text =~ s/%1/X/;
$msg_text =~ s/%2/Y/;
}
- else
- { ## FIXME we need a catalog of errors from our XML parser
- $msg_text = "XML Parsing Error";
- }
$Errors_bytype{$err->{num}}->{expl} = $err->{expl};
$Errors_bytype{$err->{num}}->{generic_msg} = $msg_text;
$Errors_bytype{$err->{num}}->{msg} = $err->{msg};