$linemsg = "Credit系統 5 分鐘內無任何成功交易, 請注意! by db_check";
exec_line(1, $linemsg, 'db_check');
} else {
$diff_num = $auth41_num - $auth42_num;
if (abs($diff_num) >= 6) {
$result = 2;
$msg = "資料差距 {$diff_num} 筆 DB41: {$auth41_num} DB42: {$auth42_num}";
$linemsg = "Credit系統同步 5 分鐘內成功授權資料差距 {$diff_num} 筆, 請檢查! by db_check";
exec_line(1, $linemsg, 'db_check');
echo "兩邊資料\r\n 4.1: {$auth41_num} \r\n 4.2: {$auth42_num} \r\n差距 {$diff_num} 筆!\r\n";
} else {
$result = 1;
$msg = "資料差距 {$diff_num} 筆";
echo "兩邊資料\r\n 4.1: {$auth41_num} \r\n 4.2: {$auth42_num} \r\n檢查完成!\r\n";
}
}
//若執行時間大於 6 秒 則發 Line群 通知
$t2 = microtime(true);
$running_time = number_format($t2 - $t1, 3);
if ($running_time >= 6) {
$title = "Credit系統 DB 查詢回應時間過久, 執行時間 " . $running_time . " 秒警告通知, 請注意! by db_check";
//exec_line(1, $title, 'db_check');
$end_time = date("YmdHis");
$msg = "Settlement 10.0.4.7 執行程式 db_check.php <br>";
$msg .= "開始時間: {$start_time} <br>";
$msg .= "結數時間: {$end_time} <br>";
exec_mail(2, $title, $msg, 'db_check');
}
//記DBLOG monitor
$arr = array('setdate' => $setdate, 'settime' => $settime, 'period' => '5m', 'result' => $result, 'result_note' => $msg, 'result_num' => $auth41_num, 'running' => number_format(microtime(true) - $t1, 3), 'start_time' => $start_time, 'end_time' => date("YmdHis"));
@DBLog($logtable, $subject, $arr);
$OUTdata = str_replace('<br><br><br>', '<p>', $OUTdata);
$OUTdata = str_replace('<br>', ' : ', $OUTdata);
$OUTdata = str_replace('<p>', '<br>', $OUTdata);
$title = $subject . "-" . $result_note;
$msg = "<html><head><meta http-equiv=\"Content-Type\" content=\"text/html; charset=BIG5\"></head><body> {$subject} 每日 12:00 {$OUTfile} <hr>";
if ($ccc != 'ok') {
$msg .= $ccc . "<hr>";
}
$msg .= $setdate . " " . $settime . " - 執行關帳撥款, 合計: {$All_c} 店家, {$All_i} 筆, 金額: {$AllNEWamtTT} 元 <br>" . $OUTdata;
if ($ccc != 'ok') {
exec_mail(0, $title, $msg, 'g_Close_payment_xml', '*****@*****.**');
}
if ($sql_error) {
$title .= "-有異常";
$msg .= "<br>執行失敗SQL: <br>" . $sql_error;
}
if ($TEST_mode == 1) {
$title .= "-測試";
$result_note = "測試-" . $result_note;
}
if ($TEST_mode == 2) {
$title .= "-Mode2";
$result_note = "Mode2-" . $result_note;
}
//記DBLOG
$arr = array('setdate' => $setdate, 'settime' => $settime, 'period' => $period, 'result' => $result, 'result_note' => $result_note, 'running' => number_format(microtime(true) - $t1, 3), 'start_time' => $start_time, 'end_time' => date("YmdHis"));
@DBLog($logtable, $subject, $arr);
$msg .= "<hr size=1>於 Settlement 每日 " . $settime . " 執行的 g_Close_payment_xml.php 執行時間 " . number_format(microtime(true) - $t1, 3) . " 秒<br>" . date("Y/m/d H:i:s");
exec_mail(2, $title, $msg, 'g_Close_payment_xml');
echo $subject . "-結束 \r\n";
exit;
} else {
if (!$Cxc[1]) {
$Cxc[1] = "---";
}
@exec_sr_tracer($Cxc[3], "step5", $running, "form_ssl.php", "final", $Cxc[1], $remsg);
}
//若授權流程超過 6 秒, 則發警告信
$running_time = number_format(microtime(true) - $t1, 3);
if ($running_time > 6) {
$title = "銀行" . $form[bank] . "授權時間花費 " . $running_time . " 秒";
if ($ECI != '') {
$title .= " (ECI=" . $ECI . ")";
}
$msg = "授權單號: {$aa} 授權完成時間花費 {$running_time} 秒<br>";
$msg .= "<hr size=1>於 pay-web 執行的 from_ssl.php 執行時間 " . number_format(microtime(true) - $t1, 3) . " 秒<br>" . date("Y/m/d H:i:s");
exec_mail(2, $title, $msg, 'form_ssl');
}
//超過 30 秒發Line
/*
if( $running_time > 30 ){
if ( $Cxc[3] ) {
$SEND_DT = "授權主機 ".$City_host_id.":16688 回應大於30秒, 請檢查! by form_ssl";
exec_line(4, $SEND_DT, 'form_ssl');
} else {
$SEND_DT = "授權主機 ".$City_host_id.":16688 沒有回應, 很重要請檢查! by form_ssl";
exec_line(1, $SEND_DT, 'form_ssl');
}
}
*/
//將控制權轉給下支程式
Header("Location:form_ssl_out_N.php?gwsr={$Cxc['3']}&sr={$s_time}&Do=A03&LG={$LG}");
@exec_mail(0, $client_dtch_title, $client_dtch_msg, $filename, '*****@*****.**');
//CC給王柏森arnold.wang
@exec_mail(0, $client_dtch_title, $client_dtch_msg, $filename, '*****@*****.**');
//CC給龔泳霖merle.kong
@exec_mail(0, $client_dtch_title, $client_dtch_msg, $filename, '*****@*****.**');
//CC給練家豪ethan.lien
@exec_mail(0, $client_dtch_title, $client_dtch_msg, $filename, '*****@*****.**');
//CC給陳健瑞richy.chen
@exec_mail(0, $client_dtch_title, $client_dtch_msg, $filename, '*****@*****.**');
//CC給陳啟原rex.chen
//客服
@exec_mail(3, $client_dtch_title, $client_dtch_msg, $filename);
//CC給danny
//管理
@exec_mail(6, $client_dtch_title, $client_dtch_msg, $filename);
//CC給雅純
@exec_mail(0, $client_dtch_title, $client_dtch_msg, $filename, '*****@*****.**');
//CC給秋燕
//資訊
@exec_mail(1, $client_dtch_title, $client_dtch_msg, $filename);
$client_dtch_msg .= "<hr size=1>於 pay-web 執行的 " . $filename . " (form_client_dtch.php) <br>" . date("Y/m/d H:i:s");
@exec_mail(2, $client_dtch_title, $client_dtch_msg, $filename);
//記錄 LOG
if ($filename == "/form_ssl.php") {
$ret = array("client" => $client, "UserIP" => $uip, "RunTime" => number_format(microtime(true) - $t1, 3));
@write_log("form_ssl", "授權追縱 LOG (END) 系統無法使用 form_client_dtch.php", $ret);
}
echo '<p><center>系統無法使用!</center>';
exit;
}
}
if ($warning_nums) {
$title .= "-有請款金額超過授權金額";
$msg .= "<br>請款金額超過授權金額, 關帳壓回被拒絕: <br>" . $warning_msg;
}
if ($sql_error) {
$title .= "-有異常";
$msg .= "<br>執行失敗SQL: <br>" . $sql_error;
}
if ($log_str_error) {
$title .= "-有上傳失敗";
$msg .= "<br>上傳失敗: <br>" . $log_str_error;
}
if ($TEST_mode == 1) {
$title .= "-測試";
$result_note = "測試-" . $result_note;
}
if ($TEST_mode == 2) {
$title .= "-Mode2";
$result_note = "Mode2-" . $result_note;
}
//記DBLOG
$arr = array('setdate' => $setdate, 'settime' => $settime, 'period' => $period, 'result' => $result, 'result_note' => $result_note, 'running' => number_format(microtime(true) - $t1, 3), 'start_time' => $start_time, 'end_time' => date("YmdHis"));
@DBLog($logtable, $subject, $arr);
} else {
$title = $subject . "-DB無法連線";
$msg = "[" . $DBHOST . "]DB無法連線-allPay關帳請款-萬泰 執行失敗<hr size=1>" . mysql_error($plink) . " 請檢查! by g_Close_wantaiOut.php";
}
$msg .= "<hr size=1>於 Settlement 每日 " . $settime . " 執行的 g_Close_wantaiOut.php 執行時間 " . number_format(microtime(true) - $t1, 3) . " 秒<br>" . date("Y/m/d H:i:s");
exec_mail(2, $title, $msg, 'g_Close_wantaiOut');
echo $subject . "-結束 \r\n";
exit;
}
//送出信件
$title = $subject . "-" . $result_note;
if ($result == 2) {
$msg = $title . "<br>Auth更新失敗" . ($num1 - $ii) . "筆-Close更新失敗" . ($num2 - $nn) . "筆<hr size=1>";
} else {
$msg = $title . "<hr size=1>";
}
$msg .= "o_auth應更新 {$num1} 筆, 更新 {$ii} 筆 <br>";
$msg .= "o_close應更新 {$num2} 筆, 更新 {$nn} 筆 <br>";
if ($ii_str) {
$msg .= "o_auth 應該要有%數但沒有壓的 sr : <br>" . $ii_str . "<br><br>";
}
if ($result == 2) {
//若有失敗的筆數, CC給 Hebe
//exec_mail(0, $title, $msg, 'percen_mak', '*****@*****.**');
}
if ($ii_str_failed) {
$msg .= "o_auth 更新失敗的SQL : <br>" . $ii_str_failed . "<br>";
}
if ($nn_str_failed) {
$msg .= "o_close 更新失敗的SQL : <br>" . $nn_str_failed . "<br>";
}
@mysql_close($plink);
//記DBLOG
$arr = array('setdate' => $setdate, 'settime' => $settime, 'period' => $period, 'result' => $result, 'result_note' => $result_note, 'running' => number_format(microtime(true) - $t1, 3), 'start_time' => $start_time, 'end_time' => date("YmdHis"));
@DBLog($logtable, $subject, $arr);
$msg .= "<hr size=1>於 Settlement 每日 " . $settime . " 執行 percen_mak.php 執行時間 " . number_format(microtime(true) - $t1, 3) . " 秒 <br>" . date("Y/m/d H:i:s");
exec_mail(2, $title, $msg, 'percen_mak');
echo $subject . "-結束 \r\n";
exit;
curl_setopt($ch, CURLOPT_RETURNTRANSFER, 1);
curl_setopt($ch, CURLOPT_HEADER, 0);
curl_setopt($ch, CURLOPT_FOLLOWLOCATION, 1);
curl_setopt($ch, CURLOPT_COOKIEFILE, "cookiefile");
curl_setopt($ch, CURLOPT_COOKIEJAR, "cookie.txt");
curl_setopt($ch, CURLOPT_TIMEOUT, 60);
$result_data = curl_exec($ch);
if ($result_data) {
$post_result = "PostOK";
} else {
$post_result = "PostError";
$result_data = curl_error($ch);
}
curl_close($ch);
//將資料寫到 newecpay_log.postgate
//INSERT INTO `newecpay_log`.`postgate` (`serial`, `authsr`, `bk_posturl`, `relog`, `LG`, `allsn`, `filename`, `post_times`, `post_result`, `result_data`, `insert_times`, `update_times`) VALUES (NULL, '1', 'http://raleigh.summerhost.info/allpay/aio_orderresulturl.php', 'succ=1&gwsr=1&response_code=00&response_msg=授權成功&process_date=20131129&process_time=114002&od_sob=P201311290002&auth_code=455824&amount=2980&eci=&inspect=ca851c6e9e035b5d0246863682e3e873&spcheck=29276399&od_hoho=Card_Member_Name: 柯明昆<BR>ha: <BR>&card4no=2493&card6no=456317&inv_error=&rech_key=0a3655231c604091905aea64cdaa4df1ab05b118aab8ff1011801a11e05bba3fecc19fcc4dc22119&client=303540&expire_dt=1407', 'utf-8', '1', 'test.php', '1', 'PostOK', '1|OK', '20140901000001', '');
$str_sr = "INSERT INTO `postgate` (`serial`, `bank`, `authsr`, `bk_posturl`, `relog`, `LG`, `allsn`, `filename`, `post_times`, `post_result`, `result_data`, `insert_times`, `update_times`) VALUES (NULL, '" . $bank . "', '" . $authsr . "', '" . $bk_posturl . "', '" . $relog . "', '" . $LG . "', '" . $allsn . "', '" . $filename . "', 1, '" . $post_result . "', '" . $result_data . "', '" . date("YmdHis") . "', '');";
$res_sr = @mysql_query($str_sr, $plink);
if (!$res_sr) {
$title = "Settlement寫postgate失敗-" . $subject;
$msg = "SQL執行失敗: " . mysql_error() . ", 請檢查! by postgate <hr size=1>" . $str_sr;
exec_mail(2, $title, $msg, 'postgate');
}
} else {
@write_log("exec_postgate", $subject, $argv);
$title = $subject . "-DB無法連線";
$msg = "[" . $DBHOST . "]DB無法連線<hr size=1>" . mysql_error($plink) . " 請檢查! by exec_postgate.php";
$msg .= "<hr size=1>於 10.0.4.7 執行的 postgate.php 執行時間 " . number_format(microtime(true) - $t1, 3) . " 秒<br>" . date("Y/m/d H:i:s");
exec_mail(2, $title, $msg, 'postgate');
}
exit;
$title = $subject . "-" . $result_note;
if ($nums_fail || $total_nums_fail) {
$title = $subject . "-異常-" . $result_note;
}
$msg = $title . "<hr size=1>" . $inclosing . "<br>新聯信每日平帳開始<br><table border=0>" . $OUTmsg . "</table>";
//若有失敗通知雪卿
if (($nums_fail || $total_nums_fail) && !$TEST_mode) {
$s_msg = "Dears <br>今日新聯信關帳取回檔案有異常,<br>再請注意, 感謝!<hr size=1>" . $msg;
exec_mail(5, $title, $s_msg, 'g_Close_ncccIn');
exec_mail(0, $title, $s_msg, 'g_Close_ncccIn', '*****@*****.**');
exec_mail(0, $title, $s_msg, 'g_Close_ncccIn', '*****@*****.**');
}
if ($sql_error) {
$title .= "-有執行失敗SQL";
$msg .= "<br>執行失敗SQL: <br>" . $sql_error;
}
if ($get_recv_fail) {
$title .= "-有關帳異常";
$msg .= "<br>關帳異常資料: <br>" . $get_recv_fail;
}
if ($TEST_mode) {
$title .= "-測試";
$result_note = "測試-" . $result_note;
}
//記DBLOG
$arr = array('setdate' => $setdate, 'settime' => $settime, 'period' => $period, 'result' => $result, 'result_note' => $result_note, 'running' => number_format(microtime(true) - $t1, 3), 'start_time' => $start_time, 'end_time' => date("YmdHis"));
@DBLog($logtable, $subject, $arr);
$msg .= "<hr size=1>於 Settlement 每日 " . $settime . " 執行的 g_Close_ncccIn.php 執行時間 " . number_format(microtime(true) - $t1, 3) . " 秒<br>" . date("Y/m/d H:i:s");
exec_mail(2, $title, $msg, 'g_Close_ncccIn');
echo $subject . "-結束 \r\n";
exit;
$szSQL = "SELECT aa FROM o_isNOW where sr='{$szMerchantTradeNo}' LIMIT 1 ";
$rsNOW = mysql_query($szSQL, $databaseLink);
$arNOW = @mysql_fetch_array($rsNOW);
if ($arNOW[aa]) {
$dtmYmd = date("Ymd");
// 取出交易日
$szSQL = "INSERT INTO o_close ";
// 寫入
$szSQL .= "(sr,client,bank,authsr,dt,amount,cardno,auth,trace_no,stat,eci,sps,mid,tid,pesn,glFrom,glTo,glCity,isGuolu,isdt,citylog,dtymd,allsn,cdmk,escrow,nort,bank_stat)";
$szSQL .= "VALUES(0,'{$arOrigionAuth['client']}','{$arOrigionAuth['bank']}','{$szMerchantTradeNo}','{$hohsn}','{$arOrigionAuth['amount']}','','{$arOrigionAuth['auth']}','{$arOrigionAuth['trace_no']}','要關帳','{$arOrigionAuth['eci']}','{$arUser['sps']}','{$arUser['mid']}','{$arUser['tid']}','{$arOrigionAuth['pesn']}','{$arOrigionAuth['glFrom']}','{$arOrigionAuth['glTo']}','{$arOrigionAuth['glCity']}','{$arOrigionAuth['isGuolu']}','{$arOrigionAuth['dtymd']}','{$bsb}','{$hohsnYMD}','{$arOrigionAuth['allsn']}','{$arOrigionAuth['cdmk']}','{$arOrigionAuth['escrow']}','{$nort}','要關帳')";
$result = mysql_query($str, $databaseLink);
if (!$result) {
$title = "Credit關帳單號o_close-SQL執行失敗";
$msg = "SQL執行失敗! " . mysql_error() . "<hr size=1>" . $szSQL . "<br>";
$msg .= "<hr size=1>於 pay-web 執行的 from_ssl_result.php 執行時間 " . number_format(microtime(true) - $t1, 3) . " 秒<br>" . date("Y/m/d H:i:s");
@exec_mail(2, $title, $msg, $filename);
} else {
$o_close_sr = mysql_insert_id();
$szSQL = "INSERT INTO o_close_bank ";
// 寫入
$szSQL .= "(sr,client,bank,authsr,dt,amount,cardno,auth,trace_no,stat,eci,sps,mid,tid,pesn,glFrom,glTo,glCity,isGuolu,isdt,citylog,dtymd,allsn,cdmk,escrow,nort,bank_stat,uip)";
$szSQL .= "VALUES('{$o_close_sr}','{$arOrigionAuth['client']}','{$arOrigionAuth['bank']}','{$szMerchantTradeNo}','{$hohsn}','{$arOrigionAuth['amount']}','','{$arOrigionAuth['auth']}','{$arOrigionAuth['trace_no']}','要關帳','{$arOrigionAuth['eci']}','{$arUser['sps']}','{$arUser['mid']}','{$arUser['tid']}','{$arOrigionAuth['pesn']}','{$arOrigionAuth['glFrom']}','{$arOrigionAuth['glTo']}','{$arOrigionAuth['glCity']}','{$arOrigionAuth['isGuolu']}','{$arOrigionAuth['dtymd']}','{$bsb}','{$hohsnYMD}','{$arOrigionAuth['allsn']}','{$arOrigionAuth['cdmk']}','{$arOrigionAuth['escrow']}','{$nort}','立即關帳','{$uip}')";
mysql_query($str, $databaseLink);
}
$szSQL = "UPDATE o_auth SET trans_date='{$dtmYmd}' WHERE sr='{$szMerchantTradeNo}' LIMIT 1 ";
@mysql_query($szSQL, $databaseLink);
}
}
//授權結束
$remsg_in = $szReturnCode == '1' ? '已授權' : $szResponseMessage;
$ret = array("client" => $arOrigionAuth[client], "Bank" => $arOrigionAuth[bank], "SR" => $szMerchantTradeNo, "Amount" => $nTradeAmount, "Allsn" => $arOrigionAuth[allsn], "UserIP" => $uip, "RunTime" => number_format(microtime(true) - $t1, 3), "Recode" => $szResponseCode, "Remsg" => $remsg_in);
$start_time = date("YmdHis");
include 'g_common.inc';
//將先log起來
@write_log("g_get", "HTTP_REFERER: " . $_SERVER['HTTP_REFERER'] . " (" . $uip . ")", $_REQUEST);
$plink = mylink();
list($l, $r) = each($_GET);
$l = mysql_real_escape_string($l);
//寫入log記錄
//關帳 *C*709400*10940479*600*123502147*853*
$strilog = "INSERT INTO o_get_log (aa,dt,hoho,uip,flag) VALUES (0,'{$hohsn}','{$l}','{$uip}','step1')";
$resulti = @mysql_query($strilog, $plink);
if (!$resulti) {
$title = "Credit建立o_get_log-SQL執行失敗";
$msg = "SQL執行失敗! " . mysql_error() . "<hr size=1>" . $strilog . "<br>";
$msg .= "<hr size=1>於 10.0.3.2 執行的 g_get.php 執行時間 " . number_format(microtime(true) - $t1, 3) . " 秒<br>" . date("Y/m/d H:i:s");
@exec_mail(2, $title, $msg, 'g_get');
}
$get_log_aa = @mysql_insert_id();
if (empty($get_log_aa)) {
$get_log_aa = 0;
}
//檢查頭尾是否都有*號 , 新的傳送規則
if (substr($l, 0, 1) == '*' && substr($l, -1) == '*') {
$pieces = explode("*", $l);
//取出值
$DOma = $pieces[1];
//取出工作碼
$MallNB = $pieces[2];
//取出商店代碼
$OdNB = $pieces[3];
//取出單號
}
}
echo 'OK';
//寄出郵件管理者
$san_mail = str_replace(' ', '', $form['email']);
$kind_nail = split(',', $san_mail);
$aacount = count($kind_nail);
for ($_e = 0; $_e < $aacount; $_e++) {
$vCHOO = substr_count($kind_nail[$_e], '@');
if ($kind_nail[$_e] && $vCHOO > 0) {
$RootSOB = '線上刷卡管理者通知函--' . $iswhy;
$uitemed_mail = $RootSOB . '<hr>銀聯卡交易回傳通知:<p>';
$uitemed_mail .= "單號: {$OrderID}<p>";
$uitemed_mail .= "金額: {$amount}<p>";
$uitemed_mail .= "時間: {$rehohsn}<p>";
if (!$form['send_root']) {
//不是1才寄
//mail($kind_nail[$_e], mb_convert_encoding($RootSOB,"Big5","UTF-8"), mb_convert_encoding($uitemed_mail,"Big5","UTF-8"), "From: gomos2@sunup.net\nMIME-Version: 1.0\nContent-Type: text/html; charset=big5\nContent-Transfer-Encoding: 8bit");
exec_mail(0, $RootSOB, $uitemed_mail, 'form_ssl_Nccc_cup', $kind_nail[$_e]);
}
}
}
//exec_mail(2, $RootSOB, $uitemed_mail, 'form_ssl_Nccc_cup');
$ret = array("client" => $Mpisr[client], "Bank" => $Mpisr[bank], "SR" => $OrderID, "Amount" => $amount, "Allsn" => $allsn, "UserIP" => $uip, "RunTime" => number_format(microtime(true) - $t1, 3), "Recode" => $ResponseCode, "Remsg" => $remsg_in);
@write_log("form_ssl", "授權追縱 LOG (5) 銀聯-授權結果 form_ssl_Nccc_cup.php", $ret);
//追縱授權-Step5 授權結束 update
$running = number_format(microtime(true) - $t2, 3);
if (!$ResponseCode) {
$ResponseCode = "---";
}
@exec_sr_tracer($OrderID, "step5", $running, "form_ssl_Nccc_cup.php", "final", $RespCode, $remsg);
$ListDT_all .= $Title_str1 . $ListDT . "<br>";
//$CallStore = '系統自動通知: 請快點選關帳, 以免逾期無法請款!<br><br>'.$ListDT;
//寄信通知店家
//$msg = "<html><head><meta http-equiv=\"Content-Type\" content=\"text/html; charset=BIG5\"></head><body><font color=red>請注意逾期未關帳將導致請款失敗！如您非財務人員，請立即將此信轉交！若有任何問題，歡迎洽詢客服：02-26550115</font><br><br>".$Title_str2."<hr>".$CallStore."<hr>註: 為避免關帳逾期, 建議您至[<a href=\"https://vendor.allpay.com.tw/\">廠商後台</a> -> 信用卡收單 -> 帳戶設定]將每日自動關帳功能開啟<br>".$roomtime."</body></html>";
//exec_mail(0, $title, $msg, 'g_Close_notCall_5day', $go_mail);
//usleep(60);
$client_nums++;
}
$TMP_allpayMID = $allpayMID;
}
}
}
@mysql_close($plink);
$result = 1;
$result_note = "有" . $client_nums . "家商店共" . $ss_nums . "筆即將逾期";
$title = $subject . "-" . $result_note;
$msg = "<html><head><meta http-equiv=\"Content-Type\" content=\"text/html; charset=BIG5\"></head><body><font color=red>請注意逾期未關帳將導致請款失敗！如您非財務人員，請立即將此信轉交！若有任何問題，歡迎洽詢客服：02-26550115</font><br><br>" . $title . "<hr>" . $ListDT_all . "</body></html>";
//寄給allpay 客服
exec_mail(0, $title, $msg, 'g_Close_notCall_3day', '*****@*****.**');
exec_mail(0, $title, $msg, 'g_Close_notCall_3day', '*****@*****.**');
//記DBLOG
$arr = array('setdate' => $setdate, 'settime' => $settime, 'period' => $period, 'result' => $result, 'result_note' => $result_note, 'running' => number_format(microtime(true) - $t1, 3), 'start_time' => $start_time, 'end_time' => date("YmdHis"));
@DBLog($logtable, $subject, $arr);
} else {
$title = $subject . "-DB無法連線";
$msg = "[" . $DBHOST . "]DB無法連線-執行失敗 " . mysql_error($plink) . " 請檢查!";
}
$msg .= "<hr size=1>於 10.0.4.7 每日 " . $settime . " 執行的 g_Close_notCall_3day.php 執行時間 " . number_format(microtime(true) - $t1, 3) . " 秒<br>" . date("Y/m/d H:i:s");
exec_mail(2, $title, $msg, 'g_Close_notCall_3day');
echo $subject . "-結束 \r\n";
exit;
}
if ($result == 2) {
$msg = $subject . ", " . $FTPechoTO . " 台鐵 " . date("Ymd") . " 平帳無法進行. 很重要請檢查! by g_Close_china_re";
exec_line(1, $msg, 'g_Close_china_re');
}
$result_note = $FTPechoTO;
$title = $subject . "-" . $result_note;
$msg = $title . "<hr size=1>" . $ListAuthALL;
if ($sql_error) {
$title .= "-有執行失敗SQL";
$msg .= "<br>執行失敗SQL: <br>" . $sql_error;
}
if ($TEST_mode == 1) {
$title .= "-測試";
$result_note = "測試-" . $result_note;
}
if ($TEST_mode == 2) {
$title .= "-Mode2";
$result_note = "Mode2-" . $result_note;
}
//記DBLOG
$arr = array('setdate' => $setdate, 'settime' => $settime, 'period' => $period, 'result' => $result, 'result_note' => $result_note, 'running' => number_format(microtime(true) - $t1, 3), 'start_time' => $start_time, 'end_time' => date("YmdHis"));
@DBLog($logtable, $subject, $arr);
} else {
$title = $subject . "-DB無法連線";
$msg = "[" . $DBHOST . "]DB無法連線-" . $subject . " 執行失敗<hr size=1>" . mysql_error($plink) . " 請檢查! by g_Close_china_re.php";
}
$msg .= "<hr size=1>於 10.0.4.7 每日 " . $settime . " 執行的 g_Close_china_re.php 執行時間 " . number_format(microtime(true) - $t1, 3) . " 秒<br>" . date("Y/m/d H:i:s");
exec_mail(2, $title, $msg, 'g_Close_china_re');
echo $subject . "-結束 \r\n";
exit;
if ($card_no != '') {
//取年度加密key (記卡號 不記到期日, 末3碼)
$strYearABC = "SELECT abcd FROM o_year WHERE year='" . date("Y") . "' limit 1 ";
$qqYabc = mysql_query($strYearABC, $plink);
$f_Yabc = @mysql_fetch_array($qqYabc);
$f6no = substr($card_no, 0, 6);
$c5no = substr($card_no, 6, 5);
$lsno = substr($card_no, 11, 5);
$str = "insert into o_cdno ";
//寫入
$str .= "(aa,sr,f6no,c5no,lsno,year_abc)";
$str .= "values(0,'{$aa}',AES_ENCRYPT('{$f6no}','{$key_str_ch}'),AES_ENCRYPT('{$c5no}','{$key_str_ch}'),AES_ENCRYPT('{$lsno}','{$key_str_ch}'),'{$f_Yabc['abcd']}')";
$result = mysql_query($str, $plink);
if (!$result) {
$title = "Credit建立單號o_cdno-SQL執行失敗(allpay_rt_otp.php)";
$msg = "SQL執行失敗! " . mysql_error() . "<hr size=1>" . $str . "<br>";
$msg .= "<hr size=1>於 pay-web 執行的 allpay_rt_otp.php 執行時間 " . number_format(microtime(true) - $t1, 3) . " 秒<br>" . date("Y/m/d H:i:s");
exec_mail(2, $title, $msg, 'allpay_rt_otp');
echo "ERROR_" . mysql_error();
}
}
//寫 sr_tracer
//追縱授權-Step1 建立單號 insert
$t2 = microtime(true);
$running = number_format($t2 - $t1, 3);
@exec_sr_tracer($aa, "step1", $running, "allpay_rt_otp.php", "insert", $start_time, $form[bank], $allsn);
//追縱授權-Step5 授權結束 update
$running = number_format(microtime(true) - $t2, 3);
@exec_sr_tracer($aa, "step5", $running, "allpay_rt_otp.php", "final", $r_code, $r_msg);
echo 'OK';
exit;
@write_log("exec_line", $linegroup, $ret);
if ($linegroup == '' || $msg == '' || $filename == '') {
echo "參數錯誤! \r\n";
exit;
}
$msg = substr($msg, 0, 300);
//$msg = "這是測試 [".$B_DBHOST."]DB無法連線 ".mysql_error()." 請檢查! by form_ssl_check";
$SEND_DT = "[MSN=*LINE*" . $linegroup . ", ]ALLPAY, " . $msg . " (" . date("Y-m-d") . ")\r\n";
$fp = fsockopen($sockUrl, $sockPORT_Msn, $errno, $errstr, 20);
//網址IP,PORT,回應代碼,回應訊息,等待時間
if ($fp) {
$goClos = @fwrite($fp, mb_convert_encoding($SEND_DT, "Big5", "UTF-8"), 300);
$bkClos = @fread($fp, 100);
fclose($fp);
}
$hostname = trim(exec("hostname"));
//若執行時間大於 60 秒 表示發Line程式Timeout
$running_time = number_format(microtime(true) - $t1, 3);
if ($running_time >= 60) {
$title = $hostname . "發Line失敗-執行時間Timeout警告通知";
$msg2 = $hostname . " 執行程式 /manage/cronjob/exec_line.php <br>";
$msg2 .= "應發的訊息: " . $msg . " <br>";
$msg2 .= "應發的群組: " . $linegroup . " <br>";
$msg2 .= "<hr size=1>於 " . $hostname . " 執行的 /manage/cronjob/exec_line.php 執行時間 " . number_format(microtime(true) - $t1, 3) . " 秒<br>" . date("Y/m/d H:i:s");
exec_mail(2, $title, $msg2, 'exec_line');
exec_mail(4, $title, $msg2, 'exec_line');
//patrick
}
//記DBLOG
$arr = array('line_group' => $linegroup, 'msg' => $msg, 'hostname' => $hostname, 'filename' => $filename, 'line_server' => $sockUrl . ":" . $sockPORT_Msn, 'running' => number_format(microtime(true) - $t1, 3), 'start_time' => $start_time, 'end_time' => date("YmdHis"));
@DBLog($logtable, $subject, $arr);
<input type="submit" value="send" style="display:none">
</form>
<script language="JavaScript">
<!--';
$OU_Page .= "\n\t\t\tdocument.forms['acsForm'].submit();\n\t\t\t// -->\n\t\t\t</script>\n\t\t\t</center>\n\t\t\t</body></head></html>";
$sr = $OrderID;
//可能用不到
$_SESSION['O_Doit'] = 'A03';
$_SESSION['O_OU_Page'] = $OU_Page;
//寫入轉頁暫存檔
include 'tmp_endPage.php';
$ret = array("client" => $Mpisr[client], "Bank" => $Mpisr[bank], "SR" => $OrderID, "Amount" => $amount, "Allsn" => $allsn, "UserIP" => $uip, "RunTime" => number_format(microtime(true) - $t1, 3), "Recode" => $ResponseCode, "Remsg" => $remsg_in, "ROTurlOK" => $ROTurlOK, "s_time" => $s_time);
@write_log("form_ssl", "授權追縱 LOG (5) 授權結果(有回傳網址) form_ssl_Nccc.php", $ret);
//追縱授權-Step5 授權結束 update
$running = number_format(microtime(true) - $t3, 3);
if (!$ResponseCode) {
$ResponseCode = "---";
}
@exec_sr_tracer($OrderID, "step5", $running, "form_ssl_Nccc.php", "final", $ResponseCode, $remsg_in);
//若授權流程超過 6 秒, 則發警告信
$running_time = number_format(microtime(true) - $t1, 3);
if ($running_time > 6) {
$title = "銀行" . $Mpisr[bank] . "授權回傳後的處理時間花費 " . $running_time . " 秒";
$msg = "授權單號: {$OrderID} 授權回傳後的處理時間花費 {$running_time} 秒<br>";
$msg .= "<hr size=1>於 pay-web 執行的 from_ssl_Nccc.php 執行時間 " . number_format(microtime(true) - $t1, 3) . " 秒<br>" . date("Y/m/d H:i:s");
exec_mail(2, $title, $msg, 'form_ssl_Nccc');
}
//將控制權轉給下支程式
Header("Location:form_ssl_out_N.php?gwsr={$OrderID}&sr={$s_time}&Do=A03&LG={$LG}");
exit;
}
$res = @mysql_query($str, $plink);
$nums = $nums + @mysql_num_rows($res);
while ($user = @mysql_fetch_array($res)) {
if ($dtmYesterday == $user[expire]) {
$ListDT .= "Client(特店): {$user['client']} , 公司名稱: {$user['corpname']} , 到期日: {$user['expire']} , 聯絡人: {$user['contact']} , 電話: {$user['tel']} , 手機: {$user['mobile']} <br><br> \n";
} else {
$flag = 1;
$ListDT .= "<font color=red>Client(特店): {$user['client']} , 公司名稱: {$user['corpname']} , 到期日: {$user['expire']} , 聯絡人: {$user['contact']} , 電話: {$user['tel']} , 手機: {$user['mobile']} (到期日期異常, 請檢查)</font><br><br> \n";
}
}
$str = "UPDATE o_user SET stop=1 WHERE stop=0 and expire<'{$hcYmd}' ";
$res = @mysql_query($str, $plink);
$result = 1;
$result_note = "更新" . $nums . "筆完成";
$title = $subject . "-" . $result_note;
$msg = $title . "<hr size=1>" . $ListDT;
//有異常CC給 雅純
if ($flag) {
$title .= "-有異常";
$msg = $title . " 請檢查紅色的部份是否有異常<hr size=1>" . $ListDT;
}
exec_mail(6, $title, $msg, '000_auto');
exec_mail(0, $title, $msg, '000_auto', '*****@*****.**');
@mysql_close($plink);
//記DBLOG
$arr = array('setdate' => $setdate, 'settime' => $settime, 'period' => $period, 'result' => $result, 'result_note' => $result_note, 'running' => number_format(microtime(true) - $t1, 3), 'start_time' => $start_time, 'end_time' => date("YmdHis"));
@DBLog($logtable, $subject, $arr);
$msg .= "<hr size=1>於 Settlement 每日 " . $settime . " 執行的 000_auto.php 執行時間 " . number_format(microtime(true) - $t1, 3) . " 秒<br>" . date("Y/m/d H:i:s");
exec_mail(2, $title, $msg, '000_auto');
echo $subject . "-結束 \r\n";
exit;
if ($nums) {
$result_note = "更新筆數" . $nums;
$title = $subject . "(" . $value . ")-" . $result_note;
$msg = $title . " 總金額 " . $amt . " <hr size=1><table border=0><tr><td></td><td> Client </td><td> 授權單號 </td><td> Amount </td><td> 關帳時間 </td><td> 交易時間 </td></tr>" . $str . "</table>";
$msg .= "<hr size=1>於 Settlement 每日 " . $settime . " 執行的 g_Close_dotNet08.php 執行時間 " . number_format(microtime(true) - $t1, 3) . " 秒<br>" . date("Y/m/d H:i:s");
send_mail(ROOT_MAIL, FromMailAddress, $title, $msg);
}
$total += $nums;
$ListDT .= $value . ": " . $nums . " 筆<br>";
}
@mysql_close($plink);
$result = 1;
$result_note = "共11家銀行預撥壓已關帳" . $total . "筆";
$title = $subject . "-" . $result_note;
$msg = $title . " (" . $dtmStartDateTime . " - " . $dtmEndDateTime . ") <hr size=1>" . $ListDT . "總共 " . $total . " 筆";
if ($sql_error) {
$result = 2;
$title = $subject . "-異常-" . $result_note;
$msg = $title . "<hr size=1>" . $ListDT . "總共 " . $total . " 筆";
$msg .= "<br>執行失敗SQL: <br>" . $sql_error;
}
if ($TEST_mode) {
$title .= "-測試";
}
//記DBLOG
$arr = array('setdate' => $setdate, 'settime' => $settime, 'period' => $period, 'result' => $result, 'result_note' => $result_note, 'running' => number_format(microtime(true) - $t1, 3), 'start_time' => $start_time, 'end_time' => date("YmdHis"));
@DBLog($logtable, $subject, $arr);
$msg .= "<hr size=1>於 Settlement 每日 " . $settime . " 執行的 g_Close_dotNet08.php 執行時間 " . number_format(microtime(true) - $t1, 3) . " 秒<br>" . date("Y/m/d H:i:s");
exec_mail(2, $title, $msg, 'g_Close_dotNet08');
echo $subject . "-結束 \r\n";
exit;
$str = "SELECT sr,client,authsr,amount,dt,isdt FROM `o_close` where stat='關帳中' and bank in (29, 30) and dt>='{$dtmStartDateTime}' and dt<='{$dtmEndDateTime}' ";
$res = mysql_query($str, $plink);
$i = 0;
$j = 0;
$amt = 0;
$str = "";
while ($oclose = mysql_fetch_array($res)) {
$osr = $oclose[sr];
$client = $oclose[client];
$oauthsr = $oclose[authsr];
$amount = $oclose[amount];
if (!$TEST_mode) {
$strUP = "update o_close set stat='已關帳' where sr='{$osr}' and bank in (29, 30) and stat='關帳中' limit 1 ";
@mysql_query($strUP, $plink);
$strAuth = "update o_auth set close=1,clsamt=clsamt+{$amount} where sr='{$oauthsr}' and remsg='已授權' and bank in (29, 30) limit 1 ";
@mysql_query($strAuth, $plink);
}
$i++;
$amt += $amount;
$str .= "<tr><td> " . $i . " </td><td> " . $client . " </td><td> " . $oauthsr . " </td><td> " . $amount . " </td><td> " . $oclose[dt] . " </td><td> " . $oclose[isdt] . " </td></tr>";
}
$result_note = "更新筆數" . $i;
$title = $subject . "-" . $result_note;
$msg = $title . " 總金額 " . $amt . " <hr size=1><table border=0><tr><td></td><td> Client </td><td> 授權單號 </td><td> Amount </td><td> 關帳時間 </td><td> 交易時間 </td></tr>" . $str . "</table>";
//記DBLOG
$arr = array('setdate' => $setdate, 'settime' => $settime, 'period' => $period, 'result' => $result, 'result_note' => $result_note, 'running' => number_format(microtime(true) - $t1, 3), 'start_time' => $start_time, 'end_time' => date("YmdHis"));
@DBLog($logtable, $subject, $arr);
$msg .= "<hr size=1>於 Settlement 每日 " . $settime . " 執行的 g_Close_Cathay.php 執行時間 " . number_format(microtime(true) - $t1, 3) . " 秒<br>" . date("Y/m/d H:i:s");
exec_mail(2, $title, $msg, 'g_Close_Cathay');
echo $subject . "-結束 \r\n";
exit;
$txtnbc = strlen($SendNECc);
$goNECc = @fwrite($fp, $SendNECc, $txtnbc);
$bsbc = @fread($fp, 1024);
fclose($fp);
}
//回應B004**000**batch_id**batch_seq**序號追蹤碼**##
$VCBSBc = substr($bsbc, 0, 4);
if ($VCBSBc != 'B004') {
//$City_Close_erro = 1; //關帳失敗旗標, 發信給管理者
$title = "allPay信用卡幕後授權-關帳失敗旗標";
$msg = "SendNEC : " . $SendNECc . " <br>";
$msg .= "Response : " . $bsbc . "<br>";
$msg .= "SR : " . $Cxc[3] . "<br>";
$msg .= "使用者IP : " . $uip . "<br>";
$msg .= "<hr size=1>於 payweb 執行的 g_ssl.php 執行時間 " . number_format(microtime(true) - $t1, 3) . " 秒<br>" . date("Y/m/d H:i:s");
@exec_mail(2, $title, $msg, 'g_ssl.php');
} else {
$isdt = substr($hohsn, 0, 8);
//取出交易日
$str = "insert into o_close ";
$str .= "(sr,client,bank,authsr,dt,amount,cardno,auth,trace_no,stat,eci,sps,mid,tid,pesn,glFrom,glTo,glCity,isGuolu,isdt,citylog,dtymd,sps,allsn,cdmk,escrow,bank_stat)";
$str .= " values (0,'{$client}','{$form['bank']}','{$Cxc['3']}','{$hohsn}','{$Cxc['6']}','','{$Cxc['2']}','{$Cxc['4']}','要關帳','{$ECI}','{$OKspsIN}','{$form['mid']}','{$form['tid']}','{$Cxc['7']}','{$glFrom}','{$glTo}','{$glCity}','{$isGuolu}','{$isdt}','{$bsbc}','{$hohsnYMD}','{$OKspsIN}','{$allsn}','{$cdmk}','{$escrow}','要關帳')";
mysql_query($str, $plink);
$o_close_sr = mysql_insert_id();
$str = "insert into o_close_bank ";
$str .= "(sr,client,bank,authsr,dt,amount,cardno,auth,trace_no,stat,eci,sps,mid,tid,pesn,glFrom,glTo,glCity,isGuolu,isdt,citylog,dtymd,sps,allsn,cdmk,escrow,bank_stat,uip)";
$str .= " values ('{$o_close_sr}','{$client}','{$form['bank']}','{$Cxc['3']}','{$hohsn}','{$Cxc['6']}','','{$Cxc['2']}','{$Cxc['4']}','要關帳','{$ECI}','{$OKspsIN}','{$form['mid']}','{$form['tid']}','{$Cxc['7']}','{$glFrom}','{$glTo}','{$glCity}','{$isGuolu}','{$isdt}','{$bsbc}','{$hohsnYMD}','{$OKspsIN}','{$allsn}','{$cdmk}','{$escrow}','要關帳','{$uip}')";
mysql_query($str, $plink);
$strCOS = "update o_auth set trans_date='{$hohsn}' where sr='{$Cxc['3']}' limit 1 ";
mysql_query($strCOS, $plink);
}
mysql_query($szSQL, $databaseLink);
// 馬上發動要關帳的要求
if ($szReturnCode == '1' && $OneTm == 'isNOW') {
$dtmYmd = date("Ymd");
// 取出交易日
$szSQL = "INSERT INTO o_close ";
// 寫入
$szSQL .= "(sr,client,bank,authsr,dt,amount,cardno,auth,trace_no,stat,eci,sps,mid,tid,pesn,glFrom,glTo,glCity,isGuolu,isdt,citylog,dtymd,allsn,cdmk,escrow,nort,bank_stat)";
$szSQL .= " VALUES (0,'{$arOrigionAuth['client']}','{$arOrigionAuth['bank']}','{$szMerchantTradeNo}','{$hohsn}','{$arOrigionAuth['amount']}','','{$szApproveCode}','{$szTraceNo}','要關帳','{$szECI}','{$arOrigionAuth['sps']}','{$arUser['mid']}','{$arUser['tid']}','{$arOrigionAuth['pesn']}','{$arOrigionAuth['glFrom']}','{$arOrigionAuth['glTo']}','{$arOrigionAuth['glCity']}','{$arOrigionAuth['isGuolu']}','{$dtmYmd}','{$bsb}','{$hohsnYMD}','{$arOrigionAuth['allsn']}','{$arOrigionAuth['cdmk']}','{$arOrigionAuth['escrow']}','{$nort}','要關帳')";
$rsResult = mysql_query($szSQL, $databaseLink);
$o_close_sr = mysql_insert_id();
if (!$rsResult) {
$title = "Credit自動關帳執行失敗-g_ssldotNet.php";
$msg = "SQL執行失敗! " . mysql_error() . "<hr size=1>" . $szSQL . "<br>";
$msg .= "<hr size=1>於 pay_web 執行的 g_ssl_dotNet.php 執行時間 " . number_format(microtime(true) - $t1, 3) . " 秒<br>" . date("Y/m/d H:i:s");
exec_mail(2, $title, $msg, 'g_ssl_dotNet.php');
} else {
$szSQL = "INSERT INTO o_close_bank ";
// 寫入
$szSQL .= "(sr,client,bank,authsr,dt,amount,cardno,auth,trace_no,stat,eci,sps,mid,tid,pesn,glFrom,glTo,glCity,isGuolu,isdt,citylog,dtymd,allsn,cdmk,escrow,nort,bank_stat,uip)";
$szSQL .= " VALUES ('{$o_close_sr}','{$arOrigionAuth['client']}','{$arOrigionAuth['bank']}','{$szMerchantTradeNo}','{$hohsn}','{$arOrigionAuth['amount']}','','{$szApproveCode}','{$szTraceNo}','要關帳','{$szECI}','{$arOrigionAuth['sps']}','{$arUser['mid']}','{$arUser['tid']}','{$arOrigionAuth['pesn']}','{$arOrigionAuth['glFrom']}','{$arOrigionAuth['glTo']}','{$arOrigionAuth['glCity']}','{$arOrigionAuth['isGuolu']}','{$dtmYmd}','{$bsb}','{$hohsnYMD}','{$arOrigionAuth['allsn']}','{$arOrigionAuth['cdmk']}','{$arOrigionAuth['escrow']}','{$nort}','立即關帳','{$uip}')";
mysql_query($szSQL, $databaseLink);
}
$szSQL = "UPDATE o_auth SET trans_date='{$hohsn}' WHERE sr='{$szMerchantTradeNo}' LIMIT 1 ";
mysql_query($szSQL, $databaseLink);
}
//回應 成交1失敗0*授權單號*金額*訂單編號*授權時間*授權碼*回應碼
$ReTURnTXT = "{$szReturnCode}*{$szMerchantTradeNo}*{$nTradeAmount}*{$sob}*{$szTradeDateTime}*{$szApproveCode}*{$szResponseCode}";
// 寫入o_respones_log 的記錄
include 'g_ssl_echo_log.php';
include 'g_mag.inc';
$nums = $nums + @mysql_num_rows($res);
while ($user = @mysql_fetch_array($res)) {
//$ListDT .= "Client: $user[client] , 公司名稱: $user[corpname] , 到期日: $user[expire] <br> 聯絡人: $user[contact] , 電話: $user[tel] , 手機: $user[mobile] , 業務人員: $user[saleman] <br><br> \n";
$ListDT .= "Client: {$user['client']} , 公司名稱: {$user['corpname']} , 到期日: {$user['expire']} , 業務人員: {$user['saleman']} <br><br> \n";
}
@mysql_close($plink);
$result = 1;
if ($nums > 0) {
$result_note = $Callday . "日內到期共" . $nums . "家";
$title = $subject . "-" . $result_note;
$msg = $title . "<hr size=1>" . $ListDT;
$mail_arr = array('*****@*****.**', '*****@*****.**', '*****@*****.**', '*****@*****.**', '*****@*****.**', '*****@*****.**', '*****@*****.**', '*****@*****.**', '*****@*****.**', '*****@*****.**', '*****@*****.**', '*****@*****.**', '*****@*****.**', '*****@*****.**', '*****@*****.**', '*****@*****.**', '*****@*****.**', '*****@*****.**', '*****@*****.**', '*****@*****.**');
// 已可以用 Sales@allpay.com.tw',
//$mail_arr = array('*****@*****.**', '*****@*****.**');
foreach ($mail_arr as $i => $value) {
//exec_mail(0, $title, $msg, '000_auto_notice', $mail_arr[$i]);
send_mail_AddBCC($mail_arr[$i], FromMailAddress, $title, $msg, '*****@*****.**', '000_auto_notice.php');
usleep(60);
}
} else {
$result_note = $Callday . "日內無到期商家";
$title = $subject . "-" . $result_note;
$msg = $title . "<hr size=1>" . $str1 . "<br><br>" . $str2;
}
//記DBLOG
$arr = array('setdate' => $setdate, 'settime' => $settime, 'period' => $period, 'result' => $result, 'result_note' => $result_note, 'running' => number_format(microtime(true) - $t1, 3), 'start_time' => $start_time, 'end_time' => date("YmdHis"));
@DBLog($logtable, $subject, $arr);
$msg .= "<hr size=1>於 Settlement 每日 " . $settime . " 執行的 000_auto_notice.php 執行時間 " . number_format(microtime(true) - $t1, 3) . " 秒<br>" . date("Y/m/d H:i:s");
exec_mail(2, $title, $msg, '000_auto_notice');
echo $subject . "-結束 \r\n";
exit;
// bank in (29, 30) 國泰世華不檢查
$strR = "SELECT sr, authsr, client, amount, dtymd, bank, dt, stat, mid, bank_stat FROM o_close WHERE bank not in (29, 30) and (dt>='" . $dt_start . "' and dt<='" . $dt_end . "') and bank_stat!='已關帳' and bank_stat!='已取消' and bank_stat!='取消' order by authsr ASC ";
$ww = @mysql_query($strR, $plink);
$num1 = @mysql_num_rows($ww);
//未關帳成功筆數
if ($num1) {
$i = 0;
$ii_str = "<table border=0><tr align=center><td>序號</td><td>Client</td><td>o_close.sr</td><td>授權單號</td><td align=center>銀行</td><td>金額</td><td>關帳處理日期</td><td>授權</td><td>stat</td><td>bank_stat</td><td>MID</td></tr>";
while ($ax = @mysql_fetch_array($ww)) {
$strauth = "select remsg from o_auth where sr='" . $ax['authsr'] . "' limit 1";
$rsauth = @mysql_query($strauth, $plink);
$resauth = mysql_fetch_array($rsauth);
$i++;
$ii_str .= "<tr align=center><td>" . $i . "</td><td>" . $ax['client'] . "</td><td>" . $ax['sr'] . "</td><td>" . $ax['authsr'] . "</td><td>" . $ax['bank'] . "</td><td>" . $ax['amount'] . "</td><td>" . $ax['dt'] . "</td><td>" . $resauth['remsg'] . "</td><td>" . $ax['stat'] . "</td><td>" . $ax['bank_stat'] . "</td><td>" . $ax['mid'] . "</td></tr>";
}
$ii_str .= "</table>";
$linemsg = "o_close.bank_stat有關帳失敗的交易 " . $num1 . " 筆, 請檢查! by holiday_pay_mak";
exec_line(4, $linemsg, 'holiday_pay_mak');
$Mailtitle = "警告-o_close.bank_stat有關帳失敗的交易" . $num1 . "筆";
$MailStr = $subject . "-" . $Mailtitle . "<hr><p>" . $strR . "<p>" . $ii_str;
$MailStr .= "<hr size=1>於 Settlement 每日 " . $settime . " 執行的 " . $filename . " 執行時間 " . number_format(microtime(true) - $t1, 3) . " 秒<br>" . date("Y/m/d H:i:s");
exec_mail(2, $Mailtitle, $MailStr, 'holiday_pay_mak');
} else {
$Mailtitle = "o_close.bank_stat昨日關帳正常";
$MailStr = $subject . "-" . $Mailtitle . "<hr><p>" . $strR . "<p>";
$MailStr .= "<hr size=1>於 Settlement 每日 " . $settime . " 執行的 " . $filename . " 執行時間 " . number_format(microtime(true) - $t1, 3) . " 秒<br>" . date("Y/m/d H:i:s");
exec_mail(2, $Mailtitle, $MailStr, 'holiday_pay_mak');
}
echo $subject . "-第三階段驗證:未關帳成功警告-結束 \r\n";
@mysql_close($plink);
exit;
