| 1 |
wakaba |
1.1 |
use strict; |
| 2 |
|
|
package SuikaWiki::Plugin::Registry; |
| 3 |
|
|
|
| 4 |
|
|
|
| 5 |
|
|
our %Info; |
| 6 |
|
|
$Info{q#XML#}->{Name} = q#XML#; |
| 7 |
hero |
1.1.2.1 |
$Info{q#XML#}->{q#Version#} = q#2005.0121.1410#; |
| 8 |
wakaba |
1.1 |
$Info{q#XML#}->{q#InterfaceVersion#} = q#2.9.1#; |
| 9 |
hero |
1.1.2.1 |
$Info{q#XML#}->{q#mkpluginVersion#} = q#2.1.21#; |
| 10 |
|
|
$Info{q#XML#}->{q#module_name#} = q#SuikaWiki::Plugin::plugin::XML1050021141035dabC#; |
| 11 |
wakaba |
1.1 |
$Info{q#XML#}->{q#Date.RCS#} = q#$Date: 2004/02/08 08:49:48 $#; |
| 12 |
|
|
$Info{q#XML#}->{Description} = [[q#XML support#, q#en#, q##]]; |
| 13 |
|
|
$Info{q#XML#}->{License} = [[q#%%GPL%%#, q##, q##]]; |
| 14 |
|
|
$Info{q#XML#}->{Author} = [[[[q#Wakaba#, q#ja#, q#Latn#]], [[q#w@suika.fam.cx#]], [q##]]]; |
| 15 |
|
|
|
| 16 |
hero |
1.1.2.1 |
package SuikaWiki::Plugin::plugin::XML1050021141035dabC; |
| 17 |
wakaba |
1.1 |
|
| 18 |
|
|
$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 |
| 19 |
|
|
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) = @_; |
| 20 |
|
|
|
| 21 |
|
|
#line 1 "(WikiPlugin module source xml.wp2, block FormattingRule[name()='[q#view#]/xml_declaration']/Formatting)" |
| 22 |
|
|
$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}; |
| 23 |
|
|
if ($p->{downgrade_html}) { |
| 24 |
|
|
return if $o->{wiki}->{var}->{client}->{downgrade}->{html_no_pi}; |
| 25 |
|
|
} |
| 26 |
|
|
my $xml = $p->{-parent}->append_new_node |
| 27 |
|
|
(type => '#pi', |
| 28 |
|
|
local_name => 'xml'); |
| 29 |
|
|
$xml->set_attribute (version => '1.0');}} |
| 30 |
|
|
#line 1 "(WikiPlugin module XML, chunk 1)" |
| 31 |
|
|
; |
| 32 |
|
|
|
| 33 |
|
|
push @{$SuikaWiki::View::Implementation::TemplateFragment{q#ht__pre_element_content#}}, { |
| 34 |
|
|
Main => q#%xml-declaration (downgrade-html); |
| 35 |
|
|
#, |
| 36 |
|
|
Order => -10000, |
| 37 |
|
|
Description => [[q#XML declaration#, q#en#, q##]], |
| 38 |
|
|
}; |
| 39 |
|
|
package SuikaWiki::Plugin::Registry; |
| 40 |
|
|
|
| 41 |
|
|
$Info{q#XML#}->{provide} = {q#rule#, {q#view#, [q#xml_declaration#]}, q#viewfragment#, [{q#Name#, q#ht__pre_element_content#}]}; |
| 42 |
|
|
|
| 43 |
|
|
1; |
Parent Directory
| 
Revision Log