Pagalbos dėl eterio panelės

Labas draugai, man reikia kažkur pakeist kažką, kad penelė imtų pavadinimą laidos ne iš AIM, o kad imtų iš #ICQ :)

Ačiū, tiem kas padės.

<?php

$adresas = "xxxxxxxxx"; // Serverio adresas (IP)
$portas = "xxxx"; // Serverio Portas

// Stilius galite redaguoti naudodamiesi betkokiais html tag'ais
// Demesio: Vietoje " (dvigubu kabuciu) naudokit ' (viengubas) taip isvengsite error'u
// Gautos informacijos rodymo stilius
$stilius = "<span style='font-size:14px; padding-left:3px; margin-top:-2px;font-weight:bold; font-family:Trebuchet MS;text-shadow:#000000 1px 1px 0px; color:#efefef;'>

<span style='text-transform:uppercase;color:#0ab2ff;'>Laida:</span> %dj</span>";

// Ka rodys jeigu serveris isjungtas
$stilius_off = "Serveris nedirba";

// Neredaguoti zemiau esanciu kodu //
$sludm1435 = stream_context_create(
array(
'http'=>array(
'method'=>"GET",
'header'=>"GET /index.html HTTP/1.0\r\n".
"Cookie: foo=bar\r\n".
"Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash\r\n".
"Accept-Language: pl,en-us;q=0.5\r\n".
"Accept-Encoding: gzip, deflate\r\n".
"User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0; .NET CLR 1.0.3705)\r\n".
"Host: seb.sleepbot.com\r\n".
"Connection: Closed\r\n",
'timeout'=>"1"
)
)
);
$sludm1362 = @file_get_contents('http://'.$adresas.':'.$portas.'/', 0, $sludm1435);
if(!$sludm1362) {
echo $stilius_off;
} else {
$sludm1745 = strpos($sludm1362, "kbps with <B>")+13;
$sludm1244 = strpos($sludm1362, " listeners")-$sludm1745;
$sludm = explode(" of ", substr($sludm1362, $sludm1745, $sludm1244));
$stilius = @str_replace("%klauso", $sludm[0], $stilius);
$stilius = @str_replace("%viso", $sludm[1], $stilius);
$sludm1745 = strpos($sludm1362, "Stream ICQ:")+105;
$sludm1244 = strpos($sludm1362, "Stream AIM:")-$sludm1745-63;
$sludm = explode('">', substr($sludm1362, $sludm1745, $sludm1244));
$stilius = @str_replace("%laida", $sludm[1], $stilius);
$sludm1745 = strpos($sludm1362, "Stream AIM:")+80;
$sludm1244 = strpos($sludm1362, "Stream IRC:")-$sludm1745-63;
$sludm = explode('">', substr($sludm1362, $sludm1745, $sludm1244));
$stilius = @str_replace("%dj", $sludm[1], $stilius);
$sludm1745 = strpos($sludm1362, "Current Song:")+53;
$sludm1244 = strpos($sludm1362, "Written by Stephen")-$sludm1745-205;
$stilius = @str_replace("%daina", substr($sludm1362, $sludm1745, $sludm1244), $stilius);
echo $stilius;
}

?>

:)