フォロー記事投稿  戻る
 投稿者:まなべ  投稿日:2017年02月09日(木)01時46分30秒  

Perl5から$[の使用が非推奨になったとのことなので
bbs.cgi 650行目付近のjpgサイズ取得ルーチン

	if($type eq 'jpg'){
		$[=1; # \xff\xc*が見つからなかった場合のindex()の戻り値を0にするため$[に1をセット
		if($data=~/ImplantArchive/){ # JDAの場合
			$pos=index($data,"\xff\xc0");
		}
		else{
			$pos=rindex($data,"\xff\xc2")||rindex($data,"\xff\xc0");
		}
		if(!$pos){unlink("$tmpdir/$id.tmp");&error(9);}
		@data=split(//,substr($data,$pos+5,4));
		$[=0; # 忘れずに元に戻す

		foreach(@data){$_=ord;};
		$w=256*$data[2]+$data[3];
		$h=256*$data[0]+$data[1];
	}

↓変更後

	if($type eq 'jpg'){
		if($data=~/ImplantArchive/){ # JDAの場合
			$pos=index($data,"\xff\xc0");
		}
		elsif($data=~/\xff\xc2/){
			$pos=rindex($data,"\xff\xc2");
		}
		else{
			$pos=rindex($data,"\xff\xc0")
		}
		if($pos==-1){unlink("$tmpdir/$id.tmp");&error(9);}
		@data=split(//,substr($data,$pos+5,4));

		foreach(@data){$_=ord;};
		$w=256*$data[2]+$data[3];
		$h=256*$data[0]+$data[1];
	}

以上のように変更したbbs.cgi(3.08j相当)をアプしました
http://www20.atpages.jp/taiyaki/nana/data/na1486571399.zip


※引用文中の外部画像はリンクに変換されます。アップロード画像は引用されません

投稿者
メール
題名 

画像 (参照ボタンでローカルのjpg/gif/pngファイルを選択して下さい)

(横幅1920pixel、高さ1920pixel、サイズ1024KBまで。)

内容 タグは使えません。長すぎる文章もだめ。内容を書かずに投稿ボタンを押すとリロードになります
本文中に「%image」と書くとアップロード画像はその部分に挿入されます



投稿コード (下の数字を半角で書き写してください)
■■■ ■■■ ■■■ ■ ■ 
■     ■ ■ ■ ■ ■ 
■■■  ■  ■■■ ■■■ 
  ■ ■   ■ ■   ■ 
■■■ ■   ■■■   ■ 
auto link auto img  表示件数 背景色 画像表示


あやしいわーるど@じょしあな + TeamMIZUIRO v3.08j