$ver = 'PHOTO-MEMO v1.11';

#-------------------------------------------------
#  画像アップロード1
#-------------------------------------------------
sub UpFile1 {
	# 画像処理
	$macbin=0;
	$i=0;$j=0;$k=0;
	foreach (@in) {
		if ($_ =~ /(.*)Content-type:(.*)/i) { $tail=$2; $i++}
		if ($_ =~ /(.*)filename=(.*)/i) { $fname=$2; $j++}
		if ($_ =~ /application\/x-macbinary/i) { $macbin=1; $k++}
		if ($i==1 || $j==1 || $k==1) {$tailout=$tail; $fnameout=$fname; $macbinout=$macbin;}
	}
	$tail = $tailout;
	$fname = $fnameout;
	$macbin= $macbinout;

	$tail =~ s/\r//g;
	$tail =~ s/\n//g;
	$fname =~ tr/\"\x0D\x0A//d;

	# ファイル形式を認識
	$flag=0;
	if ($tail =~ /image\/gif/i && $gif) { $tail=".gif"; $flag=1; }
	if ($tail =~ /image\/jpeg/i && $jpeg) { $tail=".jpg"; $flag=1; }
	if ($tail =~ /image\/x-png/i && $png) { $tail=".png"; $flag=1; }

	if (!$flag) {
		if ($fname =~ /\.gif$/i && $gif) { $tail=".gif"; $flag=1; }
		if (($fname =~ /\.jpe?g$/i && $jpeg)) { $tail=".jpg"; $flag=1; }
		if ($fname =~ /\.png$/i && $png) { $tail=".png"; $flag=1; }
	}

	# アップロード失敗処理
	if (!$flag && !$clip_error) { return; }
	elsif (!$flag && $clip_error) {
		&error("FILE1はアップロードできないファイル形式です","lock");
	}

	$upfile = $in{'upfile1'};

	# マックバイナリ対策
	if ($macbin) {
		$length = substr($upfile,83,4);
		$length = unpack("%N",$length);
		$upfile = substr($upfile,128,$length);
	}

	# 添付データを書き込み
	$ImgFile = "$ImgDir$no-1$tail";
	open(OUT,"> $ImgFile") || &error("FILE1の画像のアップロードに失敗しました","lock");
	binmode(OUT);
	binmode(STDOUT);
	print OUT $upfile;
	close(OUT);
	chmod (0666,$ImgFile);

	# 画像サイズ取得
	if ($tail eq ".jpg") { ($W, $H) = &JpegSize($ImgFile); }
	elsif ($tail eq ".gif") { ($W, $H) = &GifSize($ImgFile); }
	elsif ($tail eq ".png") { ($W, $H) = &PngSize($ImgFile); }

	# 画像表示縮小
	if(-e './resize.pl') {
		if ($W > $MaxW2 || $H > $MaxH2) {
			$WW = $MaxW2 / $W;
			$HH = $MaxH2 / $H;
			if ($WW < $HH) { $key = $WW; }
			else { $key = $HH; }
			$w = int ($W * $key) || 1;
			$h = int ($H * $key) || 1;
			imgbbs::imgresize("$ImgFile","$ImgDir$no-1-s.jpg",$w,$h,75,0); 

		} else {
			imgbbs::imgresize("$ImgFile","$ImgDir$no-1-s.jpg",$W,$H,75,0); 
		}
	}
	$tail1 = $tail;
	$fname1 = $fname;
	$W1 = $W;
	$H1 = $H;
}


#-------------------------------------------------
#  画像アップロード2
#-------------------------------------------------
sub UpFile2 {
	# 画像処理
	$macbin=0;
	$i=0;$j=0;$k=0;
	foreach (@in) {
		if ($_ =~ /(.*)Content-type:(.*)/i) { $tail=$2; $i++}
		if ($_ =~ /(.*)filename=(.*)/i) { $fname=$2; $j++}
		if ($_ =~ /application\/x-macbinary/i) { $macbin=1; $k++}
		if ($i==2 || $j==2 || $k==2) {$tailout=$tail; $fnameout=$fname; $macbinout=$macbin;}
	}
	$tail = $tailout;
	$fname = $fnameout;
	$macbin= $macbinout;

	$tail =~ s/\r//g;
	$tail =~ s/\n//g;
	$fname =~ tr/\"\x0D\x0A//d;

	# ファイル形式を認識
	$flag=0;
	if ($tail =~ /image\/gif/i && $gif) { $tail=".gif"; $flag=1; }
	if ($tail =~ /image\/jpeg/i && $jpeg) { $tail=".jpg"; $flag=1; }
	if ($tail =~ /image\/x-png/i && $png) { $tail=".png"; $flag=1; }

	if (!$flag) {
		if ($fname =~ /\.gif$/i && $gif) { $tail=".gif"; $flag=1; }
		if (($fname =~ /\.jpe?g$/i && $jpeg)) { $tail=".jpg"; $flag=1; }
		if ($fname =~ /\.png$/i && $png) { $tail=".png"; $flag=1; }
	}

	# アップロード失敗処理
	if (!$flag && !$clip_error) { return; }
	elsif (!$flag && $clip_error) {
		&error("FILE2はアップロードできないファイル形式です","lock");
	}

	$upfile = $in{'upfile2'};

	# マックバイナリ対策
	if ($macbin) {
		$length = substr($upfile,83,4);
		$length = unpack("%N",$length);
		$upfile = substr($upfile,128,$length);
	}

	# 添付データを書き込み
	$ImgFile = "$ImgDir$no-2$tail";
	open(OUT,"> $ImgFile") || &error("FILE2の画像のアップロードに失敗しました","lock");
	binmode(OUT);
	binmode(STDOUT);
	print OUT $upfile;
	close(OUT);
	chmod (0666,$ImgFile);

	# 画像サイズ取得
	if ($tail eq ".jpg") { ($W, $H) = &JpegSize($ImgFile); }
	elsif ($tail eq ".gif") { ($W, $H) = &GifSize($ImgFile); }
	elsif ($tail eq ".png") { ($W, $H) = &PngSize($ImgFile); }

	# 画像表示縮小
	if(-e './resize.pl') {
		if ($W > $MaxW2 || $H > $MaxH2) {
			$WW = $MaxW2 / $W;
			$HH = $MaxH2 / $H;
			if ($WW < $HH) { $key = $WW; }
			else { $key = $HH; }
			$w = int ($W * $key) || 1;
			$h = int ($H * $key) || 1;
			imgbbs::imgresize("$ImgFile","$ImgDir$no-2-s.jpg",$w,$h,75,0); 

		} else {
			imgbbs::imgresize("$ImgFile","$ImgDir$no-2-s.jpg",$W,$H,75,0); 
		}
	}
	$tail2 = $tail;
	$fname2 = $fname;
	$W2 = $W;
	$H2 = $H;
}


#-------------------------------------------------
#  画像アップロード3
#-------------------------------------------------
sub UpFile3 {
	# 画像処理
	$macbin=0;
	$i=0;$j=0;$k=0;
	foreach (@in) {
		if ($_ =~ /(.*)Content-type:(.*)/i) { $tail=$2; $i++}
		if ($_ =~ /(.*)filename=(.*)/i) { $fname=$2; $j++}
		if ($_ =~ /application\/x-macbinary/i) { $macbin=1; $k++}
		if ($i==3 || $j==3 || $k==3) {$tailout=$tail; $fnameout=$fname; $macbinout=$macbin;}
	}
	$tail = $tailout;
	$fname = $fnameout;
	$macbin= $macbinout;

	$tail =~ s/\r//g;
	$tail =~ s/\n//g;
	$fname =~ tr/\"\x0D\x0A//d;

	# ファイル形式を認識
	$flag=0;
	if ($tail =~ /image\/gif/i && $gif) { $tail=".gif"; $flag=1; }
	if ($tail =~ /image\/jpeg/i && $jpeg) { $tail=".jpg"; $flag=1; }
	if ($tail =~ /image\/x-png/i && $png) { $tail=".png"; $flag=1; }

	if (!$flag) {
		if ($fname =~ /\.gif$/i && $gif) { $tail=".gif"; $flag=1; }
		if (($fname =~ /\.jpe?g$/i && $jpeg)) { $tail=".jpg"; $flag=1; }
		if ($fname =~ /\.png$/i && $png) { $tail=".png"; $flag=1; }
	}

	# アップロード失敗処理
	if (!$flag && !$clip_error) { return; }
	elsif (!$flag && $clip_error) {
		&error("FILE3はアップロードできないファイル形式です","lock");
	}

	$upfile = $in{'upfile3'};

	# マックバイナリ対策
	if ($macbin) {
		$length = substr($upfile,83,4);
		$length = unpack("%N",$length);
		$upfile = substr($upfile,128,$length);
	}

	# 添付データを書き込み
	$ImgFile = "$ImgDir$no-3$tail";
	open(OUT,"> $ImgFile") || &error("FILE3の画像のアップロードに失敗しました","lock");
	binmode(OUT);
	binmode(STDOUT);
	print OUT $upfile;
	close(OUT);
	chmod (0666,$ImgFile);

	# 画像サイズ取得
	if ($tail eq ".jpg") { ($W, $H) = &JpegSize($ImgFile); }
	elsif ($tail eq ".gif") { ($W, $H) = &GifSize($ImgFile); }
	elsif ($tail eq ".png") { ($W, $H) = &PngSize($ImgFile); }

	# 画像表示縮小
	if(-e './resize.pl') {
		if ($W > $MaxW2 || $H > $MaxH2) {
			$WW = $MaxW2 / $W;
			$HH = $MaxH2 / $H;
			if ($WW < $HH) { $key = $WW; }
			else { $key = $HH; }
			$w = int ($W * $key) || 1;
			$h = int ($H * $key) || 1;
			imgbbs::imgresize("$ImgFile","$ImgDir$no-3-s.jpg",$w,$h,75,0); 

		} else {
			imgbbs::imgresize("$ImgFile","$ImgDir$no-3-s.jpg",$W,$H,75,0); 
		}
	}
	$tail3 = $tail;
	$fname3 = $fname;
	$W3 = $W;
	$H3 = $H;
}


#-------------------------------------------------
#  画像アップロード4
#-------------------------------------------------
sub UpFile4 {
	# 画像処理
	$macbin=0;
	$i=0;$j=0;$k=0;
	foreach (@in) {
		if ($_ =~ /(.*)Content-type:(.*)/i) { $tail=$2; $i++}
		if ($_ =~ /(.*)filename=(.*)/i) { $fname=$2; $j++}
		if ($_ =~ /application\/x-macbinary/i) { $macbin=1; $k++}
		if ($i==4 || $j==4 || $k==4) {$tailout=$tail; $fnameout=$fname; $macbinout=$macbin;}
	}
	$tail = $tailout;
	$fname = $fnameout;
	$macbin= $macbinout;

	$tail =~ s/\r//g;
	$tail =~ s/\n//g;
	$fname =~ tr/\"\x0D\x0A//d;

	# ファイル形式を認識
	$flag=0;
	if ($tail =~ /image\/gif/i && $gif) { $tail=".gif"; $flag=1; }
	if ($tail =~ /image\/jpeg/i && $jpeg) { $tail=".jpg"; $flag=1; }
	if ($tail =~ /image\/x-png/i && $png) { $tail=".png"; $flag=1; }

	if (!$flag) {
		if ($fname =~ /\.gif$/i && $gif) { $tail=".gif"; $flag=1; }
		if (($fname =~ /\.jpe?g$/i && $jpeg)) { $tail=".jpg"; $flag=1; }
		if ($fname =~ /\.png$/i && $png) { $tail=".png"; $flag=1; }
	}

	# アップロード失敗処理
	if (!$flag && !$clip_error) { return; }
	elsif (!$flag && $clip_error) {
		&error("FILE4はアップロードできないファイル形式です","lock");
	}

	$upfile = $in{'upfile4'};

	# マックバイナリ対策
	if ($macbin) {
		$length = substr($upfile,83,4);
		$length = unpack("%N",$length);
		$upfile = substr($upfile,128,$length);
	}

	# 添付データを書き込み
	$ImgFile = "$ImgDir$no-4$tail";
	open(OUT,"> $ImgFile") || &error("FILE4の画像のアップロードに失敗しました","lock");
	binmode(OUT);
	binmode(STDOUT);
	print OUT $upfile;
	close(OUT);
	chmod (0666,$ImgFile);

	# 画像サイズ取得
	if ($tail eq ".jpg") { ($W, $H) = &JpegSize($ImgFile); }
	elsif ($tail eq ".gif") { ($W, $H) = &GifSize($ImgFile); }
	elsif ($tail eq ".png") { ($W, $H) = &PngSize($ImgFile); }

	# 画像表示縮小
	if(-e './resize.pl') {
		if ($W > $MaxW2 || $H > $MaxH2) {
			$WW = $MaxW2 / $W;
			$HH = $MaxH2 / $H;
			if ($WW < $HH) { $key = $WW; }
			else { $key = $HH; }
			$w = int ($W * $key) || 1;
			$h = int ($H * $key) || 1;
			imgbbs::imgresize("$ImgFile","$ImgDir$no-4-s.jpg",$w,$h,75,0); 

		} else {
			imgbbs::imgresize("$ImgFile","$ImgDir$no-4-s.jpg",$W,$H,75,0); 
		}
	}
	$tail4 = $tail;
	$fname4 = $fname;
	$W4 = $W;
	$H4 = $H;
}


#-------------------------------------------------
#  画像アップロード5
#-------------------------------------------------
sub UpFile5 {
	# 画像処理
	$macbin=0;
	$i=0;$j=0;$k=0;
	foreach (@in) {
		if ($_ =~ /(.*)Content-type:(.*)/i) { $tail=$2; $i++}
		if ($_ =~ /(.*)filename=(.*)/i) { $fname=$2; $j++}
		if ($_ =~ /application\/x-macbinary/i) { $macbin=1; $k++}
		if ($i==5 || $j==5 || $k==5) {$tailout=$tail; $fnameout=$fname; $macbinout=$macbin;}
	}
	$tail = $tailout;
	$fname = $fnameout;
	$macbin= $macbinout;

	$tail =~ s/\r//g;
	$tail =~ s/\n//g;
	$fname =~ tr/\"\x0D\x0A//d;

	# ファイル形式を認識
	$flag=0;
	if ($tail =~ /image\/gif/i && $gif) { $tail=".gif"; $flag=1; }
	if ($tail =~ /image\/jpeg/i && $jpeg) { $tail=".jpg"; $flag=1; }
	if ($tail =~ /image\/x-png/i && $png) { $tail=".png"; $flag=1; }

	if (!$flag) {
		if ($fname =~ /\.gif$/i && $gif) { $tail=".gif"; $flag=1; }
		if (($fname =~ /\.jpe?g$/i && $jpeg)) { $tail=".jpg"; $flag=1; }
		if ($fname =~ /\.png$/i && $png) { $tail=".png"; $flag=1; }
	}

	# アップロード失敗処理
	if (!$flag && !$clip_error) { return; }
	elsif (!$flag && $clip_error) {
		&error("FILE5はアップロードできないファイル形式です","lock");
	}

	$upfile = $in{'upfile5'};

	# マックバイナリ対策
	if ($macbin) {
		$length = substr($upfile,83,4);
		$length = unpack("%N",$length);
		$upfile = substr($upfile,128,$length);
	}

	# 添付データを書き込み
	$ImgFile = "$ImgDir$no-5$tail";
	open(OUT,"> $ImgFile") || &error("FILE5の画像のアップロードに失敗しました","lock");
	binmode(OUT);
	binmode(STDOUT);
	print OUT $upfile;
	close(OUT);
	chmod (0666,$ImgFile);

	# 画像サイズ取得
	if ($tail eq ".jpg") { ($W, $H) = &JpegSize($ImgFile); }
	elsif ($tail eq ".gif") { ($W, $H) = &GifSize($ImgFile); }
	elsif ($tail eq ".png") { ($W, $H) = &PngSize($ImgFile); }

	# 画像表示縮小
	if(-e './resize.pl') {
		if ($W > $MaxW2 || $H > $MaxH2) {
			$WW = $MaxW2 / $W;
			$HH = $MaxH2 / $H;
			if ($WW < $HH) { $key = $WW; }
			else { $key = $HH; }
			$w = int ($W * $key) || 1;
			$h = int ($H * $key) || 1;
			imgbbs::imgresize("$ImgFile","$ImgDir$no-5-s.jpg",$w,$h,75,0); 

		} else {
			imgbbs::imgresize("$ImgFile","$ImgDir$no-5-s.jpg",$W,$H,75,0); 
		}
	}
	$tail5 = $tail;
	$fname5 = $fname;
	$W5 = $W;
	$H5 = $H;
}


#-------------------------------------------------
#  画像アップロード6
#-------------------------------------------------
sub UpFile6 {
	# 画像処理
	$macbin=0;
	$i=0;$j=0;$k=0;
	foreach (@in) {
		if ($_ =~ /(.*)Content-type:(.*)/i) { $tail=$2; $i++}
		if ($_ =~ /(.*)filename=(.*)/i) { $fname=$2; $j++}
		if ($_ =~ /application\/x-macbinary/i) { $macbin=1; $k++}
		if ($i==6 || $j==6 || $k==6) {$tailout=$tail; $fnameout=$fname; $macbinout=$macbin;}
	}
	$tail = $tailout;
	$fname = $fnameout;
	$macbin= $macbinout;

	$tail =~ s/\r//g;
	$tail =~ s/\n//g;
	$fname =~ tr/\"\x0D\x0A//d;

	# ファイル形式を認識
	$flag=0;
	if ($tail =~ /image\/gif/i && $gif) { $tail=".gif"; $flag=1; }
	if ($tail =~ /image\/jpeg/i && $jpeg) { $tail=".jpg"; $flag=1; }
	if ($tail =~ /image\/x-png/i && $png) { $tail=".png"; $flag=1; }

	if (!$flag) {
		if ($fname =~ /\.gif$/i && $gif) { $tail=".gif"; $flag=1; }
		if (($fname =~ /\.jpe?g$/i && $jpeg)) { $tail=".jpg"; $flag=1; }
		if ($fname =~ /\.png$/i && $png) { $tail=".png"; $flag=1; }
	}

	# アップロード失敗処理
	if (!$flag && !$clip_error) { return; }
	elsif (!$flag && $clip_error) {
		&error("FILE6はアップロードできないファイル形式です","lock");
	}

	$upfile = $in{'upfile6'};

	# マックバイナリ対策
	if ($macbin) {
		$length = substr($upfile,83,4);
		$length = unpack("%N",$length);
		$upfile = substr($upfile,128,$length);
	}

	# 添付データを書き込み
	$ImgFile = "$ImgDir$no-6$tail";
	open(OUT,"> $ImgFile") || &error("FILE6の画像のアップロードに失敗しました","lock");
	binmode(OUT);
	binmode(STDOUT);
	print OUT $upfile;
	close(OUT);
	chmod (0666,$ImgFile);

	# 画像サイズ取得
	if ($tail eq ".jpg") { ($W, $H) = &JpegSize($ImgFile); }
	elsif ($tail eq ".gif") { ($W, $H) = &GifSize($ImgFile); }
	elsif ($tail eq ".png") { ($W, $H) = &PngSize($ImgFile); }

	# 画像表示縮小
	if(-e './resize.pl') {
		if ($W > $MaxW2 || $H > $MaxH2) {
			$WW = $MaxW2 / $W;
			$HH = $MaxH2 / $H;
			if ($WW < $HH) { $key = $WW; }
			else { $key = $HH; }
			$w = int ($W * $key) || 1;
			$h = int ($H * $key) || 1;
			imgbbs::imgresize("$ImgFile","$ImgDir$no-6-s.jpg",$w,$h,75,0); 

		} else {
			imgbbs::imgresize("$ImgFile","$ImgDir$no-6-s.jpg",$W,$H,75,0); 
		}
	}
	$tail6 = $tail;
	$fname6 = $fname;
	$W6 = $W;
	$H6 = $H;
}


#-------------------------------------------------
#  画像アップロード7
#-------------------------------------------------
sub UpFile7 {
	# 画像処理
	$macbin=0;
	$i=0;$j=0;$k=0;
	foreach (@in) {
		if ($_ =~ /(.*)Content-type:(.*)/i) { $tail=$2; $i++}
		if ($_ =~ /(.*)filename=(.*)/i) { $fname=$2; $j++}
		if ($_ =~ /application\/x-macbinary/i) { $macbin=1; $k++}
		if ($i==7 || $j==7 || $k==7) {$tailout=$tail; $fnameout=$fname; $macbinout=$macbin;}
	}
	$tail = $tailout;
	$fname = $fnameout;
	$macbin= $macbinout;

	$tail =~ s/\r//g;
	$tail =~ s/\n//g;
	$fname =~ tr/\"\x0D\x0A//d;

	# ファイル形式を認識
	$flag=0;
	if ($tail =~ /image\/gif/i && $gif) { $tail=".gif"; $flag=1; }
	if ($tail =~ /image\/jpeg/i && $jpeg) { $tail=".jpg"; $flag=1; }
	if ($tail =~ /image\/x-png/i && $png) { $tail=".png"; $flag=1; }

	if (!$flag) {
		if ($fname =~ /\.gif$/i && $gif) { $tail=".gif"; $flag=1; }
		if (($fname =~ /\.jpe?g$/i && $jpeg)) { $tail=".jpg"; $flag=1; }
		if ($fname =~ /\.png$/i && $png) { $tail=".png"; $flag=1; }
	}

	# アップロード失敗処理
	if (!$flag && !$clip_error) { return; }
	elsif (!$flag && $clip_error) {
		&error("FILE7はアップロードできないファイル形式です","lock");
	}

	$upfile = $in{'upfile7'};

	# マックバイナリ対策
	if ($macbin) {
		$length = substr($upfile,83,4);
		$length = unpack("%N",$length);
		$upfile = substr($upfile,128,$length);
	}

	# 添付データを書き込み
	$ImgFile = "$ImgDir$no-7$tail";
	open(OUT,"> $ImgFile") || &error("FILE7の画像のアップロードに失敗しました","lock");
	binmode(OUT);
	binmode(STDOUT);
	print OUT $upfile;
	close(OUT);
	chmod (0666,$ImgFile);

	# 画像サイズ取得
	if ($tail eq ".jpg") { ($W, $H) = &JpegSize($ImgFile); }
	elsif ($tail eq ".gif") { ($W, $H) = &GifSize($ImgFile); }
	elsif ($tail eq ".png") { ($W, $H) = &PngSize($ImgFile); }

	# 画像表示縮小
	if(-e './resize.pl') {
		if ($W > $MaxW2 || $H > $MaxH2) {
			$WW = $MaxW2 / $W;
			$HH = $MaxH2 / $H;
			if ($WW < $HH) { $key = $WW; }
			else { $key = $HH; }
			$w = int ($W * $key) || 1;
			$h = int ($H * $key) || 1;
			imgbbs::imgresize("$ImgFile","$ImgDir$no-7-s.jpg",$w,$h,75,0); 

		} else {
			imgbbs::imgresize("$ImgFile","$ImgDir$no-7-s.jpg",$W,$H,75,0); 
		}
	}
	$tail7 = $tail;
	$fname7 = $fname;
	$W7 = $W;
	$H7 = $H;
}


#-------------------------------------------------
#  画像アップロード8
#-------------------------------------------------
sub UpFile8 {
	# 画像処理
	$macbin=0;
	$i=0;$j=0;$k=0;
	foreach (@in) {
		if ($_ =~ /(.*)Content-type:(.*)/i) { $tail=$2; $i++}
		if ($_ =~ /(.*)filename=(.*)/i) { $fname=$2; $j++}
		if ($_ =~ /application\/x-macbinary/i) { $macbin=1; $k++}
		if ($i==8 || $j==8 || $k==8) {$tailout=$tail; $fnameout=$fname; $macbinout=$macbin;}
	}
	$tail = $tailout;
	$fname = $fnameout;
	$macbin= $macbinout;

	$tail =~ s/\r//g;
	$tail =~ s/\n//g;
	$fname =~ tr/\"\x0D\x0A//d;

	# ファイル形式を認識
	$flag=0;
	if ($tail =~ /image\/gif/i && $gif) { $tail=".gif"; $flag=1; }
	if ($tail =~ /image\/jpeg/i && $jpeg) { $tail=".jpg"; $flag=1; }
	if ($tail =~ /image\/x-png/i && $png) { $tail=".png"; $flag=1; }

	if (!$flag) {
		if ($fname =~ /\.gif$/i && $gif) { $tail=".gif"; $flag=1; }
		if (($fname =~ /\.jpe?g$/i && $jpeg)) { $tail=".jpg"; $flag=1; }
		if ($fname =~ /\.png$/i && $png) { $tail=".png"; $flag=1; }
	}

	# アップロード失敗処理
	if (!$flag && !$clip_error) { return; }
	elsif (!$flag && $clip_error) {
		&error("FILE8はアップロードできないファイル形式です","lock");
	}

	$upfile = $in{'upfile8'};

	# マックバイナリ対策
	if ($macbin) {
		$length = substr($upfile,83,4);
		$length = unpack("%N",$length);
		$upfile = substr($upfile,128,$length);
	}

	# 添付データを書き込み
	$ImgFile = "$ImgDir$no-8$tail";
	open(OUT,"> $ImgFile") || &error("FILE8の画像のアップロードに失敗しました","lock");
	binmode(OUT);
	binmode(STDOUT);
	print OUT $upfile;
	close(OUT);
	chmod (0666,$ImgFile);

	# 画像サイズ取得
	if ($tail eq ".jpg") { ($W, $H) = &JpegSize($ImgFile); }
	elsif ($tail eq ".gif") { ($W, $H) = &GifSize($ImgFile); }
	elsif ($tail eq ".png") { ($W, $H) = &PngSize($ImgFile); }

	# 画像表示縮小
	if(-e './resize.pl') {
		if ($W > $MaxW2 || $H > $MaxH2) {
			$WW = $MaxW2 / $W;
			$HH = $MaxH2 / $H;
			if ($WW < $HH) { $key = $WW; }
			else { $key = $HH; }
			$w = int ($W * $key) || 1;
			$h = int ($H * $key) || 1;
			imgbbs::imgresize("$ImgFile","$ImgDir$no-8-s.jpg",$w,$h,75,0); 

		} else {
			imgbbs::imgresize("$ImgFile","$ImgDir$no-8-s.jpg",$W,$H,75,0); 
		}
	}
	$tail8 = $tail;
	$fname8 = $fname;
	$W8 = $W;
	$H8 = $H;
}


#-------------------------------------------------
#  画像アップロード9
#-------------------------------------------------
sub UpFile9 {
	# 画像処理
	$macbin=0;
	$i=0;$j=0;$k=0;
	foreach (@in) {
		if ($_ =~ /(.*)Content-type:(.*)/i) { $tail=$2; $i++}
		if ($_ =~ /(.*)filename=(.*)/i) { $fname=$2; $j++}
		if ($_ =~ /application\/x-macbinary/i) { $macbin=1; $k++}
		if ($i==9 || $j==9 || $k==9) {$tailout=$tail; $fnameout=$fname; $macbinout=$macbin;}
	}
	$tail = $tailout;
	$fname = $fnameout;
	$macbin= $macbinout;

	$tail =~ s/\r//g;
	$tail =~ s/\n//g;
	$fname =~ tr/\"\x0D\x0A//d;

	# ファイル形式を認識
	$flag=0;
	if ($tail =~ /image\/gif/i && $gif) { $tail=".gif"; $flag=1; }
	if ($tail =~ /image\/jpeg/i && $jpeg) { $tail=".jpg"; $flag=1; }
	if ($tail =~ /image\/x-png/i && $png) { $tail=".png"; $flag=1; }

	if (!$flag) {
		if ($fname =~ /\.gif$/i && $gif) { $tail=".gif"; $flag=1; }
		if (($fname =~ /\.jpe?g$/i && $jpeg)) { $tail=".jpg"; $flag=1; }
		if ($fname =~ /\.png$/i && $png) { $tail=".png"; $flag=1; }
	}

	# アップロード失敗処理
	if (!$flag && !$clip_error) { return; }
	elsif (!$flag && $clip_error) {
		&error("FILE9はアップロードできないファイル形式です","lock");
	}

	$upfile = $in{'upfile9'};

	# マックバイナリ対策
	if ($macbin) {
		$length = substr($upfile,83,4);
		$length = unpack("%N",$length);
		$upfile = substr($upfile,128,$length);
	}

	# 添付データを書き込み
	$ImgFile = "$ImgDir$no-9$tail";
	open(OUT,"> $ImgFile") || &error("FILE9の画像のアップロードに失敗しました","lock");
	binmode(OUT);
	binmode(STDOUT);
	print OUT $upfile;
	close(OUT);
	chmod (0666,$ImgFile);

	# 画像サイズ取得
	if ($tail eq ".jpg") { ($W, $H) = &JpegSize($ImgFile); }
	elsif ($tail eq ".gif") { ($W, $H) = &GifSize($ImgFile); }
	elsif ($tail eq ".png") { ($W, $H) = &PngSize($ImgFile); }

	# 画像表示縮小
	if(-e './resize.pl') {
		if ($W > $MaxW2 || $H > $MaxH2) {
			$WW = $MaxW2 / $W;
			$HH = $MaxH2 / $H;
			if ($WW < $HH) { $key = $WW; }
			else { $key = $HH; }
			$w = int ($W * $key) || 1;
			$h = int ($H * $key) || 1;
			imgbbs::imgresize("$ImgFile","$ImgDir$no-9-s.jpg",$w,$h,75,0); 

		} else {
			imgbbs::imgresize("$ImgFile","$ImgDir$no-9-s.jpg",$W,$H,75,0); 
		}
	}
	$tail9 = $tail;
	$fname9 = $fname;
	$W9 = $W;
	$H9 = $H;
}


#-------------------------------------------------
#  画像アップロード10
#-------------------------------------------------
sub UpFile10 {
	# 画像処理
	$macbin=0;
	$i=0;$j=0;$k=0;
	foreach (@in) {
		if ($_ =~ /(.*)Content-type:(.*)/i) { $tail=$2; $i++}
		if ($_ =~ /(.*)filename=(.*)/i) { $fname=$2; $j++}
		if ($_ =~ /application\/x-macbinary/i) { $macbin=1; $k++}
		if ($i==10 || $j==10 || $k==10) {$tailout=$tail; $fnameout=$fname; $macbinout=$macbin;}
	}
	$tail = $tailout;
	$fname = $fnameout;
	$macbin= $macbinout;

	$tail =~ s/\r//g;
	$tail =~ s/\n//g;
	$fname =~ tr/\"\x0D\x0A//d;

	# ファイル形式を認識
	$flag=0;
	if ($tail =~ /image\/gif/i && $gif) { $tail=".gif"; $flag=1; }
	if ($tail =~ /image\/jpeg/i && $jpeg) { $tail=".jpg"; $flag=1; }
	if ($tail =~ /image\/x-png/i && $png) { $tail=".png"; $flag=1; }

	if (!$flag) {
		if ($fname =~ /\.gif$/i && $gif) { $tail=".gif"; $flag=1; }
		if (($fname =~ /\.jpe?g$/i && $jpeg)) { $tail=".jpg"; $flag=1; }
		if ($fname =~ /\.png$/i && $png) { $tail=".png"; $flag=1; }
	}

	# アップロード失敗処理
	if (!$flag && !$clip_error) { return; }
	elsif (!$flag && $clip_error) {
		&error("FILE10はアップロードできないファイル形式です","lock");
	}

	$upfile = $in{'upfile10'};

	# マックバイナリ対策
	if ($macbin) {
		$length = substr($upfile,83,4);
		$length = unpack("%N",$length);
		$upfile = substr($upfile,128,$length);
	}

	# 添付データを書き込み
	$ImgFile = "$ImgDir$no-10$tail";
	open(OUT,"> $ImgFile") || &error("FILE10の画像のアップロードに失敗しました","lock");
	binmode(OUT);
	binmode(STDOUT);
	print OUT $upfile;
	close(OUT);
	chmod (0666,$ImgFile);

	# 画像サイズ取得
	if ($tail eq ".jpg") { ($W, $H) = &JpegSize($ImgFile); }
	elsif ($tail eq ".gif") { ($W, $H) = &GifSize($ImgFile); }
	elsif ($tail eq ".png") { ($W, $H) = &PngSize($ImgFile); }

	# 画像表示縮小
	if(-e './resize.pl') {
		if ($W > $MaxW2 || $H > $MaxH2) {
			$WW = $MaxW2 / $W;
			$HH = $MaxH2 / $H;
			if ($WW < $HH) { $key = $WW; }
			else { $key = $HH; }
			$w = int ($W * $key) || 1;
			$h = int ($H * $key) || 1;
			imgbbs::imgresize("$ImgFile","$ImgDir$no-10-s.jpg",$w,$h,75,0); 

		} else {
			imgbbs::imgresize("$ImgFile","$ImgDir$no-10-s.jpg",$W,$H,75,0); 
		}
	}
	$tail10 = $tail;
	$fname10 = $fname;
	$W10 = $W;
	$H10 = $H;
}



2,

__END__