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">Ðiuo metu radija yra iðjungta.</font>';
}
closeside();
man visad ismeta kazka blogai.
|
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 :)
|
Šimtas metų, matau Šaukykloje nuostalgija. Smagu panaršyt po forumą ir pažiūrėt senas temas 
pls truputy issamiau. as dar tik pradziamoksis esu... 
