Naujokas
Reputacija:
0
Pranešimai: 4
Įstojo: 2007-12-25
|
Gal Galit padeti su Eterio radio panele? taj va kaip padaryti sioje paneleje kad kaj 1 dj iseina is eterio ateina kitas ir rodo jo AVATARA?
Stai Sita Panele!
 Codeopenside(\"Eteris\");
error_reporting(0);
$scdef = \"Serveris neveikia\"; // Default station name to display when server or stream is down
$scip = \"musicfm.sytes.net\"; // ip or url of shoutcast server (DO NOT ADD HTTP:// don't include the port)
$scport = \"8002\"; // port of shoutcast server
$scpass = \"xxxxxx\"; // password to shoutcast server
$maxusers = \"100\"; //Kiek vienu sykiu klausosi zmoniu
//End configuration
error_reporting(0);
$scsuccs = NULL;
$page = NULL;
include('config_radio.php'); //you may edit this path to fit your server environment otherwise leave it alone
$scfp = fsockopen(\"$scip\", $scport, &$errno, &$errstr, 30);
if(!$scfp) {
$scsuccs=1;
echo''.$scdef.' ';
}
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);
}
######################################################################################################################
/////////////////////////part 1 \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
//define xml elements
$loop = array(\"STREAMSTATUS\", \"BITRATE\", \"SERVERTITLE\", \"CURRENTLISTENERS\", \"AIM\");
$y=0;
while (isset($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\") || ($loop[$y] == \"AIM\"))
$$scphp = urldecode($$scphp);
// uncomment the next line to see all variables
// echo'$'.$scphp.' = '.$$scphp.'
';
$y++;
}
//end intro xml elements
######################################################################################################################
######################################################################################################################
/////////////////////////part 2\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
//get song info and history
$pageed = ereg_replace(\".*\", \"\", $page);
$pageed = ereg_replace(\".*\", \"\", $pageed);
$songatime = explode(\"\", $pageed);
$r=1;
while (isset($songatime[$r])) {
$t=$r-1;
$playedat[$t] = ereg_replace(\".*\", \"\", $songatime[$r]);
$playedat[$t] = ereg_replace(\".*\", \"\", $playedat[$t]);
$song[$t] = ereg_replace(\".*\", \"\", $songatime[$r]);<br />
$song[$t] = ereg_replace(\".*\", \"\", $song[$t]);
$song[$t] = urldecode($song[$t]);
$dj[$t] = ereg_replace(\".*\", \"\", $page);
$dj[$t] = ereg_replace(\".*\", \"\", $pageed);
$r++;
}
$daina = str_replace('_',' ',substr ($song[0],0,90));
//end song info
fclose($scfp);
}
//display stats
if($streamstatus == \"1\"){
switch ($aim) {
case 'WiNALL': $aimlogo = \"Serveris\"; break;
case 'Serveris': $aimlogo = \"Serveris\"; break;
case 'DJ-KlimazZ': $aimlogo = \"KlimazZ\"; break;
case 'DJ-MobiZz': $aimlogo = \"MobiZz\"; break;
default: $aimlogo = \"dj\";
}
$_SESSION['djus'] = $aim;
echo'
![](\"http://www.rmffm.xz.lt/radio/dj/'.$aimlogo.'.jpg\")
|
Eteryje:
'.$aim.'
|
Dabar eteryje groja:
|
|
|
';
}
if($streamstatus == \"0\")
{
echo'Ðiuo metu radija yra iðjungta.';
}
/*
* Procentai isreiksti grafiskai
* Pavyzdys: Internetines radijos dabartiniai klausytojai
* Yra maksimalus leistinas klausytoju skaicius ir dabar besiklausanciu procentali israiska grafiskai
*/
$pavadinimas = \"\"; //pavadinimas
$ko = \"klausytoju:\"; //vienetas (pvz: Lt.)
//paveiksleliu nustatymai
$bg_pic = \"http://img340.imageshack.us/img340/2239/loadbarbgnc2.gif\"; //fono paveiksliukas (neaktyvi zona)
$nulis_pic = \"http://img340.imageshack.us/img340/2239/loadbarbgnc2.gif\"; //rodomoas paveiksliukas jei rezultatas lygus 0% (pvz jei nera klausytoju)
$mazas_pic = \"http://img340.imageshack.us/img340/456/loadbargreenyk1.gif\"; //uzsidengiantis paveiksliukas (zalia)
$vidutinis_pic = \"http://img230.imageshack.us/img230/3815/loadbaryellowue2.gif\"; //Kai vidutine procentu israiska (geltona)
$didelis_pic = \"http://img403.imageshack.us/img403/8008/loadbarreduh0.gif\"; //Kai arti arba lygu 100 procentu (raudona)
//pagrindiniai veiksmai
$procentai = (int)round((100 * $currentlisteners) / $maxusers);
$width = $procentai; //paveiksliuko plotis procentaliai
if ($procentai <= 1) {$pic = $nulis_pic; $width = \"100\";}
elseif ($procentai <= 40) { $pic = $mazas_pic; }
elseif ($procentai <= 80) { $pic = $vidutinis_pic; }
elseif ($procentai <= 100) { $pic = $didelis_pic; }
else { $pic = $didelis_pic; $width = \"100\"; } //jei daugiau nei 100%
//atvaziduojam lentele su rezultatais
echo \" $ko \".$currentlisteners.\"\";
echo \"\".$pavadinimas.\"\";
echo \"!['$currentlisteners'](\\"$pic\\")
\".$procentai.\"% |
\";
?>
![\"Winamp\"](\"http://img463.imageshack.us/img463/2893/winampasok3.png\") ![\"Windows](\"http://img463.imageshack.us/img463/4828/mediawy9.png\")
closeside();
tj pades kas? :o ;(
Redagavo skeiciuzas 2008-11-29 00:19 |
Svečių: 13
