Navigacija

Namai Forumas PAIEŠKA ! ! Pagrindinės temos ! Nuorodų katalogas Didž. Php-F saitai Kontaktai
NAUDINGA
Straipsniai DUK Siuntimai Skriptų biblioteka Modai, dizainai Modai šiame saite D.U.K. Informacija Hostingai Domenai
Naudotojo vadovas v7 V6 ir V7 galimybių palyginimas DEMO
NUORODOS
Modifikacijos, panelės Temos/dizainai
PASLAUGOS
Reklama VIP hostingas
Pask. komentarai Administracija

Vartotojų tinkle

Prisijungusių svečių: 491
Prisijungusių narių: 0
Prisijungusių narių nėra

Registruoti nariai: 25,955
Naujausias narys: Johny

Naujausi straipsniai

Įprasti:

Skirti naujokams:

Paskutiniai nariai

Johny 3 savaitės
Reikalas 8 savaitės
Jaunelis14 savaitės
lanis14 savaitės
And2s15 savaitės
Memento Mori20 savaitės
ozzWANTED20 savaitės
Quwqkibor22 savaitės
asirija26 savaitės
tomeem28 savaitės
weberiz32 savaitės
mRokass34 savaitės
kartoonas35 savaitės
iaescortsmap35 savaitės
grunskiz38 savaitės
Bruksnys38 savaitės
illusion38 savaitės
ordo39 savaitės
Jurgaila40 savaitės
originalcs1640 savaitės

Informacija:


OS: Unknown
Naršyklė: Nežinoma
IP: 18.221.234.179
Naujienų: 529
Straipsnių: 235
Temų: 52,588
Postų: 522,534
Postų pask. parą: 0
Shout'ų pask. parą: 0
P.S.C. pask. parą: 0
Nuorodų kataloge: 13

Lankomumo Statistika

Peržiūrų šiandien: 22

Iš viso peržiūrų: 22948724

Prisijungti

REGISTRUOTIS
Nario vardas

Slaptažodis



Pamiršai slaptažodį?
Paprašyk naujo
Aktyvuoti save

Šaukykla

Jei norite rašyti žinutes, turite prisijungti.

Jaunelis
2024 Lie. 25 11:07:43
Oho vis dar veikia svetainė akinanti šypsen Šimtas metų, matau Šaukykloje nuostalgija. Smagu panaršyt po forumą ir pažiūrėt senas temas šypsosi

And2s
2024 Lie. 17 19:07:04
2008 pirmą kart čia patekau, man buvo 10m ir čia pramokau programavimo.. smagu skaityti senas žinutes, tokia nostalgija akinanti šypsen ačiū Ozz kad saugoji šitą kultūrinį reliktą šypsosi

ozzWANTED
2024 Sau. 17 01:01:00
Desperatiškus komentarus šaukykloje su accountu po mėnesio prasibuvimo, ištryniau. Pasaulis ir taip juodas. Įjungiam šviesą, prašviesės. šypsosi

Majakas
2023 Gru. 10 19:12:39
Negaliu patikėti jog žinutės/pranešimai visi yra nuo 2008 m akinanti šypsen

Žmogus
2023 Rugs. 7 21:09:14
O gal BloodKiller pasijungs?

Šaukyklos archyvas

Apklausa

Ar esate patenkinti lietuviško vertimo kokybe?

Taip!

Taip, bet yra ką taisyti (parašysiu komentaruose)

Ne

Norėdamas balsuoti turite prisijungti.
Archyvas
Reklama 400x60
padekite kaip padaryt kad matytusi eteryje kas groje ir nuotrauka matytusi
Forumas | PHP-Fusion, WordPress, Shopify, PHP ir MySQL (PROGRAMAVIMAS) | C#, Python, Java, JS, C++ klausimai
Autorius: arzz2 Peržiūrų: 2422      Spausdinti temą
2011 Vas. 10 17:02:41          1 žinutė iš 6
Spausdinti pranešimą
<?php


error_reporting(0);
$scdef = "Vyksta Profilaktikos Darbai"; // Default station name to display when server or stream is down
$scip = "82.135.230.135"; // ip or url of shoutcast server (DO NOT ADD HTTP:// don't include the port)
$scport = "8000"; // port of shoutcast server
$scpass = "pass"; // password to shoutcast server
$maxusers = "500"; //Kiek vienu sykiu klausosi zmoniu

//$laida = "FM-GIRLS"; //LAIDOS PAVADINIMAS

//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, 80);
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", "ICQ");
$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") || ($loop[$y] == "ICQ") ||($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(".*<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));
$laida = str_replace('_',' ',substr ($icq[0],0,90));
//end song info

fclose($scfp);
}

//display stats
if($streamstatus == "1"){
switch ($aim) {
case 'Serveris': $aimlogo = "Serveris"; break;
case '': $aimlogo = ""; break;
case '': $aimlogo = ""; break;
case '': $aimlogo = ""; break;
case '': $aimlogo = ""; break;
case '': $aimlogo = ""; break;

case 'Modukas;**': $aimlogo = ""; break;
case '': $aimlogo = ""; break;
case '': $aimlogo = ""; break;
case '': $aimlogo = ""; break;
case '': $aimlogo = ""; break;
case '': $aimlogo = ""; break;
case '': $aimlogo = ""; break;
case '': $aimlogo = ""; break;
case '': $aimlogo = ""; break;

default: $aimlogo = "dj";
}
$_SESSION['djus'] = $aim;
echo'

<table cellpadding="0" cellspacing="0">
<tr>

<td height="100" width="90" style="padding-left:10px;">
<a href="http://www.tipofm.lt/radio/'.$aimlogo.'.gif"><img border="0" src="http://www.tipofm.lt/radio/'.$aimlogo.'.gif" height="90" border="0" title="Spausk, kad padidinti"></a>
</td>

<td style="padding-left:10px;"><b>Eteryje:</b> <span style="font-size:10px;"><b>'.$aim.'</b></span><br /><br />

<b>Laida:</b> <span style="font-size:10px;"><b>'.$icq.'</b></span>


</td>
</tr>
</table>

<table cellpadding="0" cellspacing="0" align="center">
<tr>
<td align="center" style="padding-bottom:5px; padding-top:5px;"><MARQUEE SCROLLDELAY="2" SCROLLAMOUNT="1">

'.$daina.'<br /><br />
</MARQUEE>

</td>
</tr>


</table>';
}
if($streamstatus == "0")
{
echo"Serveris laikinai neveikia";
}


?>

5 atsakymai:
2011 Vas. 10 17:02:10          2 žinutė iš 6
Spausdinti pranešimą
Tai tau cia visas kodas, kas neveikia? Ar tu nesupranti kaip pritaikyti?
0
2011 Vas. 10 17:02:17          3 žinutė iš 6
Spausdinti pranešimą
ase 'Modukas;**': $aimlogo = "logotipopavadinimas"; break;

Nuotraukas turi kelti čia: http://www.tipofm.lt/radio/

Nuotraukos tipas: .gif

Ir be to turi nusistatyti pats per ką transliuoji AIM stulpelyje. Tai šiuo atveju tau reikėtų AIM`e įrašyti: Modukas;**, nes tik tada atpažins tave kaip eteryje esantį RDJ.
0
2011 Vas. 10 17:02:30          4 žinutė iš 6
Spausdinti pranešimą
nu nemoku pritaikyt nu padarykit ka
0

#1 Na scriptas tai tvarkingas, bet mes už tave neįkišim į hostingą scripto ir nepatvarkysim tavo transliavimo softo. — MantasV, 2011 Vas. 10 17:02:49
2011 Vas. 10 17:02:42          5 žinutė iš 6
Spausdinti pranešimą
arzz2 parasyk man i skype: benasbauba padesiu.
0
2011 Vas. 10 17:02:44          6 žinutė iš 6
Spausdinti pranešimą
IS KUR GAUT TA MODA KUR REIK YRASYT Y AIM?
0
Peršokti į forumą: