YukiWIkiのAjax対応
とりあえず自分用のメモとしてコードを貼り付けて今日は寝ます。
</head>の直後に以下を追加
<script language="javascript"> <!-- var xmlhttp; function doautolink(url) { alert(url); xmlhttp = this.XMLHttpRequest ? new XMLHttpRequest() : new ActiveXObject("Microsoft.XMLHTTP"); var result = document.getElementById("result"); result.innerHTML = "loading..."; xmlhttp.onreadystatechange=function() { var result = document.getElementById("result"); //result.innerHTML = "loading..."; if(xmlhttp.readyState == 4) { if(xmlhttp.status == 200) { html= xmlhttp.responseText; result.innerHTML = html; } else { result.innerHTML ="200じゃなかった"; } } else { result.innerHTML = "!=4"; } } if(xmlhttp.readyStatus>0) { xmlhttp.abort(); } xmlhttp.open("GET",url,true); xmlhttp.send(null); } // document.autolink.onMouseover = function() { // var result = document.getElementById("result"); // result.innerHTML = "loading..."; //} //} // --> </script>
print_footerの例の場所
# JK my $pName = @{[&escape($page)]}[0]; if($pName =~ /^SearchPage/ or $pName =~ /^FrontPage/ or $pName =~ /^CreatePage/ or $pName =~ /^CompletedSuccessfully/ or $pName =~ /^RecentChanges/) { } else { $keyword = &encode($page); #print "
AutoLink
"; my $url = $url_cgi . "?mycmd=search&mymsg=" . $keyword; print "関連項目"; #my $contents = get("http://nadesico.nergal.lan/~junichi/cgi-bin/$url"); print "
aaaa
"; #my @contents = split(/\n/, $contents); #foreach(@contents) { # if(/^<ul>/) { #print; #} #}
関連記事
- #trouble #solved #ffmpeg 連番って連番でないとno such file error!を食らう!
- IE7をPerlで操る
- find2perl
- 古いCPANモジュールのアップデート方法
- Perl/TkでIP Messenger
- Perl XMLでencoding='Shift_JIS'や'euc-jp'を使う
- はてなブックマークAtomAPIで大量登録
- \のコードを含む2バイト文字の対応
- find2perl
- LWP::Simpleのプロキシ設定
- やっぱりあったbasename