Blecha niekaip neeina itaisyti radio info kad rodytu tik Klausytojus ir klausyti img seip taip padariau bet vistiek kazkox bb istampo visa theme galit istaysti? busiu labai dekingas stai kodas:
@openside("Klausyti");
error_reporting(0);
$scdef = "Šiuo metu radija yra."; // Default station name to display when server or stream is down
$scip = "82.135.230.57"; // ip or url of shoutcast server (DO NOT ADD HTTP:// don't include the port)
$scport = "8020"; // port of shoutcast server
$scpass = "..."; // 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.'išjungta';
}
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, 100);
}
######################################################################################################################
/////////////////////////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);
}
//Eterio Foto
if($streamstatus == "1"){
switch ($aim) {
case 'Dj Dede': $aimlogo = "Dede"; break;
case 'dJ BaNgIs': $aimlogo = "BaNgIs"; break;
case 'Dj Montis': $aimlogo = "Montis"; break;
case 'Dj': $aimlogo = "foto pavadinimas"; break;
case 'Dj': $aimlogo = "foto pavadinimas"; break;
case 'Dj': $aimlogo = "foto pavadinimas"; break;
default: $aimlogo = "dj";
}
$_SESSION['djus'] = $aim;
echo'<div align="center">
<table cellpadding="0" cellspacing="0" width="1">
<!-- MSTaašype="nolayout" -->
<tr>
<td height="50" bgcolor="">
<p align="center">
<a href="http://82.135.230.57:8020/listen.pls"><img border="0" src="http://img520.imageshack.us/img520/3645/1590104514xc6.png/"></a></td>
</tr>
<tr>
<td height="17" valign="bottom" bgcolor="">
<div align="center">
<table cellpadding="0" cellspacing="0" width="150">
<tr>
<td height="50">
<p align="center">
<center>
<font face="Tahoma" style="font-size: 15pt" color="#fffff"><b>Musu Klauso:</font>
<font face="Arial" style="font-size: 10pt" color="#ffffff"><b>'.$currentlisteners.'/300</font> </tr>
</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>';
}
@closetable();
Up!
Www.Degradacija.Lt - Naujas požiūris į demotyvaciją
Redagavo FanatiC 2009 Vas. 3 14:02:25 |
sis kodas rodo kiek klausytoju klauso radio ...
openside("radijos panele");
?>
<?
//Configuration:
$server2 = "jusu ip"; //IP des Shoutcast Servers
$server2port = "jusu port"; //Port des Shoutcast Server - Bsp.: 8000
$server2pass = "slaptazodi"; //Passwort des Shoutcast Servers
$dateix = fsockopen("$server2", $server2port, &$errno, &$errstr);
if( !$dateix )
{
echo "<font face='Verdana' size='2' color='black'><b>Isjunkta<b/></font><br>";
fclose($dateix);
}
else
{
fputs($dateix,"GET /admin.cgi?pass=$server2pass&mode=viewxml HTTP/1.0\r\nUser-Agent: Mozilla/4.0 (compatible; MSIE 4.01; Windows NT;)\r\n\r\n");
while (!(feof($dateix)))
{
$zeilex .= fgets($dateix, 4096);
}
fclose($dateix);
}
$tmpx = explode("<CURRENTLISTENERS>", $zeilex);
$tmpx = explode("</CURRENTLISTENERS>", $tmpx[1]);
$server2lauscher = $tmpx[0];
$pl2 = " ";
$tmpx = explode("<SERVERGENRE>", $tmpx[1]);
$tmpx = explode("</SERVERGENRE>", $tmpx[1]);
$tmp2x = explode("+", $tmpx[0]);
$nick2 = $tmp2x[0];
if(count($tmp2x) == 2)
$pl2 = $tmp2x[1];
$tmpx = explode("<SERVERTITLE>", $tmpx[1]);
$tmpx = explode("</SERVERTITLE>", $tmpx[1]);
$server2title = $tmpx[0];
$tmpx = explode("<SONGTITLE>", $tmpx[1]);
$tmpx = explode("</SONGTITLE>", $tmpx[1]);
$song2title = $tmpx[0];
$tmpx = explode("<STREAMSTATUS>", $tmpx[1]);
$tmpx = explode("</STREAMSTATUS>", $tmpx[1]);
$stream2status = $tmpx[0];
if ($stream2status == "1")
{
echo "
<a href='http://82.135.230.57:8020/listen.pls'><center><img border='0' src='http://img520.imageshack.us/img520/3645/1590104514xc6.png/'></a>
<font face='Verdana' size='2'><b><center>Klausytoju:</b> $server2lauscher/300</center><br><center>";
}
?>
<?
closeside();
Redagavo Soo-2 2009 Vas. 3 15:02:38 |
Šimtas metų, matau Šaukykloje nuostalgija. Smagu panaršyt po forumą ir pažiūrėt senas temas 
