ОсновноеRadiotalkПользовательское
Технологии вещания, софт, скрипты
3   •   Посмотреть все темы

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

 

86
Dakar @Dakar
@reboot cd /home/icecast/; /usr/local/bin/icecast -b -c icecast.xml & >/dev/null 2>&1
sleep 5
@reboot cd /home/icecast/; /usr/local/bin/ices -c ices.conf

Sleep - значение в чем измеряеться ?

86
Dakar @Dakar
о как О_о ices не запускаеться от другого пользователя О_О только из под рута

86
pusik @pusik
еще кто нибудь поделился бы модулем заказа песен под icecast2+ices было бы вообще шикарно)

833
metra52 @metra52
ну его писать придется самому с использованием MySQL

86
pusik @pusik
metra52 пишет:

ну его писать придется самому с использованием MySQL

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

86
Dakar @Dakar
tarasian666 пишет:

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

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


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

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


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

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

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

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

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

86
pusik @pusik
Попробуй так.

$play=int($num);
не уверен!

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

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

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

$play=int($num);
не уверен!

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

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

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

6245
Тарас @tarasian666
Louie пишет:

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

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

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

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

11
Louie @Louie
tarasian666 пишет:

Louie пишет:

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

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

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

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

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

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

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

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

Показать текст


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

Показать текст


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

6245
Тарас @tarasian666
<Module>ices.pm</Module> надо без .pm

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

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

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

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

7094
--- @Render
Louie пишет:

tarasian666 пишет:

Louie пишет:

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

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

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

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

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

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

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


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

Отредактировано Render - 07.07.2011
10
radchuk007 @radchuk007
Здравствуйте. В теме добрый человек поделился скриптом для автоматического воспроизведения джиинглов через определённое количество треков. Кто может помочь усовершенствовать скрипт? Работу оплатим.
Нужно добавить ещё 4 переменные в этот скрипт, сейчас там одна - джинглы. Нужно что бы через определенное количество треков можно было запускать в эфир анекдоты, записанные программы и т.д. Идея та же что и со джинглами, но расширенная. Кто разбирается в Perl, откликнитесь, пожалуйста, если всё получиться, скрипт опубликую здесь, я думаю это многим будет полезно.