;
close(HTM);
$htmlw = "";
foreach (@html) { $htmlw .= $_; }
$htmlw =~ s//$cgi_file/g;
$htmlw =~ s//$e_msg/g;
$htmlw =~ s//$systeminfo/g;
$i = 0;
foreach $name_w (@NAMES){
($name_w2,$dmy) = split(/ \//,$name_w);
$htmlw =~ s//$VALUES[$i]/g;
$i++;
}
$htmlw =~ s///g;
print "Content-Type: text/html\n\n";
print "\n";
print $htmlw;
exit;
}
#================================プレビュー画面=================================
sub preview{
open(PRE,"$pre_file") || &error('FILE OPEN ERROR - preview');
@html = ;
close(PRE);
$htmlw = "";
foreach (@html) { $htmlw .= $_; }
$i = 0; $hidden = "";
foreach $name_w (@NAMES){
($name_w2,$dmy) = split(/ \//,$name_w);
if($name_w ne "preview" && !($name_w =~ m/ \/h/i)){
$vls = $VALUES[$i];
$vls =~ s/\r\n/
/g;
$vls =~ s/\r/
/g;
$vls =~ s/\n/
/g;
$htmlw =~ s//$vls/g;
}
if($name_w ne "preview"){
$VALUES[$i] =~ s/\"/″/g;
$hidden .= "\n"
}
#オプション指定:/S /M /W
if($name_w =~ m/ \/s/i && $VALUES[$i] ne ""){ $subject = $VALUES[$i]; }
if($name_w =~ m/ \/m/i && $VALUES[$i] ne ""){ $email = $VALUES[$i]; }
if($name_w =~ m/ \/w/i && $VALUES[$i] ne ""){ $email_w = $VALUES[$i]; }
if($name_w =~ m/ \/a/i && $VALUES[$i] eq ""){ &fst("必須項目をすべて入力してください。"); }
if($email ne "" && !( $email =~ /^[0-9a-zA-Z-_.]+@[0-9a-zA-Z-_.]+$/ )){ &fst('メールアドレスが不正です。'); }
$i++;
}
if($email_ck == 1 && $email ne $email_w){ &fst('メールアドレスが一致しません。'); }
$htmlw =~ s//$cgi_file/g;
$htmlw =~ s//$hidden/g;
$htmlw =~ s//$systeminfo/g;
print "Content-Type: text/html\n\n";
print "\n";
print $htmlw;
exit;
}
#================================メール転送処理=================================
sub mail{
$refw = $ENV{'HTTP_REFERER'};
if($script_url ne "" && $refw !~ m/$script_url/i){ &error('不正なURLからのアクセスです。'); }
if ($email eq ''){ $emailw = @mailtos[0]; }else{ $emailw = $email; }
&jcode'convert(*subject,'jis');
&jcode'convert(*msg,'jis');
&jcode'convert(*msgw,'jis');
foreach $mlw (@mailtos){
$mailtow = $mlw;
if (!open(MAIL,"| $sendmail $mailtow")) { &error('何らかの原因で送信できませんでした。'); }
print MAIL "X-Mailer: $systeminfo\n";
print MAIL "To: $mailtow\n";
print MAIL "From: $emailw\n";
print MAIL "Subject: $subject\n";
print MAIL "Content-Transfer-Encoding: 7bit\n";
print MAIL "Content-Type: text/plain\; charset=\"ISO-2022-JP\"\n\n";
print MAIL "$msg";
close(MAIL);
}
# 送信者にメール送信
if($email ne "" && $re_code eq "on"){
if($email_rtn_ck == 1){ $rtnml = @mailtos[0]; }else{ $rtnml = $email; }
if (!open(MAIL,"| $sendmail $email")) { &error('何らかの原因で送信できませんでした。'); }
print MAIL "X-Mailer: $systeminfo\n";
print MAIL "To: $email\n";
print MAIL "From: $rtnml\n";
print MAIL "Subject: $subject\n";
print MAIL "Content-Transfer-Encoding: 7bit\n";
print MAIL "Content-Type: text/plain\; charset=\"ISO-2022-JP\"\n\n";
print MAIL "$msgw";
close(MAIL);
}
}
#================================エラー処理=================================
sub error {
$error = $_[0];
if ($error eq "") { $error = '原因不明のエラーで処理を継続できません。'; }
&jcode'convert(*error,'sjis');
open(HTML,"$error_file") || die "FILE OPEN ERROR - error";
@html = ;
close(HTML);
print "Content-Type: text/html\n\n";
print "\n";
foreach $line (@html) {
$line =~ s//$error/g;
$line =~ s//$systeminfo/g;
print $line;
}
exit;
}