Web拍手改造　返信不要・必要の選択

　perlは全く触ったことがなかったので、こんな簡単そうな事も苦労しました。

<input type=radio name=henshin value=0 checked=checked />返信不要/
<input type=radio name=henshin value=1 />返信希望

　clap.cgiのテキストフィールドの横にラジオボタンを追加。name属性に適当に名前を付ける。　どちらかをチェックしなければならないので、名前は同じで。valueの値はif文の判定に使います。

if($in{'henshin'} == 0){
　　　$henshin = "返信不要";
}else{
　　　$henshin = "返信必要";
}

　この$inっていうやつ調べても全く出てこないんだけど。でもこれで動く。
　&inの後の括弧にラジオボタンの名前を入れる。
　書く場所は適当で（何
　あんまり適当でもまずい気がしますが、保存用ログ作成の部分に書きました。

$mesdata = "$getdate<>$tohour<>$hitokoto<>$henshin\n";

　一言メッセージ処理のコメントの所。返信不要・必要を入れてる変数を追加。
　次に、解析画面の方。(kaiseki.cgi)
　120行目辺りのfor文の中に

($mesday,$meshour,$message,$henshin) = split(/<>/,$mes[$i]);

　ただ返信不要・必要の変数を追加。
　今日送られたメッセージのテーブルにtdタグを追加して$henshinを追加。
　以上で完成です。

Episodes & Melody