cgiで動画ファイルをアップロードするには？

質問

みなさん、はじめまして。
私は今、ＨＰ製作中のおやじです。

昨日、フリーのＣＧＩダウンロードしました。
このＣＧＩは、ＰＣ上のＪＰＧ、ＧＩＦファイルを自動で連番．ＪＰＧ，連番．ＧＩＦという具合に元のファイル名を連番にしてサーバーにアップロードしてくれる「日記帳的」ＣＧＩです。

＊そこでチョット加工してＷＯＲＤ，ＥＸＣＥＬファイルもアップロード出来る様にしました。

＊ついでに動画ファイル（ＭＰＧ，ＡＶＩ，ＭＯＶ）も
アップロード出来る様にしたいのですが、どうしたらいいのか解かりません。この辺がもうおやじの限界です。
どなたか、ヘルプお願いいたします。

＊ちなみにＣＧＩソースはこうなっています。
　これだけでわかるでしょうか？

sub img {
$type = '';
foreach (@in) {
if ($_ =~ /Content-type:(.+)/i) {
if ($1 =~ /image\/.*jpg/i) {$type = 'jpg';}
elsif ($1 =~ /image\/gif/i) {$type = 'gif';}
elsif ($1 =~ /msword/i) {$type = 'doc';}
elsif ($1 =~ /ms-excel/i) {$type = 'xls';}
elsif ($1 =~ /pdf/i) {$type = 'pdf';}
last;
}
}

if (!$type) {&error("このファイルはアップロードできません");}

$img_file = "$_[0].$type";
open(OUT,">$img_file") || &error("画像ファイルを作成できません");
binmode OUT;
print OUT $in{'img'};
close OUT;
chmod (0666,$img_file);
}

---------以上--------------------------------

回答No.1

estea · ベストアンサー

見たところ、

> sub img {
> $type = '';
> foreach (@in) {
> if ($_ =~ /Content-type:(.+)/i) {
> if ($1 =~ /image\/.*jpg/i) {$type = 'jpg';}
> elsif ($1 =~ /image\/gif/i) {$type = 'gif';}
> elsif ($1 =~ /msword/i) {$type = 'doc';}
> elsif ($1 =~ /ms-excel/i) {$type = 'xls';}
> elsif ($1 =~ /pdf/i) {$type = 'pdf';}
> last;
> }
> }
の部分だけのようです。

MIME Type での判断にどれだけ意味があるかは疑問ですが、参考UELを元に

elsif ($1 =~ /msvideo/i) {$type = 'avi';}

などを付け足すだけでいいのではないでしょうか。

参考URL：

http://homepage.nifty.com/mime/#list

お礼

どうもありがとうございました。
早速やってみます。

回答No.2

estea

Typoです。
UEL -> URL

で、補足ですが、仮に今回の修正を加えても、利用者の環境によってはうまく動かないこともあります。

こういう方法で、拡張子の付け直しを行なっている以上仕方の無いことなんでしょうが・・・。(MIMETypeと拡張子の組み合わせは環境によって変わることがありますので。)

お礼

返信、どうもありがとうございました。