#!/usr/bin/perl
$mailer='/usr/sbin/sendmail';
$mlto='infos@mono4.net';


$jcph='.';

require "$jcph/jcode.pl";
require "$jcph/cgi-lib.pl";
require "$jcph/mimew.pl";

&ReadParse;

$nameA=$in{'mailNameA'};
$nameB=$in{'mailNameB'};
$mlfrA=$in{'mailFromA'};
$mlfrB=$in{'mailFromB'};
$mlms=$in{'mailMsg'};

$errStr="";
if (!$nameA){errStr=errStr."名前が記入されていません<br>";}
if (!$nameB){errStr=errStr."フリガナが記入されていません<br>";}
if (!$mlfrA){errStr=errStr."メールアドレスが記入されていません<br>";}
if (!$mlfrB){errStr=errStr."メールの確認が記入されていません<br>";}
if (!$mlms){errStr=errStr."相談の詳細が記入されていません<br>";}
if ($mlfrA!=$mlfrB){errStr=errStr."メールアドレスと再入力が一致しません<br>"}

if ($err){
	$mlsb=$in{'mailTitle'}."(".$nameA.")";


	jcode'convert(*mlfr, "jis");
	jcode'convert(*mlsb, "jis");
	jcode'convert(*mlms, "jis");

	$subject=&mimeencode($mlsb);

	$mlhd = "From: $mlfr" . "\n" . "To: $mlto" . "\n" . "Subject: $subject" . "\n\n";
	$err = 0;
	open(MAIL, "| $mailer -t -f'$mlfr'") or $err = 1;
	if ($err == 0) {
		print MAIL $mlhd;
		print MAIL $mlms;
		print MAIL "\n";
		print MAIL "\n\n" . "." . "\n";
		close(MAIL);
		$msg='command=end';
	}
	else{
		$msg='command=error';
	}

	print "Content-type: text/plain\n\n";
	print $msg;

	exit(0);