<?php 
//*****************************************************************************
//* 
//* プログラム名：電話連絡メモ
//* プログラムID：TEL003.php
//* 機能        ：電話連絡メモ登録,更新処理
//* 作成者      ：
//* 
//*****************************************************************************

header("Content-type: text/html; charset=EUC-JP");
//header("Content-type: text/xml; charset=EUC-JP");
include("include/session_start.inc");
include("include/SessionChk.inc");
include("include/STRING.inc");
include("inc/subRepURI.inc");

$strDBinc="include/dbcon.inc";
include($strDBinc);

include("include/url_get.inc");

$strSQLIns="";
$objRecIns="null";
$strSQLseq="";
$objRecseq="null";
$strSQLup="";
$objRecup="null";
$strSQL="";
$objRec="null";

//20081007　GET→Post
/*
$Request = mb_convert_encoding(subRepURI($Request), "EUC-JP", "auto");
$Memo = mb_convert_encoding(subRepURI($Memo), "EUC-JP", "auto");
*/

$ML_Request = mb_convert_encoding($Request, "eucjp-win", "auto");
$ML_Memo    = mb_convert_encoding($Memo   , "eucjp-win", "auto");

$Request = mb_convert_encoding(addslashes($Request), "eucjp-win", "auto");
$Memo    = mb_convert_encoding(addslashes($Memo)   , "eucjp-win", "auto");


//登録
//電話メモ日付
if (strlen($Tel_m)==1){
	$Tel_m="0".$Tel_m;
}
if (strlen($Tel_d)==1){
	$Tel_d="0".$Tel_d;
}
if (strlen($Tel_h)==1){
	$Tel_h="0".$Tel_h;
}
if (strlen($Tel_min)==1){
	$Tel_min="0".$Tel_min;
}
$strData=$Tel_y."/".$Tel_m."/".$Tel_d;
$strTime=$Tel_h.":".$Tel_min;
//電話番号
$strTel=$telno1 ."-". $telno2 ."-". $telno3;
//FAX番号
$strFax=$fax1 ."-". $fax2 ."-". $fax3;
//メールアドレス
$strMail=$mail1 ."@". $mail2;
//シーケンスNo作成
$strSQLseq="Select seq From telmemo_tbl Order by seq DESC";
$objRecseq = pg_exec($strSQLseq);
if($objRecseq==false){
		echo("SQL実行に失敗しました(SELECT)");
		exit;
}
if (pg_numrows($objRecseq) > 0){
	$objseqNo = pg_fetch_object($objRecseq, 0);
	$intseqNo=($objseqNo->seq) +1;
}else{
	$intseqNo=1;
}

//作成者用を登録
$strSQLIns  = "INSERT INTO ";
$strSQLIns .= " telmemo_tbl ";
$strSQLIns .= "(";
$strSQLIns .= " seq,date,time,from_code,to_code,fromperson,msgmode,msgtype,message,tel,fax,e_mail,read_flg";
$strSQLIns .= ")";
$strSQLIns .= " VALUES ";
$strSQLIns .= "(";
$strSQLIns .= "$intseqNo,";
$strSQLIns .= "'$strData',";
$strSQLIns .= "'$strTime',";
$strSQLIns .= "'$PHP_SYAIN_CD',";
$strSQLIns .= "'$to_code',";
$strSQLIns .= "'$Request',";
$strSQLIns .= "$msg_mode,";
$strSQLIns .= "$MsgType,";
$strSQLIns .= "'$Memo',";
$strSQLIns .= "'".addslashes($strTel)."',";
$strSQLIns .= "'".addslashes($strFax)."',";
$strSQLIns .= "'".addslashes($strMail)."',";
$strSQLIns .= "0";
$strSQLIns .= ")";
$objRecIns = pg_exec($strSQLIns);
if($objRecIns==false){
	echo("SQL実行に失敗しました(INSERT)");
	exit;
}

//**** メール配信 ****
//電話メモ日付
if (strlen($Tel_m)==1){
	$Tel_m="0".$Tel_m;
}
if (strlen($Tel_d)==1){
	$Tel_d="0".$Tel_d;
}
if (strlen($Tel_h)==1){
	$Tel_h="0".$Tel_h;
}
if (strlen($Tel_min)==1){
	$Tel_min="0".$Tel_min;
}

$strData=$Tel_y."/".$Tel_m."/".$Tel_d;
$strTime=$Tel_h.":".$Tel_min;

//電話番号
$strTel=$telno1 ."-". $telno2 ."-". $telno3;

//FAX番号
$strFax=$fax1 ."-". $fax2 ."-". $fax3;

//メールアドレス
$strMail=$mail1 ."@". $mail2;

//送信先取得
$strSQL="Select e_mail From tel_trans_tbl Where syain_cd='$to_code'";
$objRec = pg_exec($strSQL);
if($objRec==false){
	echo("SQL実行に失敗しました(SELECT)");
	exit;
}

//転送用メールアドレスが設定されている場合
if (pg_numrows($objRec) > O){
	$obj_S = pg_fetch_object($objRec, 0);
	//送信元のメールアドレスの取得
	$strSQL="Select mail_addr From syain_tbl Where syain_cd='$PHP_SYAIN_CD'";
	$objRec = pg_exec($strSQL);
	if($objRec==false){
		echo("SQL実行に失敗しました(SELECT)");
		exit;
	}
	$obj_J = pg_fetch_object($objRec, 0);
			
	//メールアドレスが設定されていない場合は、E-グルProからメール送信を行う。
	$strFwMail = "";
	if ($obj_J->mail_addr == "@" || $obj_J->mail_addr == ""){
		$strFwMail = "e-gru-pro@media-tek.co.jp";
	}else{
		$strFwMail = $obj_J->mail_addr;
	}
	//メール内容を取得
	//伝言内容
	switch ($msg_mode) {
		case 1:
			$msg_mode = "【電話】";
			break;
		case 2:
			$msg_mode = "【来客】";
			break;
		case 3:
			$msg_mode = "【その他】";
			break;
		case 4:
			$msg_mode = "【返信】";
			break;
	} 

	switch ($MsgType) {
		case 1:
			$msgtype = "内容：電話があったことをお伝えください";
			break;
		case 2:
			$msgtype = "内容：またかけ直します";
			break;
		case 3:
			$msgtype = "内容：折り返しの連絡をお願いします";
			break;
		case 4:
			$msgtype = "内容：ご伝言をお願いします";
			break;
		case 5:
			$msgtype = "内容：来社されました";
			break;
		case 6:
			$msgtype = "内容：その他";
			break;
		case 7:
			$msgtype = "内容：メッセージ返信";
			break;
	}
			
		
	mb_language('Japanese');
	mb_internal_encoding('EUC-JP');


	//$headers ="From:$obj_J->mail_addr.\r\n";
	//$headers ="From:$strFwMail.\r\n";
	
	$Mail_Headers  = "Date: ".$GMT_RFC."\n";
	$Mail_Headers .= "From: ".$strFwMail."\n";
	$Mail_Headers .= "MIME-Version: 1.0\n";
	$Mail_Headers .= "X-Mailer: PHP/".phpversion()."\n";
	$Mail_Headers .= "Content-type: text/plain; charset=ISO-2022-JP\n";
	$Mail_Headers .= "Content-Transfer-Encoding: 7bit";
	
	//20170112　サーバ移行時にmedia-tek.co.jpへメールが飛ばない対応
	$MailFrom = $strFwMail;

	//20170112　サーバ移行時にmedia-tek.co.jpへメールが飛ばない対応
	//$mail_subject="電話メモ"."(".$PHP_SYAIN_NAME.")";
		$mail_subject="電話メモ"."(".$PHP_SYAIN_NAME.")";
	
	$strHead=$msg_mode."\n".$msgtype."\n";
	if ($ML_Request != ""){
		$strHead=$strHead . "依頼主:".mb_convert_kana($ML_Request,"K") ."\n";
	}
	
	if (trim($strTel)!="--"){
		$strHead=$strHead."Tel:".$strTel ."\n";
	}
	if (trim($strFax)!="--"){
		$strHead=$strHead."Fax:".$strFax ."\n";
	}
	if (trim($strMail)!="@"){
		$strHead=$strHead."Mail:".$strMail."\n";
	}

	if (trim($ML_Memo != "")){
		$strMemo=mb_convert_kana($ML_Memo,"K");
	}

	$strURL=$strURL."\n確認する場合は以下のURLをクリック\n";
	$strURL=$strURL.$UrlHead_TEL."TEL006.php?seq=$intseqNo&PHP_DB_NAME=$PHP_DB_NAME&P_FOLDER=$PHP_FOLDER_NAME";

	$strKotowari = "";
	//20081023 文章追加
	if ($strFwMail=="e-gru-pro@media-tek.co.jp"){
		$strKotowari="\n\n※このメールは、送信専用メールアドレスから配信されています。\nご返信いただいても配信元へは届きませんのでご了承ください。\n";
		$strHonbun=$strHead.$strMemo.$strKotowari.$strURL;
	}else{
		$strHonbun=$strHead.$strMemo.$strURL;
	}

	if (strlen($strHonbun)>480){
		$strSet=$strHead;
		$intSendCnt=1;
		for ($ii=0;$ii<mb_strlen($strMemo); $ii++) {
			$strSet .= mb_substr($strMemo,$ii,1);
			if (strlen($strSet) >= 480){

					//20170112　サーバ移行時にmedia-tek.co.jpへメールが飛ばない対応
					//mb_send_mail($obj_S->e_mail,$mail_subject."(分割".$intSendCnt.")",$strSet,$headers);
					$mlms = mb_convert_encoding(stripslashes($strSet), "JIS", "EUC-JP");
					$mlsb = "=?iso-2022-jp?B?" .base64_encode(mb_convert_encoding(stripslashes($mail_subject."(分割".$intSendCnt.")"), "JIS", "EUC-JP")). "?=";
					$rcd = mail($obj_S->e_mail, $mlsb, $mlms, $Mail_Headers, "-f".$MailFrom);

					if($rcd == false){
							$Status = -1;
					}
				
					$strSet="";
					$intSendCnt=$intSendCnt+1;
			}
		}
		if ($strSet!=""){
			if (strlen($strSet.$strURL)>=480){
					//20170112　サーバ移行時にmedia-tek.co.jpへメールが飛ばない対応
					//mb_send_mail($obj_S->e_mail,$mail_subject."(分割".$intSendCnt.")",$strSet,$headers);
					$mlms = mb_convert_encoding(stripslashes($strSet), "JIS", "EUC-JP");
					$mlsb = "=?iso-2022-jp?B?" .base64_encode(mb_convert_encoding(stripslashes($mail_subject."(分割".$intSendCnt.")"), "JIS", "EUC-JP")). "?=";
					$rcd = mail($obj_S->e_mail, $mlsb, $mlms, $Mail_Headers, "-f".$MailFrom);
					if($rcd == false){
							$Status = -1;
					}
				
					$intSendCnt=$intSendCnt+1;
					
					//20170112　サーバ移行時にmedia-tek.co.jpへメールが飛ばない対応
					//mb_send_mail($obj_S->e_mail,$mail_subject."(分割".$intSendCnt.")",$strURL,$headers);
					$mlms = mb_convert_encoding(stripslashes($strURL), "JIS", "EUC-JP");
					$mlsb = "=?iso-2022-jp?B?" .base64_encode(mb_convert_encoding(stripslashes($mail_subject."(分割".$intSendCnt.")"), "JIS", "EUC-JP")). "?=";
					$rcd = mail($obj_S->e_mail, $mlsb, $mlms, $Mail_Headers, "-f".$MailFrom);
					if($rcd == false){
							$Status = -1;
					}
				
			}else{
					//20170112　サーバ移行時にmedia-tek.co.jpへメールが飛ばない対応
					//mb_send_mail($obj_S->e_mail,$mail_subject."(分割".$intSendCnt.")",$strSet.$strURL,$headers);
					$mlms = mb_convert_encoding(stripslashes($strSet.$strURL), "JIS", "EUC-JP");
					$mlsb = "=?iso-2022-jp?B?" .base64_encode(mb_convert_encoding(stripslashes($mail_subject."(分割".$intSendCnt.")"), "JIS", "EUC-JP")). "?=";
					$rcd = mail($obj_S->e_mail, $mlsb, $mlms, $Mail_Headers, "-f".$MailFrom);

					if($rcd == false){
							$Status = -1;
					}
			}
		}
	}else{
		
		
		//20170112　サーバ移行時にmedia-tek.co.jpへメールが飛ばない対応
		//mb_send_mail($obj_S->e_mail,$mail_subject,$strHonbun,$headers);
		$mlms = mb_convert_encoding(stripslashes($strHonbun), "JIS", "EUC-JP");
		$mlsb = "=?iso-2022-jp?B?" .base64_encode(mb_convert_encoding(stripslashes($mail_subject), "JIS", "EUC-JP")). "?=";
		$rcd = mail($obj_S->e_mail, $mlsb, $mlms, $Mail_Headers, "-f".$MailFrom);

		if($rcd == false){
			$Status = -1;
		}
		
	}
}

?>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<HTML>
<HEAD>
<META http-equiv="Content-Type" content="text/html; charset=EUC-JP">
<META http-equiv="Content-Style-Type" content="text/css">
<link rel="stylesheet" type="text/css" href="basefont.css">
<TITLE>ｅ-グル 電話連絡メモ</TITLE>
<SCRIPT LANGUAGE="JAVASCRIPT">
<!--
function load_screen(){
	document.e_gru.action = "TEL001.php";
	document.e_gru.method="POST";
	document.e_gru.submit();
}
-->
</SCRIPT>
</HEAD>
<BODY onLoad="return load_screen();">
<form name="e_gru">
	<input type="hidden" name="ichiran" value="2">
</form>
</BODY>
</HTML>