Parašė Mantas_· 2008 Lie. 24 15:07:54
opensidex("Mūsų radija","on"); ?><center></a><a href='http://78.57.33.125:1993/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] = "78.57.33.125";$port[1] = "1993"; $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Š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.u-games.nkk.lt/images/avatars/avataras[1].png style='margin:5px;' alt='DJ '></a></center>";echo "</div>\n";echo "Eteryje: <b>DJ arNaz...</b>"; }$msg[$i] .= "Stotis translioja Stereo <br>Drauge 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Š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://triumas.xz.lt/infusions/Eterio_info_panel/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"; ?><center></a><a href='http://78.57.33.125:1993/listen.pls'><img src="http://www.part.lt/img/38dc02e251f31a5f51200554d25ff69b802.jpg" /><center><br><?closesidex();