Remove the HTTP interface thread, and save 20 wakeups per seconds.
[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 ART_TEXT N_( "Export album art as /art." )
50 #define ART_LONGTEXT N_( \
51         "Allow exporting album art for current playlist items at the " \
52         "/art and /art?id=<id> URLs." )
53 #define CERT_TEXT N_( "Certificate file" )
54 #define CERT_LONGTEXT N_( "HTTP interface x509 PEM certificate file " \
55                           "(enables SSL)." )
56 #define KEY_TEXT N_( "Private key file" )
57 #define KEY_LONGTEXT N_( "HTTP interface x509 PEM private key file." )
58 #define CA_TEXT N_( "Root CA file" )
59 #define CA_LONGTEXT N_( "HTTP interface x509 PEM trusted root CA " \
60                         "certificates file." )
61 #define CRL_TEXT N_( "CRL file" )
62 #define CRL_LONGTEXT N_( "HTTP interace Certificates Revocation List file." )
63
64 vlc_module_begin();
65     set_shortname( _("HTTP"));
66     set_description( _("HTTP remote control interface") );
67     set_category( CAT_INTERFACE );
68     set_subcategory( SUBCAT_INTERFACE_MAIN );
69         add_string ( "http-host", NULL, NULL, HOST_TEXT, HOST_LONGTEXT, VLC_TRUE );
70         add_string ( "http-src",  NULL, NULL, SRC_TEXT,  SRC_LONGTEXT,  VLC_TRUE );
71         add_string ( "http-charset", "UTF-8", NULL, CHARSET_TEXT, CHARSET_LONGTEXT, VLC_TRUE );
72 #if defined( HAVE_FORK ) || defined( WIN32 )
73         add_string ( "http-handlers", NULL, NULL, HANDLERS_TEXT, HANDLERS_LONGTEXT, VLC_TRUE );
74 #endif
75         add_bool   ( "http-album-art", VLC_FALSE, NULL, ART_TEXT, ART_LONGTEXT, VLC_TRUE );
76         set_section( N_("HTTP SSL" ), 0 );
77         add_string ( "http-intf-cert", NULL, NULL, CERT_TEXT, CERT_LONGTEXT, VLC_TRUE );
78         add_string ( "http-intf-key",  NULL, NULL, KEY_TEXT,  KEY_LONGTEXT,  VLC_TRUE );
79         add_string ( "http-intf-ca",   NULL, NULL, CA_TEXT,   CA_LONGTEXT,   VLC_TRUE );
80         add_string ( "http-intf-crl",  NULL, NULL, CRL_TEXT,  CRL_LONGTEXT,  VLC_TRUE );
81     set_capability( "interface", 0 );
82     set_callbacks( Open, Close );
83 vlc_module_end();
84
85
86 /*****************************************************************************
87  * Local prototypes
88  *****************************************************************************/
89 int  E_(ArtCallback)( httpd_handler_sys_t *p_args,
90                           httpd_handler_t *p_handler, char *_p_url,
91                           uint8_t *_p_request, int i_type,
92                           uint8_t *_p_in, int i_in,
93                           char *psz_remote_addr, char *psz_remote_host,
94                           uint8_t **pp_data, int *pi_data );
95
96 /*****************************************************************************
97  * Local functions
98  *****************************************************************************/
99 #if !defined(__APPLE__) && !defined(SYS_BEOS) && !defined(WIN32)
100 static int DirectoryCheck( const char *psz_dir )
101 {
102     DIR           *p_dir;
103
104 #ifdef HAVE_SYS_STAT_H
105     struct stat   stat_info;
106
107     if( ( utf8_stat( psz_dir, &stat_info ) == -1 )
108       || !S_ISDIR( stat_info.st_mode ) )
109     {
110         return VLC_EGENERIC;
111     }
112 #endif
113
114     if( ( p_dir = utf8_opendir( psz_dir ) ) == NULL )
115     {
116         return VLC_EGENERIC;
117     }
118     closedir( p_dir );
119
120     return VLC_SUCCESS;
121 }
122 #endif
123
124
125 /*****************************************************************************
126  * Activate: initialize and create stuff
127  *****************************************************************************/
128 static int Open( vlc_object_t *p_this )
129 {
130     intf_thread_t *p_intf = (intf_thread_t*)p_this;
131     intf_sys_t    *p_sys;
132     char          *psz_address;
133     const char    *psz_cert = NULL, *psz_key = NULL, *psz_ca = NULL,
134                   *psz_crl = NULL;
135     int           i_port       = 0;
136     char          *psz_src;
137
138     psz_address = var_GetNonEmptyString(p_intf->p_libvlc, "http-host");
139     if( psz_address != NULL )
140     {
141         char *psz_parser = strchr( psz_address, ':' );
142         if( psz_parser )
143         {
144             *psz_parser++ = '\0';
145             i_port = atoi( psz_parser );
146         }
147     }
148     else
149         psz_address = strdup("");
150
151     p_intf->p_sys = p_sys = malloc( sizeof( intf_sys_t ) );
152     if( !p_intf->p_sys )
153     {
154         return( VLC_ENOMEM );
155     }
156
157     p_sys->p_playlist = pl_Yield( p_this );
158     p_sys->p_input    = NULL;
159     p_sys->p_vlm      = NULL;
160     p_sys->psz_address = psz_address;
161     p_sys->i_port     = i_port;
162     p_sys->p_art_handler = NULL;
163
164     /* determine Content-Type value for HTML pages */
165     psz_src = config_GetPsz( p_intf, "http-charset" );
166     if( psz_src == NULL || !*psz_src )
167     {
168         if( psz_src != NULL ) free( psz_src );
169         psz_src = strdup("UTF-8");
170     }
171
172     p_sys->psz_html_type = malloc( 20 + strlen( psz_src ) );
173     if( p_sys->psz_html_type == NULL )
174     {
175         pl_Release( p_this );
176         free( p_sys->psz_address );
177         free( p_sys );
178         free( psz_src );
179         return VLC_ENOMEM ;
180     }
181     sprintf( p_sys->psz_html_type, "text/html; charset=%s", psz_src );
182     msg_Dbg( p_intf, "using charset=%s", psz_src );
183
184     if( strcmp( psz_src, "UTF-8" ) )
185     {
186         char psz_encoding[strlen( psz_src ) + sizeof( "//translit")];
187         sprintf( psz_encoding, "%s//translit", psz_src);
188
189         p_sys->iconv_from_utf8 = vlc_iconv_open( psz_encoding, "UTF-8" );
190         if( p_sys->iconv_from_utf8 == (vlc_iconv_t)-1 )
191             msg_Warn( p_intf, "unable to perform charset conversion to %s",
192                       psz_encoding );
193         else
194         {
195             p_sys->iconv_to_utf8 = vlc_iconv_open( "UTF-8", psz_src );
196             if( p_sys->iconv_to_utf8 == (vlc_iconv_t)-1 )
197                 msg_Warn( p_intf,
198                           "unable to perform charset conversion from %s",
199                           psz_src );
200         }
201     }
202     else
203     {
204         p_sys->iconv_from_utf8 = p_sys->iconv_to_utf8 = (vlc_iconv_t)-1;
205     }
206
207     p_sys->psz_charset = psz_src;
208     psz_src = NULL;
209
210     /* determine file handler associations */
211     p_sys->i_handlers = 0;
212     p_sys->pp_handlers = NULL;
213 #if defined( HAVE_FORK ) || defined( WIN32 )
214     psz_src = config_GetPsz( p_intf, "http-handlers" );
215     if( psz_src != NULL && *psz_src )
216     {
217         char *p = psz_src;
218         while( p != NULL )
219         {
220             http_association_t *p_handler;
221             char *psz_ext = p;
222             char *psz_program, *psz_options;
223             p = strchr( p, '=' );
224             if( p == NULL ) break;
225             *p++ = '\0';
226             psz_program = p;
227             p = strchr( p, ',' );
228             if( p != NULL )
229                 *p++ = '\0';
230
231             p_handler = malloc( sizeof( http_association_t ) );
232             p_handler->psz_ext = strdup( psz_ext );
233             psz_options = E_(FirstWord)( psz_program, psz_program );
234             p_handler->i_argc = 0;
235             p_handler->ppsz_argv = NULL;
236             TAB_APPEND( p_handler->i_argc, p_handler->ppsz_argv,
237                         strdup( psz_program ) );
238             while( psz_options != NULL && *psz_options )
239             {
240                 char *psz_next = E_(FirstWord)( psz_options, psz_options );
241                 TAB_APPEND( p_handler->i_argc, p_handler->ppsz_argv,
242                             strdup( psz_options ) );
243                 psz_options = psz_next;
244             }
245             /* NULL will be appended later on */
246
247             TAB_APPEND( p_sys->i_handlers, p_sys->pp_handlers, p_handler );
248         }
249     }
250     if( psz_src != NULL )
251         free( psz_src );
252 #endif
253
254     /* determine SSL configuration */
255     psz_cert = config_GetPsz( p_intf, "http-intf-cert" );
256     if ( psz_cert != NULL )
257     {
258         msg_Dbg( p_intf, "enabling TLS for HTTP interface (cert file: %s)",
259                  psz_cert );
260         psz_key = var_GetNonEmptyString( p_intf, "http-intf-key" );
261         psz_ca = var_GetNonEmptyString( p_intf, "http-intf-ca" );
262         psz_crl = var_GetNonEmptyString( p_intf, "http-intf-crl" );
263
264         if( i_port <= 0 )
265             i_port = 8443;
266     }
267     else
268     {
269         if( i_port <= 0 )
270             i_port= 8080;
271     }
272
273     msg_Dbg( p_intf, "base %s:%d", psz_address, i_port );
274
275     p_sys->p_httpd_host = httpd_TLSHostNew( VLC_OBJECT(p_intf), psz_address,
276                                             i_port, psz_cert, psz_key, psz_ca,
277                                             psz_crl );
278     if( p_sys->p_httpd_host == NULL )
279     {
280         msg_Err( p_intf, "cannot listen on %s:%d", psz_address, i_port );
281         pl_Release( p_this );
282         free( p_sys->psz_html_type );
283         free( p_sys->psz_address );
284         free( p_sys );
285         return VLC_EGENERIC;
286     }
287     else
288     {
289         char psz_tmp[NI_MAXHOST + 6];
290
291         /* Ugly hack to run several HTTP servers on different ports */
292         snprintf( psz_tmp, sizeof (psz_tmp), "%s:%d", psz_address, i_port + 1 );
293         var_Create(p_intf->p_libvlc, "http-host", VLC_VAR_STRING );
294         var_SetString( p_intf->p_libvlc, "http-host", psz_tmp );
295     }
296
297     p_sys->i_files  = 0;
298     p_sys->pp_files = NULL;
299
300 #if defined(__APPLE__) || defined(SYS_BEOS) || defined(WIN32)
301     if ( ( psz_src = config_GetPsz( p_intf, "http-src" )) == NULL )
302     {
303         const char * psz_vlcpath = config_GetDataDir();
304         psz_src = malloc( strlen(psz_vlcpath) + strlen("/http" ) + 1 );
305         if( !psz_src ) return VLC_ENOMEM;
306         sprintf( psz_src, "%s/http", psz_vlcpath );
307     }
308 #else
309     psz_src = config_GetPsz( p_intf, "http-src" );
310
311     if( ( psz_src == NULL ) || ( *psz_src == '\0' ) )
312     {
313         static char const* ppsz_paths[] = {
314             "share/http",
315             "../share/http",
316             DATA_PATH"/http",
317             NULL
318         };
319         unsigned i;
320
321         if( psz_src != NULL )
322         {
323             free( psz_src );
324             psz_src = NULL;
325         }
326
327         for( i = 0; ppsz_paths[i] != NULL; i++ )
328             if( !DirectoryCheck( ppsz_paths[i] ) )
329             {
330                 psz_src = strdup( ppsz_paths[i] );
331                 break;
332             }
333     }
334 #endif
335
336     if( !psz_src || *psz_src == '\0' )
337     {
338         msg_Err( p_intf, "invalid web interface source directory" );
339         goto failed;
340     }
341
342     /* remove trainling \ or / */
343     if( psz_src[strlen( psz_src ) - 1] == '\\' ||
344         psz_src[strlen( psz_src ) - 1] == '/' )
345     {
346         psz_src[strlen( psz_src ) - 1] = '\0';
347     }
348
349     E_(ParseDirectory)( p_intf, psz_src, psz_src );
350     if( p_sys->i_files <= 0 )
351     {
352         msg_Err( p_intf, "cannot find any file in directory %s", psz_src );
353         goto failed;
354     }
355
356     free( psz_src );
357
358     if( config_GetInt( p_intf, "http-album-art" ) )
359     {
360         /* FIXME: we're leaking h */
361         httpd_handler_sys_t *h = malloc( sizeof( httpd_handler_sys_t ) );
362         if( !h )
363         {
364             msg_Err( p_intf, "not enough memory to allocate album art handler" );
365             goto failed;
366         }
367         h->file.p_intf = p_intf;
368         h->file.file = NULL;
369         h->file.name = NULL;
370         /* TODO: use ACL and login/password stuff here too */
371         h->p_handler = httpd_HandlerNew( p_sys->p_httpd_host,
372                                          "/art", NULL, NULL, NULL,
373                                          E_(ArtCallback), h );
374         p_sys->p_art_handler = h->p_handler;
375     }
376
377     return VLC_SUCCESS;
378
379 failed:
380     free( psz_src );
381     free( p_sys->pp_files );
382     httpd_HostDelete( p_sys->p_httpd_host );
383     free( p_sys->psz_address );
384     free( p_sys->psz_html_type );
385     if( p_sys->iconv_from_utf8 != (vlc_iconv_t)-1 )
386         vlc_iconv_close( p_sys->iconv_from_utf8 );
387     if( p_sys->iconv_to_utf8 != (vlc_iconv_t)-1 )
388         vlc_iconv_close( p_sys->iconv_to_utf8 );
389     free( p_sys );
390     pl_Release( p_this );
391     return VLC_EGENERIC;
392 }
393
394 /*****************************************************************************
395  * Close: destroy interface
396  *****************************************************************************/
397 static void Close ( vlc_object_t *p_this )
398 {
399     intf_thread_t *p_intf = (intf_thread_t *)p_this;
400     intf_sys_t    *p_sys = p_intf->p_sys;
401
402     int i;
403
404     if( p_sys->p_vlm )
405     {
406         vlm_Delete( p_sys->p_vlm );
407     }
408     for( i = 0; i < p_sys->i_files; i++ )
409     {
410         if( p_sys->pp_files[i]->b_handler )
411             httpd_HandlerDelete( ((httpd_handler_sys_t *)p_sys->pp_files[i])->p_handler );
412         else
413             httpd_FileDelete( p_sys->pp_files[i]->p_file );
414         if( p_sys->pp_files[i]->p_redir )
415             httpd_RedirectDelete( p_sys->pp_files[i]->p_redir );
416         if( p_sys->pp_files[i]->p_redir2 )
417             httpd_RedirectDelete( p_sys->pp_files[i]->p_redir2 );
418
419         free( p_sys->pp_files[i]->file );
420         free( p_sys->pp_files[i]->name );
421         free( p_sys->pp_files[i] );
422     }
423     if( p_sys->pp_files )
424     {
425         free( p_sys->pp_files );
426     }
427     for( i = 0; i < p_sys->i_handlers; i++ )
428     {
429         http_association_t *p_handler = p_sys->pp_handlers[i];
430         int j;
431         free( p_handler->psz_ext );
432         for( j = 0; j < p_handler->i_argc; j++ )
433             free( p_handler->ppsz_argv[j] );
434         if( p_handler->i_argc )
435             free( p_handler->ppsz_argv );
436         free( p_handler );
437     }
438     if( p_sys->i_handlers )
439         free( p_sys->pp_handlers );
440     if( p_sys->p_art_handler )
441         httpd_HandlerDelete( p_sys->p_art_handler );
442     httpd_HostDelete( p_sys->p_httpd_host );
443     free( p_sys->psz_address );
444     free( p_sys->psz_html_type );
445
446     if( p_sys->iconv_from_utf8 != (vlc_iconv_t)-1 )
447         vlc_iconv_close( p_sys->iconv_from_utf8 );
448     if( p_sys->iconv_to_utf8 != (vlc_iconv_t)-1 )
449         vlc_iconv_close( p_sys->iconv_to_utf8 );
450     free( p_sys );
451     pl_Release( p_this );
452 }
453
454 /****************************************************************************
455  * HttpCallback:
456  ****************************************************************************
457  * a file with b_html is parsed and all "macro" replaced
458  ****************************************************************************/
459 static void Callback404( httpd_file_sys_t *p_args, char **pp_data,
460                          int *pi_data )
461 {
462     char *p = *pp_data = malloc( 10240 );
463     if( !p )
464     {
465         return;
466     }
467     p += sprintf( p, "Content-Type: text/html\n" );
468     p += sprintf( p, "<html xmlns=\"http://www.w3.org/1999/xhtml\">\n" );
469     p += sprintf( p, "<head>\n" );
470     p += sprintf( p, "<title>Error loading %s</title>\n", p_args->file );
471     p += sprintf( p, "</head>\n" );
472     p += sprintf( p, "<body>\n" );
473     p += sprintf( p, "<h1><center>Error loading %s for %s</center></h1>\n", p_args->file, p_args->name );
474     p += sprintf( p, "<a href=\"http://www.videolan.org/\">VideoLAN</a>\n" );
475     p += sprintf( p, "</body>\n" );
476     p += sprintf( p, "</html>\n" );
477
478     *pi_data = strlen( *pp_data );
479 }
480
481 static void ParseExecute( httpd_file_sys_t *p_args, char *p_buffer,
482                           int i_buffer, char *p_request,
483                           char **pp_data, int *pi_data )
484 {
485     intf_sys_t *p_sys = p_args->p_intf->p_sys;
486     int i_request = p_request != NULL ? strlen( p_request ) : 0;
487     char *dst;
488     vlc_value_t val;
489     char position[4]; /* percentage */
490     char time[12]; /* in seconds */
491     char length[12]; /* in seconds */
492     audio_volume_t i_volume;
493     char volume[5];
494     const char *state;
495     char stats[20];
496
497     assert( p_sys->p_input == NULL );
498     /* FIXME: proper locking anyone? */
499     p_sys->p_input = p_sys->p_playlist->p_input;
500     if( p_sys->p_input )
501     {
502         vlc_object_yield( p_sys->p_input );
503         var_Get( p_sys->p_input, "position", &val);
504         sprintf( position, "%d" , (int)((val.f_float) * 100.0));
505         var_Get( p_sys->p_input, "time", &val);
506         sprintf( time, I64Fi, (int64_t)val.i_time / I64C(1000000) );
507         var_Get( p_sys->p_input, "length", &val);
508         sprintf( length, I64Fi, (int64_t)val.i_time / I64C(1000000) );
509
510         var_Get( p_sys->p_input, "state", &val );
511         if( val.i_int == PLAYING_S )
512         {
513             state = "playing";
514         }
515         else if( val.i_int == OPENING_S )
516         {
517             state = "opening/connecting";
518         }
519         else if( val.i_int == BUFFERING_S )
520         {
521             state = "buffering";
522         }
523         else if( val.i_int == PAUSE_S )
524         {
525             state = "paused";
526         }
527         else
528         {
529             state = "stop";
530         }
531     }
532     else
533     {
534         sprintf( position, "%d", 0 );
535         sprintf( time, "%d", 0 );
536         sprintf( length, "%d", 0 );
537         state = "stop";
538     }
539
540     aout_VolumeGet( p_args->p_intf, &i_volume );
541     sprintf( volume, "%d", (int)i_volume );
542
543     p_args->vars = E_(mvar_New)( "variables", "" );
544     E_(mvar_AppendNewVar)( p_args->vars, "url_param",
545                            i_request > 0 ? "1" : "0" );
546     E_(mvar_AppendNewVar)( p_args->vars, "url_value", p_request );
547     E_(mvar_AppendNewVar)( p_args->vars, "version", VLC_Version() );
548     E_(mvar_AppendNewVar)( p_args->vars, "copyright", COPYRIGHT_MESSAGE );
549     E_(mvar_AppendNewVar)( p_args->vars, "vlc_compile_by", VLC_CompileBy() );
550     E_(mvar_AppendNewVar)( p_args->vars, "vlc_compile_host",
551                            VLC_CompileHost() );
552     E_(mvar_AppendNewVar)( p_args->vars, "vlc_compile_domain",
553                            VLC_CompileDomain() );
554     E_(mvar_AppendNewVar)( p_args->vars, "vlc_compiler", VLC_Compiler() );
555     E_(mvar_AppendNewVar)( p_args->vars, "vlc_changeset", VLC_Changeset() );
556     E_(mvar_AppendNewVar)( p_args->vars, "stream_position", position );
557     E_(mvar_AppendNewVar)( p_args->vars, "stream_time", time );
558     E_(mvar_AppendNewVar)( p_args->vars, "stream_length", length );
559     E_(mvar_AppendNewVar)( p_args->vars, "volume", volume );
560     E_(mvar_AppendNewVar)( p_args->vars, "stream_state", state );
561     E_(mvar_AppendNewVar)( p_args->vars, "charset", p_sys->psz_charset );
562
563     /* Stats */
564     if( p_sys->p_input )
565     {
566         /* FIXME: Workarround a stupid assert in input_GetItem */
567         input_item_t *p_item = p_sys->p_input && p_sys->p_input->p
568                                ? input_GetItem( p_sys->p_input )
569                                : NULL;
570
571         if( p_item )
572         {
573             vlc_mutex_lock( &p_item->p_stats->lock );
574 #define STATS_INT( n ) sprintf( stats, "%d", p_item->p_stats->i_ ## n ); \
575                        E_(mvar_AppendNewVar)( p_args->vars, #n, stats );
576 #define STATS_FLOAT( n ) sprintf( stats, "%f", p_item->p_stats->f_ ## n ); \
577                        E_(mvar_AppendNewVar)( p_args->vars, #n, stats );
578             STATS_INT( read_bytes )
579             STATS_FLOAT( input_bitrate )
580             STATS_INT( demux_read_bytes )
581             STATS_FLOAT( demux_bitrate )
582             STATS_INT( decoded_video )
583             STATS_INT( displayed_pictures )
584             STATS_INT( lost_pictures )
585             STATS_INT( decoded_audio )
586             STATS_INT( played_abuffers )
587             STATS_INT( lost_abuffers )
588             STATS_INT( sent_packets )
589             STATS_INT( sent_bytes )
590             STATS_FLOAT( send_bitrate )
591 #undef STATS_INT
592 #undef STATS_FLOAT
593             vlc_mutex_unlock( &p_item->p_stats->lock );
594         }
595     }
596
597     E_(SSInit)( &p_args->stack );
598
599     /* allocate output */
600     *pi_data = i_buffer + 1000;
601     dst = *pp_data = malloc( *pi_data );
602
603     /* we parse executing all  <vlc /> macros */
604     E_(Execute)( p_args, p_request, i_request, pp_data, pi_data, &dst,
605                  &p_buffer[0], &p_buffer[i_buffer] );
606
607     *dst     = '\0';
608     *pi_data = dst - *pp_data;
609
610     if( p_sys->p_input != NULL )
611     {
612         vlc_object_release( p_sys->p_input );
613         p_sys->p_input = NULL;
614     }
615     E_(SSClean)( &p_args->stack );
616     E_(mvar_Delete)( p_args->vars );
617 }
618
619 int  E_(HttpCallback)( httpd_file_sys_t *p_args,
620                        httpd_file_t *p_file,
621                        uint8_t *_p_request,
622                        uint8_t **_pp_data, int *pi_data )
623 {
624     char *p_request = (char *)_p_request;
625     char **pp_data = (char **)_pp_data;
626     FILE *f;
627
628     if( ( f = utf8_fopen( p_args->file, "r" ) ) == NULL )
629     {
630         Callback404( p_args, pp_data, pi_data );
631         return VLC_SUCCESS;
632     }
633
634     if( !p_args->b_html )
635     {
636         E_(FileLoad)( f, pp_data, pi_data );
637     }
638     else
639     {
640         int  i_buffer;
641         char *p_buffer;
642
643         /* first we load in a temporary buffer */
644         E_(FileLoad)( f, &p_buffer, &i_buffer );
645
646         ParseExecute( p_args, p_buffer, i_buffer, p_request, pp_data, pi_data );
647
648         free( p_buffer );
649     }
650
651     fclose( f );
652
653     return VLC_SUCCESS;
654 }
655
656 /****************************************************************************
657  * HandlerCallback:
658  ****************************************************************************
659  * call the external handler and parse vlc macros if Content-Type is HTML
660  ****************************************************************************/
661 int  E_(HandlerCallback)( httpd_handler_sys_t *p_args,
662                           httpd_handler_t *p_handler, char *_p_url,
663                           uint8_t *_p_request, int i_type,
664                           uint8_t *_p_in, int i_in,
665                           char *psz_remote_addr, char *psz_remote_host,
666                           uint8_t **_pp_data, int *pi_data )
667 {
668     char *p_url = (char *)_p_url;
669     char *p_request = (char *)_p_request;
670     char **pp_data = (char **)_pp_data;
671     char *p_in = (char *)p_in;
672     int i_request = p_request != NULL ? strlen( p_request ) : 0;
673     char *p;
674     int i_env = 0;
675     char **ppsz_env = NULL;
676     char *psz_tmp;
677     char sep;
678     size_t i_buffer;
679     char *p_buffer;
680     char *psz_cwd, *psz_file = NULL;
681     int i_ret;
682
683 #ifdef WIN32
684     sep = '\\';
685 #else
686     sep = '/';
687 #endif
688
689     /* Create environment for the CGI */
690     TAB_APPEND( i_env, ppsz_env, strdup("GATEWAY_INTERFACE=CGI/1.1") );
691     TAB_APPEND( i_env, ppsz_env, strdup("SERVER_PROTOCOL=HTTP/1.1") );
692     TAB_APPEND( i_env, ppsz_env, strdup("SERVER_SOFTWARE=" COPYRIGHT_MESSAGE) );
693
694     switch( i_type )
695     {
696     case HTTPD_MSG_GET:
697         TAB_APPEND( i_env, ppsz_env, strdup("REQUEST_METHOD=GET") );
698         break;
699     case HTTPD_MSG_POST:
700         TAB_APPEND( i_env, ppsz_env, strdup("REQUEST_METHOD=POST") );
701         break;
702     case HTTPD_MSG_HEAD:
703         TAB_APPEND( i_env, ppsz_env, strdup("REQUEST_METHOD=HEAD") );
704         break;
705     default:
706         break;
707     }
708
709     if( i_request )
710     {
711         psz_tmp = malloc( sizeof("QUERY_STRING=") + i_request );
712         sprintf( psz_tmp, "QUERY_STRING=%s", p_request );
713         TAB_APPEND( i_env, ppsz_env, psz_tmp );
714
715         psz_tmp = malloc( sizeof("REQUEST_URI=?") + strlen(p_url)
716                            + i_request );
717         sprintf( psz_tmp, "REQUEST_URI=%s?%s", p_url, p_request );
718         TAB_APPEND( i_env, ppsz_env, psz_tmp );
719     }
720     else
721     {
722         psz_tmp = malloc( sizeof("REQUEST_URI=") + strlen(p_url) );
723         sprintf( psz_tmp, "REQUEST_URI=%s", p_url );
724         TAB_APPEND( i_env, ppsz_env, psz_tmp );
725     }
726
727     psz_tmp = malloc( sizeof("SCRIPT_NAME=") + strlen(p_url) );
728     sprintf( psz_tmp, "SCRIPT_NAME=%s", p_url );
729     TAB_APPEND( i_env, ppsz_env, psz_tmp );
730
731 #define p_sys p_args->file.p_intf->p_sys
732     psz_tmp = malloc( sizeof("SERVER_NAME=") + strlen(p_sys->psz_address) );
733     sprintf( psz_tmp, "SERVER_NAME=%s", p_sys->psz_address );
734     TAB_APPEND( i_env, ppsz_env, psz_tmp );
735
736     psz_tmp = malloc( sizeof("SERVER_PORT=") + 5 );
737     sprintf( psz_tmp, "SERVER_PORT=%u", p_sys->i_port );
738     TAB_APPEND( i_env, ppsz_env, psz_tmp );
739 #undef p_sys
740
741     p = getenv( "PATH" );
742     if( p != NULL )
743     {
744         psz_tmp = malloc( sizeof("PATH=") + strlen(p) );
745         sprintf( psz_tmp, "PATH=%s", p );
746         TAB_APPEND( i_env, ppsz_env, psz_tmp );
747     }
748
749 #ifdef WIN32
750     p = getenv( "windir" );
751     if( p != NULL )
752     {
753         psz_tmp = malloc( sizeof("SYSTEMROOT=") + strlen(p) );
754         sprintf( psz_tmp, "SYSTEMROOT=%s", p );
755         TAB_APPEND( i_env, ppsz_env, psz_tmp );
756     }
757 #endif
758
759     if( psz_remote_addr != NULL && *psz_remote_addr )
760     {
761         psz_tmp = malloc( sizeof("REMOTE_ADDR=") + strlen(psz_remote_addr) );
762         sprintf( psz_tmp, "REMOTE_ADDR=%s", psz_remote_addr );
763         TAB_APPEND( i_env, ppsz_env, psz_tmp );
764     }
765
766     if( psz_remote_host != NULL && *psz_remote_host )
767     {
768         psz_tmp = malloc( sizeof("REMOTE_HOST=") + strlen(psz_remote_host) );
769         sprintf( psz_tmp, "REMOTE_HOST=%s", psz_remote_host );
770         TAB_APPEND( i_env, ppsz_env, psz_tmp );
771     }
772
773     if( i_in )
774     {
775         p = p_in;
776         for ( ; ; )
777         {
778             if( !strncasecmp( p, "Content-Type: ", strlen("Content-Type: ") ) )
779             {
780                 char *end = strchr( p, '\r' );
781                 if( end == NULL )
782                     break;
783                 *end = '\0';
784                 psz_tmp = malloc( sizeof("CONTENT_TYPE=") + strlen(p) );
785                 sprintf( psz_tmp, "CONTENT_TYPE=%s", p );
786                 TAB_APPEND( i_env, ppsz_env, psz_tmp );
787                 *end = '\r';
788             }
789             if( !strncasecmp( p, "Content-Length: ",
790                               strlen("Content-Length: ") ) )
791             {
792                 char *end = strchr( p, '\r' );
793                 if( end == NULL )
794                     break;
795                 *end = '\0';
796                 psz_tmp = malloc( sizeof("CONTENT_LENGTH=") + strlen(p) );
797                 sprintf( psz_tmp, "CONTENT_LENGTH=%s", p );
798                 TAB_APPEND( i_env, ppsz_env, psz_tmp );
799                 *end = '\r';
800             }
801
802             p = strchr( p, '\n' );
803             if( p == NULL || p[1] == '\r' )
804             {
805                 p = NULL;
806                 break;
807             }
808             p++;
809         }
810     }
811
812     psz_file = strrchr( p_args->file.file, sep );
813     if( psz_file != NULL )
814     {
815         psz_file++;
816         psz_tmp = malloc( sizeof("SCRIPT_FILENAME=") + strlen(psz_file) );
817         sprintf( psz_tmp, "SCRIPT_FILENAME=%s", psz_file );
818         TAB_APPEND( i_env, ppsz_env, psz_tmp );
819
820         TAB_APPEND( p_args->p_association->i_argc,
821                     p_args->p_association->ppsz_argv, psz_file );
822     }
823
824     TAB_APPEND( i_env, ppsz_env, NULL );
825
826     TAB_APPEND( p_args->p_association->i_argc, p_args->p_association->ppsz_argv,
827                 NULL );
828
829     psz_tmp = strdup( p_args->file.file );
830     p = strrchr( psz_tmp, sep );
831     if( p != NULL )
832     {
833         *p = '\0';
834         psz_cwd = psz_tmp;
835     }
836     else
837     {
838         free( psz_tmp );
839         psz_cwd = NULL;
840     }
841
842     i_ret = vlc_execve( p_args->file.p_intf, p_args->p_association->i_argc,
843                         p_args->p_association->ppsz_argv, ppsz_env, psz_cwd,
844                         (char *)p_in, i_in, &p_buffer, &i_buffer );
845     TAB_REMOVE( p_args->p_association->i_argc, p_args->p_association->ppsz_argv,
846                 NULL );
847     TAB_REMOVE( p_args->p_association->i_argc, p_args->p_association->ppsz_argv,
848                 psz_file );
849     if( psz_cwd != NULL )
850         free( psz_cwd );
851     while( i_env )
852         TAB_REMOVE( i_env, ppsz_env, ppsz_env[0] );
853
854     if( i_ret == -1 )
855     {
856         Callback404( (httpd_file_sys_t *)p_args, pp_data, pi_data );
857         return VLC_SUCCESS;
858     }
859     p = p_buffer;
860     while( strncasecmp( p, "Content-Type: text/html",
861                         strlen("Content-Type: text/html") ) )
862     {
863         p = strchr( p, '\n' );
864         if( p == NULL || p[1] == '\r' )
865         {
866             p = NULL;
867             break;
868         }
869         p++;
870     }
871
872     if( p == NULL )
873     {
874         *pp_data = p_buffer;
875         *pi_data = i_buffer;
876     }
877     else
878     {
879         ParseExecute( (httpd_file_sys_t *)p_args, p_buffer, i_buffer,
880                       p_request, pp_data, pi_data );
881
882         free( p_buffer );
883     }
884
885     return VLC_SUCCESS;
886 }
887
888 int  E_(ArtCallback)( httpd_handler_sys_t *p_args,
889                           httpd_handler_t *p_handler, char *_p_url,
890                           uint8_t *p_request, int i_type,
891                           uint8_t *p_in, int i_in,
892                           char *psz_remote_addr, char *psz_remote_host,
893                           uint8_t **pp_data, int *pi_data )
894 {
895     char *psz_art = NULL;
896     intf_thread_t *p_intf = p_args->file.p_intf;
897     intf_sys_t *p_sys = p_intf->p_sys;
898     char psz_id[16];
899     input_item_t *p_item = NULL;
900     int i_id;
901
902     psz_id[0] = '\0';
903     if( p_request )
904         E_(ExtractURIValue)( (char *)p_request, "id", psz_id, 15 );
905     i_id = atoi( psz_id );
906     if( i_id )
907     {
908         playlist_item_t *p_pl_item = playlist_ItemGetById( p_sys->p_playlist,
909                                                            i_id, VLC_FALSE );
910         if( p_pl_item )
911             p_item = p_pl_item->p_input;
912     }
913     else
914     {
915         /* FIXME: Workarround a stupid assert in input_GetItem */
916         if( p_sys->p_input && p_sys->p_input->p )
917             p_item = input_GetItem( p_sys->p_input );
918     }
919
920     if( p_item )
921     {
922         psz_art = input_item_GetArtURL( p_item );
923     }
924
925     if( psz_art && !strncmp( psz_art, "file://", strlen( "file://" ) ) )
926     {
927         FILE *f;
928         char *psz_ext;
929         char *psz_header;
930         char *p_data = NULL;
931         int i_header_size, i_data;
932
933         if( ( f = utf8_fopen( psz_art + strlen( "file://" ), "r" ) ) == NULL )
934         {
935             msg_Dbg( p_intf, "Couldn't open album art file %s",
936                      psz_art + strlen( "file://" ) );
937             Callback404( &p_args->file, (char**)pp_data, pi_data );
938             free( psz_art );
939             return VLC_SUCCESS;
940         }
941
942         E_(FileLoad)( f, &p_data, &i_data );
943
944         fclose( f );
945
946         psz_ext = strrchr( psz_art, '.' );
947         if( psz_ext ) psz_ext++;
948
949 #define HEADER  "Content-Type: image/%s\n" \
950                 "Content-Length: %d\n" \
951                 "\n"
952         i_header_size = asprintf( &psz_header, HEADER, psz_ext, i_data );
953 #undef HEADER
954
955         *pi_data = i_header_size + i_data;
956         *pp_data = (uint8_t*)malloc( *pi_data );
957         memcpy( *pp_data, psz_header, i_header_size );
958         memcpy( *pp_data+i_header_size, p_data, i_data );
959         free( psz_header );
960         free( p_data );
961     }
962     else
963     {
964         msg_Dbg( p_intf, "No album art found" );
965         Callback404( &p_args->file, (char**)pp_data, pi_data );
966     }
967
968     free( psz_art );
969
970     return VLC_SUCCESS;
971 }