|
|
|
|
|
© 2024 JOKRIS.INFO - Rozszerzenia, dodatki do Joomla! i Mambo |
Google Twoja Wyszukiwarka |
|
|
Najnowsze Pliki Dodane Do ReMOSitory |
|
|
|
Najczê¶ciej czytane na Forum Jokris.info |
|
|
|
|
Forum Joomla / Mambo :: JOKRIS.INFO - Strefa Polskich Sk³adników Joomla! i Mambo
[ Modu³ ] Statysyki radia internetowego (1 wej¶æ)
|
|
TEMAT: [ Modu³ ] Statysyki radia internetowego
|
traczu (U¿ytkownik)
Prawie Moderator
Posty: 147
|
[ Modu³ ] Statysyki radia internetowego 2007/07/11 17:21 |
Oklaski: 26   |
jest kto¶ chêtny do napisania ?? my¶lê ¿e paru osob± by sie co¶ takiego przyda³o sam bym skorzysta³ a szuka³em po sieci i nic takiego nie znalaz³em wiêc jak to mój stary znajomy kiedy¶ powiedzia³ nie ma tego co ci potrzeba to se sam zrób jeden z przyk³adów : Kod: |
<center>
<?
$sc[czas] = 180;
$sc[host] = "server2.xpx.pl";
$sc[port] = 9000;
$sc[template] = " Zasilanie:<b> [status]</b><br>Stacja :<b>[dj]</b><br>Prowadzi:<b> [genre] </b><br>Gra od/do:<b>
[gg]</b><br>Slucha :<b> [ile] osób</b><br>";
# $sc[template] = "<b>Status (on/off/err) :</b> [status]<br><b>GG DJ-a:</b> [gg]<br><b>Dj:</b>
[genre]<br><b>Ilu sluchaczy aktualnie/maksymalnie/peak:</b> [ile]/[max]/[peak]<br>";
?>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-2">
<META HTTP-EQUIV="Refresh" CONTENT="<?=$sc[czas]?>; URL="">
</head>
<body>
<font color="black" face="arail" size="2">
<?
if($fp = fsockopen($sc[host], $sc[port]))
{
fputs($fp,"GET /index.html HTTP/1.0\r\nUser-Agent: XML Getter (Mozilla Compatible)\r\n\r\n"«»);
fgets($fp);fgets($fp);fgets($fp);
while(!feof($fp)) $in.=strip_tags(fgets($fp));
fclose($fp);
# echo $in;
// [status]
$m[0]="Server is currently";
$m[1]="";
$mp[0]=strpos($in,$m[0]);
$mp[1]=@strpos($in,$m[1]);
$ml[0]=strlen($m[0]);
$ml[1]=strlen($m[1]);
$tmp[1]=explode( " " , trim( substr( $in , $mp[0] + $ml[0] , 5 ) ) );
if( $tmp[1][0] == "up" )
$dat[status] = "on";
elseif( $tmp[1][0] == "down" )
$dat[status] = "off";
else
$dat[status] = "err";
if($dat[status]=="on"«»)
{
// [dj]
$m[0]="Stream Title:";
$m[1]="Content Type:";
$mp[0]=strpos($in,$m[0]);
$mp[1]=strpos($in,$m[1]);
$ml[0]=strlen($m[0]);
$ml[1]=strlen($m[1]);
$tmp[1]=trim( substr( $in , $mp[0] + $ml[0] , $mp[1]-$mp[0]-$ml[1] ) );
if( $tmp[1] ) $dat[dj] = $tmp[1];
else $dat[dj] = "err";
// [gg]
$m[0]="Stream AIM:";
$m[1]="Stream IRC:";
$mp[0]=strpos($in,$m[0]);
$mp[1]=strpos($in,$m[1]);
$ml[0]=strlen($m[0]);
$ml[1]=strlen($m[1]);
$tmp[1]=trim( substr( $in , $mp[0] + $ml[0] , $mp[1]-$mp[0]-$ml[1] ) );
if( $tmp[1] ) $dat[gg] = $tmp[1];
else $dat[gg] = "err";
// [genre]
$m[0]="Stream Genre:";
$m[1]="Stream URL:";
$mp[0]=strpos($in,$m[0]);
$mp[1]=strpos($in,$m[1]);
$ml[0]=strlen($m[0]);
$ml[1]=strlen($m[1]);
$tmp[1]=trim( substr( $in , $mp[0] + $ml[0] , $mp[1]-$mp[0]-$ml[1]-2 ) );
if( $tmp[1] ) $dat[genre] = $tmp[1];
else $dat[genre] = "err";
// [ile]
$m[0]="kbps with";
$m[1]="listeners";
$mp[0]=strpos($in,$m[0]);
$mp[1]=strpos($in,$m[1]);
$ml[0]=strlen($m[0]);
$ml[1]=strlen($m[1]);
$tmp[1]=explode( " " , trim( substr( $in , $mp[0] + $ml[0] , $mp[1]-$mp[0]-$ml[1]-2 ) ) );
if( $tmp[1] ) $dat[ile] = $tmp[1][0];
else $dat[ile] = "err";
// [max]
$m[0]="kbps with";
$m[1]="listeners";
$mp[0]=strpos($in,$m[0]);
$mp[1]=strpos($in,$m[1]);
$ml[0]=strlen($m[0]);
$ml[1]=strlen($m[1]);
$tmp[1]=explode( " " , trim( substr( $in , $mp[0] + $ml[0] , $mp[1]-$mp[0]-$ml[1]-2 ) ) );
if( $tmp[1] ) $dat[max] = $tmp[1][2];
else $dat[max] = "err";
// [peak]
$m[0]="Listener Peak:";
$m[1]="Average";
$mp[0]=strpos($in,$m[0]);
$mp[1]=strpos($in,$m[1]);
$ml[0]=strlen($m[0]);
$ml[1]=strlen($m[1]);
$tmp[1]=trim( substr( $in , $mp[0] + $ml[0] , $mp[1]-$mp[0]-$ml[1]-7) );
if( $tmp[1] ) $dat[peak] = $tmp[1];
else $dat[peak] = "err";
}
}
else
{
$dat=array();
$dat[status]="err";
}
$co = array('[status]','[dj]','[gg]','[genre]','[ile]','[max]','[peak]');
$naco = array($dat[status],$dat[dj],$dat[gg],$dat[genre],$dat[ile],$dat[max],$dat[peak]);
$sc[template] = str_replace($co,$naco,$sc[template]);
echo $sc[template];
?>
</font>
</body>
</html><BR>
<a href=http://server2.xpx.pl:9194/listen.pls>
<b>Kliknij by posluchac</b></a></center><br><br>
|
Fajne Traczu, ale proszê u¿ywaæ znaczników code. Ok?.
Joomla! [ 1.0.11 Stable ]
strona na serwerze wewnêtrznym brak mo¿liwo¶ci opublikowania
|
|
|
Temat zosta³ zablokowany. |
Krzysztof Stachyra (Administrator Forum)
Administrator Forum
Posty: 697
|
Odp:[ Modu³ ] Statysyki radia internetowego 2007/07/11 18:50 |
Oklaski: 88   |
Cze¶æ. Je¶li Ty jeste¶ autorem tego skryptu, to ok. Je¶li nie, to proszê Ciê o podanie ¼ród³a, bo mo¿esz byæ oskar¿ony o plagiat. A byków w kodzie co nie miara: 1 - Skrypt powinien siê zaczynaæ od znacznika <?php, bo tego wymaga PHP 5. I ka¿de nastêpne rozpoczêcie kodu PHP wewn±trz HTML. 2 - Znacznik <center> jest ju¿ prawie zapomniany. Nale¿y go zast±piæ np. divem, lub stylami. 3 - B³±d w kodzie PHP wewn±trz kodu HTML: Kod: |
<META HTTP-EQUIV="Refresh" CONTENT="<?php echo $sc[czas]?>; URL=">
|
Ale co siê bêdê rozdrabnia³. Masz poni¿ej poprawny kod. Czy zadzia³a, to ju¿ Ty wiesz:
Kod: |
<?php
$sc[czas] = 180;
$sc[host] = "server2.xpx.pl";
$sc[port] = 9000;
$sc[template] = "Zasilanie:<b> [status]</b><br />Stacja :<b>[dj]</b><br />Prowadzi:<b> [genre] </b><br />Gra od/do:<
b>
[gg]</b><br />Slucha :<b> [ile] osób</b><br />";
/***************************************************************
$sc[template] = "<b>Status (on/off/err) :</b> [status]<br />
<b>GG DJ-a:</b> [gg]<br><b>Dj:</b>[genre]<br />
<b>Ilu sluchaczy aktualnie/maksymalnie/peak:</b> [ile]/[max]/[peak]<br />";
/***************************************************************/
?>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-2">
<META HTTP-EQUIV="Refresh" CONTENT="<?php echo $sc[czas]?>; URL=" >
</head>
<body>
<div style="font-family: Arial, Helvetica, Verdana, sans-serif; font-size: 9pt; color:black;"
align="center">
<?php
if($fp = fsockopen($sc[host], $sc[port]))
{
fputs($fp,"GET /index.html HTTP/1.0\r\nUser-Agent: XML Getter (Mozilla Compatible)\r\n\
r\n"«»);
fgets($fp);fgets($fp);fgets($fp);
while(!feof($fp)) $in.=strip_tags(fgets($fp));
fclose($fp);
# echo $in;
// [status]
$m[0]="Server is currently";
$m[1]="";
$mp[0]=strpos($in,$m[0]);
$mp[1]=@strpos($in,$m[1]);
$ml[0]=strlen($m[0]);
$ml[1]=strlen($m[1]);
$tmp[1]=explode( " " , trim( substr( $in , $mp[0] + $ml[0] , 5 ) ) );
if( $tmp[1][0] == "up" )
$dat[status] = "on";
elseif( $tmp[1][0] == "down" )
$dat[status] = "off";
else
$dat[status] = "err";
if($dat[status]=="on"«»)
{
// [dj]
$m[0]="Stream Title:";
$m[1]="Content Type:";
$mp[0]=strpos($in,$m[0]);
$mp[1]=strpos($in,$m[1]);
$ml[0]=strlen($m[0]);
$ml[1]=strlen($m[1]);
$tmp[1]=trim( substr( $in , $mp[0] + $ml[0] , $mp[1]-$mp[0]-$ml[1] ) );
if( $tmp[1] ) $dat[dj] = $tmp[1];
else $dat[dj] = "err";
// [gg]
$m[0]="Stream AIM:";
$m[1]="Stream IRC:";
$mp[0]=strpos($in,$m[0]);
$mp[1]=strpos($in,$m[1]);
$ml[0]=strlen($m[0]);
$ml[1]=strlen($m[1]);
$tmp[1]=trim( substr( $in , $mp[0] + $ml[0] , $mp[1]-$mp[0]-$ml[1] ) );
if( $tmp[1] ) $dat[gg] = $tmp[1];
else $dat[gg] = "err";
// [genre]
$m[0]="Stream Genre:";
$m[1]="Stream URL:";
$mp[0]=strpos($in,$m[0]);
$mp[1]=strpos($in,$m[1]);
$ml[0]=strlen($m[0]);
$ml[1]=strlen($m[1]);
$tmp[1]=trim( substr( $in , $mp[0] + $ml[0] , $mp[1]-$mp[0]-$ml[1]-2 ) );
if( $tmp[1] ) $dat[genre] = $tmp[1];
else $dat[genre] = "err";
// [ile]
$m[0]="kbps with";
$m[1]="listeners";
$mp[0]=strpos($in,$m[0]);
$mp[1]=strpos($in,$m[1]);
$ml[0]=strlen($m[0]);
$ml[1]=strlen($m[1]);
$tmp[1]=explode( " " , trim( substr( $in , $mp[0] + $ml[0] , $mp[1]-$mp[0]-$ml[1]-2 ) ) );
if( $tmp[1] ) $dat[ile] = $tmp[1][0];
else $dat[ile] = "err";
// [max]
$m[0]="kbps with";
$m[1]="listeners";
$mp[0]=strpos($in,$m[0]);
$mp[1]=strpos($in,$m[1]);
$ml[0]=strlen($m[0]);
$ml[1]=strlen($m[1]);
$tmp[1]=explode( " " , trim( substr( $in , $mp[0] + $ml[0] , $mp[1]-$mp[0]-$ml[1]-2 ) ) );
if( $tmp[1] ) $dat[max] = $tmp[1][2];
else $dat[max] = "err";
// [peak]
$m[0]="Listener Peak:";
$m[1]="Average";
$mp[0]=strpos($in,$m[0]);
$mp[1]=strpos($in,$m[1]);
$ml[0]=strlen($m[0]);
$ml[1]=strlen($m[1]);
$tmp[1]=trim( substr( $in , $mp[0] + $ml[0] , $mp[1]-$mp[0]-$ml[1]-7) );
if( $tmp[1] ) $dat[peak] = $tmp[1];
else $dat[peak] = "err";
}
}
else
{
$dat=array();
$dat[status]="err";
}
$co = array('[status]','[dj]','[gg]','[genre]','[ile]','[max]','[peak]');
$naco = array($dat[status],$dat[dj],$dat[gg],$dat[genre],$dat[ile],$dat[max],$dat[peak])
;
$sc[template] = str_replace($co,$naco,$sc[template]);
echo $sc[template];
?>
<a href="http://server2.xpx.pl:9194/listen.pls"><b>Kliknij by posluchac</b></a>
</div>
</body>
</html>
|
To narka. Wybacz ¿e poprawi³em kod, ale po to tu chyba jestem. I dziêki za inicjatywê. Pozdrofki. Jokris.
|
|
|
Temat zosta³ zablokowany. |
traczu (U¿ytkownik)
Prawie Moderator
Posty: 147
|
Odp:[ Modu³ ] Statysyki radia internetowego 2007/07/13 22:22 |
Oklaski: 26   |
ka¿dy do³o¿y co¶ od siebie i bêdzie dobrze po to jest forum ¿eby co¶ razem tworzyæ przecie¿ jeste¶my spo³eczno¶ci± JOOMLA ;D
Joomla! [ 1.0.11 Stable ]
strona na serwerze wewnêtrznym brak mo¿liwo¶ci opublikowania
|
|
|
Temat zosta³ zablokowany. |
karolrz (U¿ytkownik)
Pomocny
Posty: 31
|
Odp:[ Modu³ ] Statysyki radia internetowego 2007/11/25 15:22 |
Oklaski: 1   |
Mo¿e temat stary ale do³o¿ê swoje 2 grosze jak znajdê komponent to podam tu link i przet³umacze go bo wiem ¿e jest komponent i modu³ do statystyk radiowych Pozdrawiam
|
|
|
Temat zosta³ zablokowany. |
traczu (U¿ytkownik)
Prawie Moderator
Posty: 147
|
Odp:[ Modu³ ] Statysyki radia internetowego 2007/11/25 20:09 |
Oklaski: 26   |
super czekam z niecierpliwo¶ci± bo ten skrypt co¶ mi nie bardzo wyszed³
Joomla! [ 1.0.11 Stable ]
strona na serwerze wewnêtrznym brak mo¿liwo¶ci opublikowania
|
|
|
Temat zosta³ zablokowany. |
karolrz (U¿ytkownik)
Pomocny
Posty: 31
|
Odp:[ Modu³ ] Statysyki radia internetowego 2007/12/29 20:35 |
Oklaski: 1   |
aktualnie robie spolszczenie.. moze dzis jeszcze wrzuce go
|
|
|
Temat zosta³ zablokowany. |
|
|
|
|
|
|
Strony zaprzyja¼nione z serwisem JOKRIS.INFO - Rozszerzenia, dodatki do Joomla! i Mambo oraz partnerskie
|
|
|
|
|
|
|
|