€
$
₴
₽
EN
RU
Vmeste.EU
Лента
Каталог
Файлы
Форумы
Услуги
Основное
Radiotalk
Пользовательское
Общие вопросы по интернет радио вещанию
6 •
Посмотреть все темы
скрипт на pear
1
32
Razo
@Razo
17.10.2012
вот я нашел ваш скрипт
ices.pm
Показать текст
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 < 5){
$jingle ++;
@music=`/bin/ls -1 /home/user/music/*.mp3`;
}else{
$jingle = 0;
@music=`/bin/ls -1 /home/user/jingles/*.mp3`;
}
$num = scalar (@music);
$play=int(rand($num));
chomp $music[$play];
return $music[$play];
}
return 1;
но я не знаю pear
если не трудно подскажите что здесь менять чтобы скрипт проверял если сейчас например 13:00 то подключилось /home/user/reklam/*.mp3 если стало 13:05 то включается /home/user/music/*.mp3 , и так каждый час
6245
Тарас
@tarasian666
17.10.2012
1. не pear а perl - это совсем разные вещи
2. не надо повторять то что уже вылаживалось и обсуждалось в другой теме
3. скрипт выложил такой какой был, им уже не пользуюсь и не видоизменяю, все модификации проблемы самих модифицирующих
32
Razo
@Razo
17.10.2012
ладно а вместо perl можно поставить php, ices читает php?
6245
Тарас
@tarasian666
17.10.2012
нет, только perl или python
perl не такой уж сложный если есть познания в php