WordPress, Shopify ir PHPFusion programuotojų bendruomenė

Parašė smekla· 2008 Bal. 22 12:04:35

ydedu stai sia radijo panele ir

openside("Eteryje");



error_reporting(0);

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

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

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

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

//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.' is Offline';

 }

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 'Minix': $aimlogo = "Minix"; 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="radio/dj/'.$aimlogo.'.jpg" width="140" heigth="100"></a></td>

  </tr>

  <tr>

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

   <div align="center">

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

     <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>Groja:</b></font>

   <font face="Arial" style="font-size: 7pt" color="#000000">'.$daina.'</font></td>



  </tr>

  </tr>

  </table>

                 </div>

   </td>

  </tr>

  <tr>

   <td>

   </td>

  </tr>

 </table>

</div>';

}

if($streamstatus == "0")

{

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

}

closeside();

man visad ismeta kazka blogai.

nesuprantu kame saknys :(

Redagavo MAnjack· 2008 Bal. 22 12:04:37

Parašė smekla· 2008 Bal. 23 21:04:44

Na va. Jau dauk mas susitvarkiau. pasiemiau kita panele, ir veikia. Bet noris kazko geresnio. Nes as esu ne vienas DJ toj radijoj, o kejst kiekviena kart neapsimoka :[ taigi noreciau prideti prie sio scripto:

opensidex("Eteryje","on");



?>

<center></a><a href='http://88.216.18.88:8008/listen.pls'><img src="http://www.part.lt/img/221e5361037e4c524fd0e6b2f2a73b00325.gif" /><center>

<br>

<marquee><center><center><span style='color:black'Online radio</span><center><marquee>

<br>

<?



$station_name = "U-Radio";



$refresh = "0"; // Page refresh time in seconds. Put 0 for no refresh

$timeout = "5"; // Number of seconds before connecton times out - a higher value will slow the page down if any servers are offline







// Note: dont include http://

// Main server: The song title will be taken from this server



$ip[1] = "88.216.18.88";

$port[1] = "8008";









$servers = count($ip);

?>



<?php

$i = "1";

while($i<=$servers)

{

$fp = @fsockopen($ip[$i],$port[$i],$errno,$errstr,$timeout);

if (!$fp)

{

$listeners[$i] = "0";

$msg[$i] = "<br><span class=\"red\">Serveris ISJUNGTAS!</span>";

$error[$i] = "1";

}

else

{

fputs($fp, "GET /7.html HTTP/1.0\r\nUser-Agent: Mozilla\r\n\r\n");

while (!feof($fp))

{

$info = fgets($fp);

}

$info = str_replace('<HTML><meta http-equiv="Pragma" content="no-cache"></head><body>', "", $info);

$info = str_replace('</body></html>', "", $info);

$stats = explode(',', $info);

if (empty($stats[1]) )

{

$listeners[$i] = "0";

$msg[$i] = "<span class=\"red\">Netransliuojama!</span>";

$error[$i] = "1";

}

else

{

if ($stats[1] == "1")

{

$song[$i] = $stats[6];

$listeners[$i] = $stats[0];

$max[$i] = $stats[3];

$bitrate[$i] = $stats[5];

$peak[$i] = $stats[2];

if ($stats[0] == $max[$i])

{

$msg[$i] .= "<span class=\"red\">";

} else {















echo "<center><a href='http://triumas.xz.lt/profile.php?lookup=1'><img src=http://www.u-games.nkk.lt/images/avatars/avataras[1].png style='margin:5px;' alt='DJ '></a></center>";

echo "</div>\n";

echo "Eteryje: <b>DJ meska</b>";



















}

$msg[$i] .= "Stotis translioja Stereo <br>Drauge klausosi $listeners[$i] is; $max[$i] ";

if ($stats[0] == $max[$i])

{

$msg[$i] .= "</span>";

}

$msg[$i] .= "\n <p><b>Daugiausia klausytoju-</b> $peak[$i]";

}

else

{

$listeners[$i] = "0";

$msg[$i] = " <span class=\"red\">Stotis ISJUNGTA!</span>";

$error[$i] = "1";

}

}

}

$i++;

}

$total_listeners = array_sum($listeners) ;

print "<div id=\"blu\">\n <div style=\"text-align: left;\">\n <h8> Unikaliu klausytoju - <b>$total_listeners </b></h8>\n </div>\n</div>\n<div>\n <div>\n <p><MARQUEE Scrollamount=2 width='100%'><b>Dabar groja:</b> $song[1]</p>\n </div>\n</div>\n<div>\n</MARQUEE>";

$i = "1";

while($i<=$servers)

{

print " <div>\n";

if ($max[$i] > 0)

{

$percentage = round(($listeners[$i] / $max[$i] * 100));

$timesby = (300 / $max[$i]);

$barlength = round(($listeners[$i] * "$timesby"));

}

if ($error[$i] != "1")

{

?>

<table width="100%" border="0" cellspacing="0" cellpadding="0">

<tr>

<small>Serverio naudojimas- <?php print $percentage; ?>%</small><br><br>

<td width="100%" colspan="100%" bgcolor="#00D0E0"><img src="<?php if ($percentage == "100") { print "red-"; } ?>http://img228.imageshack.us/img228/4262/48627956nc5.png" width="<?php print $barlength ?>" height="15" alt=""></td>

</tr>

<tr>



<td width="0%">0%</td>



<td width="50%" align="right">100%</td>

</tr>

</table>

<?php

}

else

{

?>

<?php

}

print " <p><b>Statusas:</b> $msg[$i]</p>\n </div>\n <div class=\"line\"> </div>\n";

$i++;

}

print "</div>\n";







?>

<center></a><a href='http://88.216.18.88:8008/listen.pls'><img src="http://www.part.lt/img/38dc02e251f31a5f51200554d25ff69b802.jpg" /><center>

<br>

<?

closesidex();

kaip lafestoj kad kejstu kas eteryje ir pavejkslely. arba tiesiog jei galite visa lafestos radijos scripta. busiu labai dekingas :)