ファイルがアップロードされずファイルパスが表示される
$upfile = $param{'upfile'};
# マックバイナリ対策
if ($macbin) {
$length = substr($upfile,83,4);
$length = unpack("%N",$length);
$upfile = substr($upfile,128,$length);
}
# 添付データを書き込み
$imgfile = "$ImgDir$mynum$tail";
if (!open(OUT,"> $imgfile")) {
if ($clip_err) { &check_ok; }
}
binmode(OUT);
binmode(STDOUT);
print OUT $upfile;
close(OUT);
chmod(0666,$imgfile);
全体像を示せなくてすみません。$tailは拡張子。
画像ファイルアップロードつき掲示板を作成しています。
惜しいところまでたどり着きました。
「添付」ファイル(画像)をアップロードすると
フォルダーの中にコンピュータのファイルパスが記述された
だけになります。↓
C:\Documents and Settings\All Users\Documents\My Pictures\Sample Pictures\Sunset.jpg
なぜ画像がアップロードされないのでしょうか?
画像のファイルパスがアップされます。
$paramのところが&Readparseを使って$inでないとダメなんで
しょうか?&Readparseは呼び出しておりません。
元にした上手く画像がアップされるのは&Readparseで$inを
変数として使用しております。
しかし、いままで$paramでやってきてすべて$inに変えると
違うところがエラーが起こりそうです。
require "./jcode.pl";
require "./cgi-lib.pl";
を記述しています。
なにかヒントになることがあれば教えて頂きたいです。
よろしくお願いします。