#==========================================================================#
# ■ B.Forum Ver.1.01                                                      #
# ■ プラグインSDK(confirm)                                                #
# □ Encode = EUC                                                          #
# □ Hiroaki,Sakuma (sakuma@beetas.org)                                    #
#                                                                          #
# このアプリケーションはオープンソースウェアです.                          #
# 無料で使用することができます.                                            #
# なお, 詳細な使用条件/最新情報については下記サイトをご覧下さい.           #
# http://www.beetas.org/                                                   #
#                                                                          #
# ------------------------------------------------------------------------ #
# Copyright 2001-2002 Hiroaki,Sakuma All Rights Reserved.                  #
# Copyright 2001-2002 BEETAS.org All Rights Reserved.                      #
#                                                                          #
#==========================================================================#
package confirm;

use Exporter;
use strict;

@ISA = qw(Exporter);
@EXPORT = qw(version status require_min require_max main);

my (%in %SET);

sub version {
	# バージョン(要変更)
	$version = "Plugin SDK(confirm) 1.01(0055-0058)";
	return $version;
}

sub status {
	return 1;
}

sub require_min {
	# 最低動作バージョン(要変更)
	$require_min = "0055";
	return $require_min;
}

sub require_max {
	# 最高動作バージョン(要変更)
	$require_max = "0058";
	return $require_max;
}

sub main ($$$@) {

	# 変更の必要なし
	my $head = $_[0];
	my $foot = $_[1];
	%in = %{$_[2]};
	splice (@_,0,3);
	%SET = %Bforum::SET;



	# ここから変更

	my ($tmp1);

	%confirm = %in;

	&Bforum::_br($confirm{'message'});

	&Bforum::tag($confirm{'message'});

	&Bforum::_autolink($confirm{'message'});

	$confirm{'message'} =~ s/(^|\n)(\s*(&gt;[(&gt;)(\s*)]*)[^\n]*)/$1<span style="color:#990000">$2<\/span>/go;
	$confirm{'message'} =~ s/(^|\n)(\s*(#[#(\s*)]*)[^\n]*)/$1<span style="color:#009900">$2<\/span>/go;

	$tmp1 = $Bforum::confirm;

	foreach (sort keys %in) {
		if ($_ ne 'confirm' && $_ ne 'f' && $_ ne 'id' && $_ ne 't' && $_ ne 'v' && $_ ne 'cc') {
			if ($files{$_}) {
				$tmp2 .= "<input type=hidden name=\"file.$_\">\n";
				$Bforum::in{('file.' . $_)} = $Bforum::files{$_};
				$Bforum::in{('file.' . $_)} =~ s/(\W)/'%' . unpack("H2",$1)/ego;
			} else {
				$tmp2 .= "<input type=hidden name=\"nd.$_\">\n";
				$Bforum::in{('nd.' . $_)} = $in{$_};
				$Bforum::in{('nd.' . $_)} =~ s/&amp;/&/go;
				$Bforum::in{('nd.' . $_)} =~ s/&lt;/</go;
				$Bforum::in{('nd.' . $_)} =~ s/&gt;/>/go;
				$Bforum::in{('nd.' . $_)} =~ s/&quot;/"/go;
				$Bforum::in{('nd.' . $_)} =~ s/(\W)/'%' . unpack("H2",$1)/ego;
			}
		}
	}

	$tmp1 =~ s/<form (.*?)action=(["']?)($cgi|{cgi})\2(.*?)>(.*?)\n/<form $1action=$2$3$2$4>$5\n$tmp2/io;

	&Bforum::do($tmp1);
	&Bforum::change($tmp1,\%confirm);

	$Bforum::print .= $tmp1;
	&Bforum::print;

}

sub about {
	close (NULL);
	&Bforum::about((caller)[2] . '@' . &version);
}

1;

