Тема: Связка ices и perl
Столкнулся с некой проблемой.
Когда в конфиге ices пишу
<Type>perl</Type>
<Module>hit90</Module>Ставлю скрипт perl c именем hit90.pm
#!/usr/bin/perl -w
#Процедура инициализации, обычно тут вызываются все листинги директории с файлами,
#подключения к базам и тд и тп
sub ices_init {
print "Perl subsystem Initializing:\n";
return 1;
}
#Процедура завершения работы ices, тут желательно закрыть все соединения из скрипта
#и тому подобное
sub ices_shutdown {
print "Perl subsystem shutting down:\n";
}
#А вот это и есть процедура получения нового трека для проигрывания
#Мы каждый раз перечитываем всю директорию, на тот случай
#на тот случай если появились новые треки для проигрывания на радио
sub ices_get_next {
print "Perl subsystem quering for new track:\n";
#chomp $music[2];
$num=`/bin/ls /home/hit90/*.mp3 | /usr/bin/wc -l`;
@music=`/bin/ls -1 /hit90/test/*.mp3`;
$play=int(rand($num));
chomp $music[$play];
return $music[$play];
}
# Процедура получения информации о треке, для вывода в плеере
sub ices_get_metadata {
use MP3::Info;
$tag = get_mp3tag($file) or die "No TAG info";
return "$tag->{TITLE} ";
}
#
sub ices_get_lineno {
return 1;
}То при запуске этого конфига выбивает ошибку
root@185:~# ices -c /etc/icecast/music_90.conf
Logfile opened
Could not find a valid playlist file.
Ices Exiting...
Что делать?
