Нужен скрипт статистики А1

Сабж, разумеется за деньги, внутренности самого скрипта ниже, на сегодняшний день просто не работает...

есичё, то я тут 902232

<title></title>
<div align=left><img src="/images/rupartnerka_04.jpg" align="center"></div><br>
<?
$login = 'admin';               #       логин к акку в А1
$pass = '123';                #       пасс к акку в А1
$coun = 100; 			#	отчисления юзеру в процентах 

$dt1=mktime(0,0,0, date("m"), date("d"), date("Y"));
$dt2=mktime(0,0,0, date("m"), date("d"), date("Y"));

$dt1=date("Y-m-d", $dt1);
$dt2=date("Y-m-d", $dt2);
$prefs= '52675'                                 #префикс юзера
?>
<div align=center>
<form method="post">
<INPUT TYPE="hidden" VALUE="<?=$prefs?>" NAME="prefixis" SIZE=3> 
<br>
<input type="text" name="dt1" style="width:80px; height:20px; border: 1px #89B4CC solid;" value="<?=$dt1?>"> - 
<input type="text" name="dt2" style="width:80px; height:20px; border: 1px #89B4CC solid;" value="<?=$dt2?>"><br><br>
<input type="submit" style="width:90px; height:21px; border: 1px #89B4CC solid;" value="Показать">
</form>

<?

if (isset($_POST['prefixis'])) {
		$pr = '';
	strlen(trim($_POST['prefixis'])) or die('i\'m funny guy....префы сами не появятся!!!');
	$prefs = explode("\n", trim($_POST['prefixis']));
		foreach ($prefs as $pref) if (strlen(trim($pref)))$pr .= trim($pref)."\r\n";

	$dt1 = $_POST['dt1'];
	$dt2 = $_POST['dt2'];
	$all = array();

	$vhs = curl_init('https://partner.a1pay.ru/main/login');
	curl_setopt($vhs, CURLOPT_RETURNTRANSFER,	1);
	curl_setopt($vhs, CURLOPT_HEADER,			1);
    curl_setopt($vhs, CURLOPT_SSL_VERIFYHOST,  	2);
    curl_setopt($vhs, CURLOPT_SSL_VERIFYPEER, 	FALSE);
	curl_setopt($vhs, CURLOPT_POST,				1);
	curl_setopt($vhs, CURLOPT_POSTFIELDS,		'login='.$login.'&password='.$pass);
	$re = curl_exec($vhs);
	
	preg_match('#Set-Cookie: PHPSESSID=(.+);#', $re, $m);
	$m = 'PHPSESSID='.$m[1];

		$vhs = curl_init('https://partner.a1pay.ru/report/index/action/search/ ');
		curl_setopt($vhs, CURLOPT_RETURNTRANSFER,	1);
		curl_setopt($vhs, CURLOPT_COOKIE,			$m);
		curl_setopt($vhs, CURLOPT_SSL_VERIFYHOST,  	2);
		curl_setopt($vhs, CURLOPT_SSL_VERIFYPEER, 	FALSE);
		curl_setopt($vhs, CURLOPT_HEADER,			1);
		$re = curl_exec($vhs);
	echo '<table style="border: 1px #89B4CC solid; text-align:center;">
	<tr style="color:red;">

		<td>Префикс</td>
		<td>Кол-во<br> СМС</td>
		<td>Заработано (руб)</td>

	</tr>';
	foreach($prefs as $pref){
			$pref = trim($pref);
		if(!preg_match('#/'.$pref.'/statuses/ok/">(\d+)#', $re, $m2)) $m2[1] = $sum = $avarg = ' --- ';
		else{
			$reTwo = explode($pref,$re);
			preg_match('#<td class="last">(.+)\.#', $reTwo[sizeof($reTwo)-1], $m);
			$sum = (str_replace(',','',$m[1])*$coun)/100;
			$avarg = $sum/$m2[1];
				$all[1] += $m2[1];
				$all[2] += $sum;
				$all[3] .= $avarg.':';
			}
		echo '<tr>
			
<td>'.$pref.'</td>
			<td>'.$m2[1].'</td>
			<td>'.$sum.'</td>
			
		</tr>';
		--$ac;
	}
	$all[3] = explode(':',substr($all[3],0,-1));
	echo '<tr>
		<td>Всего</td>
		<td>'.$all[1].'</td>
		<td>'.$all[2].'</td>
		
	</tr>

</table>';
}
?>