MAnjack
Garbės narys
Legenda
Pranešimai: 11821
Įstojęs: 2006 Kov. 2 20:03:58
Būtent kas šakojasi?
DuRaCeLL
VIP narys
Generolas
Pranešimai: 1033
Įstojęs: 2007 Rugp. 18 21:08:14
Man veikė, kiek pamenu www.tavomuzika.net administratoriui daviau. :)
openside("Tūso radijas");
/* ---------- General configuration ---------- */
$station_name = "Triumo Radijas";
$refresh = "30"; // Page refresh time in seconds. Put 0 for no refresh
$timeout = "5"; // Number of seconds before connecton times out - a higher value will slow the page down if any servers are offline
/* ----------- Server configuration ---------- */
// Note: dont include http://
// Main server: The song title will be taken from this server
$ip[1] = "srv.tr.lt";
$port[1] = "8020";
/* ----- No need to edit below this line ----- */
/* ------------------------------------------- */
$servers = count($ip);
?>
<?php
$i = "1";
while($i<=$servers)
{
$fp = @fsockopen($ip[$i],$port[$i],$errno,$errstr,$timeout);
if (!$fp)
{
$listeners[$i] = "0";
$msg[$i] = "<br><span class=\"red\">Serveris IÐJUNGTAS!</span>";
$error[$i] = "1";
}
else
{
fputs($fp, "GET /7.html HTTP/1.0\r\nUser-Agent: Mozilla\r\n\r\n");
while (!feof($fp))
{
$info = fgets($fp);
}
$info = str_replace('<HTML><meta http-equiv="Pragma" content="no-cache"></head><body>', "", $info);
$info = str_replace('</body></html>', "", $info);
$stats = explode(',', $info);
if (empty($stats[1]) )
{
$listeners[$i] = "0";
$msg[$i] = "<span class=\"red\">Netransliuojama!</span>";
$error[$i] = "1";
}
else
{
if ($stats[1] == "1")
{
$song[$i] = $stats[6];
$listeners[$i] = $stats[0];
$max[$i] = $stats[3];
$bitrate[$i] = $stats[5];
$peak[$i] = $stats[2];
if ($stats[0] == $max[$i])
{
$msg[$i] .= "<span class=\"red\">";
} else {
echo "<center><a href='http://triumas.xz.lt/profile.php?lookup=1'><img src='http://www.csi.xz.lt/images/avatars/2535_Ecard-sml-JDI%5B1%5D.gif' style='margin:5px;' alt='DJ '></a></center>";
echo "</div>\n";
echo "Eteryje: <b>DJ</b>";
}
$msg[$i] .= "Stotis transliuoja $bitrate[$i] kbps,44.100kHs.Stereo <br>Klausosi $listeners[$i] iš $max[$i] ";
if ($stats[0] == $max[$i])
{
$msg[$i] .= "</span>";
}
$msg[$i] .= "\n <p><b>Daugiausia klausytojų-</b> $peak[$i]";
}
else
{
$listeners[$i] = "0";
$msg[$i] = " <span class=\"red\">Stotis IÐJUNGTA!</span>";
$error[$i] = "1";
}
}
}
$i++;
}
$total_listeners = array_sum($listeners) ;
print "<div id=\"blu\">\n <div style=\"text-align: left;\">\n <h8> Unikalių klausytojų - <b>$total_listeners </b></h8>\n </div>\n</div>\n<div>\n <div>\n <p><MARQUEE Scrollamount=2 width='50%'><b>Dabar groja:</b> $song[1]</p>\n </div>\n</div>\n<div>\n</MARQUEE>";
$i = "1";
while($i<=$servers)
{
print " <div>\n";
if ($max[$i] > 0)
{
$percentage = round(($listeners[$i] / $max[$i] * 100));
$timesby = (300 / $max[$i]);
$barlength = round(($listeners[$i] * "$timesby"));
}
if ($error[$i] != "1")
{
?>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<small>Serverio naudojimas- <?php print $percentage; ?>%</small><br><br>
<td width="100%" colspan="100%" bgcolor="#00D0E0"><img src="<?php if ($percentage == "100") { print "red-"; } ?>http://lafesta.lt/bar.gif" width="<?php print $barlength ?>" height="15" alt=""></td>
</tr>
<tr>
<td width="0%">0%</td>
<td width="50%" align="right">100%</td>
</tr>
</table>
<?php
}
else
{
?>
<?php
}
print " <p><b>Statusas:</b> $msg[$i]</p>\n </div>\n <div class=\"line\"> </div>\n";
$i++;
}
print "</div>\n";
?>
<?
closeside();
Žiūrėk gal veiks.Redagavo
2008 Bir. 13 17:06:15
LeBro
Narys
Terminatorius
Pranešimai: 1461
Įstojęs: 2007 Rugp. 10 10:08:52
duracell'i, dekui, dbr veikia lieku skolingas batareika PACHA - best club ever
DuRaCeLL
VIP narys
Generolas
Pranešimai: 1033
Įstojęs: 2007 Rugp. 18 21:08:14
Baterijų man nereikia.
jonasz11
Narys
Fruktas
Pranešimai: 30
Įstojęs: 2007 Spa. 6 21:10:45
") jo, DuRaCeLL baterijos juk labai ilgai islaiko... Leva panele Redagavo
jonasz11 2008 Bir. 13 17:06:44
WriteMaster
Narys
Buldozeris
Pranešimai: 290
Įstojęs: 2008 Geg. 9 20:05:13
Neveik man. gal sureguliutumete pagal mano radija : http://78.58.86.89:8002/listen.pls lb lb prasauw
suomis
Narys
Generolas
Pranešimai: 1167
Įstojęs: 2005 Gru. 22 00:12:19
jo DuRaCeLL buvo daves man ta bet as ja pasiredagavau pagal save biski ;)PJAUNAT GRYBĄ BARAVYKĄ - MAFIJOZAI!!!
MAnjack
Garbės narys
Legenda
Pranešimai: 11821
Įstojęs: 2006 Kov. 2 20:03:58
Selgius, susirašyk savo nustatymus/duomenis.
WriteMaster
Narys
Buldozeris
Pranešimai: 290
Įstojęs: 2008 Geg. 9 20:05:13
MAnjack parašė:
Selgius, susirašyk savo nustatymus/duomenis.
Surasiau bet man nerodo ka groja neroda ar ijungtas radijes ir nerodo kiek zmoniu klauso
Gal kaikas turi tokia radio panele kaip www.all-in.gan.lt ?
sigitux94
Narys
Spalvotas
Pranešimai: 50
Įstojęs: 2008 Lie. 1 17:07:08
bld kaip uzdeti kur dj foto ?
sigitux94
Narys
Spalvotas
Pranešimai: 50
Įstojęs: 2008 Lie. 1 17:07:08
zinot kas?
sigitux94
Narys
Spalvotas
Pranešimai: 50
Įstojęs: 2008 Lie. 1 17:07:08
MAnjack
Garbės narys
Legenda
Pranešimai: 11821
Įstojęs: 2006 Kov. 2 20:03:58
Nenorėk bano gaut flūderi.
Dandžu
Narys
Ekspertas
Pranešimai: 3265
Įstojęs: 2007 Lie. 23 13:07:47
Prikėlinėja mėnesio senumo temas ir dar floodina.
Peršokti į forumą:
Nebeegzistuojančios svetainės
Žaliems
Bendri PHP-F klausimai
WordPress
Kiti PHP, HTML, MySQL klausimai
Expert PHP, MySQL klausimai
Kitos TVS
C#, Python, Java, JS, C++ klausimai
Naujų modų pristatymai
Mods, Panels & Infusions
Themes
Dalinuosi, dovanoju!
Jūsų saitai
Klausimai apie domenus ir hostingus
VPS/DS serverių konfigūravimas ir valdymas
Viskas apie skaitliukus, top'us ir lankomumą
Dizaino konkursai
Parduodu - perku dizainą, banerį
Parduodu - perku - keičiuosi reklama
Parduodu - perku domeną, tinklapį
Siūlau - ieškau hostingo/VPS serverio
Parduodu - perku skriptą, modifikaciją, tvs
Socialiniai tinklai - Facebook ir kiti
Legalus verslas, teisiniai klausimai
Visa kita kas susiję su darbu ir pinigais
LTStartups.com - Lietuvos startuolių bendruomenė
Off-Topic diskusijos
IT naujienos
Portalo informacija
Narių pasiūlymai
Geležis ir programinė įranga
Grafika
Out Of Place
Su e-verslu nesusijęs darbas ir prekyba
Dalinuosi, dovanoju!