b587352f0bfe2d0165534d78b3cee43587f654e6
[vlc.git] / modules / control / http / http.c
1 /*****************************************************************************
2  * http.c : HTTP/HTTPS Remote control interface
3  *****************************************************************************
4  * Copyright (C) 2001-2006 the VideoLAN team
5  * $Id$
6  *
7  * Authors: Gildas Bazin <gbazin@netcourrier.com>
8  *          Laurent Aimar <fenrir@via.ecp.fr>
9  *          Christophe Massiot <massiot@via.ecp.fr>
10  *
11  * This program is free software; you can redistribute it and/or modify
12  * it under the terms of the GNU General Public License as published by
13  * the Free Software Foundation; either version 2 of the License, or
14  * (at your option) any later version.
15  *
16  * This program is distributed in the hope that it will be useful,
17  * but WITHOUT ANY WARRANTY; without even the implied warranty of
18  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
19  * GNU General Public License for more details.
20  *
21  * You should have received a copy of the GNU General Public License
22  * along with this program; if not, write to the Free Software
23  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston MA 02110-1301, USA.
24  *****************************************************************************/
25
26 #include "http.h"
27
28 /*****************************************************************************
29  * Module descriptor
30  *****************************************************************************/
31 static int  Open ( vlc_object_t * );
32 static void Close( vlc_object_t * );
33
34 #define HOST_TEXT N_( "Host address" )
35 #define HOST_LONGTEXT N_( \
36     "Address and port the HTTP interface will listen on. It defaults to " \
37     "all network interfaces (0.0.0.0)." \
38     " If you want the HTTP interface to be available only on the local " \
39     "machine, enter 127.0.0.1" )
40 #define SRC_TEXT N_( "Source directory" )
41 #define SRC_LONGTEXT N_( "Source directory" )
42 #define CHARSET_TEXT N_( "Charset" )
43 #define CHARSET_LONGTEXT N_( \
44         "Charset declared in Content-Type header (default UTF-8)." )
45 #define HANDLERS_TEXT N_( "Handlers" )
46 #define HANDLERS_LONGTEXT N_( \
47         "List of handler extensions and executable paths (for instance: " \
48         "php=/usr/bin/php,pl=/usr/bin/perl)." )
49 #define CERT_TEXT N_( "Certificate file" )
50 #define CERT_LONGTEXT N_( "HTTP interface x509 PEM certificate file " \
51                           "(enables SSL)." )
52 #define KEY_TEXT N_( "Private key file" )
53 #define KEY_LONGTEXT N_( "HTTP interface x509 PEM private key file." )
54 #define CA_TEXT N_( "Root CA file" )
55 #define CA_LONGTEXT N_( "HTTP interface x509 PEM trusted root CA " \
56                         "certificates file." )
57 #define CRL_TEXT N_( "CRL file" )
58 #define CRL_LONGTEXT N_( "HTTP interace Certificates Revocation List file." )
59
60 vlc_module_begin();
61     set_shortname( _("HTTP"));
62     set_description( _("HTTP remote control interface") );
63     set_category( CAT_INTERFACE );
64     set_subcategory( SUBCAT_INTERFACE_MAIN );
65         add_string ( "http-host", NULL, NULL, HOST_TEXT, HOST_LONGTEXT, VLC_TRUE );
66         add_string ( "http-src",  NULL, NULL, SRC_TEXT,  SRC_LONGTEXT,  VLC_TRUE );
67         add_string ( "http-charset", "UTF-8", NULL, CHARSET_TEXT, CHARSET_LONGTEXT, VLC_TRUE );
68 #if defined( HAVE_FORK ) || defined( WIN32 )
69         add_string ( "http-handlers", NULL, NULL, HANDLERS_TEXT, HANDLERS_LONGTEXT, VLC_TRUE );
70 #endif
71         set_section( N_("HTTP SSL" ), 0 );
72         add_string ( "http-intf-cert", NULL, NULL, CERT_TEXT, CERT_LONGTEXT, VLC_TRUE );
73         add_string ( "http-intf-key",  NULL, NULL, KEY_TEXT,  KEY_LONGTEXT,  VLC_TRUE );
74         add_string ( "http-intf-ca",   NULL, NULL, CA_TEXT,   CA_LONGTEXT,   VLC_TRUE );
75         add_string ( "http-intf-crl",  NULL, NULL, CRL_TEXT,  CRL_LONGTEXT,  VLC_TRUE );
76     set_capability( "interface", 0 );
77     set_callbacks( Open, Close );
78 vlc_module_end();
79
80
81 /*****************************************************************************
82  * Local prototypes
83  *****************************************************************************/
84 static void Run          ( intf_thread_t *p_intf );
85
86 /*****************************************************************************
87  * Local functions
88  *****************************************************************************/
89 #if !defined(__APPLE__) && !defined(SYS_BEOS) && !defined(WIN32)
90 static int DirectoryCheck( const char *psz_dir )
91 {
92     DIR           *p_dir;
93
94 #ifdef HAVE_SYS_STAT_H
95     struct stat   stat_info;
96
97     if( ( utf8_stat( psz_dir, &stat_info ) == -1 )
98       || !S_ISDIR( stat_info.st_mode ) )
99     {
100         return VLC_EGENERIC;
101     }
102 #endif
103
104     if( ( p_dir = utf8_opendir( psz_dir ) ) == NULL )
105     {
106         return VLC_EGENERIC;
107     }
108     closedir( p_dir );
109
110     return VLC_SUCCESS;
111 }
112 #endif
113
114
115 /*****************************************************************************
116  * Activate: initialize and create stuff
117  *****************************************************************************/
118 static int Open( vlc_object_t *p_this )
119 {
120     intf_thread_t *p_intf = (intf_thread_t*)p_this;
121     intf_sys_t    *p_sys;
122     char          *psz_address;
123     const char    *psz_cert = NULL, *psz_key = NULL, *psz_ca = NULL,
124                   *psz_crl = NULL;
125     int           i_port       = 0;
126     char          *psz_src;
127     char          *psz_tmp;
128
129     var_Create(p_intf->p_libvlc_global, "http-host", VLC_VAR_STRING );
130     psz_address=var_GetString(p_intf->p_libvlc_global, "http-host");
131     if( !psz_address || !*psz_address )
132     {
133         psz_address = config_GetPsz( p_intf, "http-host" );
134     }
135     if( psz_address != NULL )
136     {
137         char *psz_parser = strchr( psz_address, ':' );
138         if( psz_parser )
139         {
140             *psz_parser++ = '\0';
141             i_port = atoi( psz_parser );
142         }
143     }
144     else
145         psz_address = strdup("");
146
147     p_intf->p_sys = p_sys = malloc( sizeof( intf_sys_t ) );
148     if( !p_intf->p_sys )
149     {
150         return( VLC_ENOMEM );
151     }
152     p_sys->p_playlist = NULL;
153     p_sys->p_input    = NULL;
154     p_sys->p_vlm      = NULL;
155     p_sys->psz_address = psz_address;
156     p_sys->i_port     = i_port;
157
158     /* determine Content-Type value for HTML pages */
159     psz_src = config_GetPsz( p_intf, "http-charset" );
160     if( psz_src == NULL || !*psz_src )
161     {
162         if( psz_src != NULL ) free( psz_src );
163         psz_src = strdup("UTF-8");
164     }
165
166     p_sys->psz_html_type = malloc( 20 + strlen( psz_src ) );
167     if( p_sys->psz_html_type == NULL )
168     {
169         free( p_sys->psz_address );
170         free( p_sys );
171         free( psz_src );
172         return VLC_ENOMEM ;
173     }
174     sprintf( p_sys->psz_html_type, "text/html; charset=%s", psz_src );
175     msg_Dbg( p_intf, "using charset=%s", psz_src );
176
177     if( strcmp( psz_src, "UTF-8" ) )
178     {
179         char psz_encoding[strlen( psz_src ) + sizeof( "//translit")];
180         sprintf( psz_encoding, "%s//translit", psz_src);
181
182         p_sys->iconv_from_utf8 = vlc_iconv_open( psz_encoding, "UTF-8" );
183         if( p_sys->iconv_from_utf8 == (vlc_iconv_t)-1 )
184             msg_Warn( p_intf, "unable to perform charset conversion to %s",
185                       psz_encoding );
186         else
187         {
188             p_sys->iconv_to_utf8 = vlc_iconv_open( "UTF-8", psz_src );
189             if( p_sys->iconv_to_utf8 == (vlc_iconv_t)-1 )
190                 msg_Warn( p_intf,
191                           "unable to perform charset conversion from %s",
192                           psz_src );
193         }
194     }
195     else
196     {
197         p_sys->iconv_from_utf8 = p_sys->iconv_to_utf8 = (vlc_iconv_t)-1;
198     }
199
200     p_sys->psz_charset = psz_src;
201     psz_src = NULL;
202
203     /* determine file handler associations */
204     p_sys->i_handlers = 0;
205     p_sys->pp_handlers = NULL;
206 #if defined( HAVE_FORK ) || defined( WIN32 )
207     psz_src = config_GetPsz( p_intf, "http-handlers" );
208     if( psz_src != NULL && *psz_src )
209     {
210         char *p = psz_src;
211         while( p != NULL )
212         {
213             http_association_t *p_handler;
214             char *psz_ext = p;
215             char *psz_program, *psz_options;
216             p = strchr( p, '=' );
217             if( p == NULL ) break;
218             *p++ = '\0';
219             psz_program = p;
220             p = strchr( p, ',' );
221             if( p != NULL )
222                 *p++ = '\0';
223
224             p_handler = malloc( sizeof( http_association_t ) );
225             p_handler->psz_ext = strdup( psz_ext );
226             psz_options = E_(FirstWord)( psz_program, psz_program );
227             p_handler->i_argc = 0;
228             p_handler->ppsz_argv = NULL;
229             TAB_APPEND( p_handler->i_argc, p_handler->ppsz_argv,
230                         strdup( psz_program ) );
231             while( psz_options != NULL && *psz_options )
232             {
233                 char *psz_next = E_(FirstWord)( psz_options, psz_options );
234                 TAB_APPEND( p_handler->i_argc, p_handler->ppsz_argv,
235                             strdup( psz_options ) );
236                 psz_options = psz_next;
237             }
238             /* NULL will be appended later on */
239
240             TAB_APPEND( p_sys->i_handlers, p_sys->pp_handlers, p_handler );
241         }
242     }
243     if( psz_src != NULL )
244         free( psz_src );
245 #endif
246
247     /* determine SSL configuration */
248     psz_cert = config_GetPsz( p_intf, "http-intf-cert" );
249     if ( psz_cert != NULL )
250     {
251         msg_Dbg( p_intf, "enabling TLS for HTTP interface (cert file: %s)",
252                  psz_cert );
253         psz_key = config_GetPsz( p_intf, "http-intf-key" );
254         psz_ca = config_GetPsz( p_intf, "http-intf-ca" );
255         psz_crl = config_GetPsz( p_intf, "http-intf-crl" );
256
257         if( i_port <= 0 )
258             i_port = 8443;
259     }
260     else
261     {
262         if( i_port <= 0 )
263             i_port= 8080;
264     }
265
266     /* maximum port is 65535 , strlen("65535") == 5 */
267     psz_tmp = malloc( ( strlen( psz_address ) + 5 ) * sizeof( char) );
268
269     /* Ugly hack to allow to run several HTTP servers on different ports. */
270
271     sprintf( psz_tmp, "%s:%d", psz_address, i_port + 1 );
272     var_SetString( p_intf->p_libvlc_global, "http-host", psz_tmp );
273     free( psz_tmp );
274
275     msg_Dbg( p_intf, "base %s:%d", psz_address, i_port );
276
277     p_sys->p_httpd_host = httpd_TLSHostNew( VLC_OBJECT(p_intf), psz_address,
278                                             i_port, psz_cert, psz_key, psz_ca,
279                                             psz_crl );
280     if( p_sys->p_httpd_host == NULL )
281     {
282         msg_Err( p_intf, "cannot listen on %s:%d", psz_address, i_port );
283         free( p_sys->psz_html_type );
284         free( p_sys->psz_address );
285         free( p_sys );
286         return VLC_EGENERIC;
287     }
288
289     p_sys->i_files  = 0;
290     p_sys->pp_files = NULL;
291
292 #if defined(__APPLE__) || defined(SYS_BEOS) || defined(WIN32)
293     if ( ( psz_src = config_GetPsz( p_intf, "http-src" )) == NULL )
294     {
295         char * psz_vlcpath = p_intf->p_libvlc_global->psz_vlcpath;
296         psz_src = malloc( strlen(psz_vlcpath) + strlen("/share/http" ) + 1 );
297         if( !psz_src ) return VLC_ENOMEM;
298 #if defined(WIN32)
299         sprintf( psz_src, "%s/http", psz_vlcpath );
300 #else
301         sprintf( psz_src, "%s/share/http", psz_vlcpath );
302 #endif
303     }
304 #else
305     psz_src = config_GetPsz( p_intf, "http-src" );
306
307     if( ( psz_src == NULL ) || ( *psz_src == '\0' ) )
308     {
309         static char const* ppsz_paths[] = {
310             "share/http",
311             "../share/http",
312             DATA_PATH"/http",
313             NULL
314         };
315         unsigned i;
316
317         if( psz_src != NULL )
318         {
319             free( psz_src );
320             psz_src = NULL;
321         }
322
323         for( i = 0; ppsz_paths[i] != NULL; i++ )
324             if( !DirectoryCheck( ppsz_paths[i] ) )
325             {
326                 psz_src = strdup( ppsz_paths[i] );
327                 break;
328             }
329     }
330 #endif
331
332     if( !psz_src || *psz_src == '\0' )
333     {
334         msg_Err( p_intf, "invalid web interface source directory" );
335         goto failed;
336     }
337
338     /* remove trainling \ or / */
339     if( psz_src[strlen( psz_src ) - 1] == '\\' ||
340         psz_src[strlen( psz_src ) - 1] == '/' )
341     {
342         psz_src[strlen( psz_src ) - 1] = '\0';
343     }
344
345     E_(ParseDirectory)( p_intf, psz_src, psz_src );
346
347
348     if( p_sys->i_files <= 0 )
349     {
350         msg_Err( p_intf, "cannot find any file in directory %s", psz_src );
351         goto failed;
352     }
353     p_intf->pf_run = Run;
354     free( psz_src );
355
356     return VLC_SUCCESS;
357
358 failed:
359     if( psz_src ) free( psz_src );
360     if( p_sys->pp_files )
361     {
362         free( p_sys->pp_files );
363     }
364     httpd_HostDelete( p_sys->p_httpd_host );
365     free( p_sys->psz_address );
366     free( p_sys->psz_html_type );
367     if( p_sys->iconv_from_utf8 != (vlc_iconv_t)-1 )
368         vlc_iconv_close( p_sys->iconv_from_utf8 );
369     if( p_sys->iconv_to_utf8 != (vlc_iconv_t)-1 )
370         vlc_iconv_close( p_sys->iconv_to_utf8 );
371     free( p_sys );
372     return VLC_EGENERIC;
373 }
374
375 /*****************************************************************************
376  * Close: destroy interface
377  *****************************************************************************/
378 static void Close ( vlc_object_t *p_this )
379 {
380     intf_thread_t *p_intf = (intf_thread_t *)p_this;
381     intf_sys_t    *p_sys = p_intf->p_sys;
382
383     int i;
384
385     if( p_sys->p_vlm )
386     {
387         vlm_Delete( p_sys->p_vlm );
388     }
389     for( i = 0; i < p_sys->i_files; i++ )
390     {
391         if( p_sys->pp_files[i]->b_handler )
392             httpd_HandlerDelete( ((httpd_handler_sys_t *)p_sys->pp_files[i])->p_handler );
393         else
394             httpd_FileDelete( p_sys->pp_files[i]->p_file );
395         if( p_sys->pp_files[i]->p_redir )
396             httpd_RedirectDelete( p_sys->pp_files[i]->p_redir );
397         if( p_sys->pp_files[i]->p_redir2 )
398             httpd_RedirectDelete( p_sys->pp_files[i]->p_redir2 );
399
400         free( p_sys->pp_files[i]->file );
401         free( p_sys->pp_files[i]->name );
402         free( p_sys->pp_files[i] );
403     }
404     if( p_sys->pp_files )
405     {
406         free( p_sys->pp_files );
407     }
408     for( i = 0; i < p_sys->i_handlers; i++ )
409     {
410         http_association_t *p_handler = p_sys->pp_handlers[i];
411         int j;
412         free( p_handler->psz_ext );
413         for( j = 0; j < p_handler->i_argc; j++ )
414             free( p_handler->ppsz_argv[j] );
415         if( p_handler->i_argc )
416             free( p_handler->ppsz_argv );
417         free( p_handler );
418     }
419     if( p_sys->i_handlers )
420         free( p_sys->pp_handlers );
421     httpd_HostDelete( p_sys->p_httpd_host );
422     free( p_sys->psz_address );
423     free( p_sys->psz_html_type );
424
425     if( p_sys->iconv_from_utf8 != (vlc_iconv_t)-1 )
426         vlc_iconv_close( p_sys->iconv_from_utf8 );
427     if( p_sys->iconv_to_utf8 != (vlc_iconv_t)-1 )
428         vlc_iconv_close( p_sys->iconv_to_utf8 );
429     free( p_sys );
430 }
431
432 /*****************************************************************************
433  * Run: http interface thread
434  *****************************************************************************/
435 static void Run( intf_thread_t *p_intf )
436 {
437     intf_sys_t     *p_sys = p_intf->p_sys;
438
439     while( !intf_ShouldDie( p_intf ) )
440     {
441         /* get the playlist */
442         if( p_sys->p_playlist == NULL )
443         {
444             p_sys->p_playlist = vlc_object_find( p_intf, VLC_OBJECT_PLAYLIST, FIND_ANYWHERE );
445         }
446
447         /* Manage the input part */
448         if( p_sys->p_input == NULL )
449         {
450             if( p_sys->p_playlist )
451             {
452                 p_sys->p_input = p_sys->p_playlist->p_input;
453             }
454         }
455         else if( p_sys->p_input->b_dead || p_sys->p_input->b_die )
456         {
457             p_sys->p_input = NULL;
458         }
459
460
461         /* Wait a bit */
462         msleep( INTF_IDLE_SLEEP );
463     }
464
465     if( p_sys->p_input )
466     {
467         vlc_object_release( p_sys->p_input );
468         p_sys->p_input = NULL;
469     }
470
471     if( p_sys->p_playlist )
472     {
473         vlc_object_release( p_sys->p_playlist );
474         p_sys->p_playlist = NULL;
475     }
476 }
477
478 /****************************************************************************
479  * HttpCallback:
480  ****************************************************************************
481  * a file with b_html is parsed and all "macro" replaced
482  ****************************************************************************/
483 static void Callback404( httpd_file_sys_t *p_args, char **pp_data,
484                          int *pi_data )
485 {
486     char *p = *pp_data = malloc( 10240 );
487     if( !p )
488     {
489         return;
490     }
491     p += sprintf( p, "Content-Type: text/html\n" );
492     p += sprintf( p, "<html xmlns=\"http://www.w3.org/1999/xhtml\">\n" );
493     p += sprintf( p, "<head>\n" );
494     p += sprintf( p, "<title>Error loading %s</title>\n", p_args->file );
495     p += sprintf( p, "</head>\n" );
496     p += sprintf( p, "<body>\n" );
497     p += sprintf( p, "<h1><center>Error loading %s for %s</center></h1>\n", p_args->file, p_args->name );
498     p += sprintf( p, "<a href=\"http://www.videolan.org/\">VideoLAN</a>\n" );
499     p += sprintf( p, "</body>\n" );
500     p += sprintf( p, "</html>\n" );
501
502     *pi_data = strlen( *pp_data );
503 }
504
505 static void ParseExecute( httpd_file_sys_t *p_args, char *p_buffer,
506                           int i_buffer, char *p_request,
507                           char **pp_data, int *pi_data )
508 {
509     int i_request = p_request != NULL ? strlen( p_request ) : 0;
510     char *dst;
511     vlc_value_t val;
512     char position[4]; /* percentage */
513     char time[12]; /* in seconds */
514     char length[12]; /* in seconds */
515     audio_volume_t i_volume;
516     char volume[5];
517     char state[8];
518     char stats[20];
519
520 #define p_sys p_args->p_intf->p_sys
521     if( p_sys->p_input )
522     {
523         var_Get( p_sys->p_input, "position", &val);
524         sprintf( position, "%d" , (int)((val.f_float) * 100.0));
525         var_Get( p_sys->p_input, "time", &val);
526         sprintf( time, "%d" , (int)(val.i_time / 1000000) );
527         var_Get( p_sys->p_input, "length", &val);
528         sprintf( length, "%d" , (int)(val.i_time / 1000000) );
529
530         var_Get( p_sys->p_input, "state", &val );
531         if( val.i_int == PLAYING_S )
532         {
533             sprintf( state, "playing" );
534         }
535         else if( val.i_int == OPENING_S )
536         {
537             sprintf( state, "opening/connecting" );
538         }
539         else if( val.i_int == BUFFERING_S )
540         {
541             sprintf( state, "buffering" );
542         }
543         else if( val.i_int == PAUSE_S )
544         {
545             sprintf( state, "paused" );
546         }
547         else
548         {
549             sprintf( state, "stop" );
550         }
551     }
552     else
553     {
554         sprintf( position, "%d", 0 );
555         sprintf( time, "%d", 0 );
556         sprintf( length, "%d", 0 );
557         sprintf( state, "stop" );
558     }
559 #undef p_sys
560
561     aout_VolumeGet( p_args->p_intf, &i_volume );
562     sprintf( volume, "%d", (int)i_volume );
563
564     p_args->vars = E_(mvar_New)( "variables", "" );
565     E_(mvar_AppendNewVar)( p_args->vars, "url_param",
566                            i_request > 0 ? "1" : "0" );
567     E_(mvar_AppendNewVar)( p_args->vars, "url_value", p_request );
568     E_(mvar_AppendNewVar)( p_args->vars, "version", VLC_Version() );
569     E_(mvar_AppendNewVar)( p_args->vars, "copyright", COPYRIGHT_MESSAGE );
570     E_(mvar_AppendNewVar)( p_args->vars, "vlc_compile_by", VLC_CompileBy() );
571     E_(mvar_AppendNewVar)( p_args->vars, "vlc_compile_host",
572                            VLC_CompileHost() );
573     E_(mvar_AppendNewVar)( p_args->vars, "vlc_compile_domain",
574                            VLC_CompileDomain() );
575     E_(mvar_AppendNewVar)( p_args->vars, "vlc_compiler", VLC_Compiler() );
576 #ifndef HAVE_SHARED_LIBVLC
577     E_(mvar_AppendNewVar)( p_args->vars, "vlc_changeset", VLC_Changeset() );
578 #endif
579     E_(mvar_AppendNewVar)( p_args->vars, "stream_position", position );
580     E_(mvar_AppendNewVar)( p_args->vars, "stream_time", time );
581     E_(mvar_AppendNewVar)( p_args->vars, "stream_length", length );
582     E_(mvar_AppendNewVar)( p_args->vars, "volume", volume );
583     E_(mvar_AppendNewVar)( p_args->vars, "stream_state", state );
584     E_(mvar_AppendNewVar)( p_args->vars, "charset", ((intf_sys_t *)p_args->p_intf->p_sys)->psz_charset );
585
586     /* Stats */
587 #define p_sys p_args->p_intf->p_sys
588     if( p_sys->p_input )
589     {
590         input_item_t *p_item = p_sys->p_input->input.p_item;
591         if( p_item )
592         {
593             vlc_mutex_lock( &p_item->p_stats->lock );
594 #define STATS_INT( n ) sprintf( stats, "%d", p_item->p_stats->i_ ## n ); \
595                        E_(mvar_AppendNewVar)( p_args->vars, #n, stats );
596 #define STATS_FLOAT( n ) sprintf( stats, "%f", p_item->p_stats->f_ ## n ); \
597                        E_(mvar_AppendNewVar)( p_args->vars, #n, stats );
598             STATS_INT( read_bytes )
599             STATS_FLOAT( input_bitrate )
600             STATS_INT( demux_read_bytes )
601             STATS_FLOAT( demux_bitrate )
602             STATS_INT( decoded_video )
603             STATS_INT( displayed_pictures )
604             STATS_INT( lost_pictures )
605             STATS_INT( decoded_audio )
606             STATS_INT( played_abuffers )
607             STATS_INT( lost_abuffers )
608             STATS_INT( sent_packets )
609             STATS_INT( sent_bytes )
610             STATS_FLOAT( send_bitrate )
611 #undef STATS_INT
612 #undef STATS_FLOAT
613             vlc_mutex_unlock( &p_item->p_stats->lock );
614         }
615     }
616 #undef p_sys
617
618     E_(SSInit)( &p_args->stack );
619
620     /* allocate output */
621     *pi_data = i_buffer + 1000;
622     dst = *pp_data = malloc( *pi_data );
623
624     /* we parse executing all  <vlc /> macros */
625     E_(Execute)( p_args, p_request, i_request, pp_data, pi_data, &dst,
626                  &p_buffer[0], &p_buffer[i_buffer] );
627
628     *dst     = '\0';
629     *pi_data = dst - *pp_data;
630
631     E_(SSClean)( &p_args->stack );
632     E_(mvar_Delete)( p_args->vars );
633 }
634
635 int  E_(HttpCallback)( httpd_file_sys_t *p_args,
636                        httpd_file_t *p_file,
637                        uint8_t *_p_request,
638                        uint8_t **_pp_data, int *pi_data )
639 {
640     char *p_request = (char *)_p_request;
641     char **pp_data = (char **)_pp_data;
642     FILE *f;
643
644     /* FIXME: do we need character encoding translation here? */
645     if( ( f = fopen( p_args->file, "r" ) ) == NULL )
646     {
647         Callback404( p_args, pp_data, pi_data );
648         return VLC_SUCCESS;
649     }
650
651     if( !p_args->b_html )
652     {
653         E_(FileLoad)( f, pp_data, pi_data );
654     }
655     else
656     {
657         int  i_buffer;
658         char *p_buffer;
659
660         /* first we load in a temporary buffer */
661         E_(FileLoad)( f, &p_buffer, &i_buffer );
662
663         ParseExecute( p_args, p_buffer, i_buffer, p_request, pp_data, pi_data );
664
665         free( p_buffer );
666     }
667
668     fclose( f );
669
670     return VLC_SUCCESS;
671 }
672
673 /****************************************************************************
674  * HandlerCallback:
675  ****************************************************************************
676  * call the external handler and parse vlc macros if Content-Type is HTML
677  ****************************************************************************/
678 int  E_(HandlerCallback)( httpd_handler_sys_t *p_args,
679                           httpd_handler_t *p_handler, char *_p_url,
680                           uint8_t *_p_request, int i_type,
681                           uint8_t *_p_in, int i_in,
682                           char *psz_remote_addr, char *psz_remote_host,
683                           uint8_t **_pp_data, int *pi_data )
684 {
685     char *p_url = (char *)_p_url;
686     char *p_request = (char *)_p_request;
687     char **pp_data = (char **)_pp_data;
688     char *p_in = (char *)p_in;
689     int i_request = p_request != NULL ? strlen( p_request ) : 0;
690     char *p;
691     int i_env = 0;
692     char **ppsz_env = NULL;
693     char *psz_tmp;
694     char sep;
695     int  i_buffer;
696     char *p_buffer;
697     char *psz_cwd, *psz_file = NULL;
698     int i_ret;
699
700 #ifdef WIN32
701     sep = '\\';
702 #else
703     sep = '/';
704 #endif
705
706     /* Create environment for the CGI */
707     TAB_APPEND( i_env, ppsz_env, strdup("GATEWAY_INTERFACE=CGI/1.1") );
708     TAB_APPEND( i_env, ppsz_env, strdup("SERVER_PROTOCOL=HTTP/1.1") );
709     TAB_APPEND( i_env, ppsz_env, strdup("SERVER_SOFTWARE=" COPYRIGHT_MESSAGE) );
710
711     switch( i_type )
712     {
713     case HTTPD_MSG_GET:
714         TAB_APPEND( i_env, ppsz_env, strdup("REQUEST_METHOD=GET") );
715         break;
716     case HTTPD_MSG_POST:
717         TAB_APPEND( i_env, ppsz_env, strdup("REQUEST_METHOD=POST") );
718         break;
719     case HTTPD_MSG_HEAD:
720         TAB_APPEND( i_env, ppsz_env, strdup("REQUEST_METHOD=HEAD") );
721         break;
722     default:
723         break;
724     }
725
726     if( i_request )
727     {
728         psz_tmp = malloc( sizeof("QUERY_STRING=") + i_request );
729         sprintf( psz_tmp, "QUERY_STRING=%s", p_request );
730         TAB_APPEND( i_env, ppsz_env, psz_tmp );
731
732         psz_tmp = malloc( sizeof("REQUEST_URI=?") + strlen(p_url)
733                            + i_request );
734         sprintf( psz_tmp, "REQUEST_URI=%s?%s", p_url, p_request );
735         TAB_APPEND( i_env, ppsz_env, psz_tmp );
736     }
737     else
738     {
739         psz_tmp = malloc( sizeof("REQUEST_URI=") + strlen(p_url) );
740         sprintf( psz_tmp, "REQUEST_URI=%s", p_url );
741         TAB_APPEND( i_env, ppsz_env, psz_tmp );
742     }
743
744     psz_tmp = malloc( sizeof("SCRIPT_NAME=") + strlen(p_url) );
745     sprintf( psz_tmp, "SCRIPT_NAME=%s", p_url );
746     TAB_APPEND( i_env, ppsz_env, psz_tmp );
747
748 #define p_sys p_args->file.p_intf->p_sys
749     psz_tmp = malloc( sizeof("SERVER_NAME=") + strlen(p_sys->psz_address) );
750     sprintf( psz_tmp, "SERVER_NAME=%s", p_sys->psz_address );
751     TAB_APPEND( i_env, ppsz_env, psz_tmp );
752
753     psz_tmp = malloc( sizeof("SERVER_PORT=") + 5 );
754     sprintf( psz_tmp, "SERVER_PORT=%u", p_sys->i_port );
755     TAB_APPEND( i_env, ppsz_env, psz_tmp );
756 #undef p_sys
757
758     p = getenv( "PATH" );
759     if( p != NULL )
760     {
761         psz_tmp = malloc( sizeof("PATH=") + strlen(p) );
762         sprintf( psz_tmp, "PATH=%s", p );
763         TAB_APPEND( i_env, ppsz_env, psz_tmp );
764     }
765
766 #ifdef WIN32
767     p = getenv( "windir" );
768     if( p != NULL )
769     {
770         psz_tmp = malloc( sizeof("SYSTEMROOT=") + strlen(p) );
771         sprintf( psz_tmp, "SYSTEMROOT=%s", p );
772         TAB_APPEND( i_env, ppsz_env, psz_tmp );
773     }
774 #endif
775
776     if( psz_remote_addr != NULL && *psz_remote_addr )
777     {
778         psz_tmp = malloc( sizeof("REMOTE_ADDR=") + strlen(psz_remote_addr) );
779         sprintf( psz_tmp, "REMOTE_ADDR=%s", psz_remote_addr );
780         TAB_APPEND( i_env, ppsz_env, psz_tmp );
781     }
782
783     if( psz_remote_host != NULL && *psz_remote_host )
784     {
785         psz_tmp = malloc( sizeof("REMOTE_HOST=") + strlen(psz_remote_host) );
786         sprintf( psz_tmp, "REMOTE_HOST=%s", psz_remote_host );
787         TAB_APPEND( i_env, ppsz_env, psz_tmp );
788     }
789
790     if( i_in )
791     {
792         p = p_in;
793         for ( ; ; )
794         {
795             if( !strncasecmp( p, "Content-Type: ", strlen("Content-Type: ") ) )
796             {
797                 char *end = strchr( p, '\r' );
798                 if( end == NULL )
799                     break;
800                 *end = '\0';
801                 psz_tmp = malloc( sizeof("CONTENT_TYPE=") + strlen(p) );
802                 sprintf( psz_tmp, "CONTENT_TYPE=%s", p );
803                 TAB_APPEND( i_env, ppsz_env, psz_tmp );
804                 *end = '\r';
805             }
806             if( !strncasecmp( p, "Content-Length: ",
807                               strlen("Content-Length: ") ) )
808             {
809                 char *end = strchr( p, '\r' );
810                 if( end == NULL )
811                     break;
812                 *end = '\0';
813                 psz_tmp = malloc( sizeof("CONTENT_LENGTH=") + strlen(p) );
814                 sprintf( psz_tmp, "CONTENT_LENGTH=%s", p );
815                 TAB_APPEND( i_env, ppsz_env, psz_tmp );
816                 *end = '\r';
817             }
818
819             p = strchr( p, '\n' );
820             if( p == NULL || p[1] == '\r' )
821             {
822                 p = NULL;
823                 break;
824             }
825             p++;
826         }
827     }
828
829     psz_file = strrchr( p_args->file.file, sep );
830     if( psz_file != NULL )
831     {
832         psz_file++;
833         psz_tmp = malloc( sizeof("SCRIPT_FILENAME=") + strlen(psz_file) );
834         sprintf( psz_tmp, "SCRIPT_FILENAME=%s", psz_file );
835         TAB_APPEND( i_env, ppsz_env, psz_tmp );
836
837         TAB_APPEND( p_args->p_association->i_argc,
838                     p_args->p_association->ppsz_argv, psz_file );
839     }
840
841     TAB_APPEND( i_env, ppsz_env, NULL );
842
843     TAB_APPEND( p_args->p_association->i_argc, p_args->p_association->ppsz_argv,
844                 NULL );
845
846     psz_tmp = strdup( p_args->file.file );
847     p = strrchr( psz_tmp, sep );
848     if( p != NULL )
849     {
850         *p = '\0';
851         psz_cwd = psz_tmp;
852     }
853     else
854     {
855         free( psz_tmp );
856         psz_cwd = NULL;
857     }
858
859     i_ret = vlc_execve( p_args->file.p_intf, p_args->p_association->i_argc,
860                         p_args->p_association->ppsz_argv, ppsz_env, psz_cwd,
861                         (char *)p_in, i_in, &p_buffer, &i_buffer );
862     TAB_REMOVE( p_args->p_association->i_argc, p_args->p_association->ppsz_argv,
863                 NULL );
864     TAB_REMOVE( p_args->p_association->i_argc, p_args->p_association->ppsz_argv,
865                 psz_file );
866     if( psz_cwd != NULL )
867         free( psz_cwd );
868     while( i_env )
869         TAB_REMOVE( i_env, ppsz_env, ppsz_env[0] );
870
871     if( i_ret == -1 )
872     {
873         Callback404( (httpd_file_sys_t *)p_args, pp_data, pi_data );
874         return VLC_SUCCESS;
875     }
876     p = p_buffer;
877     while( strncasecmp( p, "Content-Type: text/html",
878                         strlen("Content-Type: text/html") ) )
879     {
880         p = strchr( p, '\n' );
881         if( p == NULL || p[1] == '\r' )
882         {
883             p = NULL;
884             break;
885         }
886         p++;
887     }
888
889     if( p == NULL )
890     {
891         *pp_data = p_buffer;
892         *pi_data = i_buffer;
893     }
894     else
895     {
896         ParseExecute( (httpd_file_sys_t *)p_args, p_buffer, i_buffer,
897                       p_request, pp_data, pi_data );
898
899         free( p_buffer );
900     }
901
902     return VLC_SUCCESS;
903 }