use strict; package SuikaWiki::Plugin::Registry; our %Info; $Info{q#XML#}->{Name} = q#XML#; $Info{q#XML#}->{q#Version#} = q#2005.0121.1410#; $Info{q#XML#}->{q#InterfaceVersion#} = q#2.9.1#; $Info{q#XML#}->{q#mkpluginVersion#} = q#2.1.21#; $Info{q#XML#}->{q#module_name#} = q#SuikaWiki::Plugin::plugin::XML1050021141035dabC#; $Info{q#XML#}->{q#Date.RCS#} = q#$Date: 2010/05/16 23:53:45 $#; $Info{q#XML#}->{Description} = [[q#XML support#, q#en#, q##]]; $Info{q#XML#}->{License} = [[q#%%GPL%%#, q##, q##]]; $Info{q#XML#}->{Author} = [[[[q#Wakaba#, q#ja#, q#Latn#]], [[q#w@suika.fam.cx#]], [q##]]]; package SuikaWiki::Plugin::plugin::XML1050021141035dabC; $SuikaWiki::Plugin::Rule{view}->{xml_declaration} = {q#Parameter#, {q#downgrade_html#, {q#Type#, q#boolean#, q#Default#, q#"0"#, q#Description#, [[q#HTML downgrade mode. PIs are not outputed if User-Agent does not support PIs (eg. Classic Mozilla).#, q##, q##]]}}, q#Description#, [[q#XML declaration#, q#en#, q##]], q#main#, sub {my ($f, $rule_name, $p, $o, %opt) = @_; #line 1 "(WikiPlugin module source xml.wp2, block FormattingRule[name()='[q#view#]/xml_declaration']/Formatting)" $p->{q#downgrade_html#} = do { my $r = $f->parse_attr ($p=>q#downgrade_html#, $o, -non_parsed_to_node => 1, %opt); ref $r?$r->inner_text:$r}; if ($p->{downgrade_html}) { return if $o->{wiki}->{var}->{client}->{downgrade}->{html_no_pi}; } my $xml = $p->{-parent}->append_new_node (type => '#pi', local_name => 'xml'); $xml->set_attribute (version => '1.0');}} #line 1 "(WikiPlugin module XML, chunk 1)" ; push @{$SuikaWiki::View::Implementation::TemplateFragment{q#ht__pre_element_content#}}, { Main => q#%xml-declaration (downgrade-html); #, Order => -10000, Description => [[q#XML declaration#, q#en#, q##]], }; package SuikaWiki::Plugin::Registry; $Info{q#XML#}->{provide} = {q#rule#, {q#view#, [q#xml_declaration#]}, q#viewfragment#, [{q#Name#, q#ht__pre_element_content#}]}; 1;