576

Re: Скрипты для Icecast

<?php
error_reporting(0);
header("Content-Type: text/html; charset=cp1251");
$file_name="http://91.228.152.154:8000/status.xsl?mount=/live";
$r=fopen($file_name,'r');
$text=fread($r,10000);
fclose($r);
$mas=explode('<tr>', $text);
$name = explode(':', $mas[3]);
$q = explode ('</td>',$name[1]);
$q2 = explode ('<td class="streamdata">',$q[1]);
$rj = $q2[1];

if($rj == "0" or $rj == ""){
echo " Nonstop"; 
}else
{
$fl = file_get_contents('http://91.228.152.154:8000/status.xsl?mount=/live');
function antara($string, $start, $end){
$string = " ".$string;
$ini = strpos($string,$start);
if ($ini == 0) return "";
$ini += strlen($start);
$len = strpos($string,$end,$ini) - $ini;
return substr($string,$ini,$len);
}
$stream = antara($fl,"<td>Stream Title:</td>\n<td class=\"streamdata\">","</td>");

$description = antara($fl, "<td>Stream Description:</td>\n<td class=\"streamdata\">", "</td>");

$listeners = antara($fl, "<td>Current Listeners:</td>\n<td class=\"streamdata\">", "</td>");

$max = antara($fl, "<td>Peak Listeners:</td>\n<td class=\"streamdata\">", "</td>");

$song = antara($fl, "<td>Current Song:</td>\n<td class=\"streamdata\">", "</td>");

switch ($stream) {


case "gccvhvhgv":
echo "<img src='http://dfm.ru/upload/contents/406/logo_bomb.gif' wight=100%>";
break;




}
echo "";
}

?>

 

    <p class="ttl"><a title="Команда Радио" href="/dj"><? echo $stream ?></a></p>

    <div class="audio">

        <div>

            <strong><? echo $song ?></em></strong>

        </div>

    </div>

Имеется такой код. Текущий трек показывает, то когда русские буквы то выходят крокозябры. В Icecast вмаунт добавлена кодировка cp1251 может как-то в самом файлике кодировку прописать?
Подскажите если не трудно. Читал всю ветку, не нашел

Отредактировано Апекс (28-10-2011 20:19:38)

577

Re: Скрипты для Icecast

http://www.php.su/functions/?iconv
iconv -- Преобразовывает символы строки в другую кодировку
Описание

string iconv ( string in_charset, string out_charset, string str )


Производит преобразование кодировки символов строки str из начальной кодировки in_charset в конечную out_charset. Возвращает строку в новой кодировке, или FALSE в случае ошибки.

http://radioheart.ru/banners/radioheart_400x40_banner.jpg
RadioHeart.ru: Функциональный радио хостинг с автодиджеем и нонстопом, а так же быстрый виртуальный хостинг. Возможность создать радио за 5 минут, подключить автодиджей и нонстоп.
Отзывы о хостинге

578

Re: Скрипты для Icecast

Благодарю, помогло smile))))

579

Re: Скрипты для Icecast

Можно ли настроить ices чтобы он постоянно обновлял playlist.txt, тоесть чтобы треки можно было менять местами...

580

Re: Скрипты для Icecast

лучше в таком случае использовать плейлист на модуле perl или python

581

Re: Скрипты для Icecast

Подскажи пожалуйста подробнее что надо сделать, как модуль подключить и откуда плейлист взять? В данный момент у меня стоит связка ices+icecast2

582

Re: Скрипты для Icecast

убедиться что ices собран с perl например, потом в конфиге builtin поменять на perl дальше редактировать скрипт /usr/local/etc/modules/ices.pm.dist и сохранить его с именем /usr/local/etc/modules/ices.pm  (без .dist)
а чтоб читал плейлист при каждой загрузке трека скрипт на форуме кто-то уже делал

Отредактировано tarasian666 (09-01-2012 14:00:43)

583

Re: Скрипты для Icecast

Все понятно только кроме 

пишет tarasian666:

убедиться что ices собран с perl например

и

пишет tarasian666:

а чтоб читал плейлист при каждой загрузке трека скрипт на форуме кто-то уже делал

584

Re: Скрипты для Icecast

1.
после ./configure писало о "возможностях"
например
lame Yes
Perl Yes
Python No
и тд вот если писало Perl Yes значит собрано с поддержкой perl
2.
редактировать ices.pm, нужны некие познания в программировании если не найдете готовый скрипт

585

Re: Скрипты для Icecast

Понял, а если у меня написано Perl  No то нужно установить perl и после этого пересобирать ices?

586

Re: Скрипты для Icecast

perl-dev

587

Re: Скрипты для Icecast

Пишет что perl уже установлен...

588

Re: Скрипты для Icecast

libperl-dev тоже установлен ?

589

Re: Скрипты для Icecast

libperl-dev - не был установлен, установил. Теперь Perl  Yes. Нужно ices переустановить?

590

Re: Скрипты для Icecast

да

591

Re: Скрипты для Icecast

Переустановил.

Небольшие познания есть, но пример какой-нибудь для ices на perl посмотреть надо... Не знаете источники?
Спасибо за помощь.

592

Re: Скрипты для Icecast

http://radiotalk.ru/viewtopic.php?pid=21391#p21391
что первое нашел

593

Re: Скрипты для Icecast

пишет Апекс:

<?php
error_reporting(0);
header("Content-Type: text/html; charset=cp1251");
$file_name="http://91.228.152.154:8000/status.xsl?mount=/live";
$r=fopen($file_name,'r');
$text=fread($r,10000);
fclose($r);
$mas=explode('<tr>', $text);
$name = explode(':', $mas[3]);
$q = explode ('</td>',$name[1]);
$q2 = explode ('<td class="streamdata">',$q[1]);
$rj = $q2[1];

if($rj == "0" or $rj == ""){
echo " Nonstop"; 
}else
{
$fl = file_get_contents('http://91.228.152.154:8000/status.xsl?mount=/live');
function antara($string, $start, $end){
$string = " ".$string;
$ini = strpos($string,$start);
if ($ini == 0) return "";
$ini += strlen($start);
$len = strpos($string,$end,$ini) - $ini;
return substr($string,$ini,$len);
}
$stream = antara($fl,"<td>Stream Title:</td>\n<td class=\"streamdata\">","</td>");

$description = antara($fl, "<td>Stream Description:</td>\n<td class=\"streamdata\">", "</td>");

$listeners = antara($fl, "<td>Current Listeners:</td>\n<td class=\"streamdata\">", "</td>");

$max = antara($fl, "<td>Peak Listeners:</td>\n<td class=\"streamdata\">", "</td>");

$song = antara($fl, "<td>Current Song:</td>\n<td class=\"streamdata\">", "</td>");

switch ($stream) {


case "gccvhvhgv":
echo "<img src='http://dfm.ru/upload/contents/406/logo_bomb.gif' wight=100%>";
break;




}
echo "";
}

?>

 

    <p class="ttl"><a title="Команда Радио" href="/dj"><? echo $stream ?></a></p>

    <div class="audio">

        <div>

            <strong><? echo $song ?></em></strong>

        </div>

    </div>

Имеется такой код. Текущий трек показывает, то когда русские буквы то выходят крокозябры. В Icecast вмаунт добавлена кодировка cp1251 может как-то в самом файлике кодировку прописать?
Подскажите если не трудно. Читал всю ветку, не нашел

а вот этот код на Icecast kh29 работает на половину, тоесть когда активен маунт нонстоп то он выводит изображение, а когда подключается диджей то ничего не показывает....в официальной версии айса работает нормально этот код

Пишу в спешке. Могут быть очепятки
Сайт за 50$. За 2 дня...

594

Re: Скрипты для Icecast

алло smile

Пишу в спешке. Могут быть очепятки
Сайт за 50$. За 2 дня...

595

Re: Скрипты для Icecast

case "gccvhvhgv":
под себя настроил?

596

Re: Скрипты для Icecast

да....когда ставил обычную версию скрипт работает...а когда kh отображается только нонстоп

Пишу в спешке. Могут быть очепятки
Сайт за 50$. За 2 дня...

597

Re: Скрипты для Icecast

тогда сверяй исходные коды страниц kh и не kh
если есть разнобой то под него правь скрипт

598

Re: Скрипты для Icecast

в кх так сказать и нормального исходного кода то нет

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html>
  <head>
    <link rel="stylesheet" type="text/css" href="/style.css" />
    <title>Icecast Streaming Media Server</title>
  </head>

  <frameset rows="170,*" border="0">
      <frame name="header" frameborder="0" scrolling="no" width="100%" src="/statusbar.html" />
      <frame name="content" frameborder="0" scrolling="auto" width="100%" src="/status.xsl" />
  </frameset>
</html>
Пишу в спешке. Могут быть очепятки
Сайт за 50$. За 2 дня...

599

Re: Скрипты для Icecast

status.xsl а не index смотреть надо

600

Re: Скрипты для Icecast

Ищу решение для вывода названия трэка со статистики с айса. Есть два маунта: nonstop и live
Когда активен нонстоп то брать название трэка с него а когда подключается ведущий и становится активен live  то необходимо брать песню с него.
В статисте айса отображается нормально русские песни и песни на латинском.
Сейчас в эфире: Lara Fabian - Demain Nexiste Pas

Пишу в спешке. Могут быть очепятки
Сайт за 50$. За 2 дня...