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

Registruoti nariai: 25,953
Naujausias narys: Quwqkibor

Naujausi straipsniai

Įprasti:

Skirti naujokams:

Paskutiniai nariai

Quwqkibor 4 dienos
asirija 4 savaitės
tomeem 6 savaitės
Reikalas 7 savaitės
weberiz 9 savaitės
mRokass12 savaitės
kartoonas13 savaitės
iaescortsmap13 savaitės
ozzWANTED14 savaitės
grunskiz16 savaitės
Bruksnys16 savaitės
illusion16 savaitės
ordo17 savaitės
Jurgaila18 savaitės
originalcs1618 savaitės
Rytis19 savaitės
halis20 savaitės
junkus23 savaitės
morlis23 savaitės
Majakas24 savaitės

Informacija:


OS: Unknown
Naršyklė: Nežinoma
IP: 18.218.225.112
Naujienų: 529
Straipsnių: 235
Temų: 52,585
Postų: 522,523
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 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?

Apocal
2023 Rugs. 2 18:09:23
Nu davai nuveikiam kažką akinanti šypsen. Prisijungti kada visi čia akinanti šypsen.

Apocal
2023 Rugs. 2 00:09:18
Šiaip atėjau pažiūrėti ar dar lopas nesby yra ar koks ten buvo.

Š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
Reikia pagalbos prapleciant teksta
Forumas | PHP-Fusion, WordPress, Shopify, PHP ir MySQL (PROGRAMAVIMAS) | Žaliems
Autorius: T-Boy Peržiūrų: 636      Spausdinti temą
2010 Bal. 29 17:04:57          1 žinutė iš 3
Spausdinti pranešimą
Jei galit pakeiskit, kad eilutes butu ilgesnes, o ne trumputes, kad persikelinetu tekstas i kita eilute kas 10 raide.
<?php
error_reporting(0);
$scdef = "Grojarascio nera"; // Kai serveris isjungtas rodo
$scip = ""; // shoutcast serverio IP be porto
$scport = ""; // shoutcast serverio portas
$scpass = ""; // shoutcast serverio pasvordas
$maxusers = "100"; //Kiek vienu sykiu klausosi zmoniu
//End configuration
error_reporting(0);
$scsuccs = NULL;
$page = NULL;
$scfp = fsockopen("$scip", $scport, &$errno, &$errstr, 01);
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, 5000);
}
#############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: 9pt" color="#3E1710"><b>1.</b></font>
<font face="Tahoma" style="font-size: 9pt" color="#000000">'.$Grojo.'</font></td>
<br>
<font face="Tahoma" style="font-size: 9pt" color="#3E1710"><b>2.</b></font>
<font face="Tahoma" style="font-size: 9pt" color="#000000">'.$Grojo2.'</font></td>
<br>
<font face="Tahoma" style="font-size: 9pt" color="#3E1710"><b>3.</b></font>
<font face="Tahoma" style="font-size: 9pt" color="#000000">'.$Grojo3.'</font></td>
<br>
<font face="Tahoma" style="font-size: 9pt" color="#3E1710"><b>4.</b></font>
<font face="Tahoma" style="font-size: 9pt" color="#000000">'.$Grojo4.'</font></td>
<br>
<font face="Tahoma" style="font-size: 9pt" color="#3E1710"><b>5.</b></font>
<font face="Tahoma" style="font-size: 9pt" color="#000000">'.$Grojo5.'</font></td>
</table>';
}
?>
2010 Bal. 29 17:04:33          2 žinutė iš 3
Spausdinti pranešimą
O kas kiek dabar perkėlinėja?
www.creatium.lt
2010 Bal. 29 20:04:11          3 žinutė iš 3
Spausdinti pranešimą
Parasai 10 raidziu ir visos kitos raides vel rasomos is naujos eilutes.
Peršokti į forumą: