PHP-Fusion Mods - Diskusijų forumas: radio panel/mod

Peržiūrėti temą

PHP-Fusion Mods :: ARCHYVAS :: 2008 metų archyvas

radio panel/mod

bronka

parašyta 2007-08-13 14:17

Savekas

Reputacija: 0

Pranešimai: 119
Įstojo: 2007-05-28

sveiki, gal kas turi ka nors panasaus i sia radijo panele :

http://img31.pico...b8622d.png

siame saite buvau rades kazka panasaus, taciau ten nerode nei kiek zmoniu klauso radijo ir dainu informacija ln letai atsinaujindavo... laukiu jusu paisulymu ;)

Redagavo bronka 2007-08-13 14:17

[img]www/mp3s.lt/images/468xgif[/img]

minusas

parašyta 2007-08-13 16:31

Pradinukas

Reputacija: 0

Pranešimai: 42
Įstojo: 2007-05-11 kazkur esu mates sia panele, paieskosiu:)

minusas

parašyta 2007-08-13 16:51

Pradinukas

Reputacija: 0

Pranešimai: 42
Įstojo: 2007-05-11

gal sita tiks:

Code

 openside(\"Eteryje\");

$server2 = \"xxxxx\"; //Radijos serverio IP

$server2port = \"xxxxx\"; //Radijos portas

$server2pass = \"xxxxx\"; //Radijos slaptazodis

$dateix = fsockopen(\"$server2\", $server2port, &$errno, &$errstr);

if( !$dateix )

{

echo \"Serveris ISJUNGTAS!
\";

fclose($dateix);

}

else

{

fputs($dateix,\"GET /admin.cgi?pass=$server2pass&mode=viewxml HTTP/1.0\r\nUser-Agent: Mozilla/4.0 (compatible; MSIE 4.01; Windows NT;)\r\n\r\n\");

while (!(feof($dateix)))

{

$zeilex .= fgets($dateix, 4096);

}

fclose($dateix);

}

$tmpx = explode(\"\", $zeilex);

$tmpx = explode(\"\", $tmpx[1]);

$server2lauscher = $tmpx[0];

$pl2 = \" \";

$tmpx = explode(\"\", $tmpx[1]);

$tmpx = explode(\"\", $tmpx[1]);

$tmp2x = explode(\"+\", $tmpx[0]);

$nick2 = $tmp2x[0];

if(count($tmp2x) == 2)

$pl2 = $tmp2x[1];

$tmpx = explode(\"\", $tmpx[1]);

$tmpx = explode(\"\", $tmpx[1]);

$server2title = $tmpx[0];

$tmpx = explode(\"\", $tmpx[1]);

$tmpx = explode(\"\", $tmpx[1]);

$song2title = $tmpx[0];

$tmpx = explode(\"\", $tmpx[1]);

$tmpx = explode(\"\", $tmpx[1]);

$stream2status = $tmpx[0];

if($server2title == 'serveris') //ce rasyti kaip yra pasidares dj GENRE geriausia kad butu vienas zodis pvz serveris



echo \"
\";



if ($stream2status == \"1\")

{

echo \" $server2title

\";

if ($pl2 ==\"\")

{

echo \"\";

}

else

{

echo \"
echo \"$pl2\";

echo \"\\" target=\\"_blank\\">\";

}

echo \">

$song2title\";

echo \"

Klausytis:
 \";

}

else

{

echo \"Netransliuojama

\";

}

closeside();

bronka

parašyta 2007-08-13 17:14

Savekas

Reputacija: 0

Pranešimai: 119
Įstojo: 2007-05-28

sita as ir naudoju... ar yra kokia nors kita ?

[img]www/mp3s.lt/images/468xgif[/img]

minusas

parašyta 2007-08-13 18:18

Pradinukas

Reputacija: 0

Pranešimai: 42
Įstojo: 2007-05-11

bronka para?�:
sita as ir naudoju... ar yra kokia nors kita ?

paieskosiu dar

bronka

parašyta 2007-08-13 19:28

Savekas

Reputacija: 0

Pranešimai: 119
Įstojo: 2007-05-28

but malonu, nes as jau praradau vilty :|

[img]www/mp3s.lt/images/468xgif[/img]

wydmys

parašyta 2007-08-13 22:37

Naujokas

Reputacija: 0

Pranešimai: 24
Įstojo: 2007-01-18

na as [persidariau cia rodo kiek klauso daina rodo kokia ir ji slenka dar rodo DJ foto ir procentine klaustyju juostele jei kas nepatinka neimk man tai visia gera panele

openside("Info");

//konfiguravimas
$scdef = "pavadinimserio paw.
$scip = "IP // ip arba URL (tik be jokiu html://)
$scport = "Port/ Portas serverio
$scpass = "Paswordas"; // Paswordas
$maxusers = "32"; //Kiek vienu sykiu klausosi zmoniu
//Konfiguracijos pabaiga

$scfp = fsockopen("$scip", $scport, &$errno, &$errstr, 30);
if(!$scfp) {
$scsuccs=1;
echo''.$scdef.' Neveikia';
}
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);
}

//tvarkome xml

$loop = array("STREAMSTATUS", "BITRATE", "SERVERTITLE", "CURRENTLISTENERS");
$y=0;
while($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)
$$scphp = urldecode($$scphp);

$y++;
}
//pabaiga xml sudarymas

$pageed = ereg_replace(".*", "", $page);
$pageed = ereg_replace(".*", "", $pageed);
$songatime = explode("", $pageed);
$r=1;
while($songatime[$r]!=""){
$t=$r-1;
$playedat[$t] = ereg_replace(".*", "", $songatime[$r]);
$playedat[$t] = ereg_replace(".*", "", $playedat[$t]);
$song[$t] = ereg_replace(".*", "", $songatime[$r]);<br /> $song[$t] = ereg_replace(".*", "", $song[$t]);
$song[$t] = urldecode($song[$t]);
$dj[$t] = ereg_replace(".*", "", $page);
$dj[$t] = ereg_replace(".*", "", $pageed);
$r++;
}

fclose($scfp);
}

//ishvedam i ekrana
if($streamstatus == "1"){
echo'

'; if($servertitle=="nikas") { $djphoto='foto.jpg global $djphoto; } elseif($servertitle=="nikas $djphoto='foto'; global $djphoto; } if($servertitle=="nikas $djphoto='foto; global $djphoto; } elseif($servertitle=="nikas $djphoto='foto'; global $djphoto; } if($servertitle=="DJ Livex") { $djphoto='noav.gif'; global $djphoto; } elseif($servertitle=="DJ_wydmys") { $djphoto='DJwydmys.jpg'; global $djphoto; } echo " Eteryje: ".$servertitle." ";echo'
'.$song[0].'
Klausytoj�:		'.$currentlisteners.'

';
} else {
echo'Serveris neveikia';
}
?>

closeside();

bronka

parašyta 2007-08-14 09:31

Savekas

Reputacija: 0

Pranešimai: 119
Įstojo: 2007-05-28

Parse error: syntax error, unexpected T_VARIABLE in /usr/home/www/ftp/sostine/administration/panel_editor.php(111) : eval()'d code on line 5

tokia klaida meta, kai bandau tavo koda imest...

[img]www/mp3s.lt/images/468xgif[/img]

kLx

parašyta 2007-08-14 09:52

Apšylantis

Reputacija: 0

Pranešimai: 63
Įstojo: 2007-04-29 ka?k� jis �ia pripuliavo.... wpsch klaidos ank kiekvienos eilut�s :D Nu ?n a? nk nesuprantu bet matau kad �ia pilna klaid� :D

erikiuxss

#10

parašyta 2007-08-14 09:56

Pradinukas

Reputacija: 0

Pranešimai: 26
Įstojo: 2007-01-19 Kam reikia sito modo? :)

kLx

#11

parašyta 2007-08-14 10:10

Apšylantis

Reputacija: 0

Pranešimai: 63
Įstojo: 2007-04-29 geriau i? karto pateik � mod� db :D

bronka

#12

parašyta 2007-08-14 10:13

Savekas

Reputacija: 0

Pranešimai: 119
Įstojo: 2007-05-28

erikiuxss para?�:
Kam reikia sito modo? :) images21.fotosik.pl/318/b7974eac7ceb3b6c.jpg

ish to lenku shudsaicio pajamei ? :D

[img]www/mp3s.lt/images/468xgif[/img]

erikiuxss

#13

parašyta 2007-08-14 10:22

Pradinukas

Reputacija: 0

Pranešimai: 26
Įstojo: 2007-01-19 Ne :p:p:p

bronka

#14

parašyta 2007-08-14 10:24

Savekas

Reputacija: 0

Pranešimai: 119
Įstojo: 2007-05-28

erikiuxss para?�:
Ne :p:p:p

meluoji... ir be to ji nerodo nei kokia daina groja, nei kiek zmoniu klausosi... :| ir seip galetum prisegt, nesisakojes, nes kai paciam ko nors reikia, tai trimituoji cia per visa saita...:|

[img]www/mp3s.lt/images/468xgif[/img]

erikiuxss

#15

parašyta 2007-08-14 18:53

Pradinukas

Reputacija: 0

Pranešimai: 26
Įstojo: 2007-01-19

ai nu.... as dar sitame saite nieko neprasiau, nu wieno dalyko http://www.phpfus...#post_8203

Rodo ta panele wiska :DDDD

Redagavo Sharkman 2007-12-17 19:48

bronka

#16

parašyta 2007-08-15 08:14

Savekas

Reputacija: 0

Pranešimai: 119
Įstojo: 2007-05-28

erikiuxss para?�:
ai nu.... as dar sitame saite nieko neprasiau, nu wieno dalyko http://www.phpfus...#post_8203

Rodo ta panele wiska :DDDD

ka cia nusisneki dbr? :o

Redagavo Sharkman 2007-12-17 20:06

[img]www/mp3s.lt/images/468xgif[/img]

svatas

#17

parašyta 2008-06-21 09:25

Naujokas

Reputacija: 0

Pranešimai: 1
Įstojo: 2008-03-23

Code

openside(\"Eteryje\");



error_reporting(0);

$scdef = \"Serversi neveikia\";               // Default station name to display when server or stream is down

$scip = \"Ipas\"; // ip or url of shoutcast server (DO NOT ADD HTTP:// don't include the port)

$scport = \"Portas\";                   // port of shoutcast server

$scpass = \"Slaptazodis1\";                 // password to shoutcast server

$maxusers = \"32\"; //Kiek vienu sykiu klausosi zmoniu

//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.' ';

 }

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(\".*\", \"\", $pageed);

  if (($loop[$y] == \"SERVERGENRE\") || ($loop[$y] == \"SERVERTITLE\") || ($loop[$y] == \"SONGTITLE\") || ($loop[$y] == \"SERVERTITLE\") || ($loop[$y] == \"AIM\"))

   $$scphp = urldecode($$scphp);



// uncomment the next line to see all variables

// echo'$'.$scphp.' = '.$$scphp.'
';

  $y++;

 }

//end intro xml elements

######################################################################################################################

######################################################################################################################

/////////////////////////part 2\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

//get song info and history

 $pageed = ereg_replace(\".*\", \"\", $page);

 $pageed = ereg_replace(\".*\", \"\", $pageed);

 $songatime = explode(\"\", $pageed);

 $r=1;

 while (isset($songatime[$r])) {

  $t=$r-1;

  $playedat[$t] = ereg_replace(\".*\", \"\", $songatime[$r]);

  $playedat[$t] = ereg_replace(\".*\", \"\", $playedat[$t]);

  $song[$t] = ereg_replace(\".*\", \"\", $songatime[$r]);<br />
  $song[$t] = ereg_replace(\".*\", \"\", $song[$t]);

  $song[$t] = urldecode($song[$t]);

  $dj[$t] = ereg_replace(\".*\", \"\", $page);

  $dj[$t] = ereg_replace(\".*\", \"\", $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 'DJ_Deivis': $aimlogo = \"deivis\"; break; 



  case 'Saulius': $aimlogo = \"Saulius\"; break;

 default:  $aimlogo = \"dj\";

}

$_SESSION['djus'] = $aim;

echo'

 

  

  

   

  

  

   

  

  

   

  

 

   

   


   

    

     

   

  

  

   



  

  

  

   

   Eteryje:

   '.$aim.'


   

   Dabar eteryje groja:

   '.$daina.'


                 


   


   


';

}

if($streamstatus == \"0\")

{

echo'Ðiuo metu radija yra iðjungta.';

}



/*

* Procentai isreiksti grafiskai

* Pavyzdys: Internetines radijos dabartiniai klausytojai

* Yra maksimalus leistinas klausytoju skaicius ir dabar besiklausanciu procentali israiska grafiskai

*/

$pavadinimas = \"\"; //pavadinimas

$ko = \"klausytoju:\"; //vienetas (pvz: Lt.)





//paveiksleliu nustatymai

$bg_pic = \"http://img340.imageshack.us/img340/2239/loadbarbgnc2.gif\"; //fono paveiksliukas (neaktyvi zona)

$nulis_pic = \"http://img340.imageshack.us/img340/2239/loadbarbgnc2.gif\"; //rodomoas paveiksliukas jei rezultatas lygus 0% (pvz jei nera klausytoju)

$mazas_pic = \"http://img340.imageshack.us/img340/456/loadbargreenyk1.gif\"; //uzsidengiantis paveiksliukas (zalia)

$vidutinis_pic = \"http://img230.imageshack.us/img230/3815/loadbaryellowue2.gif\"; //Kai vidutine procentu israiska (geltona)

$didelis_pic = \"http://img403.imageshack.us/img403/8008/loadbarreduh0.gif\"; //Kai arti arba lygu 100 procentu (raudona)





//pagrindiniai veiksmai

$procentai = (int)round((100 * $currentlisteners) / $maxusers);

$width = $procentai; //paveiksliuko plotis procentaliai

if ($procentai <= 1) {$pic = $nulis_pic; $width = \"100\";}

elseif ($procentai <= 40) { $pic = $mazas_pic; }

elseif ($procentai <= 80) { $pic = $vidutinis_pic; }

elseif ($procentai <= 100) { $pic = $didelis_pic; }

else { $pic = $didelis_pic; $width = \"100\"; } //jei daugiau nei 100%



//atvaziduojam lentele su rezultatais

echo \" $ko  \".$currentlisteners.\"\";

echo \"\".$pavadinimas.\"\";

echo \"
\".$procentai.\"%
\";

?>



 











closeside();

kaip sitoj panelei padaryt kad rodytu paveikliuka kurio nors dj. ir kad radytu koks db dj eterija nesuprantu as. jai kas ismanot parasykyt mano skype jur4ik16

Smailai pa?alinti , kodas y [code] .
Redagavo Paranoja 2008-06-21 09:51




Peršokti į forumą:

tabux	nepamenu
EdvinasG1337	nepamenu
rolandas94	nepamenu
Zbigniew@	nepamenu
Edis2	nepamenu
klubogerbejas	nepamenu
Miskinis	nepamenu
mast3r	nepamenu
N1nt3nd	nepamenu
Matze1987	nepamenu
Piter_NS	nepamenu
MariukasR	nepamenu

	Neleista registracija: 29761
	Šiandien: 86