sub ices_init { print "Perl subsystem Initializing:\n"; $jingle = 0; $num_pls = 0; @list = `/bin/cat /home/24vmf/music/music/playlist.pls`; return 1; } sub ices_shutdown { print "Perl subsystem shutting down:\n"; } sub ices_get_next { if(`/bin/cat /home/24vmf/music/music/playlist.pls`){ if(@list eq `/bin/cat /home/24vmf/music/music/playlist.pls`){ if($num_pls<=`/bin/cat /home/24vmf/music/music/playlist.pls | /usr/bin/wc -1`){ $playlist=1; $num_pls ++; }else{ $playlist=0; } }else{ @list = `/bin/cat /home/24vmf/music/music/playlist.pls`; $num_pls=1; $playlist=1; } }else{ #print "плейлист не найден:\n"; $playlist=0; } if($playlist == 1){ $num_pls=int($num_pls); chomp $list[$num_pls]; print "файл $list[$num_pls]:\n"; return "$list[$num_pls]"; #return "/home/24vmf/music/music/Би-2-Волки (album version).mp3" [b]если здесь раскоментировать то норммально читает файл[/b] }else{ print "не играю плейлист:\n"; if($jingle < 5){ $jingle ++; @nam=`/usr/bin/find /home/24vmf/music/music/ -name *.mp3 | /usr/bin/wc -l`; @music=`/usr/bin/find /home/24vmf/music/music/ -name *.mp3`; }else{ $jingle = 0; @music=`/bin/ls -1 /home/24vmf/music/jingles/*.mp3`; @num=`/bin/ls -1 /home/24vmf/music/jingles/*.mp3 | /usr/bin/wc -l`; } $play=int(rand($num)); chomp $music[$play]; return "$music[$play]"; } } return 1; sub ices_get_metadata { use MP3::Info; if($playlist == 1){ $tag = get_mp3tag($list[$num_pls]) or die "No TAG info"; return "$tag->{TITLE} "; }else{ $tag = get_mp3tag($music[$play]) or die "No TAG info"; return "$tag->{TITLE} "; } }
DEBUG: Genre: ALL Desc: NON-STOP DEBUG: Bitrate: 128 Public: 0 DEBUG: Dump file: (null) DEBUG: Initializing playlist handler... DEBUG: Importing perl module: vmf DEBUG: Found method: ices_init DEBUG: Found method: ices_shutdown DEBUG: Found method: ices_get_next DEBUG: Found method: ices_get_metadata DEBUG: Interpreting [ices_init] Perl subsystem Initializing: DEBUG: perl [ices_init] returned 1 values, last [1] DEBUG: Done interpreting [ices_init] DEBUG: Using LAME version 3.98.4 DEBUG: Startup complete DEBUG: Interpreting [ices_get_next] файл /home/24vmf/music/music/Flёur-Формалин.mp3: DEBUG: perl [ices_get_next] returned 1 values, last [/home/24vmf/music/music/Flёur-Формалин.mp3] DEBUG: Done interpreting [ices_get_next] DEBUG: Filename cleaned up from [/home/24vmf/music/music/Flёur-Формалин.mp3] to [Flёur-Формалин] Error opening /home/24vmf/music/music/Flёur-Формалин.mp3: Error opening: Нет такого файла или каталога DEBUG: Interpreting [ices_get_next] файл /home/24vmf/music/music/Flёur-Формалин.mp3: DEBUG: perl [ices_get_next] returned 1 values, last [/home/24vmf/music/music/Flёur-Формалин.mp3] DEBUG: Done interpreting [ices_get_next] DEBUG: Filename cleaned up from [/home/24vmf/music/music/Flёur-Формалин.mp3] to [Flёur-Формалин] Error opening /home/24vmf/music/music/Flёur-Формалин.mp3: Error opening: Нет такого файла или каталога DEBUG: Interpreting [ices_get_next] файл /home/24vmf/music/music/Flёur-Формалин.mp3: DEBUG: perl [ices_get_next] returned 1 values, last [/home/24vmf/music/music/Flёur-Формалин.mp3] DEBUG: Done interpreting [ices_get_next] DEBUG: Filename cleaned up from [/home/24vmf/music/music/Flёur-Формалин.mp3] to [Flёur-Формалин] Error opening /home/24vmf/music/music/Flёur-Формалин.mp3: Error opening: Нет такого файла или каталога DEBUG: Interpreting [ices_get_next] файл /home/24vmf/music/music/Flёur-Формалин.mp3: DEBUG: perl [ices_get_next] returned 1 values, last [/home/24vmf/music/music/Flёur-Формалин.mp3] DEBUG: Done interpreting [ices_get_next] DEBUG: Filename cleaned up from [/home/24vmf/music/music/Flёur-Формалин.mp3] to [Flёur-Формалин] Error opening /home/24vmf/music/music/Flёur-Формалин.mp3: Error opening: Нет такого файла или каталога DEBUG: Interpreting [ices_get_next] файл /home/24vmf/music/music/Flёur-Формалин.mp3: DEBUG: perl [ices_get_next] returned 1 values, last [/home/24vmf/music/music/Flёur-Формалин.mp3] DEBUG: Done interpreting [ices_get_next] DEBUG: Filename cleaned up from [/home/24vmf/music/music/Flёur-Формалин.mp3] to [Flёur-Формалин] Error opening /home/24vmf/music/music/Flёur-Формалин.mp3: Error opening: Нет такого файла или каталога DEBUG: Interpreting [ices_get_next] файл /home/24vmf/music/music/Flёur-Формалин.mp3: DEBUG: perl [ices_get_next] returned 1 values, last [/home/24vmf/music/music/Flёur-Формалин.mp3] DEBUG: Done interpreting [ices_get_next] DEBUG: Filename cleaned up from [/home/24vmf/music/music/Flёur-Формалин.mp3] to [Flёur-Формалин] Error opening /home/24vmf/music/music/Flёur-Формалин.mp3: Error opening: Нет такого файла или каталога DEBUG: Interpreting [ices_get_next] файл /home/24vmf/music/music/Flёur-Формалин.mp3: DEBUG: perl [ices_get_next] returned 1 values, last [/home/24vmf/music/music/Flёur-Формалин.mp3] DEBUG: Done interpreting [ices_get_next] DEBUG: Filename cleaned up from [/home/24vmf/music/music/Flёur-Формалин.mp3] to [Flёur-Формалин] Error opening /home/24vmf/music/music/Flёur-Формалин.mp3: Error opening: Нет такого файла или каталога DEBUG: Interpreting [ices_get_next] файл /home/24vmf/music/music/Flёur-Формалин.mp3: DEBUG: perl [ices_get_next] returned 1 values, last [/home/24vmf/music/music/Flёur-Формалин.mp3] DEBUG: Done interpreting [ices_get_next] DEBUG: Filename cleaned up from [/home/24vmf/music/music/Flёur-Формалин.mp3] to [Flёur-Формалин] Error opening /home/24vmf/music/music/Flёur-Формалин.mp3: Error opening: Нет такого файла или каталога DEBUG: Interpreting [ices_get_next] файл /home/24vmf/music/music/Flёur-Формалин.mp3: DEBUG: perl [ices_get_next] returned 1 values, last [/home/24vmf/music/music/Flёur-Формалин.mp3] DEBUG: Done interpreting [ices_get_next] DEBUG: Filename cleaned up from [/home/24vmf/music/music/Flёur-Формалин.mp3] to [Flёur-Формалин] Error opening /home/24vmf/music/music/Flёur-Формалин.mp3: Error opening: Нет такого файла или каталога DEBUG: Interpreting [ices_get_next] файл /home/24vmf/music/music/Flёur-Формалин.mp3: DEBUG: perl [ices_get_next] returned 1 values, last [/home/24vmf/music/music/Flёur-Формалин.mp3] DEBUG: Done interpreting [ices_get_next] DEBUG: Filename cleaned up from [/home/24vmf/music/music/Flёur-Формалин.mp3] to [Flёur-Формалин] Error opening /home/24vmf/music/music/Flёur-Формалин.mp3: Error opening: Нет такого файла или каталога DEBUG: Interpreting [ices_get_next] файл /home/24vmf/music/music/Flёur-Формалин.mp3: DEBUG: perl [ices_get_next] returned 1 values, last [/home/24vmf/music/music/Flёur-Формалин.mp3] DEBUG: Done interpreting [ices_get_next] DEBUG: Filename cleaned up from [/home/24vmf/music/music/Flёur-Формалин.mp3] to [Flёur-Формалин] Error opening /home/24vmf/music/music/Flёur-Формалин.mp3: Error opening: Нет такого файла или каталога DEBUG: Interpreting [ices_get_next] файл /home/24vmf/music/music/Flёur-Формалин.mp3: DEBUG: perl [ices_get_next] returned 1 values, last [/home/24vmf/music/music/Flёur-Формалин.mp3] DEBUG: Done interpreting [ices_get_next] DEBUG: Filename cleaned up from [/home/24vmf/music/music/Flёur-Формалин.mp3] to [Flёur-Формалин] Exiting after 10 consecutive errors. DEBUG: Interpreting [ices_shutdown] Perl subsystem shutting down: DEBUG: perl [ices_shutdown] returned 1 values, last [1] DEBUG: Done interpreting [ices_shutdown] Ices Exiting...