SuikaWiki/Plugin/Map.wps

Name:
        Map
FullName:
        Wiki linking and page relation map
URI:
        IW:SuikaWiki:WikiPage
Require:
        SuikaWiki::Markup::XML SuikaWiki::Plugin::WikiPage main SuikaWiki::Plugin::WikiLinking
Initialize:
        my $NS_XHTML1 = 'http://www.w3.org/1999/xhtml';
        my $NS_RDF = 'http://www.w3.org/1999/02/22-rdf-syntax-ns#';
        my $NS_RSS = 'http://purl.org/rss/1.0/';
        my $NS_DC = 'http://purl.org/dc/elements/1.1/';
        my $NS_MAP = 'http://members.jcom.home.ne.jp/jintrick/2003/02/site-concept.xml#';

{
Name:
        wikiview/link-map
FullName:
        Hyperlink map from the WikiPage
Format:
        my %option = (level => 0+$o->resource('Map:Depth'), weight_list => {},
                not_exist => {}, map_from_here => $o->resource('Map:FromHere'),
                map_from_here_description => $o->resource('Map:FromHereLong'),
                o => $o);
        &map_make_list ($o->{page}, %option);
        if (0 && ($o->{media}->{type} =~ /xml/)) {      # XML (maybe XHTML)
          $r = SuikaWiki::Markup::XML->new (namespace_uri => $NS_RDF, local_name => 'RDF');
          $r->define_new_namespace ('' => $NS_MAP);
          $r->define_new_namespace (rss => $NS_RSS);
          $r->define_new_namespace (dc => $NS_DC);
          $r->append_text ("\n");
          $option{weight_list}->{''}->{$o->{page}} = 1;
          $r->append_node (map_list_to_xml ('', $option{weight_list}, %option));
        } else {
          $r = map_list_to_html ($o->{page}, $option{weight_list}, %option);
        }
}

{
Name:
        wikiview/map-children-pages
FullName:
        Children of the WikiPage
Format:
        #if ($o->_database) {
          $r = SuikaWiki::Markup::XML->new (type => '#document');
          #$r->append_new_node (type => '#pi', local_name => 'xml')
          #  ->set_attribute (version => '1.0');
          #$r->append_text ("\n");
          # stylesheets
          my $RDF = $r->append_new_node (namespace_uri => $NS_RDF, local_name => 'RDF');
          $RDF->define_new_namespace ('' => $NS_MAP);
          $RDF->define_new_namespace (rss => $NS_RSS);
          $RDF->define_new_namespace (dc => $NS_DC);
          $RDF->append_text ("\n");
          $RDF->append_node (rdfmap_make_pageinfo ($o, $p, ($p->{page} || $o->{page})));
          $RDF->append_text ("\n");
        #}
}


{
Name:
        wikiform-input/recent-change-list
        wikiview/recent-change-list
FullName:
        Recent-changed-pages list
Format:
        #eval q{        # Currently not all database has '->mtime' and '->recent_changes'.  Abstracted WikiDatabase system is needed
          if ($o->{to} eq 'RSS') {
              $r = SuikaWiki::Markup::XML->new (namespace_uri => $NS_RDF, local_name => 'RDF');
                $r->define_new_namespace (rdf => $NS_RDF);
                $r->define_new_namespace ('' => $NS_RSS);
                $r->define_new_namespace (dc => $NS_DC);
                my $channel = $r->append_new_node (namespace_uri => $NS_RSS, local_name => 'channel');
                  $channel->set_attribute (about => $o->_uri_wiki_page (($o->{page} || $p->{page})), namespace_uri => $NS_RDF);
                  $channel->append_text ("\n");
                  $channel->append_new_node (namespace_uri => $NS_RSS, local_name => 'title')
                          ->append_text ($o->resource ('RSS:WikiTitle'));
                  $channel->append_text ("\n");
                  $channel->append_new_node (namespace_uri => $NS_RSS, local_name => 'link')
                          ->append_text ($o->uri ('wiki'));
                  $channel->append_text ("\n");
                  $channel->append_new_node (namespace_uri => $NS_RSS, local_name => 'description')
                          ->append_text ($o->resource ('RSS:WikiDescription'));
                  $channel->append_text ("\n");
                  $channel->append_new_node (namespace_uri => $NS_DC, local_name => 'date')
                          ->append_text (&main::_rfc3339_date (time));
                  $channel->append_text ("\n");
                  my $items = $channel->append_new_node (namespace_uri => $NS_RSS, local_name => 'items')
                                      ->append_new_node (namespace_uri => $NS_RDF, local_name => 'Seq');
              $p->{ns} .= '//' if $p->{ns} && $p->{ns} !~ m#//$#;
              for my $page_name ($o->_database->recent_changes (($p->{n} || 10), 0,
                                 {ns => $p->{ns},
                                  recursive => (defined $p->{recursive} ? $p->{recursive} : 1)})) {
                next unless $page_name;
                my $page_uri = $o->_uri_wiki_page ($page_name);
                $items->append_new_node (namespace_uri => $NS_RDF, local_name => 'li')
                      ->set_attribute (resource => $page_uri, namespace_uri => $NS_RDF);
                $items->append_text ("\n");
                $r->append_text ("\n");
                my $page = $r->append_new_node (namespace_uri => $NS_RSS, local_name => 'item');
                  $page->set_attribute (about => $page_uri, namespace_uri => $NS_RDF);
                  $page->append_text ("\n");
                  $page->append_new_node (namespace_uri => $NS_RSS, local_name => 'title')
                       ->append_text ($page_name);
                  $page->append_text ("\n");
                  $page->append_new_node (namespace_uri => $NS_RSS, local_name => 'link')
                       ->append_text ($page_uri);
                  $page->append_text ("\n");
                  $page->append_new_node (namespace_uri => $NS_RSS, local_name => 'description')
                       ->append_text (SuikaWiki::Plugin::WikiPage->_get_subjectline($page_name, delimiter => ''));
                  $page->append_text ("\n");
                  $page->append_new_node (namespace_uri => $NS_DC, local_name => 'date')
                       ->append_text (&main::_rfc3339_date ($o->_database->mtime ($page_name)));
                  $page->append_text ("\n");
              }
              1;
          } else {
            $r = SuikaWiki::Markup::XML->new (type => '#element', namespace_uri => $NS_XHTML1,
                                              local_name => 'ol');
              $r->set_attribute (class => 'm--recent-changes');
            $p->{ns} .= '//' if $p->{ns} && $p->{ns} !~ m#//$#;
            my $i = 0;
            for (
        sort {$b->[1] <=> $a->[1]}
        map {[$_, $o->get_data (lastmodified => $_)]}
        $o->db->keys ('content', -Ans => [split m#//#, $p->{ns}], -Atype => 'key',
                                -Arecursive => (defined $p->{recursive} ?
                                               $p->{recursive} : 1))) {
              next unless $_->[0];
              last if $i++ == ($p->{n} || 10);
              my $li = $r->append_new_node (namespace_uri => $NS_XHTML1, local_name => 'li');
              $li->append_node (SuikaWiki::Plugin::WikiLinking->to_wikipage_in_html ({
                label   => ($p->{template}
                         || $o->resource ('Link:toWikiPage:SourceLabelLong:RecentChangeItem')),
              } => {
                base    => $o->{page},
                page_name_relative      => join ('//', @{$_->[0]}),
                wiki_mode       => $p->{mode},
                page_lastmodified => $_->[1],
              }, {
                o       => $o,
              }));
            }
          }
          1;
        #} or $r = '<p xmlns="http://www.w3.org/1999/xhtml">Error: '.$o->escape ($@).'</p>';
}

{
Name:
        wikiview/recent-change-dated
FullName:
        Recent-changed-pages list, grouped by modified date
Format:
        eval q{
            $r = qq(<div class="recent-changes">\n);
            my $date = '';
            $p->{ns} .= '//' if $p->{ns} && $p->{ns} !~ m#//$#;
            for ($main::database->recent_changes (($p->{n} || 10),0,{ns => $p->{ns}, recursive => (defined $p->{recursive} ? $p->{recursive} : 1)})) {
              next unless $_;
              my @date = gmtime $main::database->mtime ($_);
              my $ndate = sprintf '%04d-%02d-%02d', $date[5]+1900,$date[4]+1,$date[3];
              if ($ndate ne $date) {
                $r .= "</ol>\n" if $date;
                my $id = 'h'.$o->new_index ('heading');
                my $level = $p->{level}+0||1;
                $r .= qq(<h$level id="$id">$ndate</h$level>\n<ol>\n);
                push @{$o->{toc}}, [$level-1 => $id => $ndate] if !defined $p->{add_to_toc} || $p->{add_to_toc};
                $date = $ndate;
              }
              $date[0] = sprintf '%s %02d:%02d:%02d+00:00', $ndate, @date[2,1,0];
              $r .= qq(<li><a href="@{[$o->uri('wiki')]}?@{[$o->encode($_)]}" class="wiki" title="@{[$o->escape (SuikaWiki::Plugin::WikiPage->_get_subjectline ($_,delimiter=>''))]} [$date[0]]">) . $o->escape ($_) . qq(</a></li>\n);
            }
            $r .= '</ol></div>';
        } or $r = $o->escape($@);
}
{
Name:
        wikiform_input/recent-change-dated
FullName:
        Recent-changed-pages list, grouped by modified date
Format:
        eval q{
            $r = qq(<div class="recent-changes">\n);
            my $date = '';
            $p->{ns} .= '//' if $p->{ns} && $p->{ns} !~ m#//$#;
            for ($main::database->recent_changes (($p->{n} || 10),0,{ns => $p->{ns}, recursive => (defined $p->{recursive} ? $p->{recursive} : 1)})) {
              next unless $_;
              my @date = gmtime $main::database->mtime ($_);
              my $ndate = sprintf '%04d-%02d-%02d', $date[5]+1900,$date[4]+1,$date[3];
              if ($ndate ne $date) {
                $r .= "</ol>\n" if $date;
                my $id = 'h'.$o->new_index ('heading');
                my $level = ($p->{level}+0||1)+1;
                $r .= qq(<h$level id="$id">$ndate</h$level>\n<ol>\n);
                push @{$o->{toc}}, [$level-1 => $id => $ndate] if !defined $p->{add_to_toc} || $p->{add_to_toc};
                $date = $ndate;
              }
              $date[0] = sprintf '%s %02d:%02d:%02d+00:00', $ndate, @date[2,1,0];
              $r .= qq(<li><a href="@{[$o->uri('wiki')]}?@{[$o->encode($_)]}" class="wiki" title="@{[$o->escape($_)]} [$date[0]]">) . $o->escape ($_) . qq(</a></li>\n);
            }
            $r .= '</ol></div>';
        } or $r = $o->escape($@);
}

{
Name:
        wikiform-input/page-list
        wikiview/page-list
FullName:
        WikiPage list
Format:
        #eval q{
          my $re = $p->{match} || '.';  ## WARNING: This can be dangerous!
          $r = SuikaWiki::Markup::XML->new (namespace_uri => $NS_XHTML1, local_name => 'ul');
          if ($o->_database) {
            $p->{ns} .= '//' if $p->{ns} && substr ($p->{ns}, -2) ne '//';
            my %outputed;
            for (sort grep /$re/, $o->_database->list_items ({ns => $p->{ns}, type => ($p->{type}||'key'), recursive => $p->{recursive}})) {
              s!//$!!;
              $outputed{$_} ? next : ($outputed{$_} = 1);
              my $li = $r->append_new_node (namespace_uri => $NS_XHTML1, local_name => 'li');
              $li->append_node (SuikaWiki::Plugin::WikiLinking->to_wikipage_in_html ({
                label   => ($p->{template} || $o->resource ('Link:toWikiPage:SourceLabelLong')),
              } => {
                base    => $o->{page},
                page_name_relative      => $_,
                #page_anchor_no => $,
                wiki_mode       => $p->{mode},
              }, {
                o       => $o,
              }));
            }
          }
          if ($r->count) {
            $r->set_attribute (class => 'pages');
          } else {
            $r = '';
          }
        #} or $r = qq(<div class="error">@{[$o->escape ($@)]}</div>);
}

{
Name:
        wikiformat/SuikaWiki/0.9-to-RSS
FullName:
        SuikaWiki/0.9 document format -> RSS
URI:
        IW:SuikaWiki:SuikaWiki
Format:
        $o->{content} =~ s($main::embed_command{form}){
          my $i = $2;
          $i =~ s/\\(.)/$1/gs;
          if ($i =~ /(%recent-change-list(?:\((?:[^)]|\\.)*\))?;)/s) {
            $r = $o->formatter ('form_input')->replace ($1 => $o);
            return $r;
          }
        ''}ge;
        $r = '<rdf:RDF xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"/>';
}

{
Name:
        wikiview/map-link-alternate-version-xml-rdf-rss
FullName:
        Linking alternate version -- RSS 1.0 format
Format:
        if ($main::database{$o->{page} || $p->{page}} =~ /%recent-change-list/) {
          $r = SuikaWiki::Markup::XML->new (namespace_uri => $NS_XHTML1, local_name => 'link');
          $r->set_attribute (rel => 'alternate');
          $r->set_attribute (type => 'application/rss+xml');
          $r->set_attribute (href => $o->_uri_wiki_page (($o->{page} || $p->{page}), mode => 'rss'));
          $r->set_attribute (title => $o->resource ('Map:Link:Alternate:RSS:Long'));
        }
}

MODULE:
        SuikaWiki::View->definition (rss => {
                media => {type => 'application/rss+xml',
                        expires => 3600, charset => 1},
                check => sub { ref $_[0]->format_converter ($_[0]->{magic} => 'RSS') ? 1 : 0 },
                template => '%styles-wiki-xml(page=>"'.$main::PageName{StyleList}.'XML//RDF//RSS");
        %read(to=>RSS);'});
        SuikaWiki::View->definition (m_xml_rdf_sitemap => {
                media => {type => 'application/rdf+xml',
                        expires => 3600, charset => 1},
                template => '%styles-wiki-xml(page=>"'.$main::PageName{StyleList}.'XML//RDF//Sitemap");
        %map-children-pages;'});
        SuikaWiki::View->template ('links')->add_line (<<EOH);
        %link-wiki(rel=>sitemap,mode=>m-xml-rdf-sitemap,class=>wiki,type=>"application/rdf+xml",title=>{%res(name=>{Nav:Sitemap:Children:Title});}p);
        %link-wiki(mode=>map,rel=>sitemap,class=>wiki-cmd,title=>"%res(name=>ShowMapOfThisPageLink);"p);
        %link-wiki(page=>{@{[$main::PageName{IndexPage}]}},rel=>index,class=>wiki,title=>"%res(name=>GoToIndexPageLink,safe);"p);
        %link-wiki(page=>{@{[$main::PageName{RecentChanges}]}},rel=>News,class=>wiki,title=>"%res(name=>GoToRecentChangesLink);"p);
        %link-wiki(page=>{%page-name;}p,rel=>news,class=>wiki,mode=>m--recent-changes,title=>"%res(name=>{Map:RecentChanges:LinkTo:Description});"p);
        %link-wiki(page=>@{[$main::PageName{RecentChanges}]},mode=>rss,rel=>News,class=>wiki,title=>"%res(name=>GoToRssPageLink);"p,type=>"application/rss+xml");
        %map-link-alternate-version-xml-rdf-rss();
        EOH
        
        sub rdfmap_make_pageinfo ($$$) {
          my ($o, $p, $page) = @_;
          my $re = $p->{match} || '.';
          my $c = new SuikaWiki::Markup::XML (namespace_uri => $NS_MAP, local_name => 'Document');
          $c->append_new_node (namespace_uri => $NS_DC, local_name => 'title')
            ->append_text ($page);
          $c->append_new_node (namespace_uri => $NS_RSS, local_name => 'description')
            ->append_text (SuikaWiki::Plugin::WikiPage->_get_subjectline ($page, delimiter => ''));
          my @date = gmtime $main::database->mtime ($page);
          $c->append_new_node (namespace_uri => $NS_DC, local_name => 'date')
            ->append_text (sprintf '%04d-%02d-%02d %02d:%02d:%02d+00:00', $date[5]+1900,$date[4]+1,@date[3,2,1,0]);
          $c->set_attribute (about => $o->uri ('wiki').'?'.$o->encode($page), namespace_uri => $NS_RDF);
          my %children;
          map {s!\Q$SuikaWiki::Name::Space::Delimiter\E$!!; $children{$_} = 1} grep /$re/, $o->_database->list_items ({ns => $page.'//', type => ('both'), recursive => 0});
          if (scalar (keys %children)) {
            my $c = $c->append_new_node (namespace_uri => $NS_RSS, local_name => 'items')
                      ->append_new_node (namespace_uri => $NS_RDF, local_name => 'Bag');
            for (sort keys %children) {
              $c->append_new_node (namespace_uri => $NS_RDF, local_name => 'li')
                ->append_node (rdfmap_make_pageinfo ($o, $p, $_));
            }
          }
          $c;
        }
        
        sub map_make_list ($;%) {
          my ($page, %option) = @_;
          $option{level} ||= 3;
          my %weight;
          my $content = $main::database{$page};
          $content =~ s{^\#\?([^\x0A\x0D]+)}{
            if ($1 =~ /import="([^"]+)"/) {
              for (split /\s*,\s*/, $1) {
                $weight{$_} += 2;
              }
            }
            '';
          }es;
          ## Bug: this code does not support content type.
          $content =~ s{\[\[([^\#\]]+)\](?:>>\d+)?\]}{
            $weight{$1} += 2; '';
          }ge;
          delete $weight{$page};        ## Delete myself
          for my $page (keys %weight) {
            $weight{$page} += ($content =~ s/\Q$page\E//g);
            ($weight{$page} *= 0.1, $option{not_exist}->{$page} = 1) unless exists $main::database {$page};
          }
          $option{weight_list}->{$page} = \%weight;
          if (--$option{level}) {
            for my $page (keys %weight) {
              &map_make_list ($page, %option) unless $option{weight_list}->{$page};
            }
          }
          $option{weight_list};
        }
        
        sub map_list_to_html ($$;%) {
          my ($Page, $wlist, %option) = @_;
          
          my $o = $option{o};
          if ($o->feature ('SuikaWiki::Markup::XML')) {
            my $r = SuikaWiki::Markup::XML->new (local_name => 'ul', namespace_uri => $NS_XHTML1);
            $option{outputed}->{$Page} = 1;
            for my $page (sort {$wlist->{$Page}->{$b} <=> $wlist->{$Page}->{$a}} keys %{$wlist->{$Page}}) {
              for my $LI ($r->append_new_node (local_name => 'li', namespace_uri => $NS_XHTML1)) {
                for my $weight ($LI->append_new_node (local_name => 'span', namespace_uri => $NS_XHTML1)) {
                  $weight->set_attribute (class => 'weight');
                  $weight->append_text ('{' . (0+$wlist->{$Page}->{$page}) . '}');
                }
                $LI->append_text (' ');
                for my $A ($LI->append_new_node (local_name => 'a', namespace_uri => $NS_XHTML1)) {
                  $A->set_attribute (href => $o->uri('wiki').'?'.$o->encode($page));
                  $A->append_text ($page);
                  my $CLASS = $A->set_attribute (class => 'wiki');
                  if ($option{not_exist}->{$page}) {
                    $CLASS->append_text (' not-exist');
                    for my $mark ($A->append_new_node (local_name => 'span', namespace_uri => $NS_XHTML1)) {
                      $mark->set_attribute (class => 'mark');
                      $mark->append_text ($o->resource('JumpAndEditWikiPageMark'));
                    }
                  }
                }
                $LI->append_text (' ');
                for my $A ($LI->append_new_node (local_name => 'a', namespace_uri => $NS_XHTML1)) {
                  $A->set_attribute (href => $o->uri('wiki').'?mycmd=map;mypage='.$o->encode($page));
                  $A->set_attribute (class => 'wiki-cmd map-from-here');
                  $A->set_attribute (title => $option{map_from_here_description});
                  $A->append_text ($option{map_from_here});
                }
                $LI->append_text (' ');
                for my $hl ($LI->append_new_node (local_name => 'span', namespace_uri => $NS_XHTML1)) {
                  $hl->set_attribute (class => 'headline');
                  $hl->append_text (SuikaWiki::Plugin::WikiPage->_get_subjectline($page));
                }
                unless ($option{outputed}->{$page}) {   ## child
                  my $c = &map_list_to_html ($page, $wlist, %option);
                  $LI->append_text ("\n");
                  if (ref ($c) eq ref ($LI)) {
                    $LI->append_node ($c);
                  } elsif ($c) {
                    $LI->append_new_node (type => '#xml', value => $c);
                  }
                }
              } # LI
            }
            return $r->count ? $r : '';
          } else {
          
          my $r = '';
          $option{outputed}->{$Page} = 1;
          for my $page (sort {$wlist->{$Page}->{$b} <=> $wlist->{$Page}->{$a}} keys %{$wlist->{$Page}}) {
            $r .= qq(<li><span class="weight">[@{[0+$wlist->{$Page}->{$page}]}]</span> <a href="$main::url_cgi?@{[$o->encode($page)]}" class="wiki@{[$option{not_exist}->{$page}?' not-exist':'']}">@{[$o->escape ($page).($option{not_exist}->{$page}?qq(<span class="mark">@{[$o->resource('JumpAndEditWikiPageMark',escape=>1)]}</span>):'')]}</a> <a href="$main::url_cgi?mycmd=map;mypage=@{[$o->encode($page)]}" class="wiki-cmd map-from-here" title="@{[$o->escape($option{map_from_here_description})]}">@{[$o->escape($option{map_from_here})]}</a> <span class="summary">@{[$o->escape(SuikaWiki::Plugin::WikiPage->_get_subjectline($page))]}</span>);
            unless ($option{outputed}->{$page}) {
              $r .= &map_list_to_html ($page, $wlist, %option);
            }
            $r .= "</li>\n";
          }
          return $r ? qq(<ul class="map">$r</ul>) : '';
          
          }
          
        }
        
        sub map_list_to_xml ($$;%) {
          my ($Page, $wlist, %option) = @_;
          my $o = $option{o};
          
          my $r = SuikaWiki::Markup::XML->new (type => '#fragment');
            $option{outputed}->{$Page} = 1;
            for my $page (sort {$wlist->{$Page}->{$b} <=> $wlist->{$Page}->{$a}} keys %{$wlist->{$Page}}) {
              for my $D ($r->append_new_node (local_name => 'Document', namespace_uri => $NS_MAP)) {
                $D->set_attribute (about => $o->uri('wiki').'?'.$o->encode($page), namespace_uri => $NS_RDF);
                #for my $weight ($D->append_new_node (local_name => 'span', namespace_uri => $NS_XHTML1)) {
                #  $weight->set_attribute (class => 'weight');
                #  $weight->append_text ('{' . (0+$wlist->{$Page}->{$page}) . '}');
                #}
                #$D->append_text ("\n");
                $D->append_new_node (local_name => 'title', namespace_uri => $NS_DC)
                  ->append_text ($page);
                #if ($option{not_exist}->{$page}) {
                #  $CLASS->append_text (' not-exist');
                #}
                $D->append_text ("\n");
                $D->append_new_node (local_name => 'description', namespace_uri => $NS_RSS)
                  ->append_text (SuikaWiki::Plugin::WikiPage->_get_subjectline($page));
                unless ($option{outputed}->{$page}) {   ## child
                  my $c = &map_list_to_xml ($page, $wlist, %option);
                  if (ref $c) {
                    $D->append_text ("\n");
                    my $B = $D->append_new_node (local_name => 'items', namespace_uri => $NS_RSS)
                              ->append_new_node (local_name => 'Bag', namespace_uri => $NS_RDF);
                    for (@{$c->child_nodes}) {
                      $B->append_new_node (local_name => 'li', namespace_uri => $NS_RDF)
                        ->append_node ($_);
                      $B->append_text ("\n");
                    }
                  }
                }
              } # LI
            }
            return $r->count ? $r : '';
        }
        
        SuikaWiki::View->definition (map => {
                media   => {type => 'text/html', charset => 1, expires => 60},
                xmedia  => {type => 'application/xhtml+xml', charset => 1, expires => 60},
                template => <<'EOH'});
        %html-document(title=>{%res(name=>{Map:WebPageTitle});}p,link-meta=>{%predefined-template(name=>links);}p,content=>{
          %section(level=>1,add-to-toc=>0,type=>body,title=>{%ns-short-page-name;}p,heading,content=>{
            %section(id=>tools1,class=>tools,add-to-toc=>0,content=>{%predefined-template(name=>navbar);}p);
            %section(level=>2,id=>link-map,title=>{%res(name=>{Map:Title});}p,heading,content=>{
              %paragraph(content=>{%res(name=>{Map:Description});}p);
              %link-map;
            }p);
            %section(level=>2,id=>children,title=>{%res(name=>{Children:Title});}p,heading,
            content=>{%page-list(ns=>{%page-name;}p,recursive=>0,type=>both,template=>{%res(name=>{Children:Item});}p);}p);
            %section(level=>2,id=>see-also,title=>{%res(name=>SeeAlso);}p,heading,content=>{%search-result;}p);
            %section(level=>2,id=>referer,title=>{%res(name=>Referer);}p,heading,content=>{%referer-list;}p);
            %section(level=>2,id=>toc,title=>{%res(name=>{TOC:Title});}p,heading,add_to_toc=>0,content=>{%toc(drag);}p);
            %section(id=>last-modified,add-to-toc=>0,content=>{%res(name=>{LastModified=});%last-modified;}p);
            %section(class=>tools,add-to-toc=>0,content=>{%predefined-template(name=>navbar);}p);
            %section(id=>footer,add-to-toc=>0,content=>{%predefined-template(name=>footer);}p);
            %apply-user-preferred-style;
          }p);
        }p);
        EOH
        
        SuikaWiki::View->definition (m__recent_changes => {
                media   => {type => 'text/html', charset => 1, expires => 120},
                xmedia  => {type => 'application/xhtml+xml', charset => 1, expires => 120},
                template => <<'EOH'});
        %html-document(title=>{%res(name=>{Map:RecentChanges:WebPageTitle});}p,
                                    link-meta=>{%predefined-template(name=>links);}p,
                                    content=>{
          %section(level=>1,add-to-toc=>0,type=>body,title=>{%ns-short-page-name;}p,heading,content=>{
            %section(id=>tools1,class=>tools,add-to-toc=>0,
                     content=>{%predefined-template(name=>navbar);}p);
            %section(level=>2,id=>link-map,title=>{%res(name=>{Map:RecentChanges:Title});}p,heading,
                     content=>{
              %paragraph(content=>{%res(name=>{Map:RecentChanges:Description});}p);
              %recent-change-list(n=>50,ns=>{%page-name;}p,recursive);
            }p);
            %section(level=>2,id=>toc,title=>{%res(name=>{TOC:Title});}p,heading,add_to_toc=>0,
                     content=>{%toc(drag);}p);
            %section(class=>tools,add-to-toc=>0,content=>{%predefined-template(name=>navbar);}p);
            %section(id=>footer,add-to-toc=>0,content=>{%predefined-template(name=>footer);}p);
            %apply-user-preferred-style;
          }p);
        }p);
        EOH
        

POD:SEE ALSO:
        SuikaWiki::Plugin::Referer, SuikaWiki::Plugin::WikiPage,
        SuikaWiki::Plugin::InterWikiCore, SuikaWiki::Plugin::WikiLinking
POD:LICENSE:
        Copyright 2003 Wakaba <w@suika.fam.cx>
        
        %%GNUGPL2%%