view release on metacpan or  search on metacpan

lib/Net/DAAP/Server/MythTV.pm  view on Meta::CPAN

	my ($intid) = ($request->uri->path =~ /^\/databases\/\d+\/items\/(\d+)/);
	my $dbh = $self->connect;
	my $sth = $dbh->prepare(
		'SELECT filename FROM videometadata WHERE intid = ?');
	$sth->execute($intid);

	my ($filename) = $sth->fetchrow_array;
	open $response->{handle}, '<', $filename;

	$response->streaming(1);
}

__END__

=head1 NAME

Net::DAAP::Server::MythTV - Publish MythTV videos to DAAP clients like Apple's Front Row

=head1 DESCRIPTION