Скрипты для Icecast

<?php
set_time_limit(10); //если за 10 секунд скрипт не завершится, то будет прекращен принудительно
require('Scrobbler.php'); //php-скробблер
$xml[1] = "http://ourdomain:port/live.xspf";
$xml[2] = "http://ourdomain:port/fallback1.xspf";
$xml[3] = "http://ourdomain:port/fallback2.xspf";
//маунты, которые собираемся скробблить, по порядку - от верхнего к фоллбекам

//парсим по очереди все маунты, пока не дойдем до последнего.
$i = 1;
$stream['descr'] = '';
while($stream['descr'] =='')
{
$xml1 = simplexml_load_file($xml[$i]);
//обращение к xspf файлу текущего потока
$stream['creator'] = $xml1->trackList->track->creator;
//выбираем значение из <trackList><track><creator> - исполнитель
$stream['title'] = $xml1->trackList->track->title;
//выбираем значение из <trackList><track><title> - название трека
$ano = $xml1->trackList->track->annotation;
//выбираем значение из <trackList><track><annotation>
$mss=explode("\n", $ano);
//разбиваем знаечение на масив (т.к. там много чего а нам надо тока строку "Stream Description")
$stream['descr']=substr($mss[1],20);
$i ++;
if ($i>3) break; //цифра - количество наших маунтов минус один. если нужно парсить только первые два или один,
//то вместо "3" пишем соответственно "2" или "1"
}

//читаем данные о исполнителе и песне из last.xml
$lastfm = "http://ourdomain/last.xml"; //last.xml - файл, куда записывается текущая песня
$lastxml = simplexml_load_file($lastfm);
$last['creator'] = $lastxml->creator;
$last['title'] = $lastxml->title;
if ((strcmp ($last['title'], $stream['title'])) != 0 or (strcmp ($last['creator'], $stream['creator'])) != 0)
//сравниваем данные last.xml с только что полученными данными. если отличается, то:
{
//отправляем новые значения на last.fm
$scrobbler = new md_Scrobbler('lastfm_user', 'lasfm_password'); //наш логин и пароль от last.fm
$scrobbler->add($stream['creator'], $stream['title'], '', 6000);
$scrobbler->submit();
//и записываем их в last.xml
$stream['creator'] = htmlspecialchars($stream['creator'], ENT_NOQUOTES);
$stream['title'] = htmlspecialchars($stream['title'], ENT_NOQUOTES);
$txtout="<?xml version='1.0' encoding='UTF-8'?>\r\n<last>\r\n<creator>".$stream['creator']."</creator>\r\n<title>".$stream['title']."</title>\r\n</last>";
$fp = fopen ("/home/user/domains/domains/public_html/last.xml", "w");
//путь к файлу last.xml можно прописать как локальный, так и http://
fclose($fp);
}
?>

<?php

//1 Сервер

$ip = ""; //ваш ай пи или домен
$port = ""; //ваш порт
$ice2_station = ""; // название вашей станции

$fp = fsockopen( "$ip", $port, &$errno, &$errstr, 3); //open connection
if(!$fp) {
$success=2; //set if no connection

echo'<table width="100%">
<tr align="center">
<td width="100%" >
<font face="Arial" size="2" color="#FF0000"><strong>Cервер '.$ice2_station.' не работает!</strong></font></b></td>
</tr>
</table>';
}

if($success!=2){ //if connection
fputs($fp,"GET /status2.xsl?mount=/live 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
$page = ereg_replace(".*<pre>", "", $page); //extract data
$page = ereg_replace("</pre>.*", ",", $page); //extract data

$numbers = explode(",",$page); //bomb it and extract data


$listeners = $numbers[1];
$listeners = $numbers[14];

}


?>
<?php

//2 Сервер

$ip = ""; //ваш ай пи или домен
$port = ""; //ваш порт
$ice2_station = ""; // название вашей станции

$fp = fsockopen( "$ip", $port, &$errno, &$errstr, 3); //open connection
if(!$fp) {
$success=2; //set if no connection

echo'<table width="100%">
<tr align="center">
<td width="100%" >
<font face="Arial" size="2" color="#FF0000"><strong>Cервер '.$ice2_station.' не работает!</strong></font></b></td>
</tr>
</table>';
}

if($success!=2){ //if connection
fputs($fp,"GET /status2.xsl?mount=/live 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
$page = ereg_replace(".*<pre>", "", $page); //extract data
$page = ereg_replace("</pre>.*", ",", $page); //extract data

$numbers = explode(",",$page); //bomb it and extract data


$listeners2 = $numbers[1];
$listeners2 = $numbers[14];

}


?>
<?php

//3 Сервер

$ip = ""; //ваш ай пи или домен
$port = ""; //ваш порт
$ice2_station = ""; // название вашей станции

$fp = fsockopen( "$ip", $port, &$errno, &$errstr, 3); //open connection
if(!$fp) {
$success=2; //set if no connection

echo'<table width="100%">
<tr align="center">
<td width="100%" >
<font face="Arial" size="2" color="#FF0000"><strong>Cервер '.$ice2_station.' не работает!</strong></font></b></td>
</tr>
</table>';
}

if($success!=2){ //if connection
fputs($fp,"GET /status2.xsl?mount=/live 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
$page = ereg_replace(".*<pre>", "", $page); //extract data
$page = ereg_replace("</pre>.*", ",", $page); //extract data

$numbers = explode(",",$page); //bomb it and extract data


$listeners3 = $numbers[1];
$listeners3 = $numbers[14];

}


?>

<?

$pog=($listeners+$listeners2+$listeners3);

echo'
<table width="100%" style="border-collapse: collapse" cellpadding="0" cellspacing="0">

<tr>
<td width="100%" align="center" ><b><font face="Arial" size="2">

<p align="left">В данный момент нас слушает '.$pog.' человек.(не включая ретрасляторы)</font></b></td></p>
</tr>

</table>';


?>

//данные для парсинга плейлистов для получения текущего исполнителя и песни и описания потока
//записываем их в таком порядке: сперва прямой эфир, потом фоллбэки
//можно написать их здесь сколько угодно
$xml[0] = "**********";
$xml[1] = "**********";
$xml[2] = "**********";

//считаем сколько у нас маунтов с которых берем теги
$xmls = count($xml);

}

include "max.php"; //для отображения пикового значения слушателей
if ($listens>$max)
{
$txtout="<?php\r\n".'$max='.$listens. ";\r\n?>";
$fp = fopen ("max.php", "w");
fwrite($fp,$txtout);
fclose($fp);
$max=$listens;
}

<?php
//данные для парсинга слушателей всех маунтов
//можно написать их здесь сколько угодно
$mount[0] = 'http://stream2..ru:8000/status2.xsl?mount=/radio';
$mount[1] = 'http://stream2..ru:8000/status2.xsl?mount=/r';
$mount[2] = 'http://94.73..:8000/status2.xsl?mount=/r';

//считаем сколько у нас маунтов с которых считаем слушателей
$mounts = count($mount);

//считаем всех слушателей
$i = 0;
while($i<$mounts)
{
$text= file_get_contents($mount[$i]);
$mass=explode(",", $text);
$listens += $mass [14];
$i ++;
}


include "max.php"; //для отображения пикового значения слушателей
if ($listens>$max)
{
$txtout="<?php\r\n".'$max='.$listens. ";\r\n?>";
$fp = fopen ("max.php", "w");
fwrite($fp,$txtout);
fclose($fp);
$max=$listens;
}

// echo $stream['creator'] . " - "; // вывод имени исполнителя
// echo $stream['title'] . "<br>"; //вывод названия песни
echo "Слушателей: ".$listens . "<br>"; //вывод кол-ва слушателей
echo "Max listens: ".$max . "<br>"; //вывод пикового к-ва слушателей, раскомментировать, если нужен
// echo $stream['descr'] . "<br>"; //вывод описания текущего потока
?>