>>537
joyful.cgi開いて
84行目当たりに
↓を追加。hogehogeのところが合言葉になるから適当に変えて
$key_word = "hogehoge"; #合言葉

549行目前後にある
if ($in{'reno'} eq "") {
の下に↓を追加
if ($key_word ne $in{'keyword'}) { &error("合言葉が正しくありません。"); }

2062行目前後にある
<input type=text name=sub size=36 value="$sub">
<input type=submit value="投稿する"><input type=reset value="リセット">
これを

#####ここから#####
EOM
if ($type eq "edit" || $type eq "res") {
print ("<input type=submit value=\"投稿する\"><input type=reset value=\"リセット\">\n");
} else {
print ("</td></tr><tr><td nowrap><b>合言葉</b></td>\n");
print ("<td nowrap><input type=text name=keyword size=28>\n");
print ("<input type=submit value=\"投稿する\"><input type=reset value=\"リセット\">\n");
}
print <<"EOM";
#####ここまで#####

一応これで動く。