Не могу вставить код mainlink

Главные вкладки

Аватар пользователя Emilio13 Emilio13 6 декабря 2007 в 15:55

Я столкнулся с такой проблемой - нужно вставить код для автоматического размещения ссылок от mainlink.ru

Для начала взял их тестовый код и попытался вставить его через новый блок, формат ввода - php.
В итоге у меня новый блок либо вообще не отображается, либо выводиться пустой блок.
Может кто знает как можно вставить это код, чтобы он заработал..

Вот пример кода:

 <?
$Blok=BlokMainLink();
echo $Blok[1];
echo $Blok[2];
function BlokMainLink()
{$klb=array(10, 10);
Error_Reporting(E_ALL & ~E_NOTICE);
if (isset($_SERVER["REQUEST_URI"])) $sti=$_SERVER["REQUEST_URI"];
else if (isset($_SERVER["SCRIPT_NAME"]))
$sti=$_SERVER["SCRIPT_NAME"];
if ($sti == "/" or substr($sti, 0, 7)== "/index.")
{ $NBlok=count($klb); $raz=array(1=>"<br>", 2=>"|", 3=>" / "); $tr=1;
$zapros="GET /checkcode/?type=".$tr." HTTP/1.0\r\nhost: script.mainlink.ru\r\n\r\n";
$so=[user=fsockopen]fsockopen[/user]("script.mainlink.ru", 80, $errno, $errstr, 2);
if ($so) { fputs($so, $zapros); while(fgets($so,2048)!="\r\n" && !feof($so));
while (!feof($so)) {$li.=[user=fgets]fgets[/user]($so);}} $ml=explode($raz[$tr], $li); $n=1; $t=0;
for ($i=0; $i<count($ml); $i++) {$bl[$n].=$ml[$i];
$t++; if ($t>=$klb[$n-1]) {$t=0; $n++;} else { if ($i<count($ml)-1) $bl[$n].=$raz[$tr];}}
return $bl;}
}
?>

Комментарии

Аватар пользователя Emilio13 Emilio13 6 декабря 2007 в 16:49

Это просто мой пост обрезался, вот полный код:

<?php
$Blok=BlokMainLink();
echo $Blok[1];
echo $Blok[2];
function BlokMainLink()
{$klb=array(10, 10);
Error_Reporting(E_ALL & ~E_NOTICE);
if (isset($_SERVER["REQUEST_URI"])) $sti=$_SERVER["REQUEST_URI"];
else if (isset($_SERVER["SCRIPT_NAME"]))
$sti=$_SERVER["SCRIPT_NAME"];
if ($sti == "/" or substr($sti, 0, 7)== "/index.")
{ $NBlok=count($klb); $raz=array(1=>"
", 2=>"|", 3=>" / "); $tr=2;
$zapros="GET /getcode/?id=56314&type=".$tr." HTTP/1.0\r\nhost: script5.mainlink.ru\r\n\r\n";
$so=fsockopen("script5.mainlink.ru", 80, $errno, $errstr, 2);
if ($so) { fputs($so, $zapros); while(fgets($so,2048)!="\r\n" && !feof($so));
while (!feof($so)) {$li.=fgets($so);}} $ml=explode($raz[$tr], $li); $n=1; $t=0;
for ($i=0; $i=$klb[$n-1]) {$t=0; $n++;} else { if ($i