From 49867bd432352d19172ab26cf873bd5651e69e25 Mon Sep 17 00:00:00 2001 From: ben Date: Mon, 31 Jul 2006 17:39:17 +0000 Subject: introduce new 'stream' directory for all stream layer related components and split them from libmpdemux git-svn-id: svn://svn.mplayerhq.hu/mplayer/trunk@19277 b3059339-0415-0410-9bf9-f77b7e298cf2 --- stream/http.c | 948 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 948 insertions(+) create mode 100644 stream/http.c (limited to 'stream/http.c') diff --git a/stream/http.c b/stream/http.c new file mode 100644 index 0000000000..ce7738427a --- /dev/null +++ b/stream/http.c @@ -0,0 +1,948 @@ +/* + * HTTP Helper + * by Bertrand Baudet + * (C) 2001, MPlayer team. + */ + +#include "config.h" + +#include +#include +#include +#include + +#ifndef HAVE_WINSOCK2 +#define closesocket close +#else +#include +#include +#endif + +#include "http.h" +#include "url.h" +#include "mp_msg.h" + +#include "stream.h" +#include "demuxer.h" +#include "network.h" +#include "help_mp.h" + + +extern mime_struct_t mime_type_table[]; +extern int stream_cache_size; +extern int network_bandwidth; + +extern int http_seek(stream_t *stream, off_t pos); + +typedef struct { + unsigned metaint; + unsigned metapos; + int is_ultravox; +} scast_data_t; + +/** + * \brief first read any data from sc->buffer then from fd + * \param fd file descriptor to read data from + * \param buffer buffer to read into + * \param len how many bytes to read + * \param sc streaming control containing buffer to read from first + * \return len unless there is a read error or eof + */ +static unsigned my_read(int fd, char *buffer, int len, streaming_ctrl_t *sc) { + unsigned pos = 0; + unsigned cp_len = sc->buffer_size - sc->buffer_pos; + if (cp_len > len) + cp_len = len; + memcpy(buffer, &sc->buffer[sc->buffer_pos], cp_len); + sc->buffer_pos += cp_len; + pos += cp_len; + while (pos < len) { + int ret = recv(fd, &buffer[pos], len - pos, 0); + if (ret <= 0) + break; + pos += ret; + } + return pos; +} + +/** + * \brief read and process (i.e. discard *g*) a block of ultravox metadata + * \param fd file descriptor to read from + * \param sc streaming_ctrl_t whose buffer is consumed before reading from fd + * \return number of real data before next metadata block starts or 0 on error + */ +static unsigned uvox_meta_read(int fd, streaming_ctrl_t *sc) { + unsigned metaint; + unsigned char info[6] = {0, 0, 0, 0, 0, 0}; + int info_read; + do { + info_read = my_read(fd, info, 1, sc); + if (info[0] == 0x00) + info_read = my_read(fd, info, 6, sc); + else + info_read += my_read(fd, &info[1], 5, sc); + if (info_read != 6) // read error or eof + return 0; + // sync byte and reserved flags + if (info[0] != 0x5a || (info[1] & 0xfc) != 0x00) { + mp_msg(MSGT_DEMUXER, MSGL_ERR, "Invalid or unknown uvox metadata\n"); + return 0; + } + if (info[1] & 0x01) + mp_msg(MSGT_DEMUXER, MSGL_WARN, "Encrypted ultravox data\n"); + metaint = info[4] << 8 | info[5]; + if ((info[3] & 0xf) < 0x07) { // discard any metadata nonsense + char *metabuf = malloc(metaint); + my_read(fd, metabuf, metaint, sc); + free(metabuf); + } + } while ((info[3] & 0xf) < 0x07); + return metaint; +} + +/** + * \brief read one scast meta data entry and print it + * \param fd file descriptor to read from + * \param sc streaming_ctrl_t whose buffer is consumed before reading from fd + */ +static void scast_meta_read(int fd, streaming_ctrl_t *sc) { + unsigned char tmp = 0; + unsigned metalen; + my_read(fd, &tmp, 1, sc); + metalen = tmp * 16; + if (metalen > 0) { + char *info = malloc(metalen + 1); + unsigned nlen = my_read(fd, info, metalen, sc); + info[nlen] = 0; + mp_msg(MSGT_DEMUXER, MSGL_INFO, "\nICY Info: %s\n", info); + free(info); + } +} + +/** + * \brief read data from scast/ultravox stream without any metadata + * \param fd file descriptor to read from + * \param buffer buffer to read data into + * \param size number of bytes to read + * \param sc streaming_ctrl_t whose buffer is consumed before reading from fd + */ +static int scast_streaming_read(int fd, char *buffer, int size, + streaming_ctrl_t *sc) { + scast_data_t *sd = (scast_data_t *)sc->data; + unsigned block, ret; + unsigned done = 0; + + // first read remaining data up to next metadata + block = sd->metaint - sd->metapos; + if (block > size) + block = size; + ret = my_read(fd, buffer, block, sc); + sd->metapos += ret; + done += ret; + if (ret != block) // read problems or eof + size = done; + + while (done < size) { // now comes the metadata + if (sd->is_ultravox) + { + sd->metaint = uvox_meta_read(fd, sc); + if (!sd->metaint) + size = done; + } + else + scast_meta_read(fd, sc); // read and display metadata + sd->metapos = 0; + block = size - done; + if (block > sd->metaint) + block = sd->metaint; + ret = my_read(fd, &buffer[done], block, sc); + sd->metapos += ret; + done += ret; + if (ret != block) // read problems or eof + size = done; + } + return done; +} + +static int scast_streaming_start(stream_t *stream) { + int metaint; + scast_data_t *scast_data; + HTTP_header_t *http_hdr = stream->streaming_ctrl->data; + int is_ultravox = strcasecmp(stream->streaming_ctrl->url->protocol, "unsv") == 0; + if (!stream || stream->fd < 0 || !http_hdr) + return -1; + if (is_ultravox) + metaint = 0; + else { + metaint = atoi(http_get_field(http_hdr, "Icy-MetaInt")); + if (metaint <= 0) + return -1; + } + stream->streaming_ctrl->buffer = malloc(http_hdr->body_size); + stream->streaming_ctrl->buffer_size = http_hdr->body_size; + stream->streaming_ctrl->buffer_pos = 0; + memcpy(stream->streaming_ctrl->buffer, http_hdr->body, http_hdr->body_size); + scast_data = malloc(sizeof(scast_data_t)); + scast_data->metaint = metaint; + scast_data->metapos = 0; + scast_data->is_ultravox = is_ultravox; + http_free(http_hdr); + stream->streaming_ctrl->data = scast_data; + stream->streaming_ctrl->streaming_read = scast_streaming_read; + stream->streaming_ctrl->streaming_seek = NULL; + stream->streaming_ctrl->prebuffer_size = 64 * 1024; // 64 KBytes + stream->streaming_ctrl->buffering = 1; + stream->streaming_ctrl->status = streaming_playing_e; + return 0; +} + +static int nop_streaming_start( stream_t *stream ) { + HTTP_header_t *http_hdr = NULL; + char *next_url=NULL; + URL_t *rd_url=NULL; + int fd,ret; + if( stream==NULL ) return -1; + + fd = stream->fd; + if( fd<0 ) { + fd = http_send_request( stream->streaming_ctrl->url, 0 ); + if( fd<0 ) return -1; + http_hdr = http_read_response( fd ); + if( http_hdr==NULL ) return -1; + + switch( http_hdr->status_code ) { + case 200: // OK + mp_msg(MSGT_NETWORK,MSGL_V,"Content-Type: [%s]\n", http_get_field(http_hdr, "Content-Type") ); + mp_msg(MSGT_NETWORK,MSGL_V,"Content-Length: [%s]\n", http_get_field(http_hdr, "Content-Length") ); + if( http_hdr->body_size>0 ) { + if( streaming_bufferize( stream->streaming_ctrl, http_hdr->body, http_hdr->body_size )<0 ) { + http_free( http_hdr ); + return -1; + } + } + break; + // Redirect + case 301: // Permanently + case 302: // Temporarily + ret=-1; + next_url = http_get_field( http_hdr, "Location" ); + + if (next_url != NULL) + rd_url=url_new(next_url); + + if (next_url != NULL && rd_url != NULL) { + mp_msg(MSGT_NETWORK,MSGL_STATUS,"Redirected: Using this url instead %s\n",next_url); + stream->streaming_ctrl->url=check4proxies(rd_url); + ret=nop_streaming_start(stream); //recursively get streaming started + } else { + mp_msg(MSGT_NETWORK,MSGL_ERR,"Redirection failed\n"); + closesocket( fd ); + fd = -1; + } + return ret; + break; + case 401: //Authorization required + case 403: //Forbidden + case 404: //Not found + case 500: //Server Error + default: + mp_msg(MSGT_NETWORK,MSGL_ERR,"Server returned code %d: %s\n", http_hdr->status_code, http_hdr->reason_phrase ); + closesocket( fd ); + fd = -1; + return -1; + break; + } + stream->fd = fd; + } else { + http_hdr = (HTTP_header_t*)stream->streaming_ctrl->data; + if( http_hdr->body_size>0 ) { + if( streaming_bufferize( stream->streaming_ctrl, http_hdr->body, http_hdr->body_size )<0 ) { + http_free( http_hdr ); + stream->streaming_ctrl->data = NULL; + return -1; + } + } + } + + if( http_hdr ) { + http_free( http_hdr ); + stream->streaming_ctrl->data = NULL; + } + + stream->streaming_ctrl->streaming_read = nop_streaming_read; + stream->streaming_ctrl->streaming_seek = nop_streaming_seek; + stream->streaming_ctrl->prebuffer_size = 64*1024; // 64 KBytes + stream->streaming_ctrl->buffering = 1; + stream->streaming_ctrl->status = streaming_playing_e; + return 0; +} + +HTTP_header_t * +http_new_header(void) { + HTTP_header_t *http_hdr; + + http_hdr = malloc(sizeof(HTTP_header_t)); + if( http_hdr==NULL ) return NULL; + memset( http_hdr, 0, sizeof(HTTP_header_t) ); + + return http_hdr; +} + +void +http_free( HTTP_header_t *http_hdr ) { + HTTP_field_t *field, *field2free; + if( http_hdr==NULL ) return; + if( http_hdr->protocol!=NULL ) free( http_hdr->protocol ); + if( http_hdr->uri!=NULL ) free( http_hdr->uri ); + if( http_hdr->reason_phrase!=NULL ) free( http_hdr->reason_phrase ); + if( http_hdr->field_search!=NULL ) free( http_hdr->field_search ); + if( http_hdr->method!=NULL ) free( http_hdr->method ); + if( http_hdr->buffer!=NULL ) free( http_hdr->buffer ); + field = http_hdr->first_field; + while( field!=NULL ) { + field2free = field; + if (field->field_name) + free(field->field_name); + field = field->next; + free( field2free ); + } + free( http_hdr ); + http_hdr = NULL; +} + +int +http_response_append( HTTP_header_t *http_hdr, char *response, int length ) { + if( http_hdr==NULL || response==NULL || length<0 ) return -1; + + if( (unsigned)length > SIZE_MAX - http_hdr->buffer_size - 1) { + mp_msg(MSGT_NETWORK,MSGL_FATAL,"Bad size in memory (re)allocation\n"); + return -1; + } + http_hdr->buffer = (char*)realloc( http_hdr->buffer, http_hdr->buffer_size+length+1 ); + if( http_hdr->buffer==NULL ) { + mp_msg(MSGT_NETWORK,MSGL_FATAL,"Memory (re)allocation failed\n"); + return -1; + } + memcpy( http_hdr->buffer+http_hdr->buffer_size, response, length ); + http_hdr->buffer_size += length; + http_hdr->buffer[http_hdr->buffer_size]=0; // close the string! + return http_hdr->buffer_size; +} + +int +http_is_header_entire( HTTP_header_t *http_hdr ) { + if( http_hdr==NULL ) return -1; + if( http_hdr->buffer==NULL ) return 0; // empty + + if( strstr(http_hdr->buffer, "\r\n\r\n")==NULL && + strstr(http_hdr->buffer, "\n\n")==NULL ) return 0; + return 1; +} + +int +http_response_parse( HTTP_header_t *http_hdr ) { + char *hdr_ptr, *ptr; + char *field=NULL; + int pos_hdr_sep, hdr_sep_len; + size_t len; + if( http_hdr==NULL ) return -1; + if( http_hdr->is_parsed ) return 0; + + // Get the protocol + hdr_ptr = strstr( http_hdr->buffer, " " ); + if( hdr_ptr==NULL ) { + mp_msg(MSGT_NETWORK,MSGL_ERR,"Malformed answer. No space separator found.\n"); + return -1; + } + len = hdr_ptr-http_hdr->buffer; + http_hdr->protocol = malloc(len+1); + if( http_hdr->protocol==NULL ) { + mp_msg(MSGT_NETWORK,MSGL_FATAL,"Memory allocation failed\n"); + return -1; + } + strncpy( http_hdr->protocol, http_hdr->buffer, len ); + http_hdr->protocol[len]='\0'; + if( !strncasecmp( http_hdr->protocol, "HTTP", 4) ) { + if( sscanf( http_hdr->protocol+5,"1.%d", &(http_hdr->http_minor_version) )!=1 ) { + mp_msg(MSGT_NETWORK,MSGL_ERR,"Malformed answer. Unable to get HTTP minor version.\n"); + return -1; + } + } + + // Get the status code + if( sscanf( ++hdr_ptr, "%d", &(http_hdr->status_code) )!=1 ) { + mp_msg(MSGT_NETWORK,MSGL_ERR,"Malformed answer. Unable to get status code.\n"); + return -1; + } + hdr_ptr += 4; + + // Get the reason phrase + ptr = strstr( hdr_ptr, "\n" ); + if( hdr_ptr==NULL ) { + mp_msg(MSGT_NETWORK,MSGL_ERR,"Malformed answer. Unable to get the reason phrase.\n"); + return -1; + } + len = ptr-hdr_ptr; + http_hdr->reason_phrase = malloc(len+1); + if( http_hdr->reason_phrase==NULL ) { + mp_msg(MSGT_NETWORK,MSGL_FATAL,"Memory allocation failed\n"); + return -1; + } + strncpy( http_hdr->reason_phrase, hdr_ptr, len ); + if( http_hdr->reason_phrase[len-1]=='\r' ) { + len--; + } + http_hdr->reason_phrase[len]='\0'; + + // Set the position of the header separator: \r\n\r\n + hdr_sep_len = 4; + ptr = strstr( http_hdr->buffer, "\r\n\r\n" ); + if( ptr==NULL ) { + ptr = strstr( http_hdr->buffer, "\n\n" ); + if( ptr==NULL ) { + mp_msg(MSGT_NETWORK,MSGL_ERR,"Header may be incomplete. No CRLF CRLF found.\n"); + return -1; + } + hdr_sep_len = 2; + } + pos_hdr_sep = ptr-http_hdr->buffer; + + // Point to the first line after the method line. + hdr_ptr = strstr( http_hdr->buffer, "\n" )+1; + do { + ptr = hdr_ptr; + while( *ptr!='\r' && *ptr!='\n' ) ptr++; + len = ptr-hdr_ptr; + if( len==0 ) break; + field = (char*)realloc(field, len+1); + if( field==NULL ) { + mp_msg(MSGT_NETWORK,MSGL_ERR,"Memory allocation failed\n"); + return -1; + } + strncpy( field, hdr_ptr, len ); + field[len]='\0'; + http_set_field( http_hdr, field ); + hdr_ptr = ptr+((*ptr=='\r')?2:1); + } while( hdr_ptr<(http_hdr->buffer+pos_hdr_sep) ); + + if( field!=NULL ) free( field ); + + if( pos_hdr_sep+hdr_sep_lenbuffer_size ) { + // Response has data! + http_hdr->body = http_hdr->buffer+pos_hdr_sep+hdr_sep_len; + http_hdr->body_size = http_hdr->buffer_size-(pos_hdr_sep+hdr_sep_len); + } + + http_hdr->is_parsed = 1; + return 0; +} + +char * +http_build_request( HTTP_header_t *http_hdr ) { + char *ptr, *uri=NULL; + int len; + HTTP_field_t *field; + if( http_hdr==NULL ) return NULL; + + if( http_hdr->method==NULL ) http_set_method( http_hdr, "GET"); + if( http_hdr->uri==NULL ) http_set_uri( http_hdr, "/"); + else { + uri = malloc(strlen(http_hdr->uri) + 1); + if( uri==NULL ) { + mp_msg(MSGT_NETWORK,MSGL_ERR,"Memory allocation failed\n"); + return NULL; + } + strcpy(uri,http_hdr->uri); + } + + //**** Compute the request length + // Add the Method line + len = strlen(http_hdr->method)+strlen(uri)+12; + // Add the fields + field = http_hdr->first_field; + while( field!=NULL ) { + len += strlen(field->field_name)+2; + field = field->next; + } + // Add the CRLF + len += 2; + // Add the body + if( http_hdr->body!=NULL ) { + len += http_hdr->body_size; + } + // Free the buffer if it was previously used + if( http_hdr->buffer!=NULL ) { + free( http_hdr->buffer ); + http_hdr->buffer = NULL; + } + http_hdr->buffer = malloc(len+1); + if( http_hdr->buffer==NULL ) { + mp_msg(MSGT_NETWORK,MSGL_ERR,"Memory allocation failed\n"); + return NULL; + } + http_hdr->buffer_size = len; + + //*** Building the request + ptr = http_hdr->buffer; + // Add the method line + ptr += sprintf( ptr, "%s %s HTTP/1.%d\r\n", http_hdr->method, uri, http_hdr->http_minor_version ); + field = http_hdr->first_field; + // Add the field + while( field!=NULL ) { + ptr += sprintf( ptr, "%s\r\n", field->field_name ); + field = field->next; + } + ptr += sprintf( ptr, "\r\n" ); + // Add the body + if( http_hdr->body!=NULL ) { + memcpy( ptr, http_hdr->body, http_hdr->body_size ); + } + + if( uri ) free( uri ); + return http_hdr->buffer; +} + +char * +http_get_field( HTTP_header_t *http_hdr, const char *field_name ) { + if( http_hdr==NULL || field_name==NULL ) return NULL; + http_hdr->field_search_pos = http_hdr->first_field; + http_hdr->field_search = (char*)realloc( http_hdr->field_search, strlen(field_name)+1 ); + if( http_hdr->field_search==NULL ) { + mp_msg(MSGT_NETWORK,MSGL_FATAL,"Memory allocation failed\n"); + return NULL; + } + strcpy( http_hdr->field_search, field_name ); + return http_get_next_field( http_hdr ); +} + +char * +http_get_next_field( HTTP_header_t *http_hdr ) { + char *ptr; + HTTP_field_t *field; + if( http_hdr==NULL ) return NULL; + + field = http_hdr->field_search_pos; + while( field!=NULL ) { + ptr = strstr( field->field_name, ":" ); + if( ptr==NULL ) return NULL; + if( !strncasecmp( field->field_name, http_hdr->field_search, ptr-(field->field_name) ) ) { + ptr++; // Skip the column + while( ptr[0]==' ' ) ptr++; // Skip the spaces if there is some + http_hdr->field_search_pos = field->next; + return ptr; // return the value without the field name + } + field = field->next; + } + return NULL; +} + +void +http_set_field( HTTP_header_t *http_hdr, const char *field_name ) { + HTTP_field_t *new_field; + if( http_hdr==NULL || field_name==NULL ) return; + + new_field = malloc(sizeof(HTTP_field_t)); + if( new_field==NULL ) { + mp_msg(MSGT_NETWORK,MSGL_FATAL,"Memory allocation failed\n"); + return; + } + new_field->next = NULL; + new_field->field_name = malloc(strlen(field_name)+1); + if( new_field->field_name==NULL ) { + mp_msg(MSGT_NETWORK,MSGL_FATAL,"Memory allocation failed\n"); + return; + } + strcpy( new_field->field_name, field_name ); + + if( http_hdr->last_field==NULL ) { + http_hdr->first_field = new_field; + } else { + http_hdr->last_field->next = new_field; + } + http_hdr->last_field = new_field; + http_hdr->field_nb++; +} + +void +http_set_method( HTTP_header_t *http_hdr, const char *method ) { + if( http_hdr==NULL || method==NULL ) return; + + http_hdr->method = malloc(strlen(method)+1); + if( http_hdr->method==NULL ) { + mp_msg(MSGT_NETWORK,MSGL_FATAL,"Memory allocation failed\n"); + return; + } + strcpy( http_hdr->method, method ); +} + +void +http_set_uri( HTTP_header_t *http_hdr, const char *uri ) { + if( http_hdr==NULL || uri==NULL ) return; + + http_hdr->uri = malloc(strlen(uri)+1); + if( http_hdr->uri==NULL ) { + mp_msg(MSGT_NETWORK,MSGL_FATAL,"Memory allocation failed\n"); + return; + } + strcpy( http_hdr->uri, uri ); +} + +int +http_add_basic_authentication( HTTP_header_t *http_hdr, const char *username, const char *password ) { + char *auth = NULL, *usr_pass = NULL, *b64_usr_pass = NULL; + int encoded_len, pass_len=0, out_len; + int res = -1; + if( http_hdr==NULL || username==NULL ) return -1; + + if( password!=NULL ) { + pass_len = strlen(password); + } + + usr_pass = malloc(strlen(username)+pass_len+2); + if( usr_pass==NULL ) { + mp_msg(MSGT_NETWORK,MSGL_FATAL,"Memory allocation failed\n"); + goto out; + } + + sprintf( usr_pass, "%s:%s", username, (password==NULL)?"":password ); + + // Base 64 encode with at least 33% more data than the original size + encoded_len = strlen(usr_pass)*2; + b64_usr_pass = malloc(encoded_len); + if( b64_usr_pass==NULL ) { + mp_msg(MSGT_NETWORK,MSGL_FATAL,"Memory allocation failed\n"); + goto out; + } + + out_len = base64_encode( usr_pass, strlen(usr_pass), b64_usr_pass, encoded_len); + if( out_len<0 ) { + mp_msg(MSGT_NETWORK,MSGL_FATAL,"Base64 out overflow\n"); + goto out; + } + + b64_usr_pass[out_len]='\0'; + + auth = malloc(encoded_len+22); + if( auth==NULL ) { + mp_msg(MSGT_NETWORK,MSGL_FATAL,"Memory allocation failed\n"); + goto out; + } + + sprintf( auth, "Authorization: Basic %s", b64_usr_pass); + http_set_field( http_hdr, auth ); + res = 0; + +out: + free( usr_pass ); + free( b64_usr_pass ); + free( auth ); + + return res; +} + +void +http_debug_hdr( HTTP_header_t *http_hdr ) { + HTTP_field_t *field; + int i = 0; + if( http_hdr==NULL ) return; + + mp_msg(MSGT_NETWORK,MSGL_V,"--- HTTP DEBUG HEADER --- START ---\n"); + mp_msg(MSGT_NETWORK,MSGL_V,"protocol: [%s]\n", http_hdr->protocol ); + mp_msg(MSGT_NETWORK,MSGL_V,"http minor version: [%d]\n", http_hdr->http_minor_version ); + mp_msg(MSGT_NETWORK,MSGL_V,"uri: [%s]\n", http_hdr->uri ); + mp_msg(MSGT_NETWORK,MSGL_V,"method: [%s]\n", http_hdr->method ); + mp_msg(MSGT_NETWORK,MSGL_V,"status code: [%d]\n", http_hdr->status_code ); + mp_msg(MSGT_NETWORK,MSGL_V,"reason phrase: [%s]\n", http_hdr->reason_phrase ); + mp_msg(MSGT_NETWORK,MSGL_V,"body size: [%d]\n", http_hdr->body_size ); + + mp_msg(MSGT_NETWORK,MSGL_V,"Fields:\n"); + field = http_hdr->first_field; + while( field!=NULL ) { + mp_msg(MSGT_NETWORK,MSGL_V," %d - %s\n", i++, field->field_name ); + field = field->next; + } + mp_msg(MSGT_NETWORK,MSGL_V,"--- HTTP DEBUG HEADER --- END ---\n"); +} + +int +base64_encode(const void *enc, int encLen, char *out, int outMax) { + static const char b64[] = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"; + + unsigned char *encBuf; + int outLen; + unsigned int bits; + unsigned int shift; + + encBuf = (unsigned char*)enc; + outLen = 0; + bits = 0; + shift = 0; + outMax &= ~3; + + while( outLen0 ) { + // Shift in byte + bits <<= 8; + bits |= *encBuf; + shift += 8; + // Next byte + encBuf++; + encLen--; + } else if( shift>0 ) { + // Pad last bits to 6 bits - will end next loop + bits <<= 6 - shift; + shift = 6; + } else { + // As per RFC 2045, section 6.8, + // pad output as necessary: 0 to 2 '=' chars. + while( outLen & 3 ){ + *out++ = '='; + outLen++; + } + + return outLen; + } + + // Encode 6 bit segments + while( shift>=6 ) { + shift -= 6; + *out = b64[ (bits >> shift) & 0x3F ]; + out++; + outLen++; + } + } + + // Output overflow + return -1; +} + +static int http_streaming_start(stream_t *stream, int* file_format) { + HTTP_header_t *http_hdr; + unsigned int i; + int fd=-1; + int redirect = 0; + int auth_retry=0; + int seekable=0; + char *content_type; + char *next_url; + URL_t *url = stream->streaming_ctrl->url; + + do + { + fd = http_send_request( url, 0 ); + if( fd<0 ) { + return -1; + } + + http_hdr = http_read_response( fd ); + if( http_hdr==NULL ) { + closesocket( fd ); + http_free( http_hdr ); + return -1; + } + + stream->fd=fd; + if( mp_msg_test(MSGT_NETWORK,MSGL_V) ) { + http_debug_hdr( http_hdr ); + } + + stream->streaming_ctrl->data = (void*)http_hdr; + + // Check if we can make partial content requests and thus seek in http-streams + if( http_hdr!=NULL && http_hdr->status_code==200 ) { + char *accept_ranges; + if( (accept_ranges = http_get_field(http_hdr,"Accept-Ranges")) != NULL ) + seekable = strncmp(accept_ranges,"bytes",5)==0; + } + + // Check if the response is an ICY status_code reason_phrase + if( !strcasecmp(http_hdr->protocol, "ICY") ) { + switch( http_hdr->status_code ) { + case 200: { // OK + char *field_data = NULL; + // note: I skip icy-notice1 and 2, as they contain html
+ // and are IMHO useless info ::atmos + if( (field_data = http_get_field(http_hdr, "icy-name")) != NULL ) + mp_msg(MSGT_NETWORK,MSGL_INFO,"Name : %s\n", field_data); field_data = NULL; + if( (field_data = http_get_field(http_hdr, "icy-genre")) != NULL ) + mp_msg(MSGT_NETWORK,MSGL_INFO,"Genre : %s\n", field_data); field_data = NULL; + if( (field_data = http_get_field(http_hdr, "icy-url")) != NULL ) + mp_msg(MSGT_NETWORK,MSGL_INFO,"Website: %s\n", field_data); field_data = NULL; + // XXX: does this really mean public server? ::atmos + if( (field_data = http_get_field(http_hdr, "icy-pub")) != NULL ) + mp_msg(MSGT_NETWORK,MSGL_INFO,"Public : %s\n", atoi(field_data)?"yes":"no"); field_data = NULL; + if( (field_data = http_get_field(http_hdr, "icy-br")) != NULL ) + mp_msg(MSGT_NETWORK,MSGL_INFO,"Bitrate: %skbit/s\n", field_data); field_data = NULL; + + // If content-type == video/nsv we most likely have a winamp video stream + // otherwise it should be mp3. if there are more types consider adding mime type + // handling like later + if ( (field_data = http_get_field(http_hdr, "content-type")) != NULL && (!strcmp(field_data, "video/nsv") || !strcmp(field_data, "misc/ultravox"))) + *file_format = DEMUXER_TYPE_NSV; + else if ( (field_data = http_get_field(http_hdr, "content-type")) != NULL && (!strcmp(field_data, "audio/aacp") || !strcmp(field_data, "audio/aac"))) + *file_format = DEMUXER_TYPE_AAC; + else + *file_format = DEMUXER_TYPE_AUDIO; + return 0; + } + case 400: // Server Full + mp_msg(MSGT_NETWORK,MSGL_ERR,"Error: ICY-Server is full, skipping!\n"); + return -1; + case 401: // Service Unavailable + mp_msg(MSGT_NETWORK,MSGL_ERR,"Error: ICY-Server return service unavailable, skipping!\n"); + return -1; + case 403: // Service Forbidden + mp_msg(MSGT_NETWORK,MSGL_ERR,"Error: ICY-Server return 'Service Forbidden'\n"); + return -1; + case 404: // Resource Not Found + mp_msg(MSGT_NETWORK,MSGL_ERR,"Error: ICY-Server couldn't find requested stream, skipping!\n"); + return -1; + default: + mp_msg(MSGT_NETWORK,MSGL_ERR,"Error: unhandled ICY-Errorcode, contact MPlayer developers!\n"); + return -1; + } + } + + // Assume standard http if not ICY + switch( http_hdr->status_code ) { + case 200: // OK + // Look if we can use the Content-Type + content_type = http_get_field( http_hdr, "Content-Type" ); + if( content_type!=NULL ) { + char *content_length = NULL; + mp_msg(MSGT_NETWORK,MSGL_V,"Content-Type: [%s]\n", content_type ); + if( (content_length = http_get_field(http_hdr, "Content-Length")) != NULL) + mp_msg(MSGT_NETWORK,MSGL_V,"Content-Length: [%s]\n", http_get_field(http_hdr, "Content-Length")); + // Check in the mime type table for a demuxer type + i = 0; + while(mime_type_table[i].mime_type != NULL) { + if( !strcasecmp( content_type, mime_type_table[i].mime_type ) ) { + *file_format = mime_type_table[i].demuxer_type; + return seekable; + } + i++; + } + } + // Not found in the mime type table, don't fail, + // we should try raw HTTP + return seekable; + // Redirect + case 301: // Permanently + case 302: // Temporarily + // TODO: RFC 2616, recommand to detect infinite redirection loops + next_url = http_get_field( http_hdr, "Location" ); + if( next_url!=NULL ) { + closesocket( fd ); + url_free( url ); + stream->streaming_ctrl->url = url = url_new( next_url ); + http_free( http_hdr ); + redirect = 1; + } + break; + case 401: // Authentication required + if( http_authenticate(http_hdr, url, &auth_retry)<0 ) return STREAM_UNSUPORTED; + redirect = 1; + break; + default: + mp_msg(MSGT_NETWORK,MSGL_ERR,"Server returned %d: %s\n", http_hdr->status_code, http_hdr->reason_phrase ); + return -1; + } + } while( redirect ); + + return -1; +} + +static int fixup_open(stream_t *stream,int seekable) { + HTTP_header_t *http_hdr = stream->streaming_ctrl->data; + int is_icy = http_hdr && http_get_field(http_hdr, "Icy-MetaInt"); + int is_ultravox = strcasecmp(stream->streaming_ctrl->url->protocol, "unsv") == 0; + + stream->type = STREAMTYPE_STREAM; + if(!is_icy && !is_ultravox && seekable) + { + stream->flags |= STREAM_SEEK; + stream->seek = http_seek; + } + stream->streaming_ctrl->bandwidth = network_bandwidth; + if ((!is_icy && !is_ultravox) || scast_streaming_start(stream)) + if(nop_streaming_start( stream )) { + mp_msg(MSGT_NETWORK,MSGL_ERR,"nop_streaming_start failed\n"); + streaming_ctrl_free(stream->streaming_ctrl); + stream->streaming_ctrl = NULL; + return STREAM_UNSUPORTED; + } + + fixup_network_stream_cache(stream); + return STREAM_OK; +} + +static int open_s1(stream_t *stream,int mode, void* opts, int* file_format) { + int seekable=0; + URL_t *url; + + stream->streaming_ctrl = streaming_ctrl_new(); + if( stream->streaming_ctrl==NULL ) { + return STREAM_ERROR; + } + stream->streaming_ctrl->bandwidth = network_bandwidth; + url = url_new(stream->url); + stream->streaming_ctrl->url = check4proxies(url); + url_free(url); + + mp_msg(MSGT_OPEN, MSGL_INFO, "STREAM_HTTP(1), URL: %s\n", stream->url); + seekable = http_streaming_start(stream, file_format); + if((seekable < 0) || (*file_format == DEMUXER_TYPE_ASF)) { + streaming_ctrl_free(stream->streaming_ctrl); + stream->streaming_ctrl = NULL; + return STREAM_UNSUPORTED; + } + + return fixup_open(stream, seekable); +} + +static int open_s2(stream_t *stream,int mode, void* opts, int* file_format) { + int seekable=0; + URL_t *url; + + stream->streaming_ctrl = streaming_ctrl_new(); + if( stream->streaming_ctrl==NULL ) { + return STREAM_ERROR; + } + stream->streaming_ctrl->bandwidth = network_bandwidth; + url = url_new(stream->url); + stream->streaming_ctrl->url = check4proxies(url); + url_free(url); + + mp_msg(MSGT_OPEN, MSGL_INFO, "STREAM_HTTP(2), URL: %s\n", stream->url); + seekable = http_streaming_start(stream, file_format); + if(seekable < 0) { + streaming_ctrl_free(stream->streaming_ctrl); + stream->streaming_ctrl = NULL; + return STREAM_UNSUPORTED; + } + + return fixup_open(stream, seekable); +} + + +stream_info_t stream_info_http1 = { + "http streaming", + "null", + "Bertrand, Albeau, Reimar Doeffinger, Arpi?", + "plain http", + open_s1, + {"http", "http_proxy", "unsv", NULL}, + NULL, + 0 // Urls are an option string +}; + +stream_info_t stream_info_http2 = { + "http streaming", + "null", + "Bertrand, Albeu, Arpi? who?", + "plain http, also used as fallback for many other protocols", + open_s2, + {"http", "http_proxy", "pnm", "mms", "mmsu", "mmst", "rtsp", NULL}, //all the others as fallback + NULL, + 0 // Urls are an option string +}; -- cgit v1.2.3