--- 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[
- | MUST-level
-Errors | SHOULD-level
-Errors | Warnings | Score |
-];
+ |
+MUST‐level
+Errors |
+SHOULD‐level
+Errors |
+Warnings |
+Score |
];
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 $