#1 | Varlius 2011 05 rugpjūčio 22:33:12 0

Primenu, kad tikrai cia nereklama, bei nesakau, kad labai gera panele :)

#2 | Varlius 2011 05 rugpjūčio 22:56:16 0

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>