Версия для печати темы

fputs($fp,"GET /status2.xsl?mount=/$serverpoint HTTP/1.0\r\nUser-Agent: Icecast2 XSL Parser (Mozilla Compatible)\r\n\r\n"); //get status2.xsl
while(!feof($fp)) {
  $page .= fgets($fp, 1000);
}
fclose($fp); //close connection

$numbers = explode(",",$page); //начала проверки пунктов
$mount = $numbers[0];
$connections = $numbers[1];
$stream_n = $numbers[2];
$listeners = $numbers[3];
$desc = $numbers[4];
$cur_song = $numbers[5];
$str_url = $numbers[6];
$client_info = $numbers[7];
$test1 = $numbers[8];   //Не понял что это
$mount = $numbers[11];
$connections = $numbers[12];
$station =$numbers[13];
$listeners = $numbers[14];
$description = $numbers[15];
$cur_song = $numbers[16];
$www_url  = $numbers[17];
$listfake = $listeners + $random;

Core.SendToAll(sBot..""..iListeners.." человек сейчас слушают на "..sServer.." [ "..sSendUrl.." ] "..sWeListen)

Core.SendToAll(sBot.."На "..sServer.." [ "..sSendUrl.." ] сейчас играет: "..sWeListen)

----------------------------------------------------------------------------------------------------
-- Конфиг скрипта:
----------------------------------------------------------------------------------------------------

-- Таймаут подключения к серверу (время на ожидание),
-- столько может висеть скрипт при запросе баланса, в секундах:
iScriptTimeout = 1

-- Отсылать ли в чат информацию по таймеру:
bSendDataOnTimer = true

-- Интервал для отправки сообщений о сервере в чат, в секундах:
iTimerInterval = 30

-- Отправлять ли в чат сообщения если получить информацию не удалось:
bSendBadMsg = false

-- Наша страница в UTF-8:
bUTF = true

-- Параметры подключения:
ip = "94.232.9.212"
port = "8000"
mount = "nonstop"

-- Команда для вывода в чат сообщения:
sSendCmd = "showradio"

-- Путь в меню для команды:
sMenuWay = "Показать информацию о радио"

-- Кому разрешено пользоваться командой:
tAllowCmd = {
[0] = true,
[1] = true,
[2] = true,
[3] = true,
[-1] = false,
}

-- Посылать информацию в ЛС (true) или чат (false):
bSendOnCmdToPm = false