/[pub]/test/html-webhacc/mkcatalog.pl
Suika

Diff of /test/html-webhacc/mkcatalog.pl

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

revision 1.2 by wakaba, Sun Nov 18 11:05:12 2007 UTC revision 1.3 by wakaba, Mon Jul 21 12:56:34 2008 UTC
# Line 23  my $doc; Line 23  my $doc;
23    $doc->manakai_is_html (1);    $doc->manakai_is_html (1);
24  }  }
25    
26  my $target_lang = 'en';  my $target_lang = shift || 'en';
27  my @node = (@{$doc->child_nodes});  my @node = (@{$doc->child_nodes});
28  while (@node) {  while (@node) {
29    my $node = shift @node;    my $node = shift @node;
# Line 56  while (@node) { Line 56  while (@node) {
56          s/\s+/ /g for @$entry;          s/\s+/ /g for @$entry;
57          print join ';', @$entry;          print join ';', @$entry;
58          print "\n";          print "\n";
59        } elsif ($node->manakai_local_name eq 'catalog') {        } elsif ($node->manakai_local_name eq 'cat') {
60          print $node->text_content, "\n";          my $name = $node->get_attribute_ns (undef, 'name');
61            my $text;
62            for my $el (@{$node->child_nodes}) {
63              next unless $el->node_type == $el->ELEMENT_NODE;
64              next unless $el->manakai_local_name eq 'text';
65              my $ns = $el->namespace_uri;
66              next unless defined $ns and $ns eq $SRC_NS;
67              
68              my $lang = $el->get_attribute_ns ($XML_NS, 'lang');
69              $text = $el->inner_html;
70              if ($lang eq $target_lang) {
71                last;
72              }          
73            }
74            if (defined $text) {
75              my $entry = [$name, undef, $text];
76              s/\s+/ /g for @$entry;
77              print join ';', @$entry;
78              print "\n";
79            }
80        } else {        } else {
81          warn "$0: ", $node->manakai_local_name, " is not supported\n";          warn "$0: ", $node->manakai_local_name, " is not supported\n";
82        }        }
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24