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: 7458 |
| 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ą.
:D kopino mano panele, uz tai nukentejo labi smrkei nuhackino ju weba :D http://sokiuradijas.xz.lt
Atsgauk nuo pigiu varskeciu. Tavo gi.. :D *keiksmai* ten paskutinis nors jau pas mane rodo laida eteryje ir aim. Galiu ir fotke dadet nesunku. Ir nulauze is musu komandos vien del to kad nuo musu atstotu nosound. Kazkas dar neaisku?
aga :(
beto sokiuradijas mano ir as ji nulauziau nes dapiso visokie lopai ;] o db viskas ok
SokiuRadijas tavo? Kieno gi pavadinimas galvotas.. Atsgauk. Mano galvotas pavadinimas. Tu tik padariai puslapi ir kita. O Cipi jeigu tau kas neaisku tai pisk nx
cipis loxas *keiksmai*pidrila *keiksmai*atllieka
kazka kpino nes sitas mano :D http://upofm.xz.lt/upofm.gif
Sita kodo dalis :D
a cia is wisa galima parsisiust?
bakaz taip sokiu radijas ira mano o netawo radija beto tu tik paneles kuriai tai uz tai dekui tau bet db as nebekuriu jokiu web :)
jeigu kam laida neveikia tai as sutvarkysiu