";
//////////////////////////////////////
// Shoutcast serverio monitorius
// Autorius: SluDm
//////////////////////////////////////
// Club Hit Fm adresas, paemiau kaip pavyzdi =)
$adresas = "94.232.224.125"; // Serverio adresas (IP)
$portas = "8002"; // Serverio Portas
// Stilius galite redaguoti naudodamiesi betkokiais html tag'ais
// Demesio: Vietoje " (dvigubu kabuciu) naudokit ' (viengubas) taip isvengsite error'u
// Gautos informacijos rodymo stilius
$stilius = "
Klauso: %klauso/%viso

Laida: %laida

Eteryje: %dj

Groja: %daina
";
// Ka rodys jeigu serveris isjungtas
$stilius_off = "
Serveris nedirba
";


// Neredaguoti zemiau esanciu kodu //
$sludm1435 = stream_context_create(
array(
'http'=>array(
'method'=>"GET",
'header'=>"GET /index.html HTTP/1.0\r\n".
"Cookie: foo=bar\r\n".
"Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash\r\n".
"Accept-Language: pl,en-us;q=0.5\r\n".
"Accept-Encoding: gzip, deflate\r\n".
"User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0; .NET CLR 1.0.3705)\r\n".
"Host: seb.sleepbot.com\r\n".
"Connection: Closed\r\n",
'timeout'=>"1"
)
)
);
$sludm1362 = @file_get_contents('http://'.$adresas.':'.$portas.'/', 0, $sludm1435);
if(!$sludm1362) {
echo $stilius_off;
} else {
$sludm1745 = strpos($sludm1362, "kbps with ")+13;
$sludm1244 = strpos($sludm1362, " listeners")-$sludm1745;
$sludm = explode(" of ", substr($sludm1362, $sludm1745, $sludm1244));
$stilius = @str_replace("%klauso", $sludm[0], $stilius);
$stilius = @str_replace("%viso", $sludm[1], $stilius);
$sludm1745 = strpos($sludm1362, "Stream ICQ:")+105;
$sludm1244 = strpos($sludm1362, "Stream AIM:")-$sludm1745-63;
$sludm = explode('">', substr($sludm1362, $sludm1745, $sludm1244));
$stilius = @str_replace("%laida", $sludm[1], $stilius);
$sludm1745 = strpos($sludm1362, "Stream AIM:")+80;
$sludm1244 = strpos($sludm1362, "Stream IRC:")-$sludm1745-63;
$sludm = explode('">', substr($sludm1362, $sludm1745, $sludm1244));
$stilius = @str_replace("%dj", $sludm[1], $stilius);
$sludm1745 = strpos($sludm1362, "Current Song:")+53;
$sludm1244 = strpos($sludm1362, "Written by Stephen")-$sludm1745-205;
$stilius = @str_replace("%daina", substr($sludm1362, $sludm1745, $sludm1244), $stilius);
echo $stilius;
}
echo "