Ices и Perl - не конфигурирует

22.08.2013

Вот не пойму. Может модуль какой нужен... Perl установлен.

Но при конфигурировании выдает configure error: could not link to perl

22.08.2013

libperl-dev установлен?

23.08.2013

Ну как понял - проблема была в нем...
Хз что там было не так - он был установлен - я снес perl полностью и переустановил.
Работает.

Может кому пригодится - рабочий ices.pm

1.  
2. # At least ices_get_next must be defined. And, like all perl modules, it
3. # must return 1 at the end.
5. # Function called to initialize your python environment.
6. # Should return 1 if ok, and 0 if something went wrong.
8. sub ices_init {
9. print "Perl subsystem Initializing:\n";
10. return 1;
11. }
13. # Function called to shutdown your python enviroment.
14. # Return 1 if ok, 0 if something went wrong.
15. sub ices_shutdown {
16. print "Perl subsystem shutting down:\n";
17. }
19. # Function called to get the next filename to stream.
20. # Should return a string.
21. sub ices_get_next {
22. print "Perl subsystem quering for new track:\n";
23. #chomp $music[2];
24. $num=`/bin/ls /home/music/*.mp3 | /usr/bin/wc -l`;
25. @music=`/bin/ls -1 /home/music/*.mp3`;
26. $play=int(rand($num));
27. chomp $music[$play];
28. return $music[$play];
29. }
31. # If defined, the return value is used for title streaming (metadata)
32. sub ices_get_metadata {
33. use MP3::Info;
34. $tag = get_mp3tag($music[$play]) or die "No TAG info";
35. return "$tag->{ARTIST} - $tag->{TITLE}";
36. }
38. # Function used to put the current line number of
39. # the playlist in the cue file. If you don't care
40. # about cue files, just return any integer.
41. sub ices_get_lineno {
42. return 1;
43. }
45. return 1;

28.08.2013

Чтобы не создовать отдельную тему.
Есть несколько проблем с выводом через perl.
1 - Кириллические названия треков выводятся "ГЂГèìà öèÿ - ×åðòà ". Кодировка в icecast конфигах cp1251, через SAM отобрадается нормально.
2 - Я так понимаю, что когда скрипт не может прочитать название трека он выдает "Сейчас в эфире: - ", как поправить это....