modules/access_output/http.c

   1 /*****************************************************************************
   2  * http.c
   3  *****************************************************************************
   4  * Copyright (C) 2001-2005 the VideoLAN team
   5  * $Id$
   6  *
   7  * Authors: Laurent Aimar <fenrir@via.ecp.fr>
   8  *          Jon Lech Johansen <jon@nanocrew.net>
   9  *
  10  * This program is free software; you can redistribute it and/or modify
  11  * it under the terms of the GNU General Public License as published by
  12  * the Free Software Foundation; either version 2 of the License, or
  13  * (at your option) any later version.
  14  *
  15  * This program is distributed in the hope that it will be useful,
  16  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  17  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  18  * GNU General Public License for more details.
  19  *
  20  * You should have received a copy of the GNU General Public License
  21  * along with this program; if not, write to the Free Software
  22  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston MA 02110-1301, USA.
  23  *****************************************************************************/
  24
  25 /*****************************************************************************
  26  * Preamble
  27  *****************************************************************************/
  28
  29 #ifdef HAVE_CONFIG_H
  30 # include "config.h"
  31 #endif
  32
  33 #include <vlc_common.h>
  34 #include <vlc_plugin.h>
  35 #include <vlc_sout.h>
  36 #include <vlc_block.h>
  37
  38
  39 #include <vlc_input.h>
  40 #include <vlc_playlist.h>
  41
  42 #ifdef HAVE_AVAHI_CLIENT
  43     #include "bonjour.h"
  44
  45     #if defined( WIN32 )
  46         #define DIRECTORY_SEPARATOR '\\'
  47     #else
  48         #define DIRECTORY_SEPARATOR '/'
  49     #endif
  50 #endif
  51
  52 #include "vlc_httpd.h"
  53
  54 #define DEFAULT_PORT        8080
  55 #define DEFAULT_SSL_PORT    8443
  56
  57 /*****************************************************************************
  58  * Module descriptor
  59  *****************************************************************************/
  60 static int  Open ( vlc_object_t * );
  61 static void Close( vlc_object_t * );
  62
  63 #define SOUT_CFG_PREFIX "sout-http-"
  64
  65 #define USER_TEXT N_("Username")
  66 #define USER_LONGTEXT N_("User name that will be " \
  67                          "requested to access the stream." )
  68 #define PASS_TEXT N_("Password")
  69 #define PASS_LONGTEXT N_("Password that will be " \
  70                          "requested to access the stream." )
  71 #define MIME_TEXT N_("Mime")
  72 #define MIME_LONGTEXT N_("MIME returned by the server (autodetected " \
  73                         "if not specified)." )
  74 #define CERT_TEXT N_( "Certificate file" )
  75 #define CERT_LONGTEXT N_( "Path to the x509 PEM certificate file that will "\
  76                           "be used for HTTPS." )
  77 #define KEY_TEXT N_( "Private key file" )
  78 #define KEY_LONGTEXT N_( "Path to the x509 PEM private key file that will " \
  79                          "be used for HTTPS. Leave " \
  80                          "empty if you don't have one." )
  81 #define CA_TEXT N_( "Root CA file" )
  82 #define CA_LONGTEXT N_( "Path to the x509 PEM trusted root CA certificates " \
  83                         "(certificate authority) file that will be used for " \
  84                         "HTTPS. Leave empty if you " \
  85                         "don't have one." )
  86 #define CRL_TEXT N_( "CRL file" )
  87 #define CRL_LONGTEXT N_( "Path to the x509 PEM Certificates Revocation List " \
  88                          "file that will be used for SSL. Leave " \
  89                          "empty if you don't have one." )
  90 #define BONJOUR_TEXT N_( "Advertise with Bonjour")
  91 #define BONJOUR_LONGTEXT N_( "Advertise the stream with the Bonjour protocol." )
  92
  93
  94 vlc_module_begin();
  95     set_description( N_("HTTP stream output") );
  96     set_capability( "sout access", 0 );
  97     set_shortname( "HTTP" );
  98     add_shortcut( "http" );
  99     add_shortcut( "https" );
 100     add_shortcut( "mmsh" );
 101     set_category( CAT_SOUT );
 102     set_subcategory( SUBCAT_SOUT_ACO );
 103     add_string( SOUT_CFG_PREFIX "user", "", NULL,
 104                 USER_TEXT, USER_LONGTEXT, true );
 105     add_string( SOUT_CFG_PREFIX "pwd", "", NULL,
 106                 PASS_TEXT, PASS_LONGTEXT, true );
 107     add_string( SOUT_CFG_PREFIX "mime", "", NULL,
 108                 MIME_TEXT, MIME_LONGTEXT, true );
 109     add_string( SOUT_CFG_PREFIX "cert", "vlc.pem", NULL,
 110                 CERT_TEXT, CERT_LONGTEXT, true );
 111     add_string( SOUT_CFG_PREFIX "key", NULL, NULL,
 112                 KEY_TEXT, KEY_LONGTEXT, true );
 113     add_string( SOUT_CFG_PREFIX "ca", NULL, NULL,
 114                 CA_TEXT, CA_LONGTEXT, true );
 115     add_string( SOUT_CFG_PREFIX "crl", NULL, NULL,
 116                 CRL_TEXT, CRL_LONGTEXT, true );
 117     add_bool( SOUT_CFG_PREFIX "bonjour", false, NULL,
 118               BONJOUR_TEXT, BONJOUR_LONGTEXT, true);
 119     set_callbacks( Open, Close );
 120 vlc_module_end();
 121
 122
 123 /*****************************************************************************
 124  * Exported prototypes
 125  *****************************************************************************/
 126 static const char *const ppsz_sout_options[] = {
 127     "user", "pwd", "mime", "cert", "key", "ca", "crl", NULL
 128 };
 129
 130 static ssize_t Write( sout_access_out_t *, block_t * );
 131 static int Seek ( sout_access_out_t *, off_t  );
 132 static int Control( sout_access_out_t *, int, va_list );
 133
 134 struct sout_access_out_sys_t
 135 {
 136     /* host */
 137     httpd_host_t        *p_httpd_host;
 138
 139     /* stream */
 140     httpd_stream_t      *p_httpd_stream;
 141
 142     /* gather header from stream */
 143     int                 i_header_allocated;
 144     int                 i_header_size;
 145     uint8_t             *p_header;
 146     bool          b_header_complete;
 147
 148 #ifdef HAVE_AVAHI_CLIENT
 149     void                *p_bonjour;
 150 #endif
 151 };
 152
 153 /*****************************************************************************
 154  * Open: open the file
 155  *****************************************************************************/
 156 static int Open( vlc_object_t *p_this )
 157 {
 158     sout_access_out_t       *p_access = (sout_access_out_t*)p_this;
 159     sout_access_out_sys_t   *p_sys;
 160
 161     char                *psz_parser;
 162
 163     char                *psz_bind_addr;
 164     int                 i_bind_port;
 165     char                *psz_file_name;
 166     char                *psz_user = NULL;
 167     char                *psz_pwd = NULL;
 168     char                *psz_mime = NULL;
 169     char                *psz_cert = NULL, *psz_key = NULL, *psz_ca = NULL,
 170                         *psz_crl = NULL;
 171     vlc_value_t         val;
 172
 173     if( !( p_sys = p_access->p_sys =
 174                 malloc( sizeof( sout_access_out_sys_t ) ) ) )
 175         return VLC_ENOMEM ;
 176
 177     config_ChainParse( p_access, SOUT_CFG_PREFIX, ppsz_sout_options, p_access->p_cfg );
 178
 179     /* p_access->psz_path = "hostname:port/filename" */
 180     psz_bind_addr = psz_parser = strdup( p_access->psz_path );
 181
 182     i_bind_port = 0;
 183
 184     psz_parser = strchr( psz_bind_addr, '/' );
 185     if( psz_parser )
 186     {
 187         psz_file_name = strdup( psz_parser );
 188         *psz_parser = '\0';
 189     }
 190     else
 191         psz_file_name = strdup( "/" );
 192
 193     if( psz_bind_addr[0] == '[' )
 194     {
 195         psz_bind_addr++;
 196         psz_parser = strstr( psz_bind_addr, "]:" );
 197         if( psz_parser )
 198         {
 199             *psz_parser = '\0';
 200             i_bind_port = atoi( psz_parser + 2 );
 201         }
 202         psz_parser = psz_bind_addr - 1;
 203     }
 204     else
 205     {
 206         psz_parser = strrchr( psz_bind_addr, ':' );
 207         if( psz_parser )
 208         {
 209             *psz_parser = '\0';
 210             i_bind_port = atoi( psz_parser + 1 );
 211         }
 212         psz_parser = psz_bind_addr;
 213     }
 214
 215     /* SSL support */
 216     if( p_access->psz_access && !strcmp( p_access->psz_access, "https" ) )
 217     {
 218         psz_cert = config_GetPsz( p_this, SOUT_CFG_PREFIX"cert" );
 219         psz_key = config_GetPsz( p_this, SOUT_CFG_PREFIX"key" );
 220         psz_ca = config_GetPsz( p_this, SOUT_CFG_PREFIX"ca" );
 221         psz_crl = config_GetPsz( p_this, SOUT_CFG_PREFIX"crl" );
 222
 223         if( i_bind_port <= 0 )
 224             i_bind_port = DEFAULT_SSL_PORT;
 225     }
 226     else
 227     {
 228         if( i_bind_port <= 0 )
 229             i_bind_port = DEFAULT_PORT;
 230     }
 231
 232     p_sys->p_httpd_host = httpd_TLSHostNew( VLC_OBJECT(p_access),
 233                                             psz_bind_addr, i_bind_port,
 234                                             psz_cert, psz_key, psz_ca,
 235                                             psz_crl );
 236     free( psz_cert );
 237     free( psz_key );
 238     free( psz_ca );
 239     free( psz_crl );
 240
 241     if( p_sys->p_httpd_host == NULL )
 242     {
 243         msg_Err( p_access, "cannot listen on %s port %d",
 244                  psz_bind_addr, i_bind_port );
 245         free( psz_file_name );
 246         free( psz_parser );
 247         free( p_sys );
 248         return VLC_EGENERIC;
 249     }
 250     free( psz_parser );
 251
 252     if( p_access->psz_access && !strcmp( p_access->psz_access, "mmsh" ) )
 253     {
 254         psz_mime = strdup( "video/x-ms-asf-stream" );
 255     }
 256     else
 257     {
 258         var_Get( p_access, SOUT_CFG_PREFIX "mime", &val );
 259         if( *val.psz_string )
 260             psz_mime = val.psz_string;
 261         else
 262             free( val.psz_string );
 263     }
 264
 265     var_Get( p_access, SOUT_CFG_PREFIX "user", &val );
 266     if( *val.psz_string )
 267         psz_user = val.psz_string;
 268     else
 269         free( val.psz_string );
 270
 271     var_Get( p_access, SOUT_CFG_PREFIX "pwd", &val );
 272     if( *val.psz_string )
 273         psz_pwd = val.psz_string;
 274     else
 275         free( val.psz_string );
 276
 277     p_sys->p_httpd_stream =
 278         httpd_StreamNew( p_sys->p_httpd_host, psz_file_name, psz_mime,
 279                          psz_user, psz_pwd, NULL );
 280     free( psz_user );
 281     free( psz_pwd );
 282     free( psz_mime );
 283
 284     if( p_sys->p_httpd_stream == NULL )
 285     {
 286         msg_Err( p_access, "cannot add stream %s", psz_file_name );
 287         httpd_HostDelete( p_sys->p_httpd_host );
 288
 289         free( psz_file_name );
 290         free( p_sys );
 291         return VLC_EGENERIC;
 292     }
 293
 294 #if 0 //def HAVE_AVAHI_CLIENT
 295     if( config_GetInt(p_this, SOUT_CFG_PREFIX "bonjour") )
 296     {
 297         char                *psz_txt, *psz_name;
 298         playlist_t          *p_playlist = pl_Hold( p_access );
 299
 300         char *psz_uri = input_item_GetURI( p_playlist->status.p_item->p_input );
 301         char *psz_newuri = psz_uri;
 302         psz_name = strrchr( psz_newuri, DIRECTORY_SEPARATOR );
 303         if( psz_name != NULL ) psz_name++;
 304         else psz_name = psz_newuri;
 305
 306         if( psz_file_name &&
 307             asprintf( &psz_txt, "path=%s", psz_file_name ) == -1 )
 308             {
 309                 pl_Release( p_access );
 310                 free( psz_uri );
 311                 return VLC_ENOMEM;
 312             }
 313
 314         p_sys->p_bonjour = bonjour_start_service( (vlc_object_t *)p_access,
 315                                     strcmp( p_access->psz_access, "https" )
 316                                        ? "_vlc-http._tcp" : "_vlc-https._tcp",
 317                                              psz_name, i_bind_port, psz_txt );
 318         free( psz_uri );
 319         free( psz_txt );
 320
 321         if( p_sys->p_bonjour == NULL )
 322             msg_Err( p_access, "unable to start requested Bonjour announce" );
 323         pl_Release( p_access );
 324     }
 325     else
 326         p_sys->p_bonjour = NULL;
 327 #endif
 328
 329     free( psz_file_name );
 330
 331     p_sys->i_header_allocated = 1024;
 332     p_sys->i_header_size      = 0;
 333     p_sys->p_header           = malloc( p_sys->i_header_allocated );
 334     p_sys->b_header_complete  = false;
 335
 336     p_access->pf_write       = Write;
 337     p_access->pf_seek        = Seek;
 338     p_access->pf_control     = Control;
 339
 340     return VLC_SUCCESS;
 341 }
 342
 343 /*****************************************************************************
 344  * Close: close the target
 345  *****************************************************************************/
 346 static void Close( vlc_object_t * p_this )
 347 {
 348     sout_access_out_t       *p_access = (sout_access_out_t*)p_this;
 349     sout_access_out_sys_t   *p_sys = p_access->p_sys;
 350
 351 #ifdef HAVE_AVAHI_CLIENT
 352     if( p_sys->p_bonjour != NULL )
 353         bonjour_stop_service( p_sys->p_bonjour );
 354 #endif
 355
 356     httpd_StreamDelete( p_sys->p_httpd_stream );
 357     httpd_HostDelete( p_sys->p_httpd_host );
 358
 359     free( p_sys->p_header );
 360
 361     msg_Dbg( p_access, "Close" );
 362
 363     free( p_sys );
 364 }
 365
 366 static int Control( sout_access_out_t *p_access, int i_query, va_list args )
 367 {
 368     (void)p_access;
 369
 370     switch( i_query )
 371     {
 372         case ACCESS_OUT_CONTROLS_PACE:
 373             *va_arg( args, bool * ) = false;
 374             break;
 375
 376         default:
 377             return VLC_EGENERIC;
 378     }
 379     return VLC_SUCCESS;
 380 }
 381
 382 /*****************************************************************************
 383  * Write:
 384  *****************************************************************************/
 385 static ssize_t Write( sout_access_out_t *p_access, block_t *p_buffer )
 386 {
 387     sout_access_out_sys_t *p_sys = p_access->p_sys;
 388     int i_err = 0;
 389     int i_len = 0;
 390
 391     while( p_buffer )
 392     {
 393         block_t *p_next;
 394
 395         if( p_buffer->i_flags & BLOCK_FLAG_HEADER )
 396         {
 397             /* gather header */
 398             if( p_sys->b_header_complete )
 399             {
 400                 /* free previously gathered header */
 401                 p_sys->i_header_size = 0;
 402                 p_sys->b_header_complete = false;
 403             }
 404             if( (int)(p_buffer->i_buffer + p_sys->i_header_size) >
 405                 p_sys->i_header_allocated )
 406             {
 407                 p_sys->i_header_allocated =
 408                     p_buffer->i_buffer + p_sys->i_header_size + 1024;
 409                 p_sys->p_header =
 410                     realloc( p_sys->p_header, p_sys->i_header_allocated );
 411             }
 412             memcpy( &p_sys->p_header[p_sys->i_header_size],
 413                     p_buffer->p_buffer,
 414                     p_buffer->i_buffer );
 415             p_sys->i_header_size += p_buffer->i_buffer;
 416         }
 417         else if( !p_sys->b_header_complete )
 418         {
 419             p_sys->b_header_complete = true;
 420
 421             httpd_StreamHeader( p_sys->p_httpd_stream, p_sys->p_header,
 422                                 p_sys->i_header_size );
 423         }
 424
 425         i_len += p_buffer->i_buffer;
 426         /* send data */
 427         i_err = httpd_StreamSend( p_sys->p_httpd_stream, p_buffer->p_buffer,
 428                                   p_buffer->i_buffer );
 429
 430         p_next = p_buffer->p_next;
 431         block_Release( p_buffer );
 432         p_buffer = p_next;
 433
 434         if( i_err < 0 )
 435         {
 436             break;
 437         }
 438     }
 439
 440     if( i_err < 0 )
 441     {
 442         block_ChainRelease( p_buffer );
 443     }
 444
 445     return( i_err < 0 ? VLC_EGENERIC : i_len );
 446 }
 447
 448 /*****************************************************************************
 449  * Seek: seek to a specific location in a file
 450  *****************************************************************************/
 451 static int Seek( sout_access_out_t *p_access, off_t i_pos )
 452 {
 453     (void)i_pos;
 454     msg_Warn( p_access, "HTTP sout access cannot seek" );
 455     return VLC_EGENERIC;
 456 }