openside("RS RADIO");



//Radio panele made by Varlius! :)

//Html spalvu kodas font color ir kodas, galit ju ieskoti http://www.hey.lt... ir jas pasikeisti :)

//Prasideda panele, online ofline uzrassas.

// Cpakeisti galite savo uzrasus ijungta/isjungta //

$online = "<font color='ffff33'>Ijungta!!!</font>"; // ijuntos radijos uzrasas

$offline = "<font color='ff0000'>Radija isjungta...</font>"; // Displays when stream is offline

// don't edit below //

$ip = "213.239.220.22";

$port = "11988";

$fp = @fsockopen($ip,$port,$errno,$errstr,1);

if (!$fp)

{

$status = $offline;

}

else

{

fputs($fp, "GET /7.html HTTP/1.0\r\nUser-Agent: Mozilla\r\n\r\n");

while (!feof($fp))

{

$info = fgets($fp);

}

$split = explode(',', $info);

if ($split[1] == "0" )

{

$status = $offline;

}

else

{

$status = $online;

}

}

echo "<b><font color='33cc00'>Statusas: </font>";

echo $status;

echo "</b>";

echo"<img src='http://shoutcast.mixstream.net/status/uk14-free:11988.gif' alt='Statusas' width='17' height='17' align='absmiddle'>";



echo '<br/>';



// Dainos tekstas



$ip = "213.239.220.22";

$port = "11988";

$fp = @fsockopen($ip,$port,$errno,$errstr,1);

if (!$fp)

{

$title = "Serveris isjungtas! Pertrauka! ";

}

else

{

fputs($fp, "GET /7.html HTTP/1.0\r\nUser-Agent: Mozilla\r\n\r\n");

while (!feof($fp))

{

$info = fgets($fp);

}

$info = str_replace('</body></html>', "", $info);

$split = explode(',', $info);

if (empty($split[6]) )

{

$title = "Dainos pavadinimas nerastas... ";

}

else

{

$count = count($split);

$i = "6";

while($i<=$count)

{

if ($i > 6)

{

$title .= ", " . $split[$i];

}

else

{

$title .= $split[$i];

}

$i++;

}

}

}

$title = substr($title, 0, -2);

echo "<font color='33cc00'><b>Busena: </font>";

echo $title;

echo "</b>";



echo "<br/>";



// Klausytoju rodymas



$ip = "213.239.220.22";

$port = "11988";

$fp = @fsockopen($ip,$port,$errno,$errstr,1);

if (!$fp)

{

$listeners = "0;";

}

else

{

fputs($fp, "GET /7.html HTTP/1.0\r\nUser-Agent: Mozilla\r\n\r\n");

while (!feof($fp))

{

$info = fgets($fp);

}

$split = explode(',', $info);

if ($split[1] == "0" )

{

$listeners = "0";

}

else

{

$listeners = $split[0];

}

}



echo "<font color='33cc00'><b>Klaytoju: </font>";

echo $listeners;

echo "</b>";



// Dainos rodymas



$ip = "213.239.220.22";

$port = "11988";

$fp = @fsockopen($ip,$port,$errno,$errstr,1);

if (!$fp)

{

$title = "Serveris isjungtas, dabar nera jokiu dainu. ";

}

else

{

fputs($fp, "GET /7.html HTTP/1.0\r\nUser-Agent: Mozilla\r\n\r\n");

while (!feof($fp))

{

$info = fgets($fp);

}

$info = str_replace('</body></html>', "", $info);

$split = explode(',', $info);

if (empty($split[6]) )

{

$title = "Daina neturi savo duomenu! ";

}

else

{

$count = count($split);

$i = "6";

while($i<=$count)

{

if ($i > 6)

{

$title .= ", " . $split[$i];

}

else

{

$title .= $split[$i];

}

$i++;

}

}

}

$title = substr($title, 0, -2);



echo "<br/>";

echo "<font color='33cc00'><b>Daina: </font><i> ";

echo $title;

echo "</i></b>";



// Klaymosi mygdukai bei nuorodos





echo "<br/>";

echo "<font color='33cc00'><b>Klausytis: <i></font> ";

echo "<a href='http://elitas.our.lt/PORTALAS/radija.html'>Pasiringti";

echo "</i></b>";



closeside();



Cia su spalvom html koduote <font color='kodas'>uzrasas</font>