PHP-Fusion Mods

Viso 10443 komentarų

Parašė: SwitZ Parašytas: 2009-10-31 18:16 0

openside("Upo Radio");
error_reporting(0);
$scdef = "?iuo metu radija yra."; // Default station name to display when server or stream is down
$scip = "84.46.150.21"; // ip or url of shoutcast server (DO NOT ADD HTTP:// don't include the port)
$scport = "8002"; // port of shoutcast server
$scpass = "asas112"; // 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.'i?jungta';
}
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);
}

//Eterio Foto
if($streamstatus == "1"){
switch ($aim) {
case 'Dj GedmantaS': $aimlogo = "GedmantaS"; break;
case 'dJ BaNgIs': $aimlogo = "BaNgIs"; break;
case 'Dj Montis': $aimlogo = "Montis"; break;
case 'Dj': $aimlogo = "foto pavadinimas"; break;
case 'Dj': $aimlogo = "foto pavadinimas"; break;
case 'Dj': $aimlogo = "foto pavadinimas"; break;
default: $aimlogo = "dj";
}
$_SESSION['djus'] = $aim;
echo'

Eteryje:
'.$aim.'

Klauso:
'.$currentlisteners.'

Groja:
'.$daina.'

';
}
if($streamstatus == "0")
{
echo'?iuo metu radija yra i?jungta.';
}
closetable();

be jokiu s...

Panelės Radijo panele By Dj Dede komentaras

Parašė: tabux Parašytas: 2009-10-31 09:59 0

PAGALBOS NELAUK JEI:
1. JAU YRA ATSAKYMAS, BET ESAT ANT TIEK BUKI ARBA TINGINIAI KAD NESUGEBAT SUSIRASTI
2. KLAUSIMAS VISAI NESUSIJ�S SU MODIFIKACIJOMIS

Apklausos komentaras

Parašė: Frikez Parašytas: 2009-10-31 09:44 0

i? admin�

23% [48 Balsai]
nari�

16% [32 Balsai]
i? vis nesulaukiu

40% [83 Balsai]
neie?kau pagalbos

20% [42 Balsai]

---

B��, kodel nepadedat? Gal visai jums neber�pi puslapis?

Apklausos komentaras

Parašė: zDon Parašytas: 2009-10-30 23:18 0

Code

openside (\"?aukyklos Top 10\");



$result=dbquery(\"SELECT user_name, user_avatar, user_location, user_icq, user_id, count(user_id) AS shout_count FROM \".$db_prefix.\"shoutbox INNER JOIN

\".$db_prefix.\"users ON shout_name=user_id GROUP BY user_name ORDER BY shout_count DESC LIMIT 0,10\");



echo \"\";

if(dbrows($result)!=0){

while($data=dbarray($result)){

echo \"\";

}

}


echo \" \";

if($data['user_avatar']){

echo \" \";

}else{

echo \" \";

}

echo \"$data[user_name] [$data[shout_count]]
\";



closeside();

?>

Panelės ?aukyklos Top 10 su avataru komentaras

Parašė: shanex Parašytas: 2009-10-30 14:52 0

+10 super ?mogus. :)

Vartotojo tabux komentaras

Parašė: edvardas218 Parašytas: 2009-10-29 17:26 0

mm:)

Panelės ?aukyklos Top 10 su avataru komentaras

Parašė: SkyWings Parašytas: 2009-10-29 15:34 0

tai galit susiredaguot ir padaryt kas neturi, kad roditu no avatar to nemoku padaryt d�l to ir nepadariau

Panelės ?aukyklos Top 10 su avataru komentaras

Parašė: Gytiz Parašytas: 2009-10-29 14:48 0

blt idek *keiksmai*visa pilna gera panele neveikia *bad*

Panelės Visi tinklapio siuntiniai komentaras

Parašė: edvardas218 Parašytas: 2009-10-29 11:15 0

nieko gero kas neturi avataro rodi kaip nukarpyta avatara *bad*

Panelės ?aukyklos Top 10 su avataru komentaras

Parašė: zDon Parašytas: 2009-10-28 18:32 0

+10 ?mogus su galva :)

Vartotojo SkyWings komentaras

Parašė: FFFF Parašytas: 2009-10-28 15:52 0

Jus idijotai ar kaip?
taigi jaigu toks baltas tai spalvas paredauguokite ar jus jau visai *keiksmai*i?O tarybinis tai kaiptik gerai.. :D

Panelės Kalendorius(LT) komentaras

Parašė: Apocal Parašytas: 2009-10-28 11:07 0

Nieko gero...

Panelės Tavo-ip (I?kirtinis) ;) komentaras

Parašė: Ozis Parašytas: 2009-10-27 19:47 -1

kaip as turiu padaryti ??????????????????

Pridėtinio puslapio Statistika komentaras

Parašė: Ozis Parašytas: 2009-10-27 16:50 0

gera pavare ne kaip kiti liux my best:D

Panelės Top 100 Ir Naujausiu 100 komentaras

Parašė: Ozis Parašytas: 2009-10-27 16:34 0

patiko:)

Panelės Random Reklama by lauremka komentaras

Puslapis 191 iš 697: 1...188 189 190191192 193 194...697

tabux	nepamenu
Zbigniew@	nepamenu
sanper	nepamenu
CepelinasX	nepamenu
VV91DD	nepamenu
Minus	nepamenu
priezilviciu	nepamenu
EdvinasG1337	nepamenu
rolandas94	nepamenu
Edis2	nepamenu
klubogerbejas	nepamenu
Miskinis	nepamenu

	Neleista registracija: 41350
	Šiandien: 28