--- test/html-webhacc/cc.cgi 2007/11/04 09:15:02 1.22 +++ test/html-webhacc/cc.cgi 2007/11/05 09:33:52 1.23 @@ -1,5 +1,6 @@ #!/usr/bin/perl use strict; +use utf8; use lib qw[/home/httpd/html/www/markup/html/whatpm /home/wakaba/work/manakai2/lib]; @@ -243,7 +244,8 @@ $type =~ tr/ /-/; $type =~ s/\|/%7C/g; $msg .= qq[ [Description]]; - print STDOUT qq[
$msg
\n]; + print STDOUT qq[
], get_error_level_label (\%opt); + print STDOUT qq[$msg
\n]; add_error ('syntax', \%opt => $result); }; @@ -324,7 +326,8 @@ $type =~ tr/ /-/; $type =~ s/\|/%7C/g; $msg .= qq[ [Description]]; - print STDOUT qq[
$msg
\n]; + print STDOUT qq[
], get_error_level_label (\%opt); + print STDOUT qq[$msg
\n]; add_error ('syntax', \%opt => $result); }; @@ -506,7 +509,8 @@ $type =~ s/\|/%7C/g; $msg .= qq[ [Description]]; print STDOUT qq[
] . get_error_label (\%opt) . - qq[
\n
], $msg, "
\n"; + qq[\n
], get_error_level_label (\%opt); + print STDOUT $msg, "
\n"; add_error ('structure', \%opt => $result); }; @@ -691,10 +695,13 @@ print STDOUT qq[ - -]; + + + + +]; my $must_error = 0; my $should_error = 0; @@ -787,7 +794,7 @@ if (defined $err->{node}) { $r .= ' ' if length $r; - $r = get_node_path ($err->{node}); + $r = get_node_link ($err->{node}); } if (defined $err->{index}) { @@ -803,6 +810,32 @@ return $r; } # get_error_label +sub get_error_level_label ($) { + my $err = shift; + + my $r = ''; + + if (not defined $err->{level} or $err->{level} eq 'm') { + $r = qq[MUST‐level + error: ]; + } elsif ($err->{level} eq 's') { + $r = qq[SHOULD‐level + error: ]; + } elsif ($err->{level} eq 'w') { + $r = qq[Warning: + ]; + } elsif ($err->{level} eq 'unsupported') { + $r = qq[Not + supported: ]; + } else { + my $elevel = htescape ($err->{level}); + $r = qq[$elevel: + ]; + } + + return $r; +} # get_error_level_label + sub get_node_path ($) { my $node = shift; my @r; @@ -1051,4 +1084,4 @@ =cut -## $Date: 2007/11/04 09:15:02 $ +## $Date: 2007/11/05 09:33:52 $
MUST-level -ErrorsSHOULD-level -ErrorsWarningsScore
MUST‐level +ErrorsSHOULD‐level +ErrorsWarningsScore