Panelių bazė
Sveiki, jūs panelių bazėje.
Neaktyvuotų panelių: 0
Viso panelių: 377
Ieškoti panelės
Neaktyvuotų panelių: 0
Viso panelių: 377
Ieškoti panelės
Panelės peržiūra
| Pavadinimas | Radijos eterio panele. |
| Įdėjo | bakkaz - Pateikta: 2008-10-04 - Peržiūrėta: 7457 |
| Aprašymas | Gera radijos eterio panele. Gan paprasta. Galima padaryti kad rodytu foto bet nedariau. Rodo kokia laida eteryje pagal icq rodo koks dj pagal aim ir rodo dainos pavadinima |
| Panelė | Code openside("Sokiuradijas ");
error_reporting(0);
$scdef = "Sokiu Radijas!"; // Default station name to display when server or stream is down
$scip = "Tavo ip"; // ip or url of shoutcast server (DO NOT ADD HTTP:// don't include the port)
$scport = "tavo port"; // port of shoutcast server
$scpass = "tavo psw"; // 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.' greit veiksime';
}
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] == "currentlisteners"))
$$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="">
<table cellpadding="0" cellspacing="0" width="0">
<!-- MSTableType="nolayout" -->
<td height="" valign="botton" bgcolor="">
<div align="center">
<table cellpadding="0" cellspacing="0" width="111">
<tr>
<td height="0" bgcolor="">
<p align="left">
<a><img border="0" src="http://upofm.xz.lt/upofm.gif" width="120" heigth="100"></a>
<center><a href="http://sokiuradijas.ax.lt:8000/listen.pls"><font face="Tahoma" style="font-size: 8pt" color="#ff0000"><b>Klausyti</b></a></center>
<p>
<tr>
<td height="0" bgcolor="">
<p align="">
Eteryje: '.$aim.'
<br>
Laida: '.$icq.'
<tr>
</tr>
<tr>
<td height="17">
<p align="">
<font face="Tahoma" style="font-size: 8pt" color="#3E1710"><b>Dabar groja:</b></font>
<font face="Arial" style="font-size: 7pt" color="#000000">'.$daina.'</font></td>
<br><br></font>
<p>
</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();
|
Rašyti komentarą
Turite prisijungti, norėdami parašyti komentarą.
Neveikia laida :)
:D:D:D:D:D
Sokiu radijas greit veiksime :DDDd
pz nu ir panele...
neweikia laida ir djus... nerodo koks eteryje jei gali sutwarkyk.
hebra an kokio fusiona ce v6? nes ant v7 neveikia!
nesamone ,greit veiksime uzrasyta
ant v6. Vaikai pirma stotis susikurkit normalias o paskui piskit protus.
kai tik kas ateina i eteri raso Error from *DB* unkown column 13
nesupratu rodo visa laika kad neveikia radijas nors viskas gerai pajungta. *galvoju*