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ų: 265
Prisijungusių narių: 0
Prisijungusių narių nėra

Registruoti nariai: 25,956
Naujausias narys: saulyzas

Naujausi straipsniai

Įprasti:

Skirti naujokams:

Paskutiniai nariai

MaFetas 2 savaitės
ozzWANTED 3 savaitės
saulyzas 5 savaitės
TOMIJUS 6 savaitės
Reikalas15 savaitės
Jaunelis21 savaitės
lanis22 savaitės
And2s22 savaitės
Memento Mori27 savaitės
Quwqkibor30 savaitės
asirija34 savaitės
tomeem36 savaitės
weberiz39 savaitės
mRokass41 savaitės
kartoonas42 savaitės
grunskiz45 savaitės
Bruksnys46 savaitės
illusion46 savaitės
ordo47 savaitės
Jurgaila47 savaitės

Informacija:


OS: Unknown
Naršyklė: Nežinoma
IP: 3.12.73.221
Naujienų: 529
Straipsnių: 235
Temų: 52,588
Postų: 522,537
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.

ozzWANTED
2024 Lap. 30 15:11:14
Taip, vis dar up šypsosi

MaFetas
2024 Lap. 13 22:11:57
hey how, geras dar veikiantis saitas?

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

Š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
radio+info+foto skriptas
Forumas | Modai, įskiepiai, panelės (PHP-FUSION) | Mods, Panels & Infusions
Autorius: Bronas Peržiūrų: 1076      Spausdinti temą
2008 Bal. 6 11:04:58          1 žinutė iš 2
Spausdinti pranešimą
openside("Eteryje");

error_reporting(0);
$scdef = "Serversi neveikia";               // Default station name to display when server or stream is down
$scip = "78.61.82.94"; // ip or url of shoutcast server (DO NOT ADD HTTP:// don't include the port)
$scport = "8000";                   // port of shoutcast server
$scpass = "bronius";                 // 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.' is Offline';
 }
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("</$loop[$y]>.*", "", $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.'<br>';
  $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));
//end song info

fclose($scfp);
}

//display stats
if($streamstatus == "1"){
switch ($aim) {
    case 'WiNALL': $aimlogo = "Serveris"; break;
 case 'Serveris': $aimlogo = "Serveris"; break;
 case 'Minix': $aimlogo = "Dj-bronius"; break;
 default:  $aimlogo = "dj";
}
$_SESSION['djus'] = $aim;
echo'<div align="center">
 <table cellpadding="0" cellspacing="0" width="1">
  <!-- MSTaašype="nolayout" -->
  <tr>
   <td height="36" bgcolor="">
   <p align="center">
   <a href="listen.m3u"><img border="0" src="radio/dj/'.$aimlogo.'.jpg" width="140" heigth="100"></a></td>
  </tr>
  <tr>
   <td height="17" valign="bottom" bgcolor="">
   <div align="center">
    <table cellpadding="0" cellspacing="0" width="111">
     <tr>
   <td height="17">
   <p align="center">
   <font face="Tahoma" style="font-size: 8pt" color="#3E1710"><b>Eteryje:</b></font>
   <font face="Tahoma" style="font-size: 8pt" color="#000000">'.$aim.'</font></td>
  </tr>
  <tr>
   <td height="17">
   <p align="center">
   <font face="Tahoma" style="font-size: 8pt" color="#3E1710"><b>Groja:</b></font>
   <font face="Arial" style="font-size: 7pt" color="#000000">'.$daina.'</font></td>

  </tr>
  </tr>
  </table>
                 </div>
   </td>
  </tr>
  <tr>
   <td>
   </td>
  </tr>
 </table>
</div>';
}
if($streamstatus == "0")
{
echo'<font size="2" face="tahoma" color="#6C6D7B">Šiuo metu radija yra išjungta.</font>';
}
closeside();








Kaip sita skripta nusitatyt kad jis rodytu dj ir jo foto ir kad keistusi automatiskai dj ir jo foto?
2008 Bal. 12 12:04:02          2 žinutė iš 2
Spausdinti pranešimą
kaip ji reikia ikisti i headeri?drovus
Peršokti į forumą: