openside("RADIO INFO");

//konfiguravimas
$scdef = "Radio"; // serverio paw.
$scip = "82.135.249.18"; // ip arba URL (tik be jokiu html://)
$scport = "11111"; // Portas serverio
$scpass = "xxxxxxxx"; // Paswordas
$maxusers = "112"; //Kiek vienu sykiu klausosi zmoniu
//Konfiguracijos pabaiga


$scfp = fsockopen("$scip", $scport, &$errno, &$errstr, 30);
if(!$scfp) {
$scsuccs=1;
echo''.$scdef.' Neveikia';
}
if($scsuccs!=1){
fputs($scfp,"GET /admin.cgi?pass=$scpass&mode=viewxml HTTP/1.0\r\nUser-Agent: SHOUTcast Song Status (Mozilla Compatible)\r\n\r\n");
while(!feof($scfp)) {
$page .= fgets($scfp, 1000);
}

//tvarkome xml

$loop = array("STREAMSTATUS", "BITRATE", "SERVERTITLE", "CURRENTLISTENERS");
$y=0;
while($loop[$y]!=''){
$pageed = ereg_replace(".*<$loop[$y]>", "", $page);
$scphp = strtolower($loop[$y]);
$$scphp = ereg_replace(".*", "", $pageed);
if($loop[$y]==SERVERGENRE || $loop[$y]==SERVERTITLE || $loop[$y]==SONGTITLE || $loop[$y]==SERVERTITLE)
$$scphp = urldecode($$scphp);

$y++;
}
//pabaiga xml sudarymas


$pageed = ereg_replace(".*", "", $page);
$pageed = ereg_replace(".*", "", $pageed);
$songatime = explode("", $pageed);
$r=1;
while($songatime[$r]!=""){
$t=$r-1;
$playedat[$t] = ereg_replace(".*", "", $songatime[$r]);
$playedat[$t] = ereg_replace(".*", "", $playedat[$t]);
$song[$t] = ereg_replace(".*.*", "", $song[$t]);
$song[$t] = urldecode($song[$t]);
$dj[$t] = ereg_replace(".*", "", $page);
$dj[$t] = ereg_replace(".*", "", $pageed);
$r++;
}


fclose($scfp);
}

//ishvedam i ekrana
if($streamstatus == "1"){
echo'

DJ:		'.$servertitle.'
Klauso:		'.$currentlisteners.' / '.$maxusers.'
Grojo:		'.$song[0].'

';
} else {
echo'Serveris neveikia';
}
?>




Klausytis



closeside();