<?php
//*****************************************************************************
//* 
//* プログラム名：アンケート機能
//* プログラムID：MNP901.php
//* 機能        ：配信処理
//* 
//*****************************************************************************
header("Content-type: text/html; charset=EUC-JP");

include("./include/session_start.inc");
include("./include/SessionChk.inc");

//***************************
//*　インクルードファイル
//***************************
include("./include/url_get.inc");
include("./include/jcode.phps");
include("./include/dbcon.inc");
include("./inc/mime.php");

//***********************************//
//*　　　　　　メイン処理　　　　　　//
//***********************************//
$strMenuSQL = "SELECT name FROM sub_menu_TBL WHERE url = 'MNP001.php'";
$rsRecset = pg_exec($strMenuSQL);
if (pg_numrows($rsRecset)>0){
		$PHP_TITLE_NAME[20]=pg_result($rsRecset,0,"name");
		$PHP_TITLE_ID[20]='MNP';
}

//*** 配信先取得 ***//
$Syain_List=array();
if($_REQUEST["radSendPtn"] == "1"){
		//個人配信
		$strWhere="";

		$DataKey=split("/", $_REQUEST["User_List"]);
		for ($intI = 0; $intI < count($DataKey) - 1; $intI++){
				if ($DataKey[$intI]!=""){
						if ($strWhere==""){
								$strWhere = "AND (M1.syain_cd='".$DataKey[$intI]."'";
						}else{
								$strWhere = $strWhere." or M1.syain_cd='".$DataKey[$intI]."'";
						}
				}
		}
		if ($strWhere!=""){
				$strWhere=$strWhere.")";
		}

		$strSQL  = "SELECT ";
		$strSQL .= "  M1.syain_cd       , ";
		$strSQL .= "  M1.name_kj_sei    , ";
		$strSQL .= "  M1.name_kj_mei    , ";
		$strSQL .= "  M2.mail_address   , ";
		$strSQL .= "  M2.keitai__address  ";
		$strSQL .= "FROM ";
		$strSQL .= "  (syain_tbl AS M1 LEFT JOIN sendinfo_tbl AS M2 ON M1.syain_cd =  M2.syain_cd) ";
		$strSQL .= "WHERE ";
		$strSQL .= "  M1.del_flg=true ";
		$strSQL .= $strWhere." ";
		$strSQL .= "GROUP BY  ";
		$strSQL .= "  M1.disp_rank      ,";
		$strSQL .= "  M1.syain_cd       ,";
		$strSQL .= "  M1.name_kj_sei    ,";
		$strSQL .= "  M1.name_kj_mei    ,";
		$strSQL .= "  M2.mail_address   ,";
		$strSQL .= "  M2.keitai__address ";
		$strSQL .= "ORDER BY ";
		$strSQL .= "  M1.disp_rank ";

}elseif($_REQUEST["radSendPtn"] == "2"){
		//グループ配信
		$DataKey=split("/", $_REQUEST["group_id"]);

		$strWhere="";
		for ($intI = 0; $intI < count($DataKey) - 1; $intI++){
				if ($DataKey[$intI]!=""){
						if ($strWhere==""){
								$strWhere = "AND (M2.syozoku_cd='".$DataKey[$intI]."'";
						}else{
								$strWhere = $strWhere." or M2.syozoku_cd='".$DataKey[$intI]."'";
						}
				}
		}
		if ($strWhere!=""){
				$strWhere=$strWhere.")";
		}

		$strSQL  = "SELECT ";
		$strSQL .= "  M1.syain_cd       , ";
		$strSQL .= "  M1.name_kj_sei    , ";
		$strSQL .= "  M1.name_kj_mei    , ";
		$strSQL .= "  M3.mail_address   , ";
		$strSQL .= "  M3.keitai__address  ";
		$strSQL .= "FROM ";
		$strSQL .= "  (";
		$strSQL .= "   (syain_tbl AS M1 LEFT JOIN syozoku_tbl AS M2 ON M1.syain_cd =  M2.syain_cd) ";
		$strSQL .= "    LEFT JOIN sendinfo_tbl AS M3 ON  M1.syain_cd =  M3.syain_cd";
		$strSQL .= "   ) ";
		$strSQL .= "WHERE ";
		$strSQL .= "  M1.del_flg=true ";
		$strSQL .= $strWhere." ";
		$strSQL .= "GROUP BY  ";
		$strSQL .= "  M1.disp_rank      ,";
		$strSQL .= "  M1.syain_cd       ,";
		$strSQL .= "  M1.name_kj_sei    ,";
		$strSQL .= "  M1.name_kj_mei    ,";
		$strSQL .= "  M3.mail_address   ,";
		$strSQL .= "  M3.keitai__address ";
		$strSQL .= " ORDER BY ";
		$strSQL .= "  M1.disp_rank ";
}

//echo $strSQL."<hr>";
$objRec = pg_exec($strSQL);
if($objRec==false){
		echo("SQL実行に失敗しました(SELECT)");
		exit;
} 
for ($intI = 0; $intI<pg_numrows($objRec);$intI++){
		$objData    = pg_fetch_object($objRec, $intI);
		$Syain_List[$intI][0] = $objData->syain_cd;
		$Syain_List[$intI][1] = $objData->name_kj_sei;
		$Syain_List[$intI][2] = $objData->name_kj_mei;
		$Syain_List[$intI][3] = $objData->mail_address;
		$Syain_List[$intI][4] = $objData->keitai__address;

		$strSQL="SELECT * FROM kojin_data_tbl WHERE seq=20 AND syain_cd='".$_SESSION["PHP_SYAIN_CD"]."'";
		$objChkRec = pg_exec($strSQL);
		if($objChkRec==false){
				echo("SQL実行に失敗しました(SELECT)");
				exit;
		}
		if (pg_numrows($objChkRec) > 0){
				$objChkData=pg_fetch_object($objChkRec, 0);
				$Send_Flg=$objChkData->memo;
				if ($Send_Flg==""){
						$Send_Flg=0;
				}
		}else{
				$Send_Flg=0;
		}
		$Syain_List[$intI][5] = $Send_Flg;
}

//*** 配信基本情報 ***//
//メールID？
$strSQL = "SELECT Max(mail_id) as Max_id FROM mnp_kihon_tbl";
$objRecSet = pg_exec($strSQL);
$Max_id = pg_result($objRecSet,0,"Max_id");
if($objRecSet==false){
		echo("SQL実行に失敗しました(SELECT)");
		exit;
}
$Mail_id = ($Max_id + 1);

$Send_Date = date("Y/m/d");
$Send_Time = date("H:i:s");

$strSQL  = "INSERT INTO ";
$strSQL .= " mnp_kihon_tbl (";
$strSQL .= "  mail_id      ,";
$strSQL .= "  mail_subject ,";
$strSQL .= "  mail_body    ,";
$strSQL .= "  send_syain_cd,";
$strSQL .= "  send_mode    ,";
$strSQL .= "  send_date    ,";
$strSQL .= "  send_time    ,";
$strSQL .= "  ans_type     ,";
$strSQL .= "  ans_limit    ,";
$strSQL .= "  disp_mode     ";
$strSQL .= " ) VALUES (";
$strSQL .= " ".$Mail_id.", ";
$strSQL .= "'".$_REQUEST["Mail_Subject"]."', ";
$strSQL .= "'".$_REQUEST["Mail_Body"].   "', ";
$strSQL .= "'".$_SESSION["PHP_SYAIN_CD"]."', ";
$strSQL .= " 1,";
$strSQL .= "'".$Send_Date."', ";
$strSQL .= "'".$Send_Time."', ";
$strSQL .= $_REQUEST["fuku_flg"].",";
$strSQL .= "  '',";
$strSQL .= $_REQUEST["view_flg"]." ";
$strSQL .= ") ";
//echo $strSQL."<hr>";
$objRecSet = pg_exec($strSQL);
if($objRecSet==false){
		echo("SQL実行に失敗しました(INSERT)");
		exit;
}

//*** 配信回答情報 ***//
for($intI=1;$intI<=$_REQUEST["kouho"];$intI++){
		$strSQL  = "INSERT INTO ";
		$strSQL .= " mnp_answer_tbl (";
		$strSQL .= "  mail_id ,";
		$strSQL .= "  ans_id  ,";
		$strSQL .= "  ans_name ";
		$strSQL .= " ) VALUES (";
		$strSQL .= " ".$Mail_id.", ";
		$strSQL .= " ".$intI.", ";
		$strSQL .= "'".$_REQUEST["Ans_Data".$intI]."' ";
		$strSQL .= ") ";
		//echo $strSQL."<hr>";
		$objRecSet = pg_exec($strSQL);
		if($objRecSet==false){
				echo("SQL実行に失敗しました(INSERT)");
				exit;
		}
}

//*** アンケートタイトル取得 ***
$strMenuSQL = "SELECT name FROM sub_menu_TBL WHERE url = 'MNP010.php'";
$rsRecset = pg_exec($strMenuSQL);
if (pg_numrows($rsRecset)>0){
	$strMenuTitle[20]=pg_result($rsRecset,0,"name");
}

?>
<!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 href="./style.css" rel="stylesheet" type="text/css">

<TITLE>送信中</TITLE>
<script language="javascript">
function pageJump(){
		document.e_gru.action = "MNP020.php";
		document.e_gru.method="POST";
		document.e_gru.submit();
}
</script>
</HEAD>
<BODY onload="pageJump();" bgcolor="White">
<br>
<br>
<br>
<center>
<B><FONT color=blue size=5>送信中です。しばらく待ちください。</FONT></B>
<br>
<form name="e_gru">
<table>
<tr>
<br>
<br>
<td><FONT size=5><div id="maxcount"></div></FONT></td>
<td><FONT size=5>件中</FONT></td>
<td><FONT size=5><div id="count"></div></FONT></td>
<td><FONT size=5>件送信しました。</FONT></td>
<tr>
</table>
<br>
<B><FONT color=red size=5>※この画面で何か操作しますと、処理が正常におこなわれません。</FONT></B>
<br>
</form>
<br>
</center>
<?php
	
	//20170112　サーバ移行時にmedia-tek.co.jpへメールが飛ばない対応
	$mlfr = "e-gru@media-tek.co.jp";

	$Headers  = "Date: ".$GMT_RFC."\n";
	$Headers .= "From: ".$mlfr."\n";
	$Headers .= "Subject: $MailSubject\n";
	$Headers .= "MIME-Version: 1.0\n";
	$Headers .= "X-Mailer: PHP/".phpversion()."\n";
	$Headers .= "Content-type: text/plain; charset=ISO-2022-JP\n";
	$Headers .= "Content-Transfer-Encoding: 7bit";

	
	for ($intI = 0; $intI<count($Syain_List);$intI++){
			$DpCnt = $intI+1;

			$strSQL  = "INSERT INTO ";
			$strSQL .= " mnp_syain_info (";
			$strSQL .= "  mail_id ,";
			$strSQL .= "  syain_cd,";
			$strSQL .= "  read_flg,";
			$strSQL .= "  comment  ";
			$strSQL .= " ) VALUES (";
			$strSQL .= "  ".$Mail_id.", ";
			$strSQL .= " '".$Syain_List[$intI][0]."', ";
			$strSQL .= " 0, ";
			$strSQL .= " '' ";
			$strSQL .= ") ";
			//echo $strSQL."<hr>";
			$objRecSet = pg_exec($strSQL);
			if($objRecSet==false){
					echo("SQL実行に失敗しました(INSERT)");
					exit;
			}

			//*** メール送信 ***
			if ($Syain_List[$intI][5]=="1"){

					//* PC *//
					if ($Syain_List[$intI][3]!=""){
							//$mlfr = "From:e-gru@media-tek.co.jp";
							$mlto = $Syain_List[$intI][3];

							$mlsb = "【E-グルPro】".$strMenuTitle[20]."(".$_REQUEST["Mail_Subject"].")";
							$mlsb = "=?iso-2022-jp?B?" .base64_encode(mb_convert_encoding(stripslashes($mlsb), "JIS", "EUC-JP")). "?=";

							$mlms  = "【タイトル】".$_REQUEST["Mail_Subject"]."\n";
							$mlms .= "【配信日時】".$Send_Date."　".$Send_Time."\n";
							$mlms .= "【内容】"."\n";
							$mlms .= $_REQUEST["Mail_Body"]."\n";
							$mlms .= "\n※このメールは、送信専用メールアドレスから配信されています。\nご返信いただいても配信元へは届きませんのでご了承ください。";
							$mlms .= "\n\n回答は下記よりログイン後、記入してください。\n".$UrlHead_PC."index.php";
							$mlms = mb_convert_encoding(stripslashes($mlms), "JIS", "EUC-JP");

							//20170112　サーバ移行時にmedia-tek.co.jpへメールが飛ばない対応
							//$rcd = mail($mlto, $mlsb, $mlms, $mlfr);
							$rcd = mail($mlto, $mlsb, $mlms, $Headers, "-f".$mlfr);

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

					//* 携帯電話 *//
					if ($Syain_List[$intI][4]!=""){
							//$mlfr = "From:e-gru@media-tek.co.jp";
							$mlto = $Syain_List[$intI][4];

							$mlsb = "【E-グルPro】".$strMenuTitle[20]."(".$_REQUEST["Mail_Subject"].")";
							$mlsb = "=?iso-2022-jp?B?" .base64_encode(mb_convert_encoding(stripslashes($mlsb), "JIS", "EUC-JP")). "?=";

							$mlms  = "【タイトル】".$_REQUEST["Mail_Subject"]."\n";
							$mlms .="【配信日時】".$Send_Date."　".$Send_Time."\n";
							$mlms .= "【内容】"."\n";
							$mlms .= $_REQUEST["Mail_Body"]."\n";
							$mlms .="\n※このメールは、送信専用メールアドレスから配信されています。\nご返信いただいても配信元へは届きませんのでご了承ください。";
							if((int)$_SESSION["PHP_MOBILE_FLG"]!=1){
									$mlms .= "\n\n以下のアドレスよりログインしてください。\n";
									$mlms .= $UrlHead_MB."MNP100_m.php?";
									$mlms .= "P_SYAIN_CD=".$Syain_List[$intI][0]."&";
									$mlms .= "P_FOLDER=".$_SESSION["PHP_FOLDER_NAME"]."&";
									$mlms .= "mail_id=$Mail_id&";
									$mlms .= "C=1";
							}
							$mlms = mb_convert_encoding(stripslashes($mlms), "JIS", "EUC-JP");

							// メール送信
							//20170112　サーバ移行時にmedia-tek.co.jpへメールが飛ばない対応
							//$rcd = mail($mlto, $mlsb, $mlms, $mlfr);
							$rcd = mail($mlto, $mlsb, $mlms, $Headers, "-f".$mlfr);

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

			echo "<script language='javascript'>";
			echo "document.getElementById('maxcount').innerHTML ='".count($Syain_List)."';";
			echo "document.getElementById('count').innerHTML ='".$DpCnt."';";
			echo "</script>";
			ob_flush();
			flush();
	}
?>
</BODY>
</HTML>