[ 設置の手引きに戻る ]

「あやしいわーるど@じょしあな + Team MIZUIRO 画像アップローダ付きBBS」のサンプルです。
バグ報告、ご質問もこちらにどうぞ (最近は放置気味です)

エロ画像の投稿、エロサイトの宣伝はご遠慮下さい。

サンプル掲示板 ホームページ 投稿ランキングTOP10 連絡先
投稿者
メール
題名 

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

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

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



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

2000/xx/xxから 87242(こわれにくさレベル2)


最近の過去ログはここ。 昔のログはここ。 あやしいわーるど関連はここで調査。

■ : フォロー投稿画面表示 ★ : 投稿者検索表示  最大登録件数 : 100件


YMtDJxvwOdFKmZEOd 投稿者:Barnypok  投稿日:2017年04月02日(日)00時38分10秒  

mcGZdq http://www.LnAJ7K8QSpkiStk3sLL0hQP6MO2wQ8gO.com


 投稿者:  投稿日:2017年03月14日(火)20時58分01秒  

引用投稿した時に本家くずはのようにもう1つ改行してくれるとありがたいです(;´Д`)


 投稿者:まなべ  投稿日: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


 投稿者:  投稿日:2017年02月02日(木)23時00分04秒  

あけおめ(;´Д`)


 投稿者:  投稿日:2016年05月25日(水)15時22分54秒  

あけおめヽ(´ー`)ノほぼ4ヶ月遅れ


 投稿者:shee  投稿日:2015年06月27日(土)22時53分21秒  

> メイソみたくYoutubeのura張ると
> 埋め込み動画が表示されるように
> するにはどうすればいいですか

物理的にすぐにでも可能です。
でもcopyrightがあるので少し相談させてください。

どうも、某所管理人です。
もう8年も前の質問ですが、私が答えてもいいんですかね…
じょしあなに採用いただけると嬉しいのでHN入れました

参考:2007年02月18日(日)06時00分08秒


 投稿者:雑用係  投稿日:2011年01月07日(金)18時28分20秒  

> Ver.3.08hのbbs.cgi、225行目と226行目のあいだ
> $bodyが抜けてます

ご指摘ありがとうございます。
早速、修正したのを Ver.3.08i として公開しました。

参考:2011年01月05日(水)21時04分37秒


 投稿者:  投稿日:2011年01月05日(水)21時04分37秒  

Ver.3.08hのbbs.cgi、225行目と226行目のあいだ
$bodyが抜けてます


 投稿者:雑用係  投稿日:2011年01月02日(日)07時26分18秒  

Ver.3.08h を公開しました。
http://taiyaki.s8.xrea.com/TeamMIZUIRO/index.html

>Ver.3.08h (2011/01/02)
>・正常にアップロード出来ない画像があったのに対応


Ver.3.08g → Ver.3.08h
else{
$pos=rindex($data,"\xff\xc0")||index($data,"\xff\xc3")||index($data,"\xff\xc2")||index($data,"\xff\xc1");
}

↓

else{
$pos=rindex($data,"\xff\xc2")||rindex($data,"\xff\xc0");
}


 投稿者:まなべ  投稿日:2010年12月08日(水)18時10分40秒  



てすdその2


 投稿者:まなべ  投稿日:2010年12月08日(水)18時09分11秒  



てすd


 投稿者:雑用係  投稿日:2010年09月15日(水)12時05分35秒  

Ver.3.08g を公開しました。
http://taiyaki.s8.xrea.com/TeamMIZUIRO/index.html

>Ver.3.08g (2010/09/15)
>・正常にアップロード出来ない画像があったのに対応


 投稿者:雑用係  投稿日:2010年06月22日(火)07時08分48秒  

Ver.3.08f を公開しました。
http://taiyaki.s8.xrea.com/TeamMIZUIRO/index.html

>Ver.3.08f (2010/06/22)
>・exifの画像サイズ取得ルーチンを再調整しました


 投稿者:  投稿日:2010年04月14日(水)09時39分07秒  

Ver.3.08e を公開しました。
http://taiyaki.s8.xrea.com/TeamMIZUIRO/index.html

>Ver.3.08e (2010/04//14)
>・アップロードできない画像があった問題に対処 (Ver.3.08d)
>・主に国外からの自動投稿ツールによるスパム対策の効果的なルーチンを教えてもらったので追加 (thx for lilia)
>    スパムの判定は画像が添付されてない投稿でなおかつ
>     1)日本語デフォルト対応以外のブラウザで内容にURLが3個以上含まれている
>     2)内容に日本語が含まれてなくURLが3個以上含まれている
>     3)URLが6個以上含まれている
>    となっています
>
>    これらに伴う変更点はスクリプト内の多岐にわたるので詳細は省きますが
>    環境設定に新たに追加された$refusespamオプションでスパム対策のON/OFFが行えます


 投稿者:雑用係  投稿日:2010年01月01日(金)00時23分55秒  

Ver.3.08c を公開しました。
http://taiyaki.s8.xrea.com/TeamMIZUIRO/index.html


Ver.3.08b → Ver.3.08c 変更点
-------------------------------------------------------------------------------
アップロード画像のバイナリデータに\r\nが含まれていた場合の不具合の再修正

bbs.cgi639行目

while(<STDIN>){
if($_=~/$bound/){last;}
elsif($flag && $_=~/^.+\r\n$/){print TMP "$flag$_"; $flag=""; } #boundaryが無ければ保留した\r\nをあわせて記録、flag消去
elsif($flag && $_=~/^\r\n$/){print TMP $_;} #\r\nのみの行、flag継続
elsif(!$flag && $_=~/^(.+)\r\n$/){$flag="\r\n"; print TMP $1;} #\r\nが末尾に来たら\r\nの記録を保留、flag作成
elsif(!$flag && $_=~/^\r\n$/){print TMP $_;} #flag無しで\r\nのみの行、現状維持
else{print TMP $_;}
}

これを以下に差し替え

while(<STDIN>){
if($_=~/$bound/){last;}
elsif($flag && $_=~/^(.*)\r\n/){print TMP "$flag$1";}
elsif($flag && $_=~/[^\r]\n/){print TMP "$flag$_"; $flag="";}
elsif(!$flag && $_=~/^(.*)\r\n/){$flag="\r\n"; print TMP $1;}
else{print TMP $_;}
}
-------------------------------------------------------------------------------


Ver.3.08b,c 変更点
-------------------------------------------------------------------------------
画像の縦横サイズ制限が設定値「以上」だったのを設定値「より大きい」に変更

bbs.cgi676行目

if($w >= $l_width || $h >= $l_height){ 

これを以下と差し替え

if($w > $l_width || $h > $l_height){ 
-------------------------------------------------------------------------------


 投稿者:雑用係  投稿日:2009年12月21日(月)18時43分31秒  

Ver.3.08b には不具合があり欠番になりました。安定版の Ver.3.08 をお使い下さい。

http://taiyaki.s8.xrea.com/TeamMIZUIRO/index.html


 投稿者:雑用係  投稿日:2009年12月21日(月)09時03分01秒  



テスト


 投稿者:雑用係  投稿日:2009年12月20日(日)20時44分41秒  

変更点
-------------------------------------------------------------------------------
1.アップロード画像のバイナリデータに\r\nが含まれていた場合画像を正常に記録できない不具合があったのを修正

bbs.cgi635行目の

while(<STDIN>){ # この方法だと画像の末尾に\r\nが残るけどメモリ節約のため妥協
last if($_=~/$bound/);
last if($_=~/^\r\n$/);
print TMP $_;
}

これを以下と差し替え

$flag="";
while(<STDIN>){
if($_=~/$bound/){last;}
elsif($flag && $_=~/^.+\r\n$/){print TMP "$flag$_"; $flag=""; } #boundaryが無ければ保留した\r\nをあわせて記録、flag消去
elsif($flag && $_=~/^\r\n$/){print TMP $_;} #\r\nのみの行、flag継続
elsif(!$flag && $_=~/^(.+)\r\n$/){$flag="\r\n"; print TMP $1;} #\r\nが末尾に来たら\r\nの記録を保留、flag作成
elsif(!$flag && $_=~/^\r\n$/){print TMP $_;} #flag無しで\r\nのみの行、現状維持
else{print TMP $_;}
}

2.画像の縦横サイズ制限が設定値「以上」だったのを設定値「より大きい」に変更

bbs.cgi676行目

if($w >= $l_width || $h >= $l_height){ 

これを以下と差し替え

if($w > $l_width || $h > $l_height){ 
-------------------------------------------------------------------------------


 投稿者:雑用係  投稿日:2009年12月20日(日)20時14分38秒  

Ver.3.08b を公開しました。

http://taiyaki.s8.xrea.com/TeamMIZUIRO/index.html


 投稿者:雑用係  投稿日:2009年12月20日(日)20時13分37秒  

Ver.3.08b 修正箇所

-------------------------------------------------------------------------------
具体的にはbbs.cgi635行目の

while(<STDIN>){ # この方法だと画像の末尾に\r\nが残るけどメモリ節約のため妥協
last if($_=~/$bound/);
last if($_=~/^\r\n$/);
print TMP $_;
}

これを以下と差し替え

$flag="";
while(<STDIN>){
if($_=~/$bound/){last;}
elsif($flag && $_=~/^.+\r\n$/){print TMP "$flag$_"; $flag=""; next;} #boundaryが無ければ保留した\r\nをあわせて記録、flag消去
elsif($flag && $_=~/^\r\n$/){print TMP $_; next;} #\r\nのみの行、flag継続
elsif(!$flag && $_=~/^(.+)\r\n$/){$flag="\r\n"; print TMP $1; next;} #\r\nが末尾に来たら\r\nの記録を保留、flag作成
elsif(!$flag && $_=~/^\r\n$/){print TMP $_; next;} #flag無しで\r\nのみの行、現状維持
else{print TMP $_;}
}
-------------------------------------------------------------------------------


以上は、現在登録されている新着順1番目から20番目までの記事です。


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