perlは全く触ったことがなかったので、こんな簡単そうな事も苦労しました。
<input type=radio name=henshin value=0 checked=checked />返信不要/
<input type=radio name=henshin value=1 />返信希望
clap.cgiのテキストフィールドの横にラジオボタンを追加。name属性に適当に名前を付ける。
どちらかをチェックしなければならないので、名前(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を追加。
以上で完成です。
