Kodas
openside("Radija");
//Radio panele made by Varlius! :)
//Prasideda panele, online ofline uzrassas.
// Cpakeisti galite savo uzrasus ijungta/isjungta //
$online = "Ijungta!!!"; // ijuntos radijos uzrasas
$offline = "Radija isjungta..."; // 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>Statusas: ";
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 "<b>Busena: ";
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 "<b>Klaytoju: ";
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 "<b>Dainike:<i> ";
echo $title;
echo "</i></b>";
// Klausymo mygtukai bei nuorodos
echo "<br/>";
echo "<b>Klausyk: <i> ";
echo "<a href='http://elitas.our.lt/PORTALAS/radija.html'>Pasiringti";
echo "</i></b>";
closeside();
ajaxuser_info_panel by...
Svečių: 5
