Name:
	WikiPage
FullName:
	Getting WikiPage information
URI:
	IW:SuikaWiki:WikiAdmin
Require:
	SuikaWiki::Markup::XML main
Initialize:
	my $NS_XHTML1 = 'http://www.w3.org/1999/xhtml';

{
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]};
	    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 (__PACKAGE__->_get_subjectline ($_->[0]));
	      $ul->append_text ("\n");
	    }
	    $r = $ul if $ul->count;
}

{
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:
	  $r = SuikaWiki::Markup::XML->new (type => '#text', value => $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 => __PACKAGE__->_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};
	}
	
	## TODO: obsolete this function in the future
	sub _get_subjectline {
	    my (undef, $page, %option) = @_;
	    my $SubjectLine = SuikaWiki::Plugin->cache ('headline');
	    unless (defined $SubjectLine->{$page}) {
	      if (not &main::is_editable($page)) {
	        $SubjectLine->{$page} = "";
	      } else {
	        $SubjectLine->{$page} = do {
	          my $s=$main::database{$page};
	          $s =~ tr/\x0D//d;
	          $s =~ s!^\#\?[^\x0A\x0D]+[\x0A\x0D]*!!s;
	          $s =~ s/\x0A\x0A.*//s;
	          if (length ($s) > 500) {
	            $s = substr ($s, 0, 500);
	            $s =~ s/[^\x09\x0A\x20-\x7E]+$//s;
	            $s .= '...';
	          }
	          #if ($s =~ /^([^\x0A]*(?:\x0A+[^\x0A]+){0,9})/s) {
	          #  $s = $1;
	          #}
	          $s =~ s/[\x09\x0A\x20]+/\x20/gs;
	          $s =~ s/^[-=*>,:]+//;
	          $s =~ s/'''?//g;
	          $s =~ s/\[\[([^]]+)\]\]/$1/g;
	          $s =~ s/__&&([^&]+)&&__/$1/g;
	          $s =~ s/\[[A-Z]+(?:\([^)]+\))?\[([^]]+)\](?:\s\[([^]]+)\])?\]/$1$2/g;
	          $s =~ s/\([^\(\)]+\)//g;
	          $s =~ s/\[[^\[\]]+\]//g;
	          $s =~ s/>>[0-9]+//g;
	          $s =~ s/<[^<>]+>//g;
	          $s =~ s/20[0-9][0-9]-[01][0-9]-[0-3][0-9]\x20*[0-2][0-9]:[0-5][0-9]//g;
	          $s =~ s/ [Aa]n? / /g;
	          $s =~ s/ [Aa]t / @ /g;
	          $s =~ s/ [Tt]he / /g;
	          $s =~ s/,? and / & /g;
	          $s =~ s!,? or ! / !g;
	          $s =~ s! not !n't !g;
	          $s =~ s! (?:i|ha)s !'s !g;
	          $s =~ s! are !'re !g;
	          $s =~ s! [Ww]ith(in|out)? !' w/'.substr ($1,0,1).' '!ge;
	          $s =~ s!です。!。!g;
	          $s =~ s!ました。!た。!g;
	          $s =~ s!ありません!ない!g;
	          $s =~ s!します!する!g;
	          $s =~ s!(?:り)?ます!る!g;
	          $s =~ s!いよいよ|とうとう|ようやく!!g;
	          $s =~ s!とりあえず!!g;
	          $s =~ s!(?:、|。|[.,])\x20?$!!g;
	          $s =~ s/\x20+/\x20/g;
	          if (length ($s) > 400) {
	            $s = substr ($s, 0, 400);
	            $s =~ s/[^\x20-\x7E]+$//s;
	            $s .= '...';
	          }
	        $s};
	      }
	    }
	    if (length $SubjectLine->{$page}) {
	      $option{delimiter} = defined $option{delimiter} ? $option{delimiter} : SuikaWiki::Plugin->resource('Title-Summary Delimiter');
	      $option{delimiter}.$SubjectLine->{$page}.$option{tail};
	    } else {
	      '';
	    }
	}	# main::get_subjectline
	
	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%%