| Kです。ご指摘を受け、supportから移ってきました。
うちのサーバーでも、UPP-Bで行うと200Kでもさっくりあがるのです。
そこで、Child TreeにUPP-Bの&d_code を移植したのですがだめでした。
でも、やっぱり、この問題以外は、Child Treeは、理想とおりなので、
拘っています。。。よろしくお願いします。
＜移植部分＞
if($filename){
$UP=1; $file=$filename; $Read=$read_data; $Fsize=$size; $Pos2=$pos2;
$FLAG=0;
foreach $exn (@exn){
if($filename=~ /$exn$/ || $filename=~ /\U$exn\E$/){$FLAG=1; $TAIL=$exn; last;}
}
if($FLAG==0){&er_("アップできないファイル形式です!");}
if($size > $MaxSize){&er_("ファイルサイズが大きすぎます!");}
if(-e "$i_dir/$filename"){
$TIME=time; $filename="$TIME$TAIL";
$Henko="<h3>同じファイル名があったため、$filenameに変更しました</h3>";
}elsif($filename =~/[^\w\-\.]/){
$TIME=time; $filename="$TIME$TAIL";
$Henko="<h3>ファイル名に全角文字が含まれていたため、$filenameに変更しました</h3>";
}
$file=$filename;
if (open(OUT, "> $i_dir/$filename")) {
binmode(OUT);
print OUT substr($read_data, $pos2, $size);
close(OUT);
}
chmod(0666,"$i_dir/$filename");
}
＜残った部分：これは、なんでしょう？＞
sub check_ {
if($i_mode && $UP){
$FLAG=0;
foreach(0..$#exn){if($file=~ /$exn[$_]$/ || $file=~ /\U$exn[$_]\E$/){$TL=$exi[$_]; last;}}
}
|
