
Naujokas

Reputacija:
0
Pranešimai: 6
Įstojo: 2008-02-23
|
Codeopenside(\"Eterio info\");
//konfiguravimas
$scdef = \"LiuxFM\"; // serverio paw.
$scip = \"Jusu ip\"; // ip arba URL (tik be jokiu html://)
$scport = \"Portas\"; // Portas serverio
$scpass = \"Pass\"; // Paswordas
$maxusers = \"100\"; //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(\"$loop[$y]>.*\", \"\", $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(\".*\", \"\", $songatime[$r]);
$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'
 |
Eteryje: |
|
'.$servertitle.' |
Klauso: |
|
'.$currentlisteners.' / '.$maxusers.' |
|
|
|
|
|