Temos pavadinimas: WordPress, Shopify ir PHPFusion programuotojų bendruomenė :: radio panele (lafesta)

Parašė DuRaCeLL· 2008 Bir. 13 12:06:07
#2

Man veikė, kiek pamenu www.tavomuzika.net administratoriui daviau. :)

openside("Tūso radijas");

/* ---------- General configuration ---------- */

$station_name = "Triumo Radijas";

$refresh = "30";  // 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

/* ----------- Server configuration ---------- */

// Note: dont include http://
// Main server: The song title will be taken from this server

$ip[1] = "srv.tr.lt";
$port[1] = "8020";



/* ----- No need to edit below this line ----- */
/* ------------------------------------------- */
$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 I&#208;JUNGTAS!</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.csi.xz.lt/images/avatars/2535_Ecard-sml-JDI%5B1%5D.gif' style='margin:5px;' alt='DJ '></a></center>";
echo "</div>\n";
echo "Eteryje: <b>DJ</b>";









}
      $msg[$i] .= "Stotis transliuoja $bitrate[$i] kbps,44.100kHs.Stereo <br>Klausosi $listeners[$i] iš $max[$i]  ";
            if ($stats[0] == $max[$i])
               {
               $msg[$i] .= "</span>";
               }
            $msg[$i] .= "\n    <p><b>Daugiausia klausytojų-</b> $peak[$i]";
            }
         else
            {
            $listeners[$i] = "0";
            $msg[$i] = "    <span class=\"red\">Stotis I&#208;JUNGTA!</span>";
            $error[$i] = "1";
            }
         }
      }
   $i++;
   }
$total_listeners = array_sum($listeners) ;
print "<div id=\"blu\">\n  <div style=\"text-align: left;\">\n    <h8> Unikalių klausytojų - <b>$total_listeners </b></h8>\n  </div>\n</div>\n<div>\n  <div>\n    <p><MARQUEE Scrollamount=2 width='50%'><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://lafesta.lt/bar.gif" 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";
   


?>   

<?
closeside();




Žiūrėk gal veiks.