openside("Shoutcast");
//////////////////////////////////////
//	Shoutcast serverio monitorius	//
//	Autorius: SluDm					//
//////////////////////////////////////
// Club Hit Fm adresas, paemiau kaip pavyzdi =)
$adresas = "193.46.83.164"; // Serverio adresas (IP)
$portas = "8090"; // 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 <B>")+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;
}
closeside();
Parsed in 0.033 seconds, using GeSHi 1.0.8.10