11 |
my $XML_NS = q<http://www.w3.org/XML/1998/namespace>; |
my $XML_NS = q<http://www.w3.org/XML/1998/namespace>; |
12 |
|
|
13 |
require Message::DOM::DOMImplementation; |
require Message::DOM::DOMImplementation; |
14 |
my $dom = Message::DOM::DOMImplementation->____new; |
my $dom = Message::DOM::DOMImplementation->new; |
15 |
|
|
16 |
my $doc; |
my $doc; |
17 |
{ |
{ |
21 |
require Message::DOM::XMLParserTemp; |
require Message::DOM::XMLParserTemp; |
22 |
$doc = Message::DOM::XMLParserTemp->parse_byte_stream |
$doc = Message::DOM::XMLParserTemp->parse_byte_stream |
23 |
($source_file => $dom, undef, charset => 'utf-8'); |
($source_file => $dom, undef, charset => 'utf-8'); |
24 |
|
$doc->manakai_is_html (1); |
25 |
} |
} |
26 |
|
|
27 |
my $target_lang = 'en'; |
my $target_lang = 'en'; |
35 |
$node->parent_node->remove_child ($node); |
$node->parent_node->remove_child ($node); |
36 |
} |
} |
37 |
} else { |
} else { |
38 |
push @node, @{$node->child_nodes}; |
unshift @node, @{$node->child_nodes}; |
39 |
} |
} |
40 |
} elsif ($node->namespace_uri eq $SRC_NS) { |
} elsif ($node->namespace_uri eq $SRC_NS) { |
41 |
if ($node->manakai_local_name eq 'item') { |
if ($node->manakai_local_name eq 'item') { |
64 |
|
|
65 |
my $name = $node->get_attribute_ns (undef, 'name'); |
my $name = $node->get_attribute_ns (undef, 'name'); |
66 |
$name =~ tr/ /-/; |
$name =~ tr/ /-/; |
67 |
|
my $level = $node->get_attribute_ns (undef, 'level'); |
68 |
|
$name = $level . ':' . $name if defined $level; |
69 |
my $section = $doc->create_element_ns ($HTML_NS, 'div'); |
my $section = $doc->create_element_ns ($HTML_NS, 'div'); |
70 |
$section->set_attribute_ns |
$section->set_attribute_ns |
71 |
(undef, class => 'section ' . |
(undef, class => 'section ' . |
77 |
($doc->create_element_ns ($HTML_NS, 'h3')); |
($doc->create_element_ns ($HTML_NS, 'h3')); |
78 |
$msg->append_child ($_) for @message_child; |
$msg->append_child ($_) for @message_child; |
79 |
|
|
80 |
my @desc_child = @{$desc->child_nodes}; |
if ($desc) { |
81 |
$section->append_child ($_) for @desc_child; |
my @desc_child = @{$desc->child_nodes}; |
82 |
|
$section->append_child ($_) for @desc_child; |
83 |
|
} |
84 |
|
|
85 |
$node->parent_node->insert_before ($section, $node); |
$node->parent_node->insert_before ($section, $node); |
86 |
$node->parent_node->remove_child ($node); ## TODO: replace_child is not yet implemented |
$node->parent_node->remove_child ($node); ## TODO: replace_child is not yet implemented |
87 |
|
} elsif ($node->manakai_local_name eq 'catalog') { |
88 |
|
# |
89 |
} else { |
} else { |
90 |
warn "$0: ", $node->manakai_local_name, " is not supported\n"; |
warn "$0: ", $node->manakai_local_name, " is not supported\n"; |
91 |
} |
} |
94 |
} |
} |
95 |
$doc->document_element->set_attribute_ns (undef, lang => $target_lang); |
$doc->document_element->set_attribute_ns (undef, lang => $target_lang); |
96 |
|
|
97 |
require Whatpm::HTML; |
print $doc->inner_html; |
|
print ${ Whatpm::HTML->get_inner_html ($doc) }; |
|