とりあえず自分用のメモとしてコードを貼り付けて今日は寝ます。
</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
