d2504310ec915f955342defd0cc7c3d8af8c6a6c
[vlc.git] / modules / access_output / http.c
1 /*****************************************************************************
2  * http.c
3  *****************************************************************************
4  * Copyright (C) 2001-2009 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 #if 0 //def 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_password( 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 #if 0 //def HAVE_AVAHI_CLIENT
118     add_bool( SOUT_CFG_PREFIX "bonjour", false, NULL,
119               BONJOUR_TEXT, BONJOUR_LONGTEXT, true);
120 #endif
121     set_callbacks( Open, Close )
122 vlc_module_end ()
123
124
125 /*****************************************************************************
126  * Exported prototypes
127  *****************************************************************************/
128 static const char *const ppsz_sout_options[] = {
129     "user", "pwd", "mime", "cert", "key", "ca", "crl", NULL
130 };
131
132 static ssize_t Write( sout_access_out_t *, block_t * );
133 static int Seek ( sout_access_out_t *, off_t  );
134 static int Control( sout_access_out_t *, int, va_list );
135
136 struct sout_access_out_sys_t
137 {
138     /* host */
139     httpd_host_t        *p_httpd_host;
140
141     /* stream */
142     httpd_stream_t      *p_httpd_stream;
143
144     /* gather header from stream */
145     int                 i_header_allocated;
146     int                 i_header_size;
147     uint8_t             *p_header;
148     bool          b_header_complete;
149
150 #if 0 //def HAVE_AVAHI_CLIENT
151     void                *p_bonjour;
152 #endif
153 };
154
155 /*****************************************************************************
156  * Open: open the file
157  *****************************************************************************/
158 static int Open( vlc_object_t *p_this )
159 {
160     sout_access_out_t       *p_access = (sout_access_out_t*)p_this;
161     sout_access_out_sys_t   *p_sys;
162
163     char                *psz_parser;
164
165     char                *psz_bind_addr;
166     int                 i_bind_port;
167     char                *psz_file_name;
168     char                *psz_user = NULL;
169     char                *psz_pwd = NULL;
170     char                *psz_mime = NULL;
171     char                *psz_cert = NULL, *psz_key = NULL, *psz_ca = NULL,
172                         *psz_crl = NULL;
173     vlc_value_t         val;
174
175     if( !( p_sys = p_access->p_sys =
176                 malloc( sizeof( sout_access_out_sys_t ) ) ) )
177         return VLC_ENOMEM ;
178
179     config_ChainParse( p_access, SOUT_CFG_PREFIX, ppsz_sout_options, p_access->p_cfg );
180
181     /* p_access->psz_path = "hostname:port/filename" */
182     psz_bind_addr = psz_parser = strdup( p_access->psz_path );
183
184     i_bind_port = 0;
185
186     psz_parser = strchr( psz_bind_addr, '/' );
187     if( psz_parser )
188     {
189         psz_file_name = strdup( psz_parser );
190         *psz_parser = '\0';
191     }
192     else
193         psz_file_name = strdup( "/" );
194
195     if( psz_bind_addr[0] == '[' )
196     {
197         psz_bind_addr++;
198         psz_parser = strstr( psz_bind_addr, "]:" );
199         if( psz_parser )
200         {
201             *psz_parser = '\0';
202             i_bind_port = atoi( psz_parser + 2 );
203         }
204         psz_parser = psz_bind_addr - 1;
205     }
206     else
207     {
208         psz_parser = strrchr( psz_bind_addr, ':' );
209         if( psz_parser )
210         {
211             *psz_parser = '\0';
212             i_bind_port = atoi( psz_parser + 1 );
213         }
214         psz_parser = psz_bind_addr;
215     }
216
217     /* SSL support */
218     if( p_access->psz_access && !strcmp( p_access->psz_access, "https" ) )
219     {
220         psz_cert = var_CreateGetNonEmptyString( p_this, SOUT_CFG_PREFIX"cert" );
221         psz_key = var_CreateGetNonEmptyString( p_this, SOUT_CFG_PREFIX"key" );
222         psz_ca = var_CreateGetNonEmptyString( p_this, SOUT_CFG_PREFIX"ca" );
223         psz_crl = var_CreateGetNonEmptyString( p_this, SOUT_CFG_PREFIX"crl" );
224
225         if( i_bind_port <= 0 )
226             i_bind_port = DEFAULT_SSL_PORT;
227     }
228     else
229     {
230         if( i_bind_port <= 0 )
231             i_bind_port = DEFAULT_PORT;
232     }
233
234     p_sys->p_httpd_host = httpd_TLSHostNew( VLC_OBJECT(p_access),
235                                             psz_bind_addr, i_bind_port,
236                                             psz_cert, psz_key, psz_ca,
237                                             psz_crl );
238     free( psz_cert );
239     free( psz_key );
240     free( psz_ca );
241     free( psz_crl );
242
243     if( p_sys->p_httpd_host == NULL )
244     {
245         msg_Err( p_access, "cannot listen on %s port %d",
246                  psz_bind_addr, i_bind_port );
247         free( psz_file_name );
248         free( psz_parser );
249         free( p_sys );
250         return VLC_EGENERIC;
251     }
252     free( psz_parser );
253
254     if( p_access->psz_access && !strcmp( p_access->psz_access, "mmsh" ) )
255     {
256         psz_mime = strdup( "video/x-ms-asf-stream" );
257     }
258     else
259     {
260         var_Get( p_access, SOUT_CFG_PREFIX "mime", &val );
261         if( *val.psz_string )
262             psz_mime = val.psz_string;
263         else
264             free( val.psz_string );
265     }
266
267     var_Get( p_access, SOUT_CFG_PREFIX "user", &val );
268     if( *val.psz_string )
269         psz_user = val.psz_string;
270     else
271         free( val.psz_string );
272
273     var_Get( p_access, SOUT_CFG_PREFIX "pwd", &val );
274     if( *val.psz_string )
275         psz_pwd = val.psz_string;
276     else
277         free( val.psz_string );
278
279     p_sys->p_httpd_stream =
280         httpd_StreamNew( p_sys->p_httpd_host, psz_file_name, psz_mime,
281                          psz_user, psz_pwd, NULL );
282     free( psz_user );
283     free( psz_pwd );
284     free( psz_mime );
285
286     if( p_sys->p_httpd_stream == NULL )
287     {
288         msg_Err( p_access, "cannot add stream %s", psz_file_name );
289         httpd_HostDelete( p_sys->p_httpd_host );
290
291         free( psz_file_name );
292         free( p_sys );
293         return VLC_EGENERIC;
294     }
295
296 #if 0 //def HAVE_AVAHI_CLIENT
297     if( config_GetInt(p_this, SOUT_CFG_PREFIX "bonjour") )
298     {
299         char                *psz_txt, *psz_name;
300         playlist_t          *p_playlist = pl_Hold( p_access );
301
302         char *psz_uri = input_item_GetURI( p_playlist->status.p_item->p_input );
303         char *psz_newuri = psz_uri;
304         psz_name = strrchr( psz_newuri, DIRECTORY_SEPARATOR );
305         if( psz_name != NULL ) psz_name++;
306         else psz_name = psz_newuri;
307
308         if( psz_file_name &&
309             asprintf( &psz_txt, "path=%s", psz_file_name ) == -1 )
310             {
311                 pl_Release( p_access );
312                 free( psz_uri );
313                 return VLC_ENOMEM;
314             }
315
316         p_sys->p_bonjour = bonjour_start_service( (vlc_object_t *)p_access,
317                                     strcmp( p_access->psz_access, "https" )
318                                        ? "_vlc-http._tcp" : "_vlc-https._tcp",
319                                              psz_name, i_bind_port, psz_txt );
320         free( psz_uri );
321         free( psz_txt );
322
323         if( p_sys->p_bonjour == NULL )
324             msg_Err( p_access, "unable to start requested Bonjour announce" );
325         pl_Release( p_access );
326     }
327     else
328         p_sys->p_bonjour = NULL;
329 #endif
330
331     free( psz_file_name );
332
333     p_sys->i_header_allocated = 1024;
334     p_sys->i_header_size      = 0;
335     p_sys->p_header           = malloc( p_sys->i_header_allocated );
336     p_sys->b_header_complete  = false;
337
338     p_access->pf_write       = Write;
339     p_access->pf_seek        = Seek;
340     p_access->pf_control     = Control;
341
342     return VLC_SUCCESS;
343 }
344
345 /*****************************************************************************
346  * Close: close the target
347  *****************************************************************************/
348 static void Close( vlc_object_t * p_this )
349 {
350     sout_access_out_t       *p_access = (sout_access_out_t*)p_this;
351     sout_access_out_sys_t   *p_sys = p_access->p_sys;
352
353 #if 0 //def HAVE_AVAHI_CLIENT
354     if( p_sys->p_bonjour != NULL )
355         bonjour_stop_service( p_sys->p_bonjour );
356 #endif
357
358     httpd_StreamDelete( p_sys->p_httpd_stream );
359     httpd_HostDelete( p_sys->p_httpd_host );
360
361     free( p_sys->p_header );
362
363     msg_Dbg( p_access, "Close" );
364
365     free( p_sys );
366 }
367
368 static int Control( sout_access_out_t *p_access, int i_query, va_list args )
369 {
370     (void)p_access;
371
372     switch( i_query )
373     {
374         case ACCESS_OUT_CONTROLS_PACE:
375             *va_arg( args, bool * ) = false;
376             break;
377
378         default:
379             return VLC_EGENERIC;
380     }
381     return VLC_SUCCESS;
382 }
383
384 /*****************************************************************************
385  * Write:
386  *****************************************************************************/
387 static ssize_t Write( sout_access_out_t *p_access, block_t *p_buffer )
388 {
389     sout_access_out_sys_t *p_sys = p_access->p_sys;
390     int i_err = 0;
391     int i_len = 0;
392
393     while( p_buffer )
394     {
395         block_t *p_next;
396
397         if( p_buffer->i_flags & BLOCK_FLAG_HEADER )
398         {
399             /* gather header */
400             if( p_sys->b_header_complete )
401             {
402                 /* free previously gathered header */
403                 p_sys->i_header_size = 0;
404                 p_sys->b_header_complete = false;
405             }
406             if( (int)(p_buffer->i_buffer + p_sys->i_header_size) >
407                 p_sys->i_header_allocated )
408             {
409                 p_sys->i_header_allocated =
410                     p_buffer->i_buffer + p_sys->i_header_size + 1024;
411                 p_sys->p_header =
412                     realloc( p_sys->p_header, p_sys->i_header_allocated );
413             }
414             memcpy( &p_sys->p_header[p_sys->i_header_size],
415                     p_buffer->p_buffer,
416                     p_buffer->i_buffer );
417             p_sys->i_header_size += p_buffer->i_buffer;
418         }
419         else if( !p_sys->b_header_complete )
420         {
421             p_sys->b_header_complete = true;
422
423             httpd_StreamHeader( p_sys->p_httpd_stream, p_sys->p_header,
424                                 p_sys->i_header_size );
425         }
426
427         i_len += p_buffer->i_buffer;
428         /* send data */
429         i_err = httpd_StreamSend( p_sys->p_httpd_stream, p_buffer->p_buffer,
430                                   p_buffer->i_buffer );
431
432         p_next = p_buffer->p_next;
433         block_Release( p_buffer );
434         p_buffer = p_next;
435
436         if( i_err < 0 )
437         {
438             break;
439         }
440     }
441
442     if( i_err < 0 )
443     {
444         block_ChainRelease( p_buffer );
445     }
446
447     return( i_err < 0 ? VLC_EGENERIC : i_len );
448 }
449
450 /*****************************************************************************
451  * Seek: seek to a specific location in a file
452  *****************************************************************************/
453 static int Seek( sout_access_out_t *p_access, off_t i_pos )
454 {
455     (void)i_pos;
456     msg_Warn( p_access, "HTTP sout access cannot seek" );
457     return VLC_EGENERIC;
458 }