Simple mp3 broadcaster

Простой консольный скрипт на Perl'е для вещания mp3 потока в сеть. Проигрывает треки случайным образом из заданной директории.

Желающие также могут воспользоваться .bat файлом и netcat для этих целей:

@ECHO OFF
SET music=C:\music\
SET port=1234

FOR /R %music% %%G IN (*.mp3) DO (
	echo Playing: %%G
	echo.
	(
		echo "HTTP/1.0 200 OK\r\nContent-Type: audio/x-mp3stream\r\n\r\n"
		type "%%G"
	) | nc -l -p %port% > NUL
)

@ECHO OFF

SET music=C:\music\

SET port=1234

FOR /R %music% %%G IN (*.mp3) DO (

echo Playing: %%G

echo.

(

echo "HTTP/1.0 200 OK\r\nContent-Type: audio/x-mp3stream\r\n\r\n"

type "%%G"

) | nc -l -p %port% > NUL

)

Скачать: pl+bat

Simple mp3 broadcaster: 5 комментариев

Nosaer:

11 июня, 2010 в 23:03

Спасибо) Пригодится. При вещании радио в локалке, хорошо поможет.

Ответить
http://url-s.ru:

13 июня, 2010 в 16:08

А этого хватит для онлайн радио?

Ответить
1. Kaimi:
  
  13 июня, 2010 в 16:24
  
  Для онлайн радио лучше воспользоваться чем-нибудь вроде Shoutcast
  
  Ответить
Geeek:

4 августа, 2010 в 17:33

интересная реализация =), спасибо

Ответить
satsura:

24 июня, 2011 в 13:19

прикольно (= молодец!

Ответить

Добавить комментарий Отменить ответ

Simple mp3 broadcaster

Simple perl script for mp3 broadcasting. Plays tracks in random order.

There is also a .bat + netcat implementation:

@ECHO OFF
SET music=C:\music\
SET port=1234

FOR /R %music% %%G IN (*.mp3) DO (
	echo Playing: %%G
	echo.
	(
		echo "HTTP/1.0 200 OK\r\nContent-Type: audio/x-mp3stream\r\n\r\n"
		type "%%G"
	) | nc -l -p %port% > NUL
)

@ECHO OFF

SET music=C:\music\

SET port=1234

FOR /R %music% %%G IN (*.mp3) DO (

echo Playing: %%G

echo.

(

echo "HTTP/1.0 200 OK\r\nContent-Type: audio/x-mp3stream\r\n\r\n"

type "%%G"

) | nc -l -p %port% > NUL

)

Download: pl+bat