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 | 5 grojusios |
| Įdėjo | cipis - Pateikta: 2008-11-03 - Peržiūrėta: 2679 |
| Aprašymas | Rodo 5 grojusias radijos dainas :) mesti koda i pridtini puslapi |
| Panelė | Code <?php
error_reporting(0);
$scdef = "Grojarascio nera"; // Kai serveris isjungtas rodo
$scip = "Serverio IP"; // shoutcast serverio IP be porto
$scport = "Serverio Port"; // shoutcast serverio portas
$scpass = "Serverio Pass"; // shoutcast serverio pasvordas
$maxusers = "50"; //Kiek vienu sykiu klausosi zmoniu
//End configuration
error_reporting(0);
$scsuccs = NULL;
$page = NULL;
$scfp = fsockopen("$scip", $scport, &$errno, &$errstr, 01);
if(!$scfp) {
$scsuccs=1;
echo''.$scdef.' ';
}
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);
}
#############Pagamino Dj_Dede, www.upofm.wu.lt############
#####################konfiguracija 01#####################
$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);
// echo'$'.$scphp.' = '.$$scphp.'<br>';
$y++;
}
#####################///konfiguracija 02#####################
$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++;
}
$Grojo = str_replace('_',' ',substr ($song[1],0,200));
$Grojo2 = str_replace('_',' ',substr ($song[2],0,200));
$Grojo3 = str_replace('_',' ',substr ($song[3],0,200));
$Grojo4 = str_replace('_',' ',substr ($song[4],0,200));
$Grojo5 = str_replace('_',' ',substr ($song[5],0,200));
//end song info
fclose($scfp);
}
#####################//Muzikos rikevimas#####################
if($streamstatus == "1"){
$_SESSION['songtitle'] = $song;
echo'<div align="left">
<table cellpadding="0" cellspacing="0" width="1">
<!-- MSTableType="nolayout" -->
<font face="Tahoma" style="font-size: 8pt" color="#3E1710"><b>1.</b></font>
<font face="Tahoma" style="font-size: 8pt" color="#000000">'.$Grojo.'</font></td>
<br>
<font face="Tahoma" style="font-size: 8pt" color="#3E1710"><b>2.</b></font>
<font face="Tahoma" style="font-size: 8pt" color="#000000">'.$Grojo2.'</font></td>
<br>
<font face="Tahoma" style="font-size: 8pt" color="#3E1710"><b>3.</b></font>
<font face="Tahoma" style="font-size: 8pt" color="#000000">'.$Grojo3.'</font></td>
<br>
<font face="Tahoma" style="font-size: 8pt" color="#3E1710"><b>4.</b></font>
<font face="Tahoma" style="font-size: 8pt" color="#000000">'.$Grojo4.'</font></td>
<br>
<font face="Tahoma" style="font-size: 8pt" color="#3E1710"><b>5.</b></font>
<font face="Tahoma" style="font-size: 8pt" color="#000000">'.$Grojo5.'</font></td>
</table>';
}
?> |
Nieko nesuprataus shudas kazkoks
:D nu cia tipo rodo ka tavo radija grojo Ty 5 dainas grotas ;D zmones gali pasizeti ir siusti :)
ble tu dede wisi geresni radijai turedavo o db visi vaikai tures! ir jokio unikalumo :(
gana geraj veikia B) 8-)
*keiksmai* kurva neveikia cia
wtf. Pakeiiu ?rifto spalvas ir nebeveikia
ia rodys devynias grojuses dainas :) :-)
error_reporting(0);
\", \"\", $page);.*\", \"\", $pageed);\", $pageed);\", \"\", $songatime[$r]); .*\", \"\", $playedat[$t]);\", \"\", $songatime[$r]);<br />
$song[$t] = ereg_replace(\" .*\", \"\", $song[$t]);\", \"\", $page); .*\", \"\", $pageed);
';
$scdef = \"Grojarascio nera\"; // Kai serveris isjungtas rodo
$scip = \"Serverio IP\"; // shoutcast serverio IP be porto
$scport = \"Serverio Port\"; // shoutcast serverio portas
$scpass = \"Serverio Pass\"; // shoutcast serverio pasvordas
$maxusers = \"100\"; //Kiek vienu sykiu klausosi zmoniu
//End configuration
error_reporting(0);
$scsuccs = NULL;
$page = NULL;
$scfp = fsockopen(\"$scip\", $scport, &$errno, &$errstr, 01);
if(!$scfp) {
$scsuccs=1;
echo''.$scdef.' ';
}
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);
}
#############Pagamino Dj_Dede, www.upofm.wu.lt##...
#####################konfiguracija 01#####################
$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(\".*\", \"\", $pageed);
if (($loop[$y] == \"SERVERGENRE\") || ($loop[$y] == \"SERVERTITLE\") || ($loop[$y] == \"SONGTITLE\") || ($loop[$y] == \"SERVERTITLE\") || ($loop[$y] == \"AIM\"))
$$scphp = urldecode($$scphp);
// echo'$'.$scphp.' = '.$$scphp.'
';
$y++;
}
#####################///konfiguracija 02#####################
$pageed = ereg_replace(\".*
$pageed = ereg_replace(\"
$songatime = explode(\"
$r=1;
while (isset($songatime[$r])) {
$t=$r-1;
$playedat[$t] = ereg_replace(\".*
$playedat[$t] = ereg_replace(\"
$song[$t] = ereg_replace(\".*
$song[$t] = urldecode($song[$t]);
$dj[$t] = ereg_replace(\".*
$dj[$t] = ereg_replace(\"
$r++;
}
$Grojo = str_replace('_',' ',substr ($song[1],0,200));
$Grojo2 = str_replace('_',' ',substr ($song[2],0,200));
$Grojo3 = str_replace('_',' ',substr ($song[3],0,200));
$Grojo4 = str_replace('_',' ',substr ($song[4],0,200));
$Grojo5 = str_replace('_',' ',substr ($song[5],0,200));
$Grojo6 = str_replace('_',' ',substr ($song[6],0,200));
$Grojo7 = str_replace('_',' ',substr ($song[7],0,200));
$Grojo8 = str_replace('_',' ',substr ($song[8],0,200));
$Grojo9 = str_replace('_',' ',substr ($song[9],0,200));
//end song info
fclose($scfp);
}
#####################//Muzikos rikevimas#####################
if($streamstatus == \"1\"){
$_SESSION['songtitle'] = $song;
echo'
1.
'.$Grojo.'
2.
'.$Grojo2.'
3.
'.$Grojo3.'
4.
'.$Grojo4.'
5.
'.$Grojo5.'
6.
'.$Grojo6.'
7.
'.$Grojo7.'
8.
'.$Grojo8.'
9.
'.$Grojo9.'
}
?>