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 | Radio Panel |
| Įdėjo | livogro - Pateikta: 2008-01-08 - Peržiūrėta: 7198 |
| Aprašymas | Stai Radio Panele. Manau dauk kam prawers. seip ne pats kuriau bet kazkur radau iswerciu ir dar biski dadejau ;] kur bus xxx manaus suprasite kur ka rasyti jums butinai reiks Suggestion_box Infusion'o. Tai Wat Kas neaisku klauskite. ir dar wienas dalykas jai galite padekite pataisyt koda. kai isjungi radio serveri meta erora ;] Suggestion_box - http://rapidshare.com/files/82144306/suggestion_box.rar.html |
| Panelė | Code openside("Radijas");
$scip="xxx.xxx.xxx.xxx";
$scport="8002";
$scpass="xxxxxx";
//$ip="$s"; //localhost
$scfp = fsockopen($scip, $scport);
//$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", "CURRENTLISTENERS");
$y=0;
while($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)
$$scphp = urldecode($$scphp);
// $servert[$y] = ereg_replace(".*<SERVERTITLE>", "", $servert[$y]);
// $servert[$y] = ereg_replace("</SERVERTITLE>.*", "", $servert[$y]);
// 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);
$pageed = ereg_replace(".*<SERVERTITLE>", "", $page);
$pageed = ereg_replace("</SERVERTITLE>.*", "", $pageed);
$servert = explode("<SERVERTITLE>", $pageed);
$r=1;
while($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]);
$r++;
}
//end song info
// $obisk = explode("<POINTER>", $obisk);
fclose($scfp);
}
//display stats
if($streamstatus == "1"){
//you may edit the html below, make sure to keep variable intact
echo"
<table width=100% align=center border=0 cellpadding=0 cellspacing=0>
<tr><b>
<td><div align=center><font size=2 face=Tahoma><strong>
Daina: <br> <marquee><font color=#f0051>$song[0]</marquee></font></b>
Eteryje: <br><font color=#yudf55>$servert[0] <br><br></font>
Klausytoju: <br><font color=#fg551>$currentlisteners <br><br></font>
Bit Reitas <br><font color=#gh5465>$bitrate kbps
<p>>>><a href='http://xxx.xxx.xxx.xxx:xxxx/listen.psl' target='_blank'><b> Klausyk </b></a><<<</p>
<p>><a href='http://xxxxxxxxxxxxx/infusions/suggestion_box/suggestion_box.php' target='_blank'><b> Prasyk Dainos </b></a><</p>
<br><br></strong></div><br></td></font>
</tr>
</table>
";
}
closeside();
?>
|
Rašyti komentarą
Turite prisijungti, norėdami parašyti komentarą.
mgsti kopinti? :)
Kodl kopinti? Jai djo ir pasak kad ne jis sukr ir paredagavo.
Imeskite kas ne i rapidshare, uzknisa laugti... :(
tikiuosi prawers kam nors :D
Negali praversti nes as gaudau nelegalius radijus ;) o kai pagaunu bauda buna ne maza B)
nelegalius :D shoutcast seip nedraudziama :P tai kas tai naudoja gali ir prawerst :p
ka jis ten apie nelegalius radijas pisa LATGA yra lietuviu o ne anglu pvz jai angliskus club hitus leisi ir tipo bauda eis? eikit nepuskit cia vaikai
O kaip man paziureti kokias dainas klausytojai uzsisake? :o
Admin paneleje-Modifikacijose :D