#● #--------------------------------------------------------------------------------------- # 名称 | Preview # Version | 1.50 # 処理名 | プレビュー処理(HTMLモード処理対応) # 動作内容 | 投稿前に表示状態を再現する(View_Message-1.50 Write_Message-1.50 専用) # 引数 | なし # 戻り値 | なし # sub Preview { if ($in{'NAME'} eq '') { &Error("未記入があります","名前を入力してください."); } if ($in{'EMAIL'} ne '' && !($in{'EMAIL'} =~ /\b[-\w.]+@[-\w.]+\.[-\w]+\b/)) { &Error("未記入があります","Eメールを半角で正しく入力してください."); } if ($in{'TITLE'} eq '') { &Error("未記入があります","タイトルを入力してください."); } if ($in{'VALUE'} eq '') { &Error("未記入があります","本文を入力してください."); } if ($in{'EMAIL'} =~ /\b[-\w.]+@[-\w.]+\.[-\w]+\b/) { $in{'NAME'} = "$in{'NAME'} <$in{'EMAIL'}>"; } # Eメール記載があればリンクする if ($host eq '') { $viewhost = 0; } # ホスト名が取得できない場合は表示しない if (!$viewhost) { $host = ''; } else { $host = "- $host"; } &Html_head; print "$body\n"; print <<"EOF";
《表\示確認》 $in{'TITLE'} |
EOF if ($in{'TAG'}) { # HTMLモード(禁止にしたタグを戻す) .. 記事はタグ禁止状態で記録されている $in{'VALUE'} =~ s/<//g; $in{'VALUE'} =~ s/"/"/g; $in{'VALUE'} =~ s/&/&/g; } if ($in{'MODE'} == 0) { print "
"; } # 図/表モード(0) if ($in{'MODE'} == 0 || $in{'TAG'}) { print $in{'VALUE'}; } # 図/表モード(0)またはHTMLモード時 elsif ($in{'MODE'} == 1) { $in{'VALUE'} =~ s/\r/
\r/g; print $in{'VALUE'}; } # 改行有効(1) else { $value =~ s/\r//g; print $in{'VALUE'}; } # 改行無効(2) if ($in{'MODE'} == 0) { print "
\n"; } # 図/表モード(0) print <<"EOF";