Navigacija

Vartotojų tinkle

Prisijungusių svečių: 233
Prisijungusių narių: 0
Prisijungusių narių nėra

Registruoti nariai: 25,956
Naujausias narys: saulyzas

Naujausi straipsniai

Paskutiniai nariai

Reikalas 1 savaitė
MaFetas 4 savaitės
ozzWANTED 5 savaitės
saulyzas 7 savaitės
TOMIJUS 8 savaitės
Jaunelis23 savaitės
lanis24 savaitės
And2s24 savaitės
Memento Mori29 savaitės
Quwqkibor32 savaitės
asirija36 savaitės
tomeem38 savaitės
weberiz41 savaitės
mRokass43 savaitės
kartoonas44 savaitės
grunskiz47 savaitės
Bruksnys48 savaitės
illusion48 savaitės
ordo49 savaitės
Jurgaila50 savaitės

Informacija:


OS: Unknown
Naršyklė: Nežinoma
IP: 18.117.192.205
Naujienų: 529
Straipsnių: 235
Temų: 52,589
Postų: 522,538
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
Reikia pagalbos prapleciant teksta
Forumas | PHP-Fusion, WordPress, Shopify, PHP ir MySQL (PROGRAMAVIMAS) | Žaliems

Autorius: T-Boy Peržiūrų: 678      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ą: