>>727
まず俺を会員にすれ。なんつて。

>>730
今はPerlで画像をいじる環境がないし携帯のテストも困難なのでパス

>>736
index.cgi

70行目置換
$res eq $r_no
↓
$in{mode} =~ /^write|res$/ && $res eq $r_no

68行目置換
<a href=\"$cgi_file?mode=del&no=$no\"><B>削除</B></a>$host</font></div><HR>
↓
<a href=\"$cgi_file?mode=res&page=$i\"><B>レス</B></a> <a href=\"$cgi_file?mode=del&no=$no\"><B>削除</B></a>$host</font></div>

58行目に挿入
if ($in{mode} =~ /^write|res$/) { $page_stock = 1 } else { $res_form = '' }

56行目に挿入
<input type="hidden" name="page" value="${\(int $in{page})}">