/* the Music Player Daemon (MPD) * Copyright (C) 2003-2007 by Warren Dukes (warren.dukes@gmail.com) * This project's homepage is: http://www.musicpd.org * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #include "../audioOutput.h" #ifdef HAVE_SHOUT #include "../conf.h" #include "../log.h" #include "../pcm_utils.h" #include "../timer.h" #include <shout/shout.h> #include <vorbis/vorbisenc.h> #define CONN_ATTEMPT_INTERVAL 60 #define DEFAULT_CONN_TIMEOUT 2 static int shoutInitCount; /* lots of this code blatantly stolent from bossogg/bossao2 */ typedef struct _ShoutData { shout_t *shoutConn; int shoutError; ogg_stream_state os; ogg_page og; ogg_packet op; ogg_packet header_main; ogg_packet header_comments; ogg_packet header_codebooks; vorbis_dsp_state vd; vorbis_block vb; vorbis_info vi; vorbis_comment vc; float quality; int bitrate; int opened; MpdTag *tag; int tagToSend; int timeout; int connAttempts; time_t lastAttempt; Timer *timer; /* just a pointer to audioOutput->outAudioFormat */ AudioFormat *audioFormat; } ShoutData; static ShoutData *newShoutData(void) { ShoutData *ret = xmalloc(sizeof(ShoutData)); ret->shoutConn = shout_new(); ret->opened = 0; ret->tag = NULL; ret->tagToSend = 0; ret->bitrate = -1; ret->quality = -2.0; ret->timeout = DEFAULT_CONN_TIMEOUT; ret->connAttempts = 0; ret->lastAttempt = 0; ret->audioFormat = NULL; ret->timer = NULL; return ret; } static void freeShoutData(ShoutData * sd) { if (sd->shoutConn) shout_free(sd->shoutConn); if (sd->tag) freeMpdTag(sd->tag); if (sd->timer) timer_free(sd->timer); free(sd); } #define checkBlockParam(name) { \ blockParam = getBlockParam(param, name); \ if (!blockParam) { \ FATAL("no \"%s\" defined for shout device defined at line " \ "%i\n", name, param->line); \ } \ } static int myShout_initDriver(AudioOutput * audioOutput, ConfigParam * param) { ShoutData *sd; char *test; int port; char *host; char *mount; char *passwd; const char *user; char *name; BlockParam *blockParam; int public; sd = newShoutData(); if (shoutInitCount == 0) shout_init(); shoutInitCount++; checkBlockParam("host"); host = blockParam->value; checkBlockParam("mount"); mount = blockParam->value; checkBlockParam("port"); port = strtol(blockParam->value, &test, 10); if (*test != '\0' || port <= 0) { FATAL("shout port \"%s\" is not a positive integer, line %i\n", blockParam->value, blockParam->line); } checkBlockParam("password"); passwd = blockParam->value; checkBlockParam("name"); name = blockParam->value; public = getBoolBlockParam(param, "public", 1); if (public == CONF_BOOL_UNSET) public = 0; blockParam = getBlockParam(param, "user"); if (blockParam) user = blockParam->value; else user = "source"; blockParam = getBlockParam(param, "quality"); if (blockParam) { int line = blockParam->line; sd->quality = strtod(blockParam->value, &test); if (*test != '\0' || sd->quality < -1.0 || sd->quality > 10.0) { FATAL("shout quality \"%s\" is not a number in the " "range -1 to 10, line %i\n", blockParam->value, blockParam->line); } blockParam = getBlockParam(param, "bitrate"); if (blockParam) { FATAL("quality (line %i) and bitrate (line %i) are " "both defined for shout output\n", line, blockParam->line); } } else { blockParam = getBlockParam(param, "bitrate"); if (!blockParam) { FATAL("neither bitrate nor quality defined for shout " "output at line %i\n", param->line); } sd->bitrate = strtol(blockParam->value, &test, 10); if (*test != '\0' || sd->bitrate <= 0) { FATAL("bitrate at line %i should be a positive integer " "\n", blockParam->line); } } checkBlockParam("format"); sd->audioFormat = &audioOutput->outAudioFormat; if (shout_set_host(sd->shoutConn, host) != SHOUTERR_SUCCESS || shout_set_port(sd->shoutConn, port) != SHOUTERR_SUCCESS || shout_set_password(sd->shoutConn, passwd) != SHOUTERR_SUCCESS || shout_set_mount(sd->shoutConn, mount) != SHOUTERR_SUCCESS || shout_set_name(sd->shoutConn, name) != SHOUTERR_SUCCESS || shout_set_user(sd->shoutConn, user) != SHOUTERR_SUCCESS || shout_set_public(sd->shoutConn, public) != SHOUTERR_SUCCESS || shout_set_nonblocking(sd->shoutConn, 1) != SHOUTERR_SUCCESS || shout_set_format(sd->shoutConn, SHOUT_FORMAT_VORBIS) != SHOUTERR_SUCCESS || shout_set_protocol(sd->shoutConn, SHOUT_PROTOCOL_HTTP) != SHOUTERR_SUCCESS || shout_set_agent(sd->shoutConn, "MPD") != SHOUTERR_SUCCESS) { FATAL("error configuring shout defined at line %i: %s\n", param->line, shout_get_error(sd->shoutConn)); } /* optional paramters */ blockParam = getBlockParam(param, "timeout"); if (blockParam) { sd->timeout = (int)strtol(blockParam->value, &test, 10); if (*test != '\0' || sd->timeout <= 0) { FATAL("shout timeout is not a positive integer, " "line %i\n", blockParam->line); } } blockParam = getBlockParam(param, "genre"); if (blockParam && shout_set_genre(sd->shoutConn, blockParam->value)) { FATAL("error configuring shout defined at line %i: %s\n", param->line, shout_get_error(sd->shoutConn)); } blockParam = getBlockParam(param, "description"); if (blockParam && shout_set_description(sd->shoutConn, blockParam->value)) { FATAL("error configuring shout defined at line %i: %s\n", param->line, shout_get_error(sd->shoutConn)); } { char temp[11]; memset(temp, 0, sizeof(temp)); snprintf(temp, sizeof(temp), "%d", sd->audioFormat->channels); shout_set_audio_info(sd->shoutConn, SHOUT_AI_CHANNELS, temp); snprintf(temp, sizeof(temp), "%d", sd->audioFormat->sampleRate); shout_set_audio_info(sd->shoutConn, SHOUT_AI_SAMPLERATE, temp); if (sd->quality >= -1.0) { snprintf(temp, sizeof(temp), "%2.2f", sd->quality); shout_set_audio_info(sd->shoutConn, SHOUT_AI_QUALITY, temp); } else { snprintf(temp, sizeof(temp), "%d", sd->bitrate); shout_set_audio_info(sd->shoutConn, SHOUT_AI_BITRATE, temp); } } audioOutput->data = sd; return 0; } static int myShout_handleError(ShoutData * sd, int err) { switch (err) { case SHOUTERR_SUCCESS: break; case SHOUTERR_UNCONNECTED: case SHOUTERR_SOCKET: ERROR("Lost shout connection to %s:%i: %s\n", shout_get_host(sd->shoutConn), shout_get_port(sd->shoutConn), shout_get_error(sd->shoutConn)); sd->shoutError = 1; return -1; default: ERROR("shout: connection to %s:%i error: %s\n", shout_get_host(sd->shoutConn), shout_get_port(sd->shoutConn), shout_get_error(sd->shoutConn)); sd->shoutError = 1; return -1; } return 0; } static int write_page(ShoutData * sd) { int err; shout_sync(sd->shoutConn); err = shout_send(sd->shoutConn, sd->og.header, sd->og.header_len); if (myShout_handleError(sd, err) < 0) return -1; err = shout_send(sd->shoutConn, sd->og.body, sd->og.body_len); if (myShout_handleError(sd, err) < 0) return -1; return 0; } static void finishEncoder(ShoutData * sd) { vorbis_analysis_wrote(&sd->vd, 0); while (vorbis_analysis_blockout(&sd->vd, &sd->vb) == 1) { vorbis_analysis(&sd->vb, NULL); vorbis_bitrate_addblock(&sd->vb); while (vorbis_bitrate_flushpacket(&sd->vd, &sd->op)) { ogg_stream_packetin(&sd->os, &sd->op); } } } static int flushEncoder(ShoutData * sd) { return (ogg_stream_pageout(&sd->os, &sd->og) > 0); } static void clearEncoder(ShoutData * sd) { finishEncoder(sd); while (1 == flushEncoder(sd)) { if (!sd->shoutError) write_page(sd); } vorbis_comment_clear(&sd->vc); ogg_stream_clear(&sd->os); vorbis_block_clear(&sd->vb); vorbis_dsp_clear(&sd->vd); vorbis_info_clear(&sd->vi); } static void myShout_closeShoutConn(ShoutData * sd) { if (sd->opened) clearEncoder(sd); if (shout_get_connected(sd->shoutConn) != SHOUTERR_UNCONNECTED && shout_close(sd->shoutConn) != SHOUTERR_SUCCESS) { ERROR("problem closing connection to shout server: %s\n", shout_get_error(sd->shoutConn)); } sd->opened = 0; } static void myShout_finishDriver(AudioOutput * audioOutput) { ShoutData *sd = (ShoutData *) audioOutput->data; myShout_closeShoutConn(sd); freeShoutData(sd); shoutInitCount--; if (shoutInitCount == 0) shout_shutdown(); } static void myShout_dropBufferedAudio(AudioOutput * audioOutput) { ShoutData *sd = (ShoutData *)audioOutput->data; timer_reset(sd->timer); /* needs to be implemented for shout */ } static void myShout_closeDevice(AudioOutput * audioOutput) { ShoutData *sd = (ShoutData *) audioOutput->data; myShout_closeShoutConn(sd); if (sd->timer) { timer_free(sd->timer); sd->timer = NULL; } audioOutput->open = 0; } static void addTag(ShoutData *sd, const char *name, char *value) { if (value) { union const_hack u; u.in = name; vorbis_comment_add_tag(&(sd->vc), u.out, value); } } static void copyTagToVorbisComment(ShoutData * sd) { if (sd->tag) { int i; for (i = 0; i < sd->tag->numOfItems; i++) { switch (sd->tag->items[i].type) { case TAG_ITEM_ARTIST: addTag(sd, "ARTIST", sd->tag->items[i].value); break; case TAG_ITEM_ALBUM: addTag(sd, "ALBUM", sd->tag->items[i].value); break; case TAG_ITEM_TITLE: addTag(sd, "TITLE", sd->tag->items[i].value); break; default: break; } } } } static int initEncoder(ShoutData * sd) { vorbis_info_init(&(sd->vi)); if (sd->quality >= -1.0) { if (0 != vorbis_encode_init_vbr(&(sd->vi), sd->audioFormat->channels, sd->audioFormat->sampleRate, sd->quality * 0.1)) { ERROR("problem setting up vorbis encoder for shout\n"); vorbis_info_clear(&(sd->vi)); return -1; } } else { if (0 != vorbis_encode_init(&(sd->vi), sd->audioFormat->channels, sd->audioFormat->sampleRate, -1.0, sd->bitrate * 1000, -1.0)) { ERROR("problem setting up vorbis encoder for shout\n"); vorbis_info_clear(&(sd->vi)); return -1; } } vorbis_analysis_init(&(sd->vd), &(sd->vi)); vorbis_block_init(&(sd->vd), &(sd->vb)); ogg_stream_init(&(sd->os), rand()); vorbis_comment_init(&(sd->vc)); return 0; } static int myShout_connect(ShoutData *sd) { time_t t = time(NULL); int state = shout_get_connected(sd->shoutConn); /* already connected */ if (state == SHOUTERR_CONNECTED) return 0; /* waiting to connect */ if (state == SHOUTERR_BUSY && sd->connAttempts != 0) { /* timeout waiting to connect */ if ((t - sd->lastAttempt) > sd->timeout) { ERROR("timeout connecting to shout server %s:%i " "(attempt %i)\n", shout_get_host(sd->shoutConn), shout_get_port(sd->shoutConn), sd->connAttempts); return -1; } return 1; } /* we're in some funky state, so just reset it to unconnected */ if (state != SHOUTERR_UNCONNECTED) shout_close(sd->shoutConn); /* throttle new connection attempts */ if (sd->connAttempts != 0 && (t - sd->lastAttempt) <= CONN_ATTEMPT_INTERVAL) { return -1; } /* initiate a new connection */ sd->connAttempts++; sd->lastAttempt = t; state = shout_open(sd->shoutConn); switch (state) { case SHOUTERR_SUCCESS: case SHOUTERR_CONNECTED: return 0; case SHOUTERR_BUSY: return 1; default: ERROR("problem opening connection to shout server %s:%i " "(attempt %i): %s\n", shout_get_host(sd->shoutConn), shout_get_port(sd->shoutConn), sd->connAttempts, shout_get_error(sd->shoutConn)); return -1; } } static int myShout_openShoutConn(AudioOutput * audioOutput) { ShoutData *sd = (ShoutData *) audioOutput->data; int status; status = myShout_connect(sd); if (status != 0) return status; if (initEncoder(sd) < 0) { shout_close(sd->shoutConn); return -1; } sd->shoutError = 0; copyTagToVorbisComment(sd); vorbis_analysis_headerout(&(sd->vd), &(sd->vc), &(sd->header_main), &(sd->header_comments), &(sd->header_codebooks)); ogg_stream_packetin(&(sd->os), &(sd->header_main)); ogg_stream_packetin(&(sd->os), &(sd->header_comments)); ogg_stream_packetin(&(sd->os), &(sd->header_codebooks)); sd->opened = 1; sd->tagToSend = 0; while (ogg_stream_flush(&(sd->os), &(sd->og))) { if (write_page(sd) < 0) { myShout_closeShoutConn(sd); return -1; } } sd->connAttempts = 0; return 0; } static int myShout_openDevice(AudioOutput * audioOutput) { ShoutData *sd = (ShoutData *) audioOutput->data; if (!sd->opened && myShout_openShoutConn(audioOutput) < 0) return -1; if (sd->timer) timer_free(sd->timer); sd->timer = timer_new(&audioOutput->outAudioFormat); audioOutput->open = 1; return 0; } static void myShout_sendMetadata(ShoutData * sd) { if (!sd->opened || !sd->tag) return; clearEncoder(sd); if (initEncoder(sd) < 0) return; copyTagToVorbisComment(sd); vorbis_analysis_headerout(&(sd->vd), &(sd->vc), &(sd->header_main), &(sd->header_comments), &(sd->header_codebooks)); ogg_stream_packetin(&(sd->os), &(sd->header_main)); ogg_stream_packetin(&(sd->os), &(sd->header_comments)); ogg_stream_packetin(&(sd->os), &(sd->header_codebooks)); while (ogg_stream_flush(&(sd->os), &(sd->og))) { if (write_page(sd) < 0) { myShout_closeShoutConn(sd); return; } } /*if(sd->tag) freeMpdTag(sd->tag); sd->tag = NULL; */ sd->tagToSend = 0; } static int myShout_play(AudioOutput * audioOutput, const char *playChunk, size_t size) { unsigned int i; int j; ShoutData *sd = (ShoutData *) audioOutput->data; float **vorbbuf; unsigned int samples; int bytes = sd->audioFormat->bits / 8; int status; if (!sd->timer->started) timer_start(sd->timer); timer_add(sd->timer, size); if (sd->opened && sd->tagToSend) myShout_sendMetadata(sd); if (!sd->opened) { status = myShout_openShoutConn(audioOutput); if (status < 0) { myShout_closeDevice(audioOutput); return -1; } else if (status > 0) { timer_sync(sd->timer); return 0; } } samples = size / (bytes * sd->audioFormat->channels); /* this is for only 16-bit audio */ vorbbuf = vorbis_analysis_buffer(&(sd->vd), samples); for (i = 0; i < samples; i++) { for (j = 0; j < sd->audioFormat->channels; j++) { vorbbuf[j][i] = (*((mpd_sint16 *) playChunk)) / 32768.0; playChunk += bytes; } } vorbis_analysis_wrote(&(sd->vd), samples); while (1 == vorbis_analysis_blockout(&(sd->vd), &(sd->vb))) { vorbis_analysis(&(sd->vb), NULL); vorbis_bitrate_addblock(&(sd->vb)); while (vorbis_bitrate_flushpacket(&(sd->vd), &(sd->op))) { ogg_stream_packetin(&(sd->os), &(sd->op)); } } while (ogg_stream_pageout(&(sd->os), &(sd->og)) != 0) { if (write_page(sd) < 0) { myShout_closeDevice(audioOutput); return -1; } } return 0; } static void myShout_setTag(AudioOutput * audioOutput, MpdTag * tag) { ShoutData *sd = (ShoutData *) audioOutput->data; if (sd->tag) freeMpdTag(sd->tag); sd->tag = NULL; sd->tagToSend = 0; if (!tag) return; sd->tag = mpdTagDup(tag); sd->tagToSend = 1; } AudioOutputPlugin shoutPlugin = { "shout", NULL, myShout_initDriver, myShout_finishDriver, myShout_openDevice, myShout_play, myShout_dropBufferedAudio, myShout_closeDevice, myShout_setTag, }; #else DISABLED_AUDIO_OUTPUT_PLUGIN(shoutPlugin) #endif