
#●
#---------------------------------------------------------------------------------------
# 名称     | Preview
# Version  | 1.00
# 処理名   | プレビュー処理
# 動作内容 | 投稿前に表示状態を再現する
# 引数     | なし
# 戻り値   | なし
#
sub Preview {

	if ($in{'NAME'} eq '') { &Error("未記入があります","名前を入力してください."); }
	if ($in{'EMAIL'} ne '' && !($in{'EMAIL'} =~ /\b[-\w.]+@[-\w.]+\.[-\w]+\b/)) { &Error("未記入があります","Ｅメールを半角で正しく入力してください."); }
	if ($in{'TITLE'} eq '') { &Error("未記入があります","タイトルを入力してください."); }
	if ($in{'VALUE'} eq '') { &Error("未記入があります","本文を入力してください."); }

	if ($in{'EMAIL'} =~ /\b[-\w.]+@[-\w.]+\.[-\w]+\b/) { $in{'NAME'} = "$in{'NAME'} &lt;<a href=\"mailto:$in{'EMAIL'}\">$in{'EMAIL'}</a>&gt;"; } # Ｅメール記載があればリンクする
	if ($host eq '') { $viewhost = 0; } # ホスト名が取得できない場合は表示しない
	if (!$viewhost) { $host = ''; } else { $host = "- $host"; }

	&Html_head;
	print "$body\n";

	print <<"EOF";
	<table cellpadding=3 cellspacing=0 border=0 width=100%><tr>
	<td bgcolor=$cellcolor><font size=+2><strong>《表\示確認》 $in{'TITLE'}</strong></font></td>
	</tr></table>
EOF
	print <<"EOF";
	<ul><li><font size=-1 color=$info_color>by $in{'NAME'} $host</font></ul><p>
EOF
	if ($in{'LINK'}) { # URLをリンクする

		$in{'VALUE'} =~ s/&gt;/\t/g;
		$in{'VALUE'} =~ s/(https?|ftp|gopher|telnet|whois|news)\:([\w|\:\!\#\$\%\=\&\-\^\`\\\|\@\~\[\{\]\}\;\+\*\,\.\?\/]+)/<a href=\"$1\:$2\" target=\"_blank\">$1\:$2<\/a>/ig;
		$in{'VALUE'} =~ s/\t/&gt;/g;
	}

	if ($in{'MODE'} == 0) { print "<pre><tt>"; } # 図/表モード(0)

	if ($in{'MODE'} == 0) { print $in{'VALUE'}; } # 図/表モード(0)
	elsif ($in{'MODE'} == 1) { $in{'VALUE'} =~ s/\r/<br>\r/g; print $in{'VALUE'}; } # 改行有効(1)
	else { $value =~ s/\r//g; print $in{'VALUE'}; } # 改行無効(2)

	if ($in{'MODE'} == 0) { print "</tt></pre><p>\n"; } # 図/表モード(0)

	print <<"EOF";
	<p>
	<h3><hr size=1>
	〔<a href="JavaScript:history.back()">投稿画面に戻る</a>〕
	</h3></body></html>
EOF
	exit;

}#End_of_Preview

