- <?
- Header("Content-type: text/plain; charset=windows-1251");
- error_reporting(7);
-
- $month =date("m",time()-86400);
- $chislo=date("d",time()-86400);
- $kurs=2770;
-
- $output=substr("ОТЧЕТ СФОРМИРОВАН ".date('d.m.Y H:i:s').str_repeat(' ',79),0,79)."\n";
- $output.="+-----+-----------------------------------+-------------------------------------+\n";
- $output.="| | ЗА ".date('d.m.Y',time()-86400)." | ЗА МЕСЯЦ |\n";
- $output.="| КОД +-----+-----+-----+-------+---------+-----+-----+-----+--------+----------+\n";
- $output.="| | МЕЛ | J-1 | J-2 | USD | RUR | МЕЛ | J-1 | J-2 | USD | RUR |\n";
- $output.="+-----+-----+-----+-----+-------+---------+-----+-----+-----+--------+----------+\n";
-
- $aamel=0;
- $aajav1=0;
- $aajav2=0;
-
- $aacmel=0;
- $aacjav1=0;
- $aacjav2=0;
- $aasc=0;
-
- for ($partner=101;$partner<151;$partner++)
- {
- $data='';
-
- $pass='Ht7Desw2a';
- $login=$partner;
- if ($partner==7) {$partner='007'; $login='gFts3pi'; $pass='Jo0fW3k0i';}
- if ($partner==8) $partner=101;
- $data=implode("",file('http://195.131.129.21:5000/pstat.php?rep=2&log='.$login.'&pass='.$pass.'&year=2005&from_day=1&from_month='.$month.'&to_day='.$chislo.'&to_month='.$month));
-
- $b_data=strpos($data,"JAVA по $1</td></tr>")+21;
- $data=substr($data,$b_data,65536);
- $e_data=strpos($data,"<td>Итого:</td>");
- $data=substr($data,0,$e_data);
-
- $data=str_replace("</td></tr>","",$data);
- $data=str_replace("<td>","",$data);
- $data=str_replace("</td><td align='center'>","|",$data);
- $data=str_replace("\r","|",$data);
- $data=str_replace("\n","|",$data);
- $data=str_replace("||","|",$data);
- $data=str_replace("||","|",$data);
- $data=str_replace("||","|",$data);
- $data=str_replace("||","|",$data);
- $data=str_replace("||","|",$data);
- $data=explode("|",$data);
-
- $mel=0;
- $jav1=0;
- $jav2=0;
-
- $cmel=0;
- $cjav1=0;
- $cjav2=0;
- $sc=0;
-
- $amel=0;
- $ajav1=0;
- $ajav2=0;
-
- $acmel=0;
- $acjav1=0;
- $acjav2=0;
- $asc=0;
-
- for ($i=0;$i<sizeof($data);$i=$i+4)
- {
- $dat=$data[$i];
-
- if ($dat=="") continue;
-
- $mel=$data[$i+1]; $jav1=$data[$i+3]; $jav2=$data[$i+2]; # колличество контента для кода за сутки по категориям
- $cmel=$mel*0.35; $cjav1=$jav1*0.35; $cjav2=$jav2*0.70; # вознаграждение для кода за сутки по категориям
- $sc=$cmel+$cjav1+$cjav2; # вознаграждение для кода за сутки ВСЕГО
-
- $amel+=$mel; $ajav1+=$jav1; $ajav2+=$jav2; # колличество контента для кода за месяц по категориям
- }
-
- $acmel=$amel*0.35; $acjav1=$ajav1*0.35; $acjav2=$ajav2*0.70; # вознаграждение для кода за месяц по категориям
- $asc=$acmel+$acjav1+$acjav2; # вознаграждение для кода за месяц ВСЕГО
-
- $aamel+=$amel; $aajav1+=$ajav1; $aajav2+=$ajav2; # колличество контента ВСЕГО за месяц по категориям
-
- $dmel+=$mel; $djav1+=$jav1; $djav2+=$jav2; # колличество контента ВСЕГО за сутки по категориям
-
- $output.="| ".$partner." | ".substr(" ".$mel,-3)." | ".substr(" ".$jav1,-3)." | ".substr(" ".$jav2,-3)." | ".substr(" ".$sc,-5)." | ".substr(" ".(round($sc * $kurs)/100),-7)." | ".substr(" ".$amel,-3)." | ".substr(" ".$ajav1,-3)." | ".substr(" ".$ajav2,-3)." | ".substr(" ".$asc,-6)." | ".substr(" ".(round($asc * $kurs)/100),-8)." |\n";
- $output.="+-----+-----+-----+-----+-------+---------+-----+-----+-----+--------+----------+\n";
- }
-
- $dcmel=$dmel*0.35; $dcjav1=$djav1*0.35; $dcjav2=$djav2*0.70; # вознаграждение ВСЕГО за сутки по категориям
- $dsc=$dcmel+$dcjav1+$dcjav2; # вознаграждение ВСЕГО за сутки
-
- $aacmel=$aamel*0.35; $aacjav1=$aajav1*0.35; $aacjav2=$aajav2*0.70; # вознаграждение ВСЕГО за месяц по категориям
- $aasc=$aacmel+$aacjav1+$aacjav2; # вознаграждение ВСЕГО за месяц
-
- $output.="|ВСЕГО| ".substr(" ".$dmel,-3)." | ".substr(" ".$djav1,-3)." | ".substr(" ".$djav2,-3)." | ".substr(" ".$dsc,-5)." | ".substr(" ".(round($dsc * $kurs)/100),-7)." | ".substr(" ".$aamel,-3)." | ".substr(" ".$aajav1,-3)." | ".substr(" ".$aajav2,-3)." | ".substr(" ".$aasc,-6)." | ".substr(" ".(round($aasc * $kurs)/100),-8)." |\n";
- $output.="+-----+-----+-----+-----+-------+---------+-----+-----+-----+--------+----------+";
-
- $check=@mail('khaustov@kmx.ru,bogachev@kmx.ru', "Отчет по продажам", $output, "From: sale@kmx.ru\nX-Mailer: WAP-mailer \"KMX.Ru\"\nContent-Type: text/plain; charset=Windows-1251");
- print $output."\nПисьмо ";
- if (!$check) print "НЕ ";
- print "отправлено";
-
-
- ?>