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 | Radijo Panele antra ;) |
| Įdėjo | cipis - Pateikta: 2008-09-10 - Peržiūrėta: 5436 |
| Aprašymas | v7 neisbandyta bet veike ant v6 ;) |
| Panelė | Code sukure, redagavo www.upofm.xz.lt administracija :D
autorines teises nepazeistos ;)
openside("Upo Radijas");
error_reporting(0);
$scdef = "Serversi neveikia"; // Default station name to display when server or stream is down
$scip = "78.62.120.222"; // ip or url of shoutcast server (DO NOT ADD HTTP:// don't include the port)
$scport = "8002"; // port of shoutcast server
$scpass = "bet kas"; // 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>
<p>
<tr>
<td height="0" bgcolor="">
<p align="">
<a href="http://upofm.xz.lt/radija"><font face="Tahoma" style="font-size: 8pt" color="#ff0000"><b>Klausyti</b></a>
<tr>
<td height="17">
<p align="">
<font face="Tahoma" style="font-size: 8pt" color="#3E1710"><b>Eteryje:</b></font>
<font face="Tahoma" style="font-size: 8pt" color="#000000">Upo Radija</font></td>
</tr>
<tr>
<td height="17">
<p align="">
<font face="Tahoma" style="font-size: 8pt" color="#3E1710"><b>Klauso:</b></font>
<font face="Arial" style="font-size: 7pt" color="#000000">'.$currentlisteners.'</font> </tr>
<tr>
<td height="">
<p align="">
<font face="Tahoma" style="font-size: 8pt" color="#3E1710"><b>DJ:</b></font>
<font face="Tahoma" style="font-size: 8pt" color="#000000">DJ Dede</font></td>
</tr>
<tr>
<td height="17">
<p align="">
<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>
<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ą.
kad vistiek beveik niekas nenaudos.. licenziju gi reikia tarsi visi turetu lesu jas pirkti
Tiesa sakai. Beje servo reik irgi kainuoja. Zmogau mastyk truputi nors
:D kiti turi radija su licenzija :P pvz as :D
sitas *keiksmai* vertas zodzio panele?
Tikrai geresn radijo panel nei kitos :)
kiek licenzija kainuoja ir uzkiek ?? as be kas man bus ?? :o
but nieko nebutu o licenzijos kaina max 300lt i menesi + servas apie 90lt menesiusi bet jei geras servas tai ir licenzija kartu yra :)
tipiskas reklaminimo budas
licenzija 300? servas 90 ? tu kainas pasiskaityk vaike... 90lt tai tu cia gal cs serva darysi koki ? na zinoma jei pirksi is tokiu visokiu avita.lt tai zinoma tiek kai nuos.... licenzija yra sumuojama pagal klausytojus
Bsk debiliskas klausimas :
O kaip padaryt kad nerasytu Radija isjungta ar pns Nors viskas yra yjungta? ^_^'