/usr/local/etc/rc.d/ices0: WARNING: failed to start ices0
#!/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/zyat/music/*.mp3 | /usr/bin/wc -l`; @music=`/bin/ls -1 /home/zyat/music/*.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; }
6 •