Paieška

zlotas (2010-04-07 20:19:02 ) :: 5 grojusios dainos internetinėm radijom

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
<?php

///////////////////////////////////////////////
nezinau ar reiks ar nereiks bet vat suradau internete...
//////////////////////////////////////////////////
error_reporting(0);
$scdef "Grojarascio nera";               // Kai serveris isjungtas rodo
$scip "Serverio IP"// shoutcast serverio IP be porto
$scport "Serverio Port";                   // shoutcast serverio portas
$scpass "Serverio Pass";                 // shoutcast serverio pasvordas
$maxusers "50"//Kiek vienu sykiu klausosi zmoniu
//End configuration
error_reporting(0);
$scsuccs NULL;
$page NULL;
$scfp fsockopen("$scip"$scport, &$errno, &$errstr01);
 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($scfp1000);
 }
#############Pagamino Dj_Dede, www.upofm.wu.lt##...
#####################konfiguracija 01#####################
 
$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("</$loop[$y]>.*"""$pageed);
  if ((
$loop[$y] == "SERVERGENRE") || ($loop[$y] == "SERVERTITLE") || ($loop[$y] == "SONGTITLE") || ($loop[$y] == "SERVERTITLE") || ($loop[$y] == "AIM"))
   $
$scphp urldecode($$scphp);

// echo'$'.$scphp.' = '.$$scphp.'<br>';
  
$y++;
 }
#####################///konfiguracija 02#####################
 
$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++;
 }
 
$Grojo str_replace('_',' ',substr ($song[1],0,200));
 
$Grojo2 str_replace('_',' ',substr ($song[2],0,200));
 
$Grojo3 str_replace('_',' ',substr ($song[3],0,200));
 
$Grojo4 str_replace('_',' ',substr ($song[4],0,200));
 
$Grojo5 str_replace('_',' ',substr ($song[5],0,200));
//end song info

fclose($scfp);
}
#####################//Muzikos rikevimas#####################
if($streamstatus == "1"){
$_SESSION['songtitle'] = $song;
echo
'<div align="left">
 <table cellpadding="0" cellspacing="0" width="1">
  <!-- MSTableType="nolayout" -->
<font face="Tahoma" style="font-size: 8pt" color="#3E1710"><b>1.</b></font>
   <font face="Tahoma" style="font-size: 8pt" color="#000000">'
.$Grojo.'</font></td>
<br>
<font face="Tahoma" style="font-size: 8pt" color="#3E1710"><b>2.</b></font>
   <font face="Tahoma" style="font-size: 8pt" color="#000000">'
.$Grojo2.'</font></td>
<br>
<font face="Tahoma" style="font-size: 8pt" color="#3E1710"><b>3.</b></font>
   <font face="Tahoma" style="font-size: 8pt" color="#000000">'
.$Grojo3.'</font></td>
<br>
<font face="Tahoma" style="font-size: 8pt" color="#3E1710"><b>4.</b></font>
   <font face="Tahoma" style="font-size: 8pt" color="#000000">'
.$Grojo4.'</font></td>
<br>
<font face="Tahoma" style="font-size: 8pt" color="#3E1710"><b>5.</b></font>
   <font face="Tahoma" style="font-size: 8pt" color="#000000">'
.$Grojo5.'</font></td>
 </table>'
;
}
?>

Rašyti komentarą

Prašome prisijungti!

Komentarai

# zlotas (2012-02-03 18:39:55 )
avataras
čia kodas jį galima naudoti visur, jei pvz puslapyje tai susikuri naują .php failą įterpi šį kodą įkeli į puslapiai direktoriją ir įjungi per administraciją :)
#
Mantas
(2012-02-03 18:10:11 )

avataras
o kur jos kelti?
# Gedas (2011-12-12 11:29:13 )
avataras
nea neiviekia :/
# zlotas (2011-08-01 10:57:32 )
avataras
O bandei? gal šis veikia?
# Gedas (2011-07-31 14:24:48 )
avataras
būtų gerai toks ant ice casto :p
# zlotas (2010-04-08 12:41:26 )
avataras
dekui.
# zlotas (2010-04-07 20:20:23 )
avataras
ot žodžiu... girtiem ne prie Pc, tk kad aš negirtas o_0 parašykit pavadinimą: 5grojusios dainos internetinėm radijom