X-Git-Url: https://git.sesse.net/?a=blobdiff_plain;f=modules%2Faccess%2Fhttp.c;h=a1d1d4a8a4f6b35db0d14c3a587c140efb36af9f;hb=100c925778cd6c96e5371777d49b326a05a2fae9;hp=cd481a78d6ae2e9a2c808c588167d797027851c3;hpb=a4f05a55bda7234716b7f238b3daea86cb08da25;p=vlc diff --git a/modules/access/http.c b/modules/access/http.c index cd481a78d6..a1d1d4a8a4 100644 --- a/modules/access/http.c +++ b/modules/access/http.c @@ -1,11 +1,12 @@ /***************************************************************************** * http.c: HTTP input module ***************************************************************************** - * Copyright (C) 2001-2004 VideoLAN + * Copyright (C) 2001-2005 the VideoLAN team * $Id$ * * Authors: Laurent Aimar * Christophe Massiot + * Rémi Denis-Courmont * * 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 @@ -19,19 +20,24 @@ * * 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, USA. + * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston MA 02110-1301, USA. *****************************************************************************/ /***************************************************************************** * Preamble *****************************************************************************/ -#include - #include -#include -#include "vlc_playlist.h" -#include "network.h" + +#include + +#include +#include +#include +#include +#include +#include +#include /***************************************************************************** * Module descriptor @@ -41,49 +47,53 @@ static void Close( vlc_object_t * ); #define PROXY_TEXT N_("HTTP proxy") #define PROXY_LONGTEXT N_( \ - "You can specify an HTTP proxy to use. It must be of the form " \ - "http://myproxy.mydomain:myport/. If none is specified, the HTTP_PROXY " \ - "environment variable will be tried." ) + "HTTP proxy to be used It must be of the form " \ + "http://[user[:pass]@]myproxy.mydomain:myport/ ; " \ + "if empty, the http_proxy environment variable will be tried." ) #define CACHING_TEXT N_("Caching value in ms") #define CACHING_LONGTEXT N_( \ - "Allows you to modify the default caching value for http streams. This " \ - "value should be set in millisecond units." ) - -#define USER_TEXT N_("HTTP user name") -#define USER_LONGTEXT N_("Allows you to modify the user name that will " \ - "be used for the connection (Basic authentication only).") - -#define PASS_TEXT N_("HTTP password") -#define PASS_LONGTEXT N_("Allows you to modify the password that will be " \ - "used for the connection.") + "Caching value for HTTP streams. This " \ + "value should be set in milliseconds." ) #define AGENT_TEXT N_("HTTP user agent") -#define AGENT_LONGTEXT N_("Allows you to modify the user agent that will be " \ +#define AGENT_LONGTEXT N_("User agent that will be " \ "used for the connection.") #define RECONNECT_TEXT N_("Auto re-connect") -#define RECONNECT_LONGTEXT N_("Will automatically attempt a re-connection " \ - "in case it was untimely closed.") +#define RECONNECT_LONGTEXT N_( \ + "Automatically try to reconnect to the stream in case of a sudden " \ + "disconnect." ) + +#define CONTINUOUS_TEXT N_("Continuous stream") +#define CONTINUOUS_LONGTEXT N_("Read a file that is " \ + "being constantly updated (for example, a JPG file on a server). " \ + "You should not globally enable this option as it will break all other " \ + "types of HTTP streams." ) vlc_module_begin(); set_description( _("HTTP input") ); set_capability( "access2", 0 ); + set_shortname( _( "HTTP(S)" ) ); + set_category( CAT_INPUT ); + set_subcategory( SUBCAT_INPUT_ACCESS ); add_string( "http-proxy", NULL, NULL, PROXY_TEXT, PROXY_LONGTEXT, VLC_FALSE ); add_integer( "http-caching", 4 * DEFAULT_PTS_DELAY / 1000, NULL, CACHING_TEXT, CACHING_LONGTEXT, VLC_TRUE ); - add_string( "http-user", NULL, NULL, USER_TEXT, USER_LONGTEXT, VLC_FALSE ); - add_string( "http-pwd", NULL , NULL, PASS_TEXT, PASS_LONGTEXT, VLC_FALSE ); add_string( "http-user-agent", COPYRIGHT_MESSAGE , NULL, AGENT_TEXT, - AGENT_LONGTEXT, VLC_FALSE ); + AGENT_LONGTEXT, VLC_TRUE ); add_bool( "http-reconnect", 0, NULL, RECONNECT_TEXT, RECONNECT_LONGTEXT, VLC_TRUE ); - + add_bool( "http-continuous", 0, NULL, CONTINUOUS_TEXT, + CONTINUOUS_LONGTEXT, VLC_TRUE ); + add_obsolete_string("http-user"); + add_obsolete_string("http-pwd"); add_shortcut( "http" ); - add_shortcut( "http4" ); - add_shortcut( "http6" ); + add_shortcut( "https" ); + add_shortcut( "unsv" ); + add_shortcut( "itpc" ); /* iTunes Podcast */ set_callbacks( Open, Close ); vlc_module_end(); @@ -93,11 +103,11 @@ vlc_module_end(); struct access_sys_t { int fd; + tls_session_t *p_tls; + v_socket_t *p_vs; /* From uri */ vlc_url_t url; - char *psz_user; - char *psz_passwd; char *psz_user_agent; /* Proxy */ @@ -106,19 +116,29 @@ struct access_sys_t /* */ int i_code; - char *psz_protocol; + const char *psz_protocol; int i_version; char *psz_mime; char *psz_pragma; char *psz_location; vlc_bool_t b_mms; + vlc_bool_t b_icecast; + vlc_bool_t b_ssl; vlc_bool_t b_chunked; int64_t i_chunk; + int i_icy_meta; + char *psz_icy_name; + char *psz_icy_genre; + char *psz_icy_title; + + int i_remaining; + vlc_bool_t b_seekable; vlc_bool_t b_reconnect; + vlc_bool_t b_continuous; vlc_bool_t b_pace_control; }; @@ -128,8 +148,9 @@ static int Seek( access_t *, int64_t ); static int Control( access_t *, int, va_list ); /* */ -static void ParseURL( access_sys_t *, char *psz_url ); -static int Connect( access_t *, int64_t ); +static int Connect( access_t *, int64_t ); +static int Request( access_t *p_access, int64_t i_tell ); +static void Disconnect( access_t * ); /***************************************************************************** * Open: @@ -138,47 +159,10 @@ static int Open( vlc_object_t *p_this ) { access_t *p_access = (access_t*)p_this; access_sys_t *p_sys; - char *psz; - - /* First set ipv4/ipv6 */ - var_Create( p_access, "ipv4", VLC_VAR_BOOL | VLC_VAR_DOINHERIT ); - var_Create( p_access, "ipv6", VLC_VAR_BOOL | VLC_VAR_DOINHERIT ); - - if( *p_access->psz_access ) - { - vlc_value_t val; - /* Find out which shortcut was used */ - if( !strncmp( p_access->psz_access, "http4", 6 ) ) - { - val.b_bool = VLC_TRUE; - var_Set( p_access, "ipv4", val ); - - val.b_bool = VLC_FALSE; - var_Set( p_access, "ipv6", val ); - } - else if( !strncmp( p_access->psz_access, "http6", 6 ) ) - { - val.b_bool = VLC_TRUE; - var_Set( p_access, "ipv6", val ); - - val.b_bool = VLC_FALSE; - var_Set( p_access, "ipv4", val ); - } - } + char *psz, *p; /* Set up p_access */ - p_access->pf_read = Read; - p_access->pf_block = NULL; - p_access->pf_control = Control; - p_access->pf_seek = Seek; - p_access->info.i_update = 0; - p_access->info.i_size = 0; - p_access->info.i_pos = 0; - p_access->info.b_eof = VLC_FALSE; - p_access->info.i_title = 0; - p_access->info.i_seekpoint = 0; - p_access->p_sys = p_sys = malloc( sizeof( access_sys_t ) ); - memset( p_sys, 0, sizeof( access_sys_t ) ); + STANDARD_READ_ACCESS_INIT; p_sys->fd = -1; p_sys->b_proxy = VLC_FALSE; p_sys->i_version = 1; @@ -186,25 +170,43 @@ static int Open( vlc_object_t *p_this ) p_sys->psz_mime = NULL; p_sys->psz_pragma = NULL; p_sys->b_mms = VLC_FALSE; + p_sys->b_icecast = VLC_FALSE; p_sys->psz_location = NULL; p_sys->psz_user_agent = NULL; p_sys->b_pace_control = VLC_TRUE; + p_sys->b_ssl = VLC_FALSE; + p_sys->p_tls = NULL; + p_sys->p_vs = NULL; + p_sys->i_icy_meta = 0; + p_sys->psz_icy_name = NULL; + p_sys->psz_icy_genre = NULL; + p_sys->psz_icy_title = NULL; + p_sys->i_remaining = 0; + + + /* Parse URI - remove spaces */ + p = psz = strdup( p_access->psz_path ); + while( (p = strchr( p, ' ' )) != NULL ) + *p = '+'; + vlc_UrlParse( &p_sys->url, psz, 0 ); + free( psz ); - /* Parse URI */ - ParseURL( p_sys, p_access->psz_path ); if( p_sys->url.psz_host == NULL || *p_sys->url.psz_host == '\0' ) { msg_Warn( p_access, "invalid host" ); goto error; } - if( p_sys->url.i_port <= 0 ) + if( !strncmp( p_access->psz_access, "https", 5 ) ) { - p_sys->url.i_port = 80; + /* HTTP over SSL */ + p_sys->b_ssl = VLC_TRUE; + if( p_sys->url.i_port <= 0 ) + p_sys->url.i_port = 443; } - if( !p_sys->psz_user || *p_sys->psz_user == '\0' ) + else { - p_sys->psz_user = var_CreateGetString( p_access, "http-user" ); - p_sys->psz_passwd = var_CreateGetString( p_access, "http-pwd" ); + if( p_sys->url.i_port <= 0 ) + p_sys->url.i_port = 80; } /* Do user agent */ @@ -217,6 +219,7 @@ static int Open( vlc_object_t *p_this ) p_sys->b_proxy = VLC_TRUE; vlc_UrlParse( &p_sys->proxy, psz, 0 ); } +#ifdef HAVE_GETENV else { char *psz_proxy = getenv( "http_proxy" ); @@ -225,9 +228,8 @@ static int Open( vlc_object_t *p_this ) p_sys->b_proxy = VLC_TRUE; vlc_UrlParse( &p_sys->proxy, psz_proxy, 0 ); } - if( psz_proxy ) - free( psz_proxy ); } +#endif free( psz ); if( p_sys->b_proxy ) @@ -250,23 +252,63 @@ static int Open( vlc_object_t *p_this ) msg_Dbg( p_access, " proxy %s:%d", p_sys->proxy.psz_host, p_sys->proxy.i_port ); } - if( p_sys->psz_user && *p_sys->psz_user ) + if( p_sys->url.psz_username && *p_sys->url.psz_username ) { msg_Dbg( p_access, " user='%s', pwd='%s'", - p_sys->psz_user, p_sys->psz_passwd ); + p_sys->url.psz_username, p_sys->url.psz_password ); } p_sys->b_reconnect = var_CreateGetBool( p_access, "http-reconnect" ); + p_sys->b_continuous = var_CreateGetBool( p_access, "http-continuous" ); +connect: /* Connect */ - if( Connect( p_access, 0 ) ) + switch( Connect( p_access, 0 ) ) { - /* Retry with http 1.0 */ - p_sys->i_version = 0; + case -1: + goto error; + + case -2: + /* Retry with http 1.0 */ + msg_Dbg( p_access, "switching to HTTP version 1.0" ); + p_sys->i_version = 0; + p_sys->b_seekable = VLC_FALSE; + + if( p_access->b_die || Connect( p_access, 0 ) ) + goto error; + +#ifdef DEBUG + case 0: + break; + + default: + msg_Err( p_access, "You should not be here" ); + abort(); +#endif + } - if( p_access->b_die || - Connect( p_access, 0 ) ) + if( p_sys->i_code == 401 ) + { + char *psz_login = NULL; char *psz_password = NULL; + int i_ret; + msg_Dbg( p_access, "authentication failed" ); + i_ret = intf_UserLoginPassword( p_access, _("HTTP authentication"), + _("Please enter a valid login name and a password."), + &psz_login, &psz_password ); + if( i_ret == DIALOG_OK_YES ) + { + msg_Dbg( p_access, "retrying with user=%s, pwd=%s", + psz_login, psz_password ); + if( psz_login ) p_sys->url.psz_username = strdup( psz_login ); + if( psz_password ) p_sys->url.psz_password = strdup( psz_password ); + if( psz_login ) free( psz_login ); + if( psz_password ) free( psz_password ); + goto connect; + } + else { + if( psz_login ) free( psz_login ); + if( psz_password ) free( psz_password ); goto error; } } @@ -276,47 +318,96 @@ static int Open( vlc_object_t *p_this ) p_sys->psz_location && *p_sys->psz_location ) { playlist_t * p_playlist; + input_item_t *p_input_item; msg_Dbg( p_access, "redirection to %s", p_sys->psz_location ); - p_playlist = vlc_object_find( p_access, VLC_OBJECT_PLAYLIST, - FIND_ANYWHERE ); - if( !p_playlist ) + /* Do not accept redirection outside of HTTP works */ + if( strncmp( p_sys->psz_location, "http", 4 ) + || ( ( p_sys->psz_location[4] != ':' ) /* HTTP */ + && strncmp( p_sys->psz_location + 4, "s:", 2 ) /* HTTP/SSL */ ) ) { - msg_Err( p_access, "redirection failed: can't find playlist" ); + msg_Err( p_access, "insecure redirection ignored" ); goto error; } - p_playlist->pp_items[p_playlist->i_index]->b_autodeletion = VLC_TRUE; - playlist_Add( p_playlist, p_sys->psz_location, p_sys->psz_location, - PLAYLIST_INSERT, - p_playlist->i_index + 1 ); - vlc_object_release( p_playlist ); - p_access->info.i_size = 0; /* Force to stop reading */ + /* Change the URI */ + p_playlist = pl_Yield( p_access ); + PL_LOCK; + + p_input_item = p_playlist->status.p_item->p_input; + input_item_SetURI( p_input_item, p_sys->psz_location ); + free( p_access->psz_path ); + p_access->psz_path = strdup( p_sys->psz_location ); + + PL_UNLOCK; + pl_Release( p_access ); + + /* Clean up current Open() run */ + vlc_UrlClean( &p_sys->url ); + vlc_UrlClean( &p_sys->proxy ); + free( p_sys->psz_mime ); + free( p_sys->psz_pragma ); + free( p_sys->psz_location ); + free( p_sys->psz_user_agent ); + + Disconnect( p_access ); + free( p_sys ); + + /* Do new Open() run with new data */ + return Open( p_this ); } if( p_sys->b_mms ) { - msg_Dbg( p_access, "This is actually a live mms server, BAIL" ); + msg_Dbg( p_access, "this is actually a live mms server, BAIL" ); goto error; } - if( !strcmp( p_sys->psz_protocol, "ICY" ) ) + if( !strcmp( p_sys->psz_protocol, "ICY" ) || p_sys->b_icecast ) { - if( p_sys->psz_mime && !strcasecmp( p_sys->psz_mime, "video/nsv" ) ) - p_access->psz_demux = strdup( "nsv" ); - else if( p_sys->psz_mime && - ( !strcasecmp( p_sys->psz_mime, "audio/aac" ) || - !strcasecmp( p_sys->psz_mime, "audio/aacp" ) ) ) - p_access->psz_demux = strdup( "m4a" ); - else - p_access->psz_demux = strdup( "mp3" ); - - msg_Info( p_access, "ICY server found, %s demuxer selected", - p_access->psz_demux ); - - p_sys->b_pace_control = VLC_FALSE; + if( p_sys->psz_mime && strcasecmp( p_sys->psz_mime, "application/ogg" ) ) + { + if( !strcasecmp( p_sys->psz_mime, "video/nsv" ) || + !strcasecmp( p_sys->psz_mime, "video/nsa" ) ) + p_access->psz_demux = strdup( "nsv" ); + else if( !strcasecmp( p_sys->psz_mime, "audio/aac" ) || + !strcasecmp( p_sys->psz_mime, "audio/aacp" ) ) + p_access->psz_demux = strdup( "m4a" ); + else if( !strcasecmp( p_sys->psz_mime, "audio/mpeg" ) ) + p_access->psz_demux = strdup( "mp3" ); + + msg_Info( p_access, "Raw-audio server found, %s demuxer selected", + p_access->psz_demux ); + +#if 0 /* Doesn't work really well because of the pre-buffering in + * shoutcast servers (the buffer content will be sent as fast as + * possible). */ + p_sys->b_pace_control = VLC_FALSE; +#endif + } + else if( !p_sys->psz_mime ) + { + /* Shoutcast */ + p_access->psz_demux = strdup( "mp3" ); + } + /* else probably Ogg Vorbis */ + } + else if( !strcasecmp( p_access->psz_access, "unsv" ) && + p_sys->psz_mime && + !strcasecmp( p_sys->psz_mime, "misc/ultravox" ) ) + { + /* Grrrr! detect ultravox server and force NSV demuxer */ + p_access->psz_demux = strdup( "nsv" ); + } + else if( !strcmp( p_access->psz_access, "itpc" ) ) + { + p_access->psz_demux = strdup( "podcast" ); } + else if( p_sys->psz_mime && + !strncasecmp( p_sys->psz_mime, "application/xspf+xml", 20 ) && + ( memchr( " ;\t", p_sys->psz_mime[20], 4 ) != NULL ) ) + p_access->psz_demux = strdup( "xspf-open" ); if( p_sys->b_reconnect ) msg_Dbg( p_access, "auto re-connect enabled" ); @@ -328,17 +419,12 @@ static int Open( vlc_object_t *p_this ) error: vlc_UrlClean( &p_sys->url ); vlc_UrlClean( &p_sys->proxy ); - if( p_sys->psz_mime ) free( p_sys->psz_mime ); - if( p_sys->psz_pragma ) free( p_sys->psz_pragma ); - if( p_sys->psz_location ) free( p_sys->psz_location ); - if( p_sys->psz_user_agent ) free( p_sys->psz_user_agent ); - if( p_sys->psz_user ) free( p_sys->psz_user ); - if( p_sys->psz_passwd ) free( p_sys->psz_passwd ); + free( p_sys->psz_mime ); + free( p_sys->psz_pragma ); + free( p_sys->psz_location ); + free( p_sys->psz_user_agent ); - if( p_sys->fd > 0 ) - { - net_Close( p_sys->fd ); - } + Disconnect( p_access ); free( p_sys ); return VLC_EGENERIC; } @@ -354,19 +440,17 @@ static void Close( vlc_object_t *p_this ) vlc_UrlClean( &p_sys->url ); vlc_UrlClean( &p_sys->proxy ); - if( p_sys->psz_user ) free( p_sys->psz_user ); - if( p_sys->psz_passwd ) free( p_sys->psz_passwd ); + free( p_sys->psz_mime ); + free( p_sys->psz_pragma ); + free( p_sys->psz_location ); - if( p_sys->psz_mime ) free( p_sys->psz_mime ); - if( p_sys->psz_pragma ) free( p_sys->psz_pragma ); - if( p_sys->psz_location ) free( p_sys->psz_location ); + free( p_sys->psz_icy_name ); + free( p_sys->psz_icy_genre ); + free( p_sys->psz_icy_title ); - if( p_sys->psz_user_agent ) free( p_sys->psz_user_agent ); + free( p_sys->psz_user_agent ); - if( p_sys->fd > 0 ) - { - net_Close( p_sys->fd ); - } + Disconnect( p_access ); free( p_sys ); } @@ -374,6 +458,7 @@ static void Close( vlc_object_t *p_this ) * Read: Read up to i_len bytes from the http connection and place in * p_buffer. Return the actual number of bytes read *****************************************************************************/ +static int ReadICYMeta( access_t *p_access ); static int Read( access_t *p_access, uint8_t *p_buffer, int i_len ) { access_sys_t *p_sys = p_access->p_sys; @@ -394,6 +479,7 @@ static int Read( access_t *p_access, uint8_t *p_buffer, int i_len ) return 0; } } + if( p_sys->b_chunked ) { if( p_sys->i_chunk < 0 ) @@ -404,12 +490,13 @@ static int Read( access_t *p_access, uint8_t *p_buffer, int i_len ) if( p_sys->i_chunk <= 0 ) { - char *psz = net_Gets( VLC_OBJECT(p_access), p_sys->fd ); + char *psz = net_Gets( VLC_OBJECT(p_access), p_sys->fd, p_sys->p_vs ); /* read the chunk header */ if( psz == NULL ) { + /* fatal error - end of file */ msg_Dbg( p_access, "failed reading chunk-header line" ); - return -1; + return 0; } p_sys->i_chunk = strtoll( psz, NULL, 16 ); free( psz ); @@ -428,8 +515,38 @@ static int Read( access_t *p_access, uint8_t *p_buffer, int i_len ) } } + if( p_sys->b_continuous && i_len > p_sys->i_remaining ) + { + /* Only ask for the remaining length */ + int i_new_len = p_sys->i_remaining; + if( i_new_len == 0 ) + { + Request( p_access, 0 ); + i_read = Read( p_access, p_buffer, i_len ); + return i_read; + } + i_len = i_new_len; + } + + if( p_sys->i_icy_meta > 0 && p_access->info.i_pos > 0 ) + { + int64_t i_next = p_sys->i_icy_meta - + p_access->info.i_pos % p_sys->i_icy_meta; + + if( i_next == p_sys->i_icy_meta ) + { + if( ReadICYMeta( p_access ) ) + { + p_access->info.b_eof = VLC_TRUE; + return -1; + } + } + if( i_len > i_next ) + i_len = i_next; + } + + i_read = net_Read( p_access, p_sys->fd, p_sys->p_vs, p_buffer, i_len, VLC_FALSE ); - i_read = net_Read( p_access, p_sys->fd, p_buffer, i_len, VLC_FALSE ); if( i_read > 0 ) { p_access->info.i_pos += i_read; @@ -440,17 +557,30 @@ static int Read( access_t *p_access, uint8_t *p_buffer, int i_len ) if( p_sys->i_chunk <= 0 ) { /* read the empty line */ - char *psz = net_Gets( VLC_OBJECT(p_access), p_sys->fd ); + char *psz = net_Gets( VLC_OBJECT(p_access), p_sys->fd, p_sys->p_vs ); if( psz ) free( psz ); } } } else if( i_read == 0 ) { + /* + * I very much doubt that this will work. + * If i_read == 0, the connection *IS* dead, so the only + * sensible thing to do is Disconnect() and then retry. + * Otherwise, I got recv() completely wrong. -- Courmisch + */ + if( p_sys->b_continuous ) + { + Request( p_access, 0 ); + p_sys->b_continuous = VLC_FALSE; + i_read = Read( p_access, p_buffer, i_len ); + p_sys->b_continuous = VLC_TRUE; + } + Disconnect( p_access ); if( p_sys->b_reconnect ) { msg_Dbg( p_access, "got disconnected, trying to reconnect" ); - net_Close( p_sys->fd ); p_sys->fd = -1; if( Connect( p_access, p_access->info.i_pos ) ) { msg_Dbg( p_access, "reconnection failed" ); @@ -466,19 +596,87 @@ static int Read( access_t *p_access, uint8_t *p_buffer, int i_len ) if( i_read == 0 ) p_access->info.b_eof = VLC_TRUE; } + if( p_sys->b_continuous ) + { + p_sys->i_remaining -= i_read; + } + return i_read; } +static int ReadICYMeta( access_t *p_access ) +{ + access_sys_t *p_sys = p_access->p_sys; + + uint8_t buffer; + char *p, *psz_meta; + int i_read; + + /* Read meta data length */ + i_read = net_Read( p_access, p_sys->fd, p_sys->p_vs, &buffer, 1, + VLC_TRUE ); + if( i_read <= 0 ) + return VLC_EGENERIC; + if( buffer == 0 ) + return VLC_SUCCESS; + + i_read = buffer << 4; + /* msg_Dbg( p_access, "ICY meta size=%u", i_read); */ + + psz_meta = malloc( i_read + 1 ); + if( net_Read( p_access, p_sys->fd, p_sys->p_vs, + (uint8_t *)psz_meta, i_read, VLC_TRUE ) != i_read ) + return VLC_EGENERIC; + + psz_meta[i_read] = '\0'; /* Just in case */ + + /* msg_Dbg( p_access, "icy-meta=%s", psz_meta ); */ + + /* Now parse the meta */ + /* Look for StreamTitle= */ + p = strcasestr( (char *)psz_meta, "StreamTitle=" ); + if( p ) + { + p += strlen( "StreamTitle=" ); + if( *p == '\'' || *p == '"' ) + { + char closing[] = { p[0], ';', '\0' }; + char *psz = strstr( &p[1], closing ); + if( !psz ) + psz = strchr( &p[1], ';' ); + + if( psz ) *psz = '\0'; + } + else + { + char *psz = strchr( &p[1], ';' ); + if( psz ) *psz = '\0'; + } + + if( !p_sys->psz_icy_title || + strcmp( p_sys->psz_icy_title, &p[1] ) ) + { + if( p_sys->psz_icy_title ) + free( p_sys->psz_icy_title ); + p_sys->psz_icy_title = strdup( &p[1] ); + p_access->info.i_update |= INPUT_UPDATE_META; + + msg_Dbg( p_access, "New Title=%s", p_sys->psz_icy_title ); + } + } + free( psz_meta ); + + return VLC_SUCCESS; +} + /***************************************************************************** * Seek: close and re-open a connection at the right place *****************************************************************************/ static int Seek( access_t *p_access, int64_t i_pos ) { - access_sys_t *p_sys = p_access->p_sys; - msg_Dbg( p_access, "trying to seek to "I64Fd, i_pos ); - net_Close( p_sys->fd ); p_sys->fd = -1; + Disconnect( p_access ); if( Connect( p_access, i_pos ) ) { @@ -498,6 +696,7 @@ static int Control( access_t *p_access, int i_query, va_list args ) vlc_bool_t *pb_bool; int *pi_int; int64_t *pi_64; + vlc_meta_t *p_meta; switch( i_query ) { @@ -513,7 +712,12 @@ static int Control( access_t *p_access, int i_query, va_list args ) case ACCESS_CAN_PAUSE: case ACCESS_CAN_CONTROL_PACE: pb_bool = (vlc_bool_t*)va_arg( args, vlc_bool_t* ); + +#if 0 /* Disable for now until we have a clock synchro algo + * which works with something else than MPEG over UDP */ *pb_bool = p_sys->b_pace_control; +#endif + *pb_bool = VLC_TRUE; break; /* */ @@ -531,6 +735,17 @@ static int Control( access_t *p_access, int i_query, va_list args ) case ACCESS_SET_PAUSE_STATE: break; + case ACCESS_GET_META: + p_meta = (vlc_meta_t*)va_arg( args, vlc_meta_t* ); + + if( p_sys->psz_icy_name ) + vlc_meta_Set( p_meta, vlc_meta_Title, p_sys->psz_icy_name ); + if( p_sys->psz_icy_genre ) + vlc_meta_Set( p_meta, vlc_meta_Genre, p_sys->psz_icy_genre ); + if( p_sys->psz_icy_title ) + vlc_meta_Set( p_meta, vlc_meta_NowPlaying, p_sys->psz_icy_title ); + break; + case ACCESS_GET_TITLE_INFO: case ACCESS_SET_TITLE: case ACCESS_SET_SEEKPOINT: @@ -545,54 +760,6 @@ static int Control( access_t *p_access, int i_query, va_list args ) return VLC_SUCCESS; } -/***************************************************************************** - * ParseURL: extract user:password - *****************************************************************************/ -static void ParseURL( access_sys_t *p_sys, char *psz_url ) -{ - char *psz_dup = strdup( psz_url ); - char *p = psz_dup; - char *psz; - - /* Syntax //[user:password]@[:][/] */ - while( *p == '/' ) - { - p++; - } - psz = p; - - /* Parse auth */ - if( ( p = strchr( psz, '@' ) ) ) - { - char *comma; - - *p++ = '\0'; - comma = strchr( psz, ':' ); - - /* Retreive user:password */ - if( comma ) - { - *comma++ = '\0'; - - p_sys->psz_user = strdup( psz ); - p_sys->psz_passwd = strdup( comma ); - } - else - { - p_sys->psz_user = strdup( psz ); - } - } - else - { - p = psz; - } - - /* Parse uri */ - vlc_UrlParse( &p_sys->url, p, 0 ); - - free( psz_dup ); -} - /***************************************************************************** * Connect: *****************************************************************************/ @@ -600,12 +767,16 @@ static int Connect( access_t *p_access, int64_t i_tell ) { access_sys_t *p_sys = p_access->p_sys; vlc_url_t srv = p_sys->b_proxy ? p_sys->proxy : p_sys->url; - char *psz; /* Clean info */ - if( p_sys->psz_location ) free( p_sys->psz_location ); - if( p_sys->psz_mime ) free( p_sys->psz_mime ); - if( p_sys->psz_pragma ) free( p_sys->psz_pragma ); + free( p_sys->psz_location ); + free( p_sys->psz_mime ); + free( p_sys->psz_pragma ); + + free( p_sys->psz_icy_genre ); + free( p_sys->psz_icy_name ); + free( p_sys->psz_icy_title ); + p_sys->psz_location = NULL; p_sys->psz_mime = NULL; @@ -613,6 +784,10 @@ static int Connect( access_t *p_access, int64_t i_tell ) p_sys->b_mms = VLC_FALSE; p_sys->b_chunked = VLC_FALSE; p_sys->i_chunk = 0; + p_sys->i_icy_meta = 0; + p_sys->psz_icy_name = NULL; + p_sys->psz_icy_genre = NULL; + p_sys->psz_icy_title = NULL; p_access->info.i_size = 0; p_access->info.i_pos = i_tell; @@ -620,25 +795,105 @@ static int Connect( access_t *p_access, int64_t i_tell ) /* Open connection */ - p_sys->fd = net_OpenTCP( p_access, srv.psz_host, srv.i_port ); - if( p_sys->fd < 0 ) + p_sys->fd = net_ConnectTCP( p_access, srv.psz_host, srv.i_port ); + if( p_sys->fd == -1 ) { msg_Err( p_access, "cannot connect to %s:%d", srv.psz_host, srv.i_port ); - return VLC_EGENERIC; + return -1; } + /* Initialize TLS/SSL session */ + if( p_sys->b_ssl == VLC_TRUE ) + { + /* CONNECT to establish TLS tunnel through HTTP proxy */ + if( p_sys->b_proxy ) + { + char *psz; + unsigned i_status = 0; + + if( p_sys->i_version == 0 ) + { + /* CONNECT is not in HTTP/1.0 */ + Disconnect( p_access ); + return -1; + } + + net_Printf( VLC_OBJECT(p_access), p_sys->fd, NULL, + "CONNECT %s:%d HTTP/1.%d\r\nHost: %s:%d\r\n\r\n", + p_sys->url.psz_host, p_sys->url.i_port, + p_sys->i_version, + p_sys->url.psz_host, p_sys->url.i_port); + + psz = net_Gets( VLC_OBJECT(p_access), p_sys->fd, NULL ); + if( psz == NULL ) + { + msg_Err( p_access, "cannot establish HTTP/TLS tunnel" ); + Disconnect( p_access ); + return -1; + } + + sscanf( psz, "HTTP/%*u.%*u %3u", &i_status ); + free( psz ); + + if( ( i_status / 100 ) != 2 ) + { + msg_Err( p_access, "HTTP/TLS tunnel through proxy denied" ); + Disconnect( p_access ); + return -1; + } + + do + { + psz = net_Gets( VLC_OBJECT(p_access), p_sys->fd, NULL ); + if( psz == NULL ) + { + msg_Err( p_access, "HTTP proxy connection failed" ); + Disconnect( p_access ); + return -1; + } + + if( *psz == '\0' ) + i_status = 0; + + free( psz ); + } + while( i_status ); + } + + /* TLS/SSL handshake */ + p_sys->p_tls = tls_ClientCreate( VLC_OBJECT(p_access), p_sys->fd, + srv.psz_host ); + if( p_sys->p_tls == NULL ) + { + msg_Err( p_access, "cannot establish HTTP/TLS session" ); + Disconnect( p_access ); + return -1; + } + p_sys->p_vs = &p_sys->p_tls->sock; + } + + return Request( p_access, i_tell ) ? -2 : 0; +} + + +static int Request( access_t *p_access, int64_t i_tell ) +{ + access_sys_t *p_sys = p_access->p_sys; + char *psz ; + v_socket_t *pvs = p_sys->p_vs; + if( p_sys->b_proxy ) { if( p_sys->url.psz_path ) { - net_Printf( VLC_OBJECT(p_access), p_sys->fd, + net_Printf( VLC_OBJECT(p_access), p_sys->fd, NULL, "GET http://%s:%d%s HTTP/1.%d\r\n", p_sys->url.psz_host, p_sys->url.i_port, p_sys->url.psz_path, p_sys->i_version ); } else { - net_Printf( VLC_OBJECT(p_access), p_sys->fd, + net_Printf( VLC_OBJECT(p_access), p_sys->fd, NULL, "GET http://%s:%d/ HTTP/1.%d\r\n", p_sys->url.psz_host, p_sys->url.i_port, p_sys->i_version ); @@ -646,60 +901,97 @@ static int Connect( access_t *p_access, int64_t i_tell ) } else { - char *psz_path = p_sys->url.psz_path; + const char *psz_path = p_sys->url.psz_path; if( !psz_path || !*psz_path ) { psz_path = "/"; } if( p_sys->url.i_port != 80) { - net_Printf( VLC_OBJECT(p_access), p_sys->fd, + net_Printf( VLC_OBJECT(p_access), p_sys->fd, pvs, "GET %s HTTP/1.%d\r\nHost: %s:%d\r\n", psz_path, p_sys->i_version, p_sys->url.psz_host, p_sys->url.i_port ); } else - { - net_Printf( VLC_OBJECT(p_access), p_sys->fd, + { + net_Printf( VLC_OBJECT(p_access), p_sys->fd, pvs, "GET %s HTTP/1.%d\r\nHost: %s\r\n", psz_path, p_sys->i_version, p_sys->url.psz_host ); } } /* User Agent */ - net_Printf( VLC_OBJECT(p_access), p_sys->fd, "User-Agent: %s\r\n", + net_Printf( VLC_OBJECT(p_access), p_sys->fd, pvs, "User-Agent: %s\r\n", p_sys->psz_user_agent ); /* Offset */ if( p_sys->i_version == 1 ) { - net_Printf( VLC_OBJECT(p_access), p_sys->fd, + net_Printf( VLC_OBJECT(p_access), p_sys->fd, pvs, "Range: bytes="I64Fd"-\r\n", i_tell ); } - /* Authentification */ - if( p_sys->psz_user && *p_sys->psz_user ) + + /* Authentication */ + if( p_sys->url.psz_username || p_sys->url.psz_password ) { - char *buf; + char buf[strlen( p_sys->url.psz_username ?: "" ) + + strlen( p_sys->url.psz_password ?: "" ) + 2]; char *b64; - asprintf( &buf, "%s:%s", p_sys->psz_user, - p_sys->psz_passwd ? p_sys->psz_passwd : "" ); + snprintf( buf, sizeof( buf ), "%s:%s", p_sys->url.psz_username ?: "", + p_sys->url.psz_password ?: "" ); + b64 = vlc_b64_encode( buf ); + if( b64 != NULL ) + { + net_Printf( VLC_OBJECT(p_access), p_sys->fd, pvs, + "Authorization: Basic %s\r\n", b64 ); + free( b64 ); + } + } + + /* Proxy Authentication */ + if( p_sys->proxy.psz_username || p_sys->proxy.psz_password ) + { + char buf[strlen( p_sys->proxy.psz_username ?: "" ) + + strlen( p_sys->proxy.psz_password ?: "" )]; + char *b64; + + snprintf( buf, sizeof( buf ), "%s:%s", p_sys->proxy.psz_username ?: "", + p_sys->proxy.psz_password ?: "" ); b64 = vlc_b64_encode( buf ); - net_Printf( VLC_OBJECT(p_access), p_sys->fd, - "Authorization: Basic %s\r\n", b64 ); - free( b64 ); + if( b64 != NULL) + { + net_Printf( VLC_OBJECT(p_access), p_sys->fd, pvs, + "Proxy-Authorization: Basic %s\r\n", b64 ); + free( b64 ); + } } - net_Printf( VLC_OBJECT(p_access), p_sys->fd, "Connection: Close\r\n" ); - if( net_Printf( VLC_OBJECT(p_access), p_sys->fd, "\r\n" ) < 0 ) + /* ICY meta data request */ + net_Printf( VLC_OBJECT(p_access), p_sys->fd, pvs, "Icy-MetaData: 1\r\n" ); + + + if( p_sys->b_continuous ) + { + net_Printf( VLC_OBJECT( p_access ), p_sys->fd, pvs, + "Connection: Keep-Alive\r\n" ); + } + else if( p_sys->i_version == 1 ) + { + net_Printf( VLC_OBJECT( p_access ), p_sys->fd, pvs, + "Connection: Close\r\n"); + } + + if( net_Printf( VLC_OBJECT(p_access), p_sys->fd, pvs, "\r\n" ) < 0 ) { msg_Err( p_access, "failed to send request" ); - net_Close( p_sys->fd ); p_sys->fd = -1; + Disconnect( p_access ); return VLC_EGENERIC; } /* Read Answer */ - if( ( psz = net_Gets( VLC_OBJECT(p_access), p_sys->fd ) ) == NULL ) + if( ( psz = net_Gets( VLC_OBJECT(p_access), p_sys->fd, pvs ) ) == NULL ) { msg_Err( p_access, "failed to read answer" ); goto error; @@ -727,11 +1019,17 @@ static int Connect( access_t *p_access, int64_t i_tell ) { p_sys->b_seekable = VLC_FALSE; } - if( p_sys->i_code != 206 ) + if( p_sys->i_code != 206 && p_sys->i_code != 401 ) { p_sys->b_seekable = VLC_FALSE; } - if( p_sys->i_code >= 400 ) + /* Authentication error - We'll have to display the dialog */ + if( p_sys->i_code == 401 ) + { + + } + /* Other fatal error */ + else if( p_sys->i_code >= 400 ) { msg_Err( p_access, "error: %s", psz ); free( psz ); @@ -741,7 +1039,7 @@ static int Connect( access_t *p_access, int64_t i_tell ) for( ;; ) { - char *psz = net_Gets( VLC_OBJECT(p_access), p_sys->fd ); + char *psz = net_Gets( VLC_OBJECT(p_access), p_sys->fd, pvs ); char *p; if( psz == NULL ) @@ -769,13 +1067,46 @@ static int Connect( access_t *p_access, int64_t i_tell ) if( !strcasecmp( psz, "Content-Length" ) ) { - p_access->info.i_size = i_tell + atoll( p ); - msg_Dbg( p_access, "stream size="I64Fd, p_access->info.i_size ); + if( p_sys->b_continuous ) + { + p_access->info.i_size = -1; + msg_Dbg( p_access, "this frame size=%lld", atoll(p ) ); + p_sys->i_remaining = atoll( p ); + } + else + { + p_access->info.i_size = i_tell + atoll( p ); + msg_Dbg( p_access, "stream size="I64Fd, p_access->info.i_size ); + } } else if( !strcasecmp( psz, "Location" ) ) { + char * psz_new_loc; + + /* This does not follow RFC 2068, but yet if the url is not absolute, + * handle it as everyone does. */ + if( p[0] == '/' ) + { + const char *psz_http_ext = p_sys->b_ssl ? "s" : "" ; + + if( p_sys->url.i_port == ( p_sys->b_ssl ? 443 : 80 ) ) + { + asprintf(&psz_new_loc, "http%s://%s%s", psz_http_ext, + p_sys->url.psz_host, p); + } + else + { + asprintf(&psz_new_loc, "http%s://%s:%d%s", psz_http_ext, + p_sys->url.psz_host, p_sys->url.i_port, p); + } + } + else + { + psz_new_loc = strdup( p ); + } + if( p_sys->psz_location ) free( p_sys->psz_location ); - p_sys->psz_location = strdup( p ); + p_sys->psz_location = psz_new_loc; } else if( !strcasecmp( psz, "Content-Type" ) ) { @@ -786,17 +1117,28 @@ static int Connect( access_t *p_access, int64_t i_tell ) else if( !strcasecmp( psz, "Pragma" ) ) { if( !strcasecmp( psz, "Pragma: features" ) ) - p_sys->b_mms = VLC_TRUE; + p_sys->b_mms = VLC_TRUE; if( p_sys->psz_pragma ) free( p_sys->psz_pragma ); p_sys->psz_pragma = strdup( p ); msg_Dbg( p_access, "Pragma: %s", p_sys->psz_pragma ); } - else if( !strcasecmp( psz, "Server" ) && - !strncasecmp( p, "Icecast", 7 ) ) + else if( !strcasecmp( psz, "Server" ) ) { - p_sys->b_reconnect = VLC_TRUE; - p_sys->b_pace_control = VLC_FALSE; msg_Dbg( p_access, "Server: %s", p ); + if( !strncasecmp( p, "Icecast", 7 ) || + !strncasecmp( p, "Nanocaster", 10 ) ) + { + /* Remember if this is Icecast + * we need to force demux in this case without breaking + * autodetection */ + + /* Let live 365 streams (nanocaster) piggyback on the icecast + * routine. They look very similar */ + + p_sys->b_reconnect = VLC_TRUE; + p_sys->b_pace_control = VLC_FALSE; + p_sys->b_icecast = VLC_TRUE; + } } else if( !strcasecmp( psz, "Transfer-Encoding" ) ) { @@ -806,13 +1148,68 @@ static int Connect( access_t *p_access, int64_t i_tell ) p_sys->b_chunked = VLC_TRUE; } } + else if( !strcasecmp( psz, "Icy-MetaInt" ) ) + { + msg_Dbg( p_access, "Icy-MetaInt: %s", p ); + p_sys->i_icy_meta = atoi( p ); + if( p_sys->i_icy_meta < 0 ) + p_sys->i_icy_meta = 0; + + msg_Warn( p_access, "ICY metaint=%d", p_sys->i_icy_meta ); + } + else if( !strcasecmp( psz, "Icy-Name" ) ) + { + if( p_sys->psz_icy_name ) free( p_sys->psz_icy_name ); + p_sys->psz_icy_name = strdup( p ); + msg_Dbg( p_access, "Icy-Name: %s", p_sys->psz_icy_name ); + + p_sys->b_icecast = VLC_TRUE; /* be on the safeside. set it here as well. */ + p_sys->b_reconnect = VLC_TRUE; + p_sys->b_pace_control = VLC_FALSE; + } + else if( !strcasecmp( psz, "Icy-Genre" ) ) + { + if( p_sys->psz_icy_genre ) free( p_sys->psz_icy_genre ); + p_sys->psz_icy_genre = strdup( p ); + msg_Dbg( p_access, "Icy-Genre: %s", p_sys->psz_icy_genre ); + } + else if( !strncasecmp( psz, "Icy-Notice", 10 ) ) + { + msg_Dbg( p_access, "Icy-Notice: %s", p ); + } + else if( !strncasecmp( psz, "icy-", 4 ) || + !strncasecmp( psz, "ice-", 4 ) || + !strncasecmp( psz, "x-audiocast", 11 ) ) + { + msg_Dbg( p_access, "Meta-Info: %s: %s", psz, p ); + } free( psz ); } return VLC_SUCCESS; error: - net_Close( p_sys->fd ); p_sys->fd = -1; + Disconnect( p_access ); return VLC_EGENERIC; } +/***************************************************************************** + * Disconnect: + *****************************************************************************/ +static void Disconnect( access_t *p_access ) +{ + access_sys_t *p_sys = p_access->p_sys; + + if( p_sys->p_tls != NULL) + { + tls_ClientDelete( p_sys->p_tls ); + p_sys->p_tls = NULL; + p_sys->p_vs = NULL; + } + if( p_sys->fd != -1) + { + net_Close(p_sys->fd); + p_sys->fd = -1; + } + +}