/[suikacvs]/markup/html/whatpm/Whatpm/ContentChecker.pm
Suika

Diff of /markup/html/whatpm/Whatpm/ContentChecker.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.90 by wakaba, Tue Sep 9 04:45:13 2008 UTC revision 1.91 by wakaba, Wed Sep 10 10:27:07 2008 UTC
# Line 372  my $default_error_level = { Line 372  my $default_error_level = {
372    xml_id_error => 'm', ## TODO: ?    xml_id_error => 'm', ## TODO: ?
373    nc => 'm', ## XML Namespace Constraints ## TODO: correct?    nc => 'm', ## XML Namespace Constraints ## TODO: correct?
374    
375      ## |Whatpm::URIChecker|
376    uri_syntax => 'm',    uri_syntax => 'm',
377    uri_fact => 'm',    uri_fact => 'm',
378    uri_lc_must => 'm',    uri_lc_must => 'm',
379    uri_lc_should => 'w',    uri_lc_should => 'w',
380    
381      ## |Whatpm::IMTChecker|
382    mime_must => 'm', # lowercase "must"    mime_must => 'm', # lowercase "must"
383    mime_fact => 'm',    mime_fact => 'm',
384    mime_strongly_discouraged => 'w',    mime_strongly_discouraged => 'w',
385    mime_discouraged => 'w',    mime_discouraged => 'w',
386    
387      ## |Whatpm::LangTag|
388    langtag_fact => 'm',    langtag_fact => 'm',
389    
390      ## |Whatpm::RDFXML|
391    rdf_fact => 'm',    rdf_fact => 'm',
392    rdf_grammer => 'm',    rdf_grammer => 'm',
393    rdf_lc_must => 'm',    rdf_lc_must => 'm',
394    
395      ## |Message::Charset::Info| and |Whatpm::Charset::DecodeHandle|
396      charset_variant => 'm',
397        ## An error caused by use of a variant charset that is not conforming
398        ## to the original charset (e.g. use of 0x80 in an ISO-8859-1 document
399        ## which is interpreted as a Windows-1252 document instead).
400      charset_fact => 'm',
401      iso_shall => 'm',
402  };  };
403    
404  sub check_document ($$$;$) {  sub check_document ($$$;$) {
# Line 470  sub check_document ($$$;$) { Line 482  sub check_document ($$$;$) {
482        } elsif ($charset->{iana_names}->{'jis_x0212-1990'} or        } elsif ($charset->{iana_names}->{'jis_x0212-1990'} or
483                 $charset->{iana_names}->{'x-jis0208'} or                 $charset->{iana_names}->{'x-jis0208'} or
484                 $charset->{iana_names}->{'utf-32'} or ## ISSUE: UTF-32BE? UTF-32LE?                 $charset->{iana_names}->{'utf-32'} or ## ISSUE: UTF-32BE? UTF-32LE?
485                 $charset->{is_ebcdic_based}) {                 ($charset->{category} & Message::Charset::Info::CHARSET_CATEGORY_EBCDIC ())) {
486          $onerror->(node => $doc,          $onerror->(node => $doc,
487                     type => 'bad character encoding',                     type => 'bad character encoding',
488                     text => $charset_name,                     text => $charset_name,
Legend:
Removed from v.1.90  
changed lines
  Added in v.1.91
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24