画像アップロード

質問

http://perl.toshinari.net/cgi/bbs/new2ch/の掲示板を利用しているのですが、画像をアップロードできるようにしたいのですが、read.cgiをどのように直せばよいのか教えていただけますか。

http://www.h-navi.net/bbs.htmのような感じにしたいのですが（右フレームのみ）

よろしくお願いします

回答No.1

mi-si

画像アップロードするにはbbs.cgiの方もかなり書き直しになります。

read.cgiの方は
sub PRINT_OUT のところに
if (-f "$bbs/images/$key/$now.jpg") {
print "<img src=\"$bbs/images/$key/$now.jpg\">";
} elsif (-f "$bbs/images/$key/$now.gif") {
print "<img src=\"$bbs/images/$key/$now.gif\">";
} elsif (-f "$bbs/images/$key/$now.png") {
print "<img src=\"$bbs/images/$key/$now.png\">";
}
とでもやれば良いのですが、

フォームの方は、
<form ENCTYPE="multipart/form-data"
action="${dir}bbs.cgi" method="post">
<input type="submit" value="書き込む"> 名前：<input type="text" name="FROM" size="19" value="$ck[0]"> E-mail(<font size="1">省略可</font>)：<input type="text" size="30" name="mail" value="$ck[1]">
<br>
<textarea name="MESSAGE" rows="5" cols="64" WRAP=OFF></textarea><BR>
アップロードするファイル名:<BR>
<INPUT TYPE="file" NAME="file" size=80><br>
<!--隠し情報-->
<input type="hidden" name="bbs" value="$_[0]">
<input type="hidden" name="key" value="$_[1]">
</form>

bbs.cgiの方 面倒なので省略

sub ReadParse
- multipart/form-data の処理を追加
- サイズのチェック(大きすぎるデータはエラー)

sub Writing
- 画像データの正当性チェック
- イメージの書き込み処理

お礼

本を買ってきたので、自分で考えて見ます。

補足

read.cgiの処理のみで出来ると思っていましたが、こんなに大変とは知りませんでした。お願いできるのであれば、急ぎませんので最後までお願いできませんか。
>read.cgiの方は
sub PRINT_OUT のどのあたりに追加すればよいのでしょうか。

>bbs.cgiの方 面倒なので省略
詳しくお願いできませんか。