Русская кодировка в Icecast (Страница 2 из 2)

Сделал как все описали, запустил маунт и он вообще не выводится в статистике

вот мой модуль

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 /var/my_sound/*.mp3`;
    }else{
        $jingle = 0;
        @music=`/bin/ls -1 /var/jingles/*.mp3`;

    }
        $num = scalar (@music);
        $play=int(rand($num));
        chomp $music[$play];
        return $music[$play];
}

sub ices_get_metadata {
        use MP3::Info;
        $tag = get_mp3tag($music[$play]) or die "No TAG info";
        return "$tag->{ARTIST} - $tag->{TITLE}";
}

return 1;

в логах все чисто, в процессах его вообще не вижу

Добавлено спустя     4 минуты   31 секунду:
в конфиге маунта так же прописал

  <Playlist>
    <File>/var/my_sound/playlist.txt</File>
    <Randomize>1</Randomize>
    <Type>perl</Type>
    <Module>my_sound</Module>
    <Crossfade>3</Crossfade>
  </Playlist>

my_sound.pm закинул в папку модулей перла

Отредактировано pusik (18-03-2011 16:25:35)

# ices -c /etc/my_sound.conf
Into the land of the dreaded daemons we go... (pid: 32100)
# ps axfu | grep ices
root     32386  0.0  0.0   4004   668 pts/0    S+   15:40   0:00          \_ grep ices
root      7066  6.5  0.1  11520  4708 ?        Ss   Mar17 143:36 ices -c /etc/ices.conf
root      7105  6.4  0.1  10448  4036 ?        Ss   Mar17 143:13 ices -c /etc/ices1.conf
root      7128  6.6  0.1  10356  3708 ?        Ss   Mar17 146:13 ices -c /etc/ices2.conf

Добавлено спустя     2 минуты   28 секунд:
может перезагрузка айскаста нужна?

разобрался, спасибо огромное, но способ этот подозрительный, когда вручную генерируеш плейлист то видиш какие треки попали в список, а тут на абум как-то

после добавления фрагмента:

sub ices_get_metadata {
        use MP3::Info;
        $tag = get_mp3tag($music[$play]) or die "No TAG info";
        $a=`wget url/play.php?a=$tag->{ARTIST}&t=$tag->{TITLE}`;
        return "$tag->{ARTIST} - $tag->{TITLE}";
}

Ices перестал запускаться, в логе: Logfile opened
Initialization of playlist handler failed. []
Ices Exiting...

Can't locate MP3/Info.pm in @INC (@INC contains: /etc/perl /usr/local/lib/perl/5.12.4 /usr/local/share/perl/5.12.4 /usr/lib/perl5 /usr/share/perl5 /usr/lib/perl/5.12 /usr/share/perl/5.12 /usr/local/lib/site_perl .) at ices.pm line 29.
BEGIN failed--compilation aborted at ices.pm line 29.

Вообщем, когда то я боролся с этим и пришёл к одному интересному заключению - это кстати и на карманных mp3 плеерах работает...
Удалить ID3 Tag и назвать файл по человечески. (при чём удалять их следует наверняка. Например в Winampe Alt+3 и убрать галочки на version 1 и 2. ещё заюзать mp3tag - там это можно делать массово).
По крайней мере, у тебя все кодировка названий будет одинаковая.

это что прям на самом icecast сервере такие кравозябры? такого  быть не может вы наверное через скрипт смотрите. вот в скрипте и меняйте.

Сам придумал или из гугла скопировал?
========================================================================
FMGAMERADIO.RU - Уж както стараемся выделится