[Сценарий] Парсер получения предстоящего рекомендуемого платежа А1 РБ

[S_Nick]

Умный дом получает и сообщает рекомендуемый предстоящий платеж за мобильный телефон оператора А1 в РБ.
Это не баланс телефона. Это скорее ваша задолженность + та сумма которую рекомендует оплатить компания А1 для дальнейшего пользования услугами.
Актуально для пользователей из РБ. Может кому-то будет полезно.

Данные получает из ЕРИП с сайта wmtransfer.by Версия сырая, могут быть ошибки.

Возможно будет работать и с другими ОпСоСами, но не уверен выставляют ли они рекомендуемый платеж при задолженности, проверял только на с А1, они так делают.
Можете экспериментировать самостоятельно изменяя переменную $n

Код: Выделить всё

$n = 391861; //А1
$n = 4427781; //life:)
$n = 403931; //МТС

Если нужно проверить несколько номеров, можно вызывать скрипт с параметром &account - номер телефона с кодом (9 цифр)

Код: Выделить всё

/objects/?script=getBalanceA1&account=290000000

Предварительно нужно создать объект Balance.

Код скрипта getBalanceA1:

Код: Выделить всё

if (isset($params["level"])) $level = $params["level"]; else $level = 1;
if (!isOnline('Internet')) { say("Нет доступа в Интернет!", $level); return; }
if (isset($params["change"])) $change = $params["change"];
if (isset($params["account"])) $account = $params["account"];

if (!$account) $account = "290000000"; //номер телефона с кодом (9 цифр)
$n = 391861; //код раздела А1 в ЕРИП
/*
$n = 391861; //А1
$n = 4427781; //life:)
$n = 403931; //МТС
*/

function browser_get_contents($url) {
	$ch = curl_init($url);
	curl_setopt($ch, CURLOPT_COOKIEFILE, 'cookie_wmtransfer_by.txt');
	curl_setopt($ch, CURLOPT_COOKIEJAR, 'cookie_wmtransfer_by.txt');
	curl_setopt($ch, CURLOPT_REFERER, 'http://wmtransfer.by');
	curl_setopt($ch, CURLOPT_USERAGENT, 'Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/61.0.3163.100 Safari/537.36');
	curl_setopt($ch, CURLOPT_RETURNTRANSFER, true);
	curl_setopt($ch, CURLOPT_SSL_VERIFYPEER, false);
	curl_setopt($ch, CURLOPT_HEADER, false);
 	curl_setopt($ch, CURLOPT_CONNECTTIMEOUT, 10);
 	curl_setopt($ch, CURLOPT_TIMEOUT, 15);
	$html = curl_exec($ch);
	curl_close($ch);
 	return $html;
}

function parse_form($page_cont) {
	if ($page_cont) {
 		$page_cont = str_replace("\r" , "", $page_cont);
		$page_cont = str_replace("\n" , "", $page_cont);
 		//print_r($page_cont);
 		
   		preg_match_all("/<FORM(.*?)<\/FORM>/i", $page_cont, $matchForm);
		//print_r($matchForm);
		//$page_cont = $matchForm[0][0];
 		
   		preg_match_all("/<INPUT(.*?)>/i", $page_cont, $matchInput);
		//print_r($matchInput[1]);
 		
 		foreach($matchInput[1] as $key => $value) {
     		preg_match_all("/NAME=\"(.*?)\"/i", $value, $matchName);
			//print_r($matchName[1][0]);
 			
			preg_match_all("/VALUE=\"(.*?)\"/i", $value, $matchValue);
			//print_r($matchValue[1][0]);
     		
     		$param_arr[$matchName[1][0]] = $matchValue[1][0];
   		}
     	//$param_arr = array_filter($param_arr);
     	unset($param_arr['']);
 		//print_r($param_arr);
	}
	return $param_arr;
}

// ------------------------ BEGIN: ТЕЛО ПАРСЕРА ------------------------ 
$url = "http://wmtransfer.by/pay.asp?n=" . $n; //ссылка на платеж
$page_cont = browser_get_contents($url);
//print_r($page_cont);

$param_arr = parse_form($page_cont);
//print_r($param_arr);

$url = "https://pay.wmtransfer.by/pls/iSOU/!iSOU.Authentication?";
foreach($param_arr as $key => $value) {
	$url .= "&" . $key . "=" . urlencode($value);
}
//print_r($url);

$page_cont = browser_get_contents($url);
//print_r($page_cont);

$url = "https://pay.wmtransfer.by/pls/iSOU/!iSOU.PaymentPrepare?service_no=" . $n . "&ExtraInfoText=&ParamCount=&Amount=&AmountCurr=&ServiceInfoId=";
$page_cont = browser_get_contents($url);
//print_r($page_cont);

$param_arr = parse_form($page_cont);
$param_arr["param1"] = $account;
//print_r($param_arr);

$url = "https://pay.wmtransfer.by/pls/iSOU/!iSOU.PaymentPrepare?";
foreach($param_arr as $key => $value) {
	$url .= "&" . $key . "=" . urlencode($value);
}
//print_r($url);

$page_cont = browser_get_contents($url);
//print_r($page_cont);

$param_arr = parse_form($page_cont);
//print_r($param_arr);
// ------------------------ END: ТЕЛО ПАРСЕРА ------------------------ 

$ret .= "А1. ";
$balance = $param_arr['Amount'];
sg("Balance.A1_" . $account, $balance);
if (preg_match('/^(\d{2})(\d{3})(\d{2})(\d{2})$/', $account,  $match)) {
	$account = $match[2] . "-" . $match[3] . "-" . $match[4];
}
if ($balance <> 0) {
	$ret .= "Рекомендуемый платеж за номер " . $account . ": " . $balance . " р. ";
} else {
	if (!$change) $ret .= "Платеж за номер " . $account . " не требуется. ";
}

$ret = trim($ret);
if ($ret) {
 	say($ret, $level);
	echo "<br>" . $ret;
}

Если есть мысли как оптимизировать улучшить код, пишите в теме.

Пример выполнения:

А1. Рекомендуемый платеж за номер 310-04-**: 17,54 р.

P/S. Модераторы. Если я опубликовал не в тот раздел тему, пожалуйста перенесите, поправьте.