function PayAction($request) {
COnpayPayment::SaveLog($request);
$_request = $request;
$pay = $payOut = array(
'type' => 'pay',
'pay_for' => intval($request['pay_for']),
'onpay_id' => intval($request['onpay_id']),
'order_id' => intval($request['pay_for']),
'amount' => COnpayPayment::toFloat($request['order_amount']),
'currency' => trim($request['order_currency']),
'code' => 3,
'key' => COnpayPayment::GetApiInKey(),
);
unset($pay['code']);
unset($pay['order_id']);
$pay['md5_string'] = implode(";", $pay);
$pay['md5'] = strtoupper(md5($pay['md5_string']));
$order_amount = floatval($request['order_amount']);
$text = "Error in parameters data";
if(COnpayPayment::_Validate($request) && CModule::IncludeModule("sale")) {
$text = "Cannot find any pay rows acording to this parameters: wrong payment";
if($arOrder = CSaleOrder::GetByID($request['ORDER_ID'])) {
COnpayPayment::SaveLog($arOrder);
$needSum = floatval($arOrder['PRICE']) - floatval($arOrder['SUM_PAID']);
$currency = COnpayPayment::GetWMCurrency($arOrder['CURRENCY']);
if($arOrder['PAYED'] == 'N' && $needSum <= $order_amount && $currency == $pay['currency']) {
if($pay['md5'] != $request['md5']) {
$text = "Md5 signature is wrong";
$payOut['code'] = 7;
} else {
$arFields = array(
'PS_STATUS' => 'Y',
'PS_STATUS_CODE' => 0,
'PS_STATUS_DESCRIPTION' => 'OK',
'PS_STATUS_MESSAGE' => '',
'PS_SUM' => floatval($arOrder['PS_SUM']) + $order_amount,
'PS_CURRENCY' => $pay['currency'],
'PS_RESPONSE_DATE' => Date(CDatabase::DateFormatToPHP(CLang::GetDateFormat("FULL", LANG))),
);
foreach($_request as $key=>$val) $arFields['PS_STATUS_MESSAGE'] .= "{$key}:{$val};\n";
COnpayPayment::SaveLog($arFields);
if(CSaleOrder::Update($arOrder["ID"], $arFields) && CSaleOrder::PayOrder($arOrder["ID"], "Y")) {
$payOut['code'] = 0;
$text = "OK";
} else {
$text = "Error in mechant database queries: operation or balance tables error";
}
}
}
}
}
$payOut['md5_string'] = implode(";", $payOut);
$payOut['md5'] = strtoupper(md5($payOut['md5_string']));
COnpayPayment::SaveLog($pay);
COnpayPayment::SaveLog($payOut);
$out = "<?xml version=\"1.0\" encoding=\"UTF-8\"?>
<result>
<code>{$payOut['code']}</code>
<comment>{$text}</comment>
<onpay_id>{$payOut['onpay_id']}</onpay_id>
<pay_for>{$payOut['pay_for']}</pay_for>
<order_id>{$payOut['order_id']}</order_id>
<md5>{$payOut['md5']}</md5>
</result>";
echo $out;
COnpayPayment::SaveLog($out."\n\n");
}
