26

Re: Скрипт джингл через определенное количество треков

tarasian666 пишет:

можно, просто там где в модуле есть "о тегах" "ретурнить" пустую строку

Этьо ф конфиге ? просто я его немного почистил можно пример


а всё понял добавил суб на получение титла

Отредактировано Dakar (13-02-2011 21:15:26)

Хостинг радио от http://FmHosting.ru

27

Re: Скрипт джингл через определенное количество треков

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


И еще один вопросик , как выключить рандом??
тег в ices.conf
    <Randomize>0</Randomize>
прописан, но он всё равно играет рандомно..

28

Re: Скрипт джингл через определенное количество треков

рандум в скрипте задан
начсет повтора - может быть, скрипт не идеален, написан на быструю руку, чтоб показать вам как это делаеться, дальше сами )

29

Re: Скрипт джингл через определенное количество треков

так. а как его убрать из скрипта?

$play=int(rand($num));

я так понял эта строчка за это отвечает. С перлом я вообще не дружу, поэтому и прошу о помощи.

30

Re: Скрипт джингл через определенное количество треков

Попробуй так.

$play=int($num);

не уверен!

31

Re: Скрипт джингл через определенное количество треков

ну мануал в руки и вперед, я ведь тоже так делал )
лишиться рандума в этом скрипте не обойдеться изменением одной строчки

Добавлено спустя       45 секунд:

pusik пишет:

Попробуй так.

$play=int($num);

не уверен!

ничего хорошего из этого не выйдет ))

32

Re: Скрипт джингл через определенное количество треков

Гхм...  интересно. Какой именно мануал? тыкните пальчиком +)

Вот блин. Из-за рандома, надо половину и-нета пролистать +)) а заменить надо будет как всегда 1 или 2 строчки +)

33

Re: Скрипт джингл через определенное количество треков

Louie пишет:

Гхм...  интересно. Какой именно мануал? тыкните пальчиком +)

забанили в гугле? ищите мануал по языке perl

Louie пишет:

Вот блин. Из-за рандома, надо половину и-нета пролистать +)) а заменить надо будет как всегда 1 или 2 строчки +)

ну если вы такой умный то заменяйте )) но скажу вам что 2мя строчками точно не обойдеться, обойдеться где-то в 3 ))

34

Re: Скрипт джингл через определенное количество треков

tarasian666 пишет:
Louie пишет:

Гхм...  интересно. Какой именно мануал? тыкните пальчиком +)

забанили в гугле? ищите мануал по языке perl

Louie пишет:

Вот блин. Из-за рандома, надо половину и-нета пролистать +)) а заменить надо будет как всегда 1 или 2 строчки +)

ну если вы такой умный то заменяйте )) но скажу вам что 2мя строчками точно не обойдеться, обойдеться где-то в 3 ))

Спасибо!!!! +) замучался правдо, зато работает +) спс за подмогу !

35

Re: Скрипт джингл через определенное количество треков

Застрял на той-же описанной ранее ошибке:

Logfile opened
Initialization of playlist handler failed. []
Ices Exiting...

ices.conf вот (искомый кусок):

[spoiler]  <Playlist>
    <Randomize>1</Randomize>
    <Type>perl</Type>
    <Module>ices.pm</Module>
  </Playlist>[/spoiler]

сам /usr/local/etc/modules/ices.pm вот (полностью):

[spoiler]sub ices_init
{
print "Perl subsystem Initializing:\n";
$jingle = 0;
return 1;
}

sub ices_shutdown
{
print "Perl subsystem shutting down:\n";
}

sub ices_get_next
{
print "Perl subsystem quering for new track:\n";
if($jingle < 7)
{
  $jingle ++;
  @music=`/bin/ls -1 /home/icecast/data/playlist/*.mp3`;
}
else
{
  $jingle = 0;
  @music=`/bin/ls -1 /home/icecast/data/jingles/*.mp3`;
}
$num = scalar (@music);
$play=int(rand($num));
chomp $music[$play];
return $music[$play];
}

return 1;[/spoiler]

помогите пожалуйста! Кто как решил эту проблему? Вы-ж так ничего и не написали толком.. sad

...so fell autumn rain...

36

Re: Скрипт джингл через определенное количество треков

<Module>ices.pm</Module> надо без .pm

37

Re: Скрипт джингл через определенное количество треков

Спасибо, всё получилось, дальше буду курить мануал по perl.

Меня просто сбила с толку эта фраза:

tarasian666 пишет:

<Module>ices</Module> - название файла скрипта должно в таком случае быть ices.pm

..теперь только понимаю что фразу можно понять двояко, а не только так как я её понял. smile

...so fell autumn rain...

38

Re: Скрипт джингл через определенное количество треков

Louie пишет:
tarasian666 пишет:
Louie пишет:

Гхм...  интересно. Какой именно мануал? тыкните пальчиком +)

забанили в гугле? ищите мануал по языке perl

Louie пишет:

Вот блин. Из-за рандома, надо половину и-нета пролистать +)) а заменить надо будет как всегда 1 или 2 строчки +)

ну если вы такой умный то заменяйте )) но скажу вам что 2мя строчками точно не обойдеться, обойдеться где-то в 3 ))

Спасибо!!!! +) замучался правдо, зато работает +) спс за подмогу !

Хоть бы отписался, как удалось рандом убрать правильно.
Не выходит его снести. hmm

Radiodev - coming soon.

39

Re: Скрипт джингл через определенное количество треков

Может кто из знающих Perl помочь, подсказать ?
Как заменить этот рандом на последовательную подстановку числа ?
То есть чтобы цифры подставлялись последовательно от 1 до N. Где N = $num (то есть кол-во строк[файлов])
И ещё. Дойдя до числа $num, последнего номера строки (последнего файла из списка), происходил повтор всего цикла, то есть от 1 и снова до значения в переменной $num.
Курение perl и гугление циклов - не помогают решить задачу. sad


//upd
Уже не нужно. Ices и perl - фтопку.

Отредактировано Render (07-07-2011 21:07:13)

Radiodev - coming soon.