今日は銀河鉄道物語25話地上波放送日なんだよ！（キバヤシ風に）

2004年6月16日 web拍手

ニョキニョキ（挨拶）。
今日はタイトル固定、話題豊富にお送りいたします。

*web拍手改造の続き*
今までは一行フォームだったところをテキストエリアにしてみました。今回改造するのも
・clap.cgi　本体
・kaiseki.cgi　拍手数とコメント解析画面
・clapinit.cgi　お礼制御
です。
clap.cgi　本体改造

#====================さらに送るフォーム＆メッセージ

if ($kaisuu n";
print ’＜INPUT type="submit" value="もっと送る">＜br>＜br>’，"n";
print "＜input type=hidden name=kaisuu value=$kaisuu>n";
print ’＜font size=2>リンク切れ・誤字の報告、簡単な感想等＜BR>一言あればご利用ください。＜BR>(匿名でどうぞ。拍手だけでも送れます)＜br>’，"n";
------------------------------ここを改造---------------------------------
print ’＜TEXTAREA rows=3 cols=40 name=hitokoto>＜/TEXTAREA>＜br>’，"n";
---------------コピペはできないので参考にしつつ改造してね----------------
print ’＜/FORM>’，"n";

}else{

print ’＜font size=2>いたずら防止のため、15回以上連続で拍手を送れないようになっています。＜/font>’;

　　　
clapinit.cgi　解析制御の改造

kaiseki.cgiの終わり（#ログ上書き保存パートの”}”のさらに下あたり）に
# 改行処理
if ($key eq "comment") {
$val =~ s/rn/＜br>/g;
$val =~ s/r/＜br>/g;
$val =~ s/n/＜br>/g;
} else {
$val =~ s/r//g;
$val =~ s/n//g;
}
を参考にしつつ入力してください。この日記の仕様でタグが使えないため、＜を全角にしているからコピペしないでください。

clapinit.cgi　お礼画面制御の改造

clapinit.cgiの
# 改行処理
if ($key eq "comment") {
$val =~ s/rn/＜br>/g;
$val =~ s/r/＜br>/g;
$val =~ s/n/＜br>/g;
} else {
$val =~ s/r//g;
$val =~ s/n//g;
}

↑部分にあるif ($key eq "comment") {
の"comment"を"hitokoto"に変えるだけ。
サポートスレ
http://www.webclap.com/cgi-bin/bbs/patio.cgi?
の皆様に感謝。ほとんどあそこのコピペです。