Windows2000サーバーでは動いていたCGIがWindowsサーバー2003で動きません

質問

ファイルのアップロードをするCGIです。
Windows2000サーバーでは問題なく動いていました。
先日Windows2003に乗り換えたとたん、動かなくなりました。
色々調べて、とりあえずエラーにはならなくなったのですが、正常に実行されないのです。
あやしいところは・・・

binmode(STDIN);
while($remain){$remain-=sysread(STDIN,$buf,$remain);$read_data.=$buf;}
$pos1=$pos2=$pos3=0;
$delimiter="";
$max_count=0;
$sendfilecnt=0;
while(1){
$pos2=index($read_data,"\r\n\r\n",$pos1)+4;
@headers=split("\r\n",substr($read_data,$pos1,$pos2-$pos1));
$filename='';
$name='';
foreach(@headers){
if($delimiter eq''){
$delimiter=$_;
}elsif(/^Content-Disposition: ([^;]*); name="([^;]*)"; filename="([^;]*)"/i){
if($3){
$filename=$3;
if($filename=~/([^\\\/]+$)/){$filename=$1;}
}
}elsif(/^Content-Disposition: ([^;]*); name="([^;]*)"/i){$name=$2;}
}

このへんです。
どうも、$filenameが''（ヌル）のままなので、この後正常にファイルのアップが動かないようなのです。
どなたか詳しい方、ぜひ教えてください。

回答No.2

arcsin · ベストアンサー

#1です。

微妙に間違えました。失礼！

Content-Disposition:.*? name="([^;]*)"; filename="([^;]*)"

ですね。ちょっと試してみてください。ちなみに、()１つなくしちゃったので、1つずれて、$2は$1、$3とかは $2になりますよね。それがめんどうなら、

Content-Disposition:(.*?) name="([^;]*)"; filename="([^;]*)"

でもいいとおもいます。これなら他の変更は不要！

回答No.1

arcsin

まったくもって自信はありませんが、

Content-Disposition: ([^;]*); name="([^;]*)"; filename="([^;]*)

を、

Content-Disposition:([^;]*); name="([^;]*)"; filename="([^;]*)

にするとどうでしょう。
（Content-Disposition:の後ろの半角スペースを削除した）
一般的に、この $1 にあたる部分には form-data がくると思うのですが、cgi-lib.pl のソースを見ていたところ、それについての処理が書いてありませんでした。

滅茶苦茶適当な解釈ですが、これは「稀に form-data と言う文字列をはかない場合がある得るかもしれないから書いてい無い」と強引に考えちゃえば、もしこれが無い場合、nameの前に半角スペースが2つあることになりますよね。それで正規表現にひっかからないとか。

見た感じ、}が１つたりないですが処理の方向としては間違ってないと思うので、一度、$read_data の中身をブラウザ上に表示して確かめてはどうでしょう。

お礼

ご回答、ありがとうございます。
実は、今日、解決したのです。

Windows server2003では、ファイルの参照などに相対参照が使えず、絶対参照を使わなければなりませんでした。
そこで、ファイルのアップロード先に、ルートからのパスをすべて記述する事で解消したのです。

取り下げるのが遅れたので、お騒がせしました。

ご回答、本当にありがとうございました。