non vorrei lavorare

ブログ名の通りです。javascript three.js mruby rust OCaml golang julialang blender

YukiWikiの改造メモ

ページタイトルをキーワードに検索結果をリンクとしてページ貼り付ける改造

wiki.cgiの先頭のほうに

 

use LWP::Simple;

 

print_footer関数のmy ($page) = @_;

の直後に以下を追加

 

# JK

my $myWikiUrl = "http://nadesico.nergal.lan/~junichi/cgi-bin";

my $pName = @{[&escape($page)]}[0];

if($pName =~ /^SearchPage/ or $pName =~ /^FrontPage/) {

} else {

my $keyword = encode($page);

print "<hr><h2>AutoLink</h2>";

my $url = $url_cgi . "?mycmd=search&mymsg=" . $keyword;

my $contents = get("$myWikiUrl/$url");

my @contents = split(/\n/, $contents);

foreach(@contents) {

if(/^<ul>/) {

print;

}

}

}

# JK

 

 


関連記事

7年後の記事