NAME

Net::Icecast::Source - Icecast streaming source

SYNOPSIS

use Net::Icecast::Source;
my $source = new Net::Icecast::Source(
	username => 'revmischa',
	password => 'hackthegibson',
	server => '128.128.64.64',
	port => '8000',
	mount_point => '/source',
	mime_type => 'audio/mpeg',
	meta => {
		name => 'lol dongs radio fun land',
		description => 'party time all day',
		aim => 'lindenstacker',
		url => 'http://icecast.org',
	},
);

# attempt to connect to the streaming server
$source->connect
	or die "Unable to connect to server: $!\n";
	
# attempt to log in to the specified mountpoint
$source->login
	or die "Incorrect username/password\n";

# stream mp3
my $sample;
open $sample, "sample.mp3" or die $!;
$source->stream_fh($sample);
close $sample;

# done, clean up
$source->disconnect

DESCRIPTION

Net::Icecast::Source is a simple module designed to make it easy to build programs which stream audio data to an Icecast2 server to be relayed.

CONSTRUCTOR

new (%opts)

Create a new source instance. Options are: username, password, server, port, mount_point, meta, mime_type

connect

Connect to the server, use this before logging in. Returns success/failure

login

Log in to the mount point and send metadata. Returns if login was successful or not

stream_fh($filehandle)

Read from $filehandle until EOF, passing through the raw data to the icecast server.

disconnect

Closes all sockets and disconnects