WordPress, Shopify ir PHPFusion programuotojų bendruomenė

Parašė Ginciuss· 2008 Spa. 24 08:10:27
openside("Eteryje");



error_reporting(0);

$scdef = "Serversi neveikia";               // Default station name to display when server or stream is down

$scip = "78.59.86.166"; // ip or url of shoutcast server (DO NOT ADD HTTP:// don't include the port)

$scport = "8002";                   // port of shoutcast server

$scpass = "123123";                 // password to shoutcast server

$maxusers = "50"; //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("</$loop[$y]>.*", "", $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.'<br>';

  $y++;

 }

//end intro xml elements

######################################################################################################################

######################################################################################################################

/////////////////////////part 2\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

//get song info and history

 $pageed = ereg_replace(".*<SONGHISTORY>", "", $page);

 $pageed = ereg_replace("<SONGHISTORY>.*", "", $pageed);

 $songatime = explode("<SONG>", $pageed);

 $r=1;

 while (isset($songatime[$r])) {

  $t=$r-1;

  $playedat[$t] = ereg_replace(".*<PLAYEDAT>", "", $songatime[$r]);

  $playedat[$t] = ereg_replace("</PLAYEDAT>.*", "", $playedat[$t]);

  $song[$t] = ereg_replace(".*<TITLE>", "", $songatime[$r]);

  $song[$t] = ereg_replace("</TITLE>.*", "", $song[$t]);

  $song[$t] = urldecode($song[$t]);

  $dj[$t] = ereg_replace(".*<SERVERTITLE>", "", $page);

  $dj[$t] = ereg_replace("</SERVERTITLE>.*", "", $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_Deivis': $aimlogo = "deivis"; break; 



  case 'Saulius': $aimlogo = "Saulius"; break;

 default:  $aimlogo = "dj";

}

$_SESSION['djus'] = $aim;

echo'<div align="center">

 <table cellpadding="0" cellspacing="0" width="1">

  <!-- MSTaašype="nolayout" -->

  <tr>

   <td height="36" bgcolor="">

   <p align="center">

   <a href="listen.m3u"><img border="0" src="http://www.bamperis.nkk.lt/images/Serveris.jpg" width="140" heigth="100"></a></td>

  </tr>

  <tr>

   <td height="17" valign="bottom" bgcolor="fffff">

   <div align="center">

    <table cellpadding="0" cellspacing="0" width="130">

     <tr>

   <td height="17">

   <p align="center">

   <font face="Tahoma" style="font-size: 8pt" color="#3E1710"><b>Eteryje:</b></font>

   <font face="Tahoma" style="font-size: 8pt" color="#000000">'.$aim.'</font></td>

  </tr>

  <tr>

   <td height="17">

   <p align="center">

   <font face="Tahoma" style="font-size: 8pt" color="#3E1710"><b>Dabar eteryje groja:</b></font>

  <marquee behavior="right"> <font face="Arial" style="font-size: 8pt" color="#000000">'.$daina.'</font></td></marquee></p>



  </tr>

  </tr>

  </table>

                 </div>

   </td>

  </tr>

  <tr>

   <td>

   </td>

  </tr>

 </table>

</div>';

}

if($streamstatus == "0")

{

echo'<font size="2" face="tahoma" color="#6C6D7B">Šiuo metu radija yra išjungta.</font>';

}



/*

* 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 "<center><b> $ko  ".$currentlisteners."";

echo "<center><b>".$pavadinimas."</b><table class=main border=0 width=160><tr><td style='padding: 0px; background-image: url(".$bg_pic."); background-repeat: repeat-x'>";

echo "<img height=15 width=\"".$width."%\" src=\"$pic\" alt='$currentlisteners'><br><font size='1'><center>".$procentai."%</center></font></td></tr></table>";

?>

<html><center>

<a href="http://78.60.86.137:8002/listen.pls"><img src="http://img463.imageshack.us/img463/2893/winampasok3.png" border="0" alt="Winamp" /></a> <a href="http://78.60.86.13:8002/listen.m3u"><img src="http://img463.imageshack.us/img463/4828/mediawy9.png" border="0" alt="Windows Media Player" /></a><br>



</html>

<?





closeside();
Tikrai veikianti,o susirašyti tikrai nėra sunku. +10 jei veiks.:p xDDD
Redagavo Ginciuss· 2008 Spa. 24 08:10:47