新規作成 | 管理 | 差分 | 検索 | FrontPage | ページ一覧 | 更新履歴 | RSS

PlugIn/read-by-part - 受け取ったパラグラフ名の内容を文字列で返す

管理

受け取ったパラグラフ名の内容を文字列で返す

$plugin->def("read-by-part",
 "受け取ったページ名の内容をパラグラフ単位で返す",
  sub {
    my @targets = @_;
    return "" unless @targets;
    my @ret;
    foreach my $page (@targets) {
      next if $page eq $form{mypage};
      next if $page eq 'RecentChanges';
      my @parts = map { 
                    s/^(\*+)/'!' x length($1)/mge;
                    CGI::escapeHTML($_);
                  } read_by_part($page);
      my $tmp = shift @parts;
      push @ret, @parts;
    }
    return @ret;
  }
);