Name:
	WikiPage
FullName:
	Getting WikiPage information
URI:
	IW:SuikaWiki:WikiAdmin

Initialize:
	my $NS_XHTML1 = 'http://www.w3.org/1999/xhtml';
	my $HAS_XML = SuikaWiki::Plugin->feature ('SuikaWiki::Markup::XML');

{
Name:
	wikiview/search-result
	wikiform_input/search-result
FullName:
	Search result with the given string
Format:
	$p->{key} ||= $o->{page};
	  my $word = $p->{case_sensible} ? $p->{key} : lc $p->{key};
	  my @r;
	  my $sr = $o->cache ('search');
	  unless (defined $sr->{$word}) {
	    for my $page (keys %main::database) {
	      my ($magic, $content) = $o->magic_and_content ($main::database{$page});
	      $content = $p->{case_sensible} ? $content : lc $content;
	      $content =~ s/^[^\x0A\x0D]+[\x0D\x0A]+//s;
	      if (index (lc $page, $word) > -1) {
	        my $c = $content =~ s/\Q$word\E//g;
	        push @r, [$page, $c+20];
	      } elsif (index ($word, lc $page) > -1) {
	        my $c = $content =~ s/\Q$word\E//g;
	        push @r, [$page, $c+10];
	      } elsif (my $c = $content =~ s/\Q$word\E//g) {
	        push @r, [$page, $c];
	      }
	    }
	    @r = sort {$b->[1] <=> $a->[1] || $a->[0] cmp $b->[0]} @r;
	    $sr->{$word} = join "\x1E", map {$_->[0]."\x1F".$_->[1]} @r;
	  } else {
	    @r = map {[split /\x1F/, $_, 2]} split /\x1E/, $sr->{$word};
	  }
	  my $em = $p->{em} ? sub { my $s = shift; $s =~ s#(\Q$word\E)#<em>$1</em>#gi; $s } : sub {$_[0]};
	  if ($o->feature ('SuikaWiki::Markup::XML')) {
	    my $ul = SuikaWiki::Markup::XML->new (local_name => 'ul', namespace_uri => $NS_XHTML1);
	    for (@r) {
	      my $li = $ul->append_new_node (local_name => 'li', namespace_uri => $NS_XHTML1);
	        $li->append_text ('{' . $_->[1] . '} ');
	        my $a = $li->append_new_node (local_name => 'a', namespace_uri => $NS_XHTML1);
	          $a->set_attribute (href => $o->uri('wiki').'?'.$o->encode($_->[0]));
	          $a->set_attribute (class => 'wiki');
	          $a->append_text ($_->[0]);
	        $li->append_text (' ');
	        my $hl = $li->append_new_node (local_name => 'span', namespace_uri => $NS_XHTML1);
	          $hl->set_attribute (class => 'headline');
	          $hl->append_text (main::get_subjectline ($_->[0]));
	      $ul->append_text ("\n");
	    }
	    $r = $ul;
	  } else {
	    $r = join "\n", map {qq(<li>[$_->[1]] <a href ="@{[$o->uri('wiki').'?'.$o->encode($_->[0])]}" class="wiki">@{[&$em($o->escape($_->[0]))]}</a> <span class="headline">@{[&$em($o->escape(&main::get_subjectline($_->[0])))]}</span></li>)} @r;
	    $r = qq|<ul class="search-result">$r</ul>| if $r;
	  }
}

{
Name:
	wikiview/last-modified
FullName:
	Last-modified date & time of the page
Format:
	$r = &main::_rfc3339_date ($main::database->mtime ($p->{page} || $o->{page}));
}
{
Name:
	wikiview-resource/last-modified
FullName:
	Last-modified date & time of the page
Format:
	$r = &main::_rfc3339_date ($main::database->mtime ($p->{page} || $o->{page}));
}
{
Name:
	wikiform_input/last-modified
FullName:
	Last-modified date & time of the page
Format:
	$r = &main::_rfc3339_date ($main::database->mtime ($p->{page} || $o->{page}));
}
{
Name:
	wikiview-resource/page-name
	wikiform_input/page-name
	wikiview/page-name
	wikipage_list_item/page-name
FullName:
	Page name
Format:
	if ($HAS_XML) {
	  $r = SuikaWiki::Markup::XML->new (type => '#text', value => $o->{page});
	} else {
	  $r = $o->escape ($o->{page});
	}
}

{
Name:
	wikipage-link/page-name
FullName:
	Name of the WikiPage
Format:
	if ($p->{relative}) {
	  $r = SuikaWiki::Markup::XML->new (type => '#text', value => $o->{link}->{dest}->{page_name_relative});
	} else {
	  $r = SuikaWiki::Markup::XML->new (type => '#text', value => $o->{link}->{dest}->{page_name});
	}
}

{
Name:
	wikipage-link/page-headline
FullName:
	Headline of the WikiPage
Format:
	$r = SuikaWiki::Markup::XML->new (type => '#text', value => &main::get_subjectline ($o->{link}->{dest}->{page_name}, delimiter => ''));
}

{
Name:
	wikiview/wiki-link
	wikiview-resource/wiki-link
FullName:
	Link to the WikiPage
Format:
	$r = &main::make_wikilink ($o->escape ($p->{page}||$o->{page}), anchor => $p->{anchor}, up_to_date => 1);
}
{
Name:
	wikipage_list_item/wiki-link
FullName:
	Link to the WikiPage
Format:
	$r = $o->_html_wikilink ($o->escape ($p->{page}||$o->{page}), anchor => $p->{anchor}, up_to_date => $p->{up_to_date}, label => $p->{label});
}

{
Name:
	wikiview/link-wiki
FullName:
	Link element to the wiki itself
Format:
	unless ($p->{href}) {
	  $p->{mode} ||= 'read';
	  $p->{page} ||= $o->{page};
	  $p->{href} = $o->uri('wiki').'?';
	  if ($p->{up_to_date} || $p->{mode} ne 'read' || $p->{add_param}) {
	    $p->{href} .= qq(mypage=@{[$o->encode($p->{page})]};mycmd=@{[$o->encode($p->{mode})]});
	    $p->{href} .= ';'.$p->{add_param} if $p->{add_param};
	    $p->{href} .= ';x-d='.time if $p->{up_to_date};
	    $p->{href} .= ';x-lm='.($main::database->mtime ($p->{page})||0) if $p->{with_lm};
	  } else {
	    $p->{href} .= $o->encode ($p->{page});
	  }
	}
	$r = qq(<link);
	  for my $attr (qw/rel rev href title class type hreflang charset accesskey/) {
	      $r .= qq( $attr="@{[$o->escape($p->{$attr})]}") if $p->{$attr};
	  }
	$r .= '/' if $o->{media}->{type} =~ /xml/;
	$r .= '>';
}
{
Name:
	wikiview/anchor-wiki
FullName:
	A element to the wiki page
Format:
	$p->{href} ||= compose_wiki_page_uri ($o, $p, {});
	$p->{label} = $p->{page} unless length $p->{label};
	if ($p->{page} ne $p->{label} && !defined $p->{title}) {
	  $p->{title} = $p->{page};
	}
	$r = qq(<a);
	  for my $attr (qw/rel rev href class title type hreflang charset target accesskey/) {
	      $r .= qq( $attr="@{[$o->escape($p->{$attr})]}") if $p->{$attr};
	  }
	$r .= '>' . $o->escape ($p->{label}) . '</a>';
}
{
Name:
	wikiview-resource/anchor-wiki
FullName:
	A element to the wiki page
Format:
	$p->{href} = compose_wiki_page_uri ($o, $p, {});
	$p->{label} = $p->{page} unless length $p->{label};
	if ($p->{page} ne $p->{label} && !defined $p->{title}) {
	  $p->{title} = $p->{page} || $o->{page};
	}
	$r = qq(<a);
	  for my $attr (qw/rel rev href class title type hreflang charset target accesskey/) {
	      $r .= qq( $attr="@{[$o->escape($p->{$attr})]}") if $p->{$attr};
	  }
	$r .= '>' . $o->escape ($p->{label}) . '</a>';
}

{
Name:
	wikiview/uri-wiki
FullName:
	Output URI of the WikiPage (as anchor)
Format:
	my $uri = $o->uri('wiki').'?'.$o->encode($p->{page}||$o->{page});
	$r = qq(&lt;<a href="$uri">$uri</a>&gt;);
}

{
Name:
	wikiview/log-hotness
FullName:
	Logging hotness of the page
Format:
	my $db = $o->cache ('hotness', -expires=>7*24*3600, -removes=>7*24*3600);
	$db->{$o->{page}||$p->{page}} += ($p->{weight} || 1);
}
{
Name:
	wikiform_input/hotness-list
FullName:
	Hotness-of-pages' list
Format:
	my $db = $o->cache ('hotness', -expires=>7*24*3600, -removes=>7*24*3600);
	my $i = 0;
	    $r = qq(<ol class="hotness">\n);
	    for (sort {$db->{$b}<=>$db->{$a}} grep {$db->{$_} > $p->{threshold}} keys %$db) {
	      do {$i++; next if $i > $p->{n}} if $p->{n};
	      $r .= qq(<li><a href="@{[$o->uri('wiki')]}?@{[$o->encode($_)]}" class="wiki" title="{@{[$db->{$_}+0]}}">) . $o->escape ($_) . qq(</a></li>\n);
	    }
	    $r .= '</ol>';
}

MODULE:
	sub compose_wiki_page_uri ($$$) {
	  my ($o, $p, $q) = @_;
	  $q->{mode} ||= $p->{mode} || 'read';
	  $q->{page} ||= $p->{page} || $o->{page};
	  $q->{add_param} ||= $p->{add_param};
	  $q->{up_to_date} = $p->{up_to_date} unless defined $q->{up_to_date};
	  $q->{with_lm} = $p->{with_lm} unless defined $q->{with_lm};
	  $q->{href} = $o->uri('wiki').'?';
	  if ($q->{up_to_date} || $q->{mode} ne 'read' || $q->{add_param} || $q->{with_lm}) {
	    $q->{href} .= qq(mypage=@{[$o->encode($q->{page})]};mycmd=@{[$o->encode($q->{mode})]});
	    $q->{href} .= ';'.$q->{add_param} if $q->{add_param};
	    $q->{href} .= ';x-d='.time if $q->{up_to_date};
	    $q->{href} .= ';x-lm='.($main::database->mtime ($q->{page})||0) if $q->{with_lm};
	  } else {
	    $q->{href} .= $o->encode ($q->{page});
	  }
	  $q->{href};
	}
	SuikaWiki::View->template ('links')->add_line (<<EOH);
	%link-wiki(page=>@{[$main::PageName{SearchPage}]},rel=>search,class=>wiki,title=>"%res(name=>GoToSearchPageLink);"p);
	EOH


POD:LICENSE:
	Copyright 2003 Wakaba <w@suika.fam.cx>
	
	%%GNUGPL2%%