git.sesse.net Git - vlc/blob - 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
 128     var_Create(p_intf->p_libvlc_global, "http-host", VLC_VAR_STRING );
 129     psz_address=var_GetString(p_intf->p_libvlc_global, "http-host");
 130     if( !psz_address || !*psz_address )
 131     {
 132         psz_address = config_GetPsz( p_intf, "http-host" );
 133     }
 134     if( psz_address != NULL )
 135     {
 136         char *psz_parser = strchr( psz_address, ':' );
 137         if( psz_parser )
 138         {
 139             *psz_parser++ = '\0';
 140             i_port = atoi( psz_parser );
 141         }
 142     }
 143     else
 144         psz_address = strdup("");
 145
 146     p_intf->p_sys = p_sys = malloc( sizeof( intf_sys_t ) );
 147     if( !p_intf->p_sys )
 148     {
 149         return( VLC_ENOMEM );
 150     }
 151     p_sys->p_playlist = NULL;
 152     p_sys->p_input    = NULL;
 153     p_sys->p_vlm      = NULL;
 154     p_sys->psz_address = psz_address;
 155     p_sys->i_port     = i_port;
 156
 157     /* determine Content-Type value for HTML pages */
 158     psz_src = config_GetPsz( p_intf, "http-charset" );
 159     if( psz_src == NULL || !*psz_src )
 160     {
 161         if( psz_src != NULL ) free( psz_src );
 162         psz_src = strdup("UTF-8");
 163     }
 164
 165     p_sys->psz_html_type = malloc( 20 + strlen( psz_src ) );
 166     if( p_sys->psz_html_type == NULL )
 167     {
 168         free( p_sys->psz_address );
 169         free( p_sys );
 170         free( psz_src );
 171         return VLC_ENOMEM ;
 172     }
 173     sprintf( p_sys->psz_html_type, "text/html; charset=%s", psz_src );
 174     msg_Dbg( p_intf, "using charset=%s", psz_src );
 175
 176     if( strcmp( psz_src, "UTF-8" ) )
 177     {
 178         char psz_encoding[strlen( psz_src ) + sizeof( "//translit")];
 179         sprintf( psz_encoding, "%s//translit", psz_src);
 180
 181         p_sys->iconv_from_utf8 = vlc_iconv_open( psz_encoding, "UTF-8" );
 182         if( p_sys->iconv_from_utf8 == (vlc_iconv_t)-1 )
 183             msg_Warn( p_intf, "unable to perform charset conversion to %s",
 184                       psz_encoding );
 185         else
 186         {
 187             p_sys->iconv_to_utf8 = vlc_iconv_open( "UTF-8", psz_src );
 188             if( p_sys->iconv_to_utf8 == (vlc_iconv_t)-1 )
 189                 msg_Warn( p_intf,
 190                           "unable to perform charset conversion from %s",
 191                           psz_src );
 192         }
 193     }
 194     else
 195     {
 196         p_sys->iconv_from_utf8 = p_sys->iconv_to_utf8 = (vlc_iconv_t)-1;
 197     }
 198
 199     p_sys->psz_charset = psz_src;
 200     psz_src = NULL;
 201
 202     /* determine file handler associations */
 203     p_sys->i_handlers = 0;
 204     p_sys->pp_handlers = NULL;
 205 #if defined( HAVE_FORK ) || defined( WIN32 )
 206     psz_src = config_GetPsz( p_intf, "http-handlers" );
 207     if( psz_src != NULL && *psz_src )
 208     {
 209         char *p = psz_src;
 210         while( p != NULL )
 211         {
 212             http_association_t *p_handler;
 213             char *psz_ext = p;
 214             char *psz_program, *psz_options;
 215             p = strchr( p, '=' );
 216             if( p == NULL ) break;
 217             *p++ = '\0';
 218             psz_program = p;
 219             p = strchr( p, ',' );
 220             if( p != NULL )
 221                 *p++ = '\0';
 222
 223             p_handler = malloc( sizeof( http_association_t ) );
 224             p_handler->psz_ext = strdup( psz_ext );
 225             psz_options = E_(FirstWord)( psz_program, psz_program );
 226             p_handler->i_argc = 0;
 227             p_handler->ppsz_argv = NULL;
 228             TAB_APPEND( p_handler->i_argc, p_handler->ppsz_argv,
 229                         strdup( psz_program ) );
 230             while( psz_options != NULL && *psz_options )
 231             {
 232                 char *psz_next = E_(FirstWord)( psz_options, psz_options );
 233                 TAB_APPEND( p_handler->i_argc, p_handler->ppsz_argv,
 234                             strdup( psz_options ) );
 235                 psz_options = psz_next;
 236             }
 237             /* NULL will be appended later on */
 238
 239             TAB_APPEND( p_sys->i_handlers, p_sys->pp_handlers, p_handler );
 240         }
 241     }
 242     if( psz_src != NULL )
 243         free( psz_src );
 244 #endif
 245
 246     /* determine SSL configuration */
 247     psz_cert = config_GetPsz( p_intf, "http-intf-cert" );
 248     if ( psz_cert != NULL )
 249     {
 250         msg_Dbg( p_intf, "enabling TLS for HTTP interface (cert file: %s)",
 251                  psz_cert );
 252         psz_key = config_GetPsz( p_intf, "http-intf-key" );
 253         psz_ca = config_GetPsz( p_intf, "http-intf-ca" );
 254         psz_crl = config_GetPsz( p_intf, "http-intf-crl" );
 255
 256         if( i_port <= 0 )
 257             i_port = 8443;
 258     }
 259     else
 260     {
 261         if( i_port <= 0 )
 262             i_port= 8080;
 263     }
 264
 265     msg_Dbg( p_intf, "base %s:%d", psz_address, i_port );
 266
 267     p_sys->p_httpd_host = httpd_TLSHostNew( VLC_OBJECT(p_intf), psz_address,
 268                                             i_port, psz_cert, psz_key, psz_ca,
 269                                             psz_crl );
 270     if( p_sys->p_httpd_host == NULL )
 271     {
 272         msg_Err( p_intf, "cannot listen on %s:%d", psz_address, i_port );
 273         free( p_sys->psz_html_type );
 274         free( p_sys->psz_address );
 275         free( p_sys );
 276         return VLC_EGENERIC;
 277     }
 278     else
 279     {
 280         char psz_tmp[NI_MAXHOST + 6];
 281
 282         /* Ugly hack to run several HTTP servers on different ports */
 283         snprintf( psz_tmp, sizeof (psz_tmp), "%s:%d", psz_address, i_port + 1 );
 284         var_SetString( p_intf->p_libvlc_global, "http-host", psz_tmp );
 285     }
 286
 287     p_sys->i_files  = 0;
 288     p_sys->pp_files = NULL;
 289
 290 #if defined(__APPLE__) || defined(SYS_BEOS) || defined(WIN32)
 291     if ( ( psz_src = config_GetPsz( p_intf, "http-src" )) == NULL )
 292     {
 293         char * psz_vlcpath = p_intf->p_libvlc_global->psz_vlcpath;
 294         psz_src = malloc( strlen(psz_vlcpath) + strlen("/share/http" ) + 1 );
 295         if( !psz_src ) return VLC_ENOMEM;
 296 #if defined(WIN32)
 297         sprintf( psz_src, "%s/http", psz_vlcpath );
 298 #else
 299         sprintf( psz_src, "%s/share/http", psz_vlcpath );
 300 #endif
 301     }
 302 #else
 303     psz_src = config_GetPsz( p_intf, "http-src" );
 304
 305     if( ( psz_src == NULL ) || ( *psz_src == '\0' ) )
 306     {
 307         static char const* ppsz_paths[] = {
 308             "share/http",
 309             "../share/http",
 310             DATA_PATH"/http",
 311             NULL
 312         };
 313         unsigned i;
 314
 315         if( psz_src != NULL )
 316         {
 317             free( psz_src );
 318             psz_src = NULL;
 319         }
 320
 321         for( i = 0; ppsz_paths[i] != NULL; i++ )
 322             if( !DirectoryCheck( ppsz_paths[i] ) )
 323             {
 324                 psz_src = strdup( ppsz_paths[i] );
 325                 break;
 326             }
 327     }
 328 #endif
 329
 330     if( !psz_src || *psz_src == '\0' )
 331     {
 332         msg_Err( p_intf, "invalid web interface source directory" );
 333         goto failed;
 334     }
 335
 336     /* remove trainling \ or / */
 337     if( psz_src[strlen( psz_src ) - 1] == '\\' ||
 338         psz_src[strlen( psz_src ) - 1] == '/' )
 339     {
 340         psz_src[strlen( psz_src ) - 1] = '\0';
 341     }
 342
 343     E_(ParseDirectory)( p_intf, psz_src, psz_src );
 344
 345
 346     if( p_sys->i_files <= 0 )
 347     {
 348         msg_Err( p_intf, "cannot find any file in directory %s", psz_src );
 349         goto failed;
 350     }
 351     p_intf->pf_run = Run;
 352     free( psz_src );
 353
 354     return VLC_SUCCESS;
 355
 356 failed:
 357     if( psz_src ) free( psz_src );
 358     if( p_sys->pp_files )
 359     {
 360         free( p_sys->pp_files );
 361     }
 362     httpd_HostDelete( p_sys->p_httpd_host );
 363     free( p_sys->psz_address );
 364     free( p_sys->psz_html_type );
 365     if( p_sys->iconv_from_utf8 != (vlc_iconv_t)-1 )
 366         vlc_iconv_close( p_sys->iconv_from_utf8 );
 367     if( p_sys->iconv_to_utf8 != (vlc_iconv_t)-1 )
 368         vlc_iconv_close( p_sys->iconv_to_utf8 );
 369     free( p_sys );
 370     return VLC_EGENERIC;
 371 }
 372
 373 /*****************************************************************************
 374  * Close: destroy interface
 375  *****************************************************************************/
 376 static void Close ( vlc_object_t *p_this )
 377 {
 378     intf_thread_t *p_intf = (intf_thread_t *)p_this;
 379     intf_sys_t    *p_sys = p_intf->p_sys;
 380
 381     int i;
 382
 383     if( p_sys->p_vlm )
 384     {
 385         vlm_Delete( p_sys->p_vlm );
 386     }
 387     for( i = 0; i < p_sys->i_files; i++ )
 388     {
 389         if( p_sys->pp_files[i]->b_handler )
 390             httpd_HandlerDelete( ((httpd_handler_sys_t *)p_sys->pp_files[i])->p_handler );
 391         else
 392             httpd_FileDelete( p_sys->pp_files[i]->p_file );
 393         if( p_sys->pp_files[i]->p_redir )
 394             httpd_RedirectDelete( p_sys->pp_files[i]->p_redir );
 395         if( p_sys->pp_files[i]->p_redir2 )
 396             httpd_RedirectDelete( p_sys->pp_files[i]->p_redir2 );
 397
 398         free( p_sys->pp_files[i]->file );
 399         free( p_sys->pp_files[i]->name );
 400         free( p_sys->pp_files[i] );
 401     }
 402     if( p_sys->pp_files )
 403     {
 404         free( p_sys->pp_files );
 405     }
 406     for( i = 0; i < p_sys->i_handlers; i++ )
 407     {
 408         http_association_t *p_handler = p_sys->pp_handlers[i];
 409         int j;
 410         free( p_handler->psz_ext );
 411         for( j = 0; j < p_handler->i_argc; j++ )
 412             free( p_handler->ppsz_argv[j] );
 413         if( p_handler->i_argc )
 414             free( p_handler->ppsz_argv );
 415         free( p_handler );
 416     }
 417     if( p_sys->i_handlers )
 418         free( p_sys->pp_handlers );
 419     httpd_HostDelete( p_sys->p_httpd_host );
 420     free( p_sys->psz_address );
 421     free( p_sys->psz_html_type );
 422
 423     if( p_sys->iconv_from_utf8 != (vlc_iconv_t)-1 )
 424         vlc_iconv_close( p_sys->iconv_from_utf8 );
 425     if( p_sys->iconv_to_utf8 != (vlc_iconv_t)-1 )
 426         vlc_iconv_close( p_sys->iconv_to_utf8 );
 427     free( p_sys );
 428 }
 429
 430 /*****************************************************************************
 431  * Run: http interface thread
 432  *****************************************************************************/
 433 static void Run( intf_thread_t *p_intf )
 434 {
 435     intf_sys_t     *p_sys = p_intf->p_sys;
 436
 437     while( !intf_ShouldDie( p_intf ) )
 438     {
 439         /* get the playlist */
 440         if( p_sys->p_playlist == NULL )
 441         {
 442             p_sys->p_playlist = vlc_object_find( p_intf, VLC_OBJECT_PLAYLIST, FIND_ANYWHERE );
 443         }
 444
 445         /* Manage the input part */
 446         if( p_sys->p_input == NULL )
 447         {
 448             if( p_sys->p_playlist )
 449             {
 450                 p_sys->p_input = p_sys->p_playlist->p_input;
 451             }
 452         }
 453         else if( p_sys->p_input->b_dead || p_sys->p_input->b_die )
 454         {
 455             p_sys->p_input = NULL;
 456         }
 457
 458
 459         /* Wait a bit */
 460         msleep( INTF_IDLE_SLEEP );
 461     }
 462
 463     if( p_sys->p_input )
 464     {
 465         vlc_object_release( p_sys->p_input );
 466         p_sys->p_input = NULL;
 467     }
 468
 469     if( p_sys->p_playlist )
 470     {
 471         vlc_object_release( p_sys->p_playlist );
 472         p_sys->p_playlist = NULL;
 473     }
 474 }
 475
 476 /****************************************************************************
 477  * HttpCallback:
 478  ****************************************************************************
 479  * a file with b_html is parsed and all "macro" replaced
 480  ****************************************************************************/
 481 static void Callback404( httpd_file_sys_t *p_args, char **pp_data,
 482                          int *pi_data )
 483 {
 484     char *p = *pp_data = malloc( 10240 );
 485     if( !p )
 486     {
 487         return;
 488     }
 489     p += sprintf( p, "Content-Type: text/html\n" );
 490     p += sprintf( p, "<html xmlns=\"http://www.w3.org/1999/xhtml\">\n" );
 491     p += sprintf( p, "<head>\n" );
 492     p += sprintf( p, "<title>Error loading %s</title>\n", p_args->file );
 493     p += sprintf( p, "</head>\n" );
 494     p += sprintf( p, "<body>\n" );
 495     p += sprintf( p, "<h1><center>Error loading %s for %s</center></h1>\n", p_args->file, p_args->name );
 496     p += sprintf( p, "<a href=\"http://www.videolan.org/\">VideoLAN</a>\n" );
 497     p += sprintf( p, "</body>\n" );
 498     p += sprintf( p, "</html>\n" );
 499
 500     *pi_data = strlen( *pp_data );
 501 }
 502
 503 static void ParseExecute( httpd_file_sys_t *p_args, char *p_buffer,
 504                           int i_buffer, char *p_request,
 505                           char **pp_data, int *pi_data )
 506 {
 507     int i_request = p_request != NULL ? strlen( p_request ) : 0;
 508     char *dst;
 509     vlc_value_t val;
 510     char position[4]; /* percentage */
 511     char time[12]; /* in seconds */
 512     char length[12]; /* in seconds */
 513     audio_volume_t i_volume;
 514     char volume[5];
 515     char state[8];
 516     char stats[20];
 517
 518 #define p_sys p_args->p_intf->p_sys
 519     if( p_sys->p_input )
 520     {
 521         var_Get( p_sys->p_input, "position", &val);
 522         sprintf( position, "%d" , (int)((val.f_float) * 100.0));
 523         var_Get( p_sys->p_input, "time", &val);
 524         sprintf( time, I64Fi, val.i_time / 1000000LL );
 525         var_Get( p_sys->p_input, "length", &val);
 526         sprintf( length, I64Fi, val.i_time / 1000000LL );
 527
 528         var_Get( p_sys->p_input, "state", &val );
 529         if( val.i_int == PLAYING_S )
 530         {
 531             sprintf( state, "playing" );
 532         }
 533         else if( val.i_int == OPENING_S )
 534         {
 535             sprintf( state, "opening/connecting" );
 536         }
 537         else if( val.i_int == BUFFERING_S )
 538         {
 539             sprintf( state, "buffering" );
 540         }
 541         else if( val.i_int == PAUSE_S )
 542         {
 543             sprintf( state, "paused" );
 544         }
 545         else
 546         {
 547             sprintf( state, "stop" );
 548         }
 549     }
 550     else
 551     {
 552         sprintf( position, "%d", 0 );
 553         sprintf( time, "%d", 0 );
 554         sprintf( length, "%d", 0 );
 555         sprintf( state, "stop" );
 556     }
 557 #undef p_sys
 558
 559     aout_VolumeGet( p_args->p_intf, &i_volume );
 560     sprintf( volume, "%d", (int)i_volume );
 561
 562     p_args->vars = E_(mvar_New)( "variables", "" );
 563     E_(mvar_AppendNewVar)( p_args->vars, "url_param",
 564                            i_request > 0 ? "1" : "0" );
 565     E_(mvar_AppendNewVar)( p_args->vars, "url_value", p_request );
 566     E_(mvar_AppendNewVar)( p_args->vars, "version", VLC_Version() );
 567     E_(mvar_AppendNewVar)( p_args->vars, "copyright", COPYRIGHT_MESSAGE );
 568     E_(mvar_AppendNewVar)( p_args->vars, "vlc_compile_by", VLC_CompileBy() );
 569     E_(mvar_AppendNewVar)( p_args->vars, "vlc_compile_host",
 570                            VLC_CompileHost() );
 571     E_(mvar_AppendNewVar)( p_args->vars, "vlc_compile_domain",
 572                            VLC_CompileDomain() );
 573     E_(mvar_AppendNewVar)( p_args->vars, "vlc_compiler", VLC_Compiler() );
 574 #ifndef HAVE_SHARED_LIBVLC
 575     E_(mvar_AppendNewVar)( p_args->vars, "vlc_changeset", VLC_Changeset() );
 576 #endif
 577     E_(mvar_AppendNewVar)( p_args->vars, "stream_position", position );
 578     E_(mvar_AppendNewVar)( p_args->vars, "stream_time", time );
 579     E_(mvar_AppendNewVar)( p_args->vars, "stream_length", length );
 580     E_(mvar_AppendNewVar)( p_args->vars, "volume", volume );
 581     E_(mvar_AppendNewVar)( p_args->vars, "stream_state", state );
 582     E_(mvar_AppendNewVar)( p_args->vars, "charset", ((intf_sys_t *)p_args->p_intf->p_sys)->psz_charset );
 583
 584     /* Stats */
 585 #define p_sys p_args->p_intf->p_sys
 586     if( p_sys->p_input )
 587     {
 588         input_item_t *p_item = p_sys->p_input->input.p_item;
 589         if( p_item )
 590         {
 591             vlc_mutex_lock( &p_item->p_stats->lock );
 592 #define STATS_INT( n ) sprintf( stats, "%d", p_item->p_stats->i_ ## n ); \
 593                        E_(mvar_AppendNewVar)( p_args->vars, #n, stats );
 594 #define STATS_FLOAT( n ) sprintf( stats, "%f", p_item->p_stats->f_ ## n ); \
 595                        E_(mvar_AppendNewVar)( p_args->vars, #n, stats );
 596             STATS_INT( read_bytes )
 597             STATS_FLOAT( input_bitrate )
 598             STATS_INT( demux_read_bytes )
 599             STATS_FLOAT( demux_bitrate )
 600             STATS_INT( decoded_video )
 601             STATS_INT( displayed_pictures )
 602             STATS_INT( lost_pictures )
 603             STATS_INT( decoded_audio )
 604             STATS_INT( played_abuffers )
 605             STATS_INT( lost_abuffers )
 606             STATS_INT( sent_packets )
 607             STATS_INT( sent_bytes )
 608             STATS_FLOAT( send_bitrate )
 609 #undef STATS_INT
 610 #undef STATS_FLOAT
 611             vlc_mutex_unlock( &p_item->p_stats->lock );
 612         }
 613     }
 614 #undef p_sys
 615
 616     E_(SSInit)( &p_args->stack );
 617
 618     /* allocate output */
 619     *pi_data = i_buffer + 1000;
 620     dst = *pp_data = malloc( *pi_data );
 621
 622     /* we parse executing all  <vlc /> macros */
 623     E_(Execute)( p_args, p_request, i_request, pp_data, pi_data, &dst,
 624                  &p_buffer[0], &p_buffer[i_buffer] );
 625
 626     *dst     = '\0';
 627     *pi_data = dst - *pp_data;
 628
 629     E_(SSClean)( &p_args->stack );
 630     E_(mvar_Delete)( p_args->vars );
 631 }
 632
 633 int  E_(HttpCallback)( httpd_file_sys_t *p_args,
 634                        httpd_file_t *p_file,
 635                        uint8_t *_p_request,
 636                        uint8_t **_pp_data, int *pi_data )
 637 {
 638     char *p_request = (char *)_p_request;
 639     char **pp_data = (char **)_pp_data;
 640     FILE *f;
 641
 642     /* FIXME: do we need character encoding translation here? */
 643     if( ( f = fopen( p_args->file, "r" ) ) == NULL )
 644     {
 645         Callback404( p_args, pp_data, pi_data );
 646         return VLC_SUCCESS;
 647     }
 648
 649     if( !p_args->b_html )
 650     {
 651         E_(FileLoad)( f, pp_data, pi_data );
 652     }
 653     else
 654     {
 655         int  i_buffer;
 656         char *p_buffer;
 657
 658         /* first we load in a temporary buffer */
 659         E_(FileLoad)( f, &p_buffer, &i_buffer );
 660
 661         ParseExecute( p_args, p_buffer, i_buffer, p_request, pp_data, pi_data );
 662
 663         free( p_buffer );
 664     }
 665
 666     fclose( f );
 667
 668     return VLC_SUCCESS;
 669 }
 670
 671 /****************************************************************************
 672  * HandlerCallback:
 673  ****************************************************************************
 674  * call the external handler and parse vlc macros if Content-Type is HTML
 675  ****************************************************************************/
 676 int  E_(HandlerCallback)( httpd_handler_sys_t *p_args,
 677                           httpd_handler_t *p_handler, char *_p_url,
 678                           uint8_t *_p_request, int i_type,
 679                           uint8_t *_p_in, int i_in,
 680                           char *psz_remote_addr, char *psz_remote_host,
 681                           uint8_t **_pp_data, int *pi_data )
 682 {
 683     char *p_url = (char *)_p_url;
 684     char *p_request = (char *)_p_request;
 685     char **pp_data = (char **)_pp_data;
 686     char *p_in = (char *)p_in;
 687     int i_request = p_request != NULL ? strlen( p_request ) : 0;
 688     char *p;
 689     int i_env = 0;
 690     char **ppsz_env = NULL;
 691     char *psz_tmp;
 692     char sep;
 693     int  i_buffer;
 694     char *p_buffer;
 695     char *psz_cwd, *psz_file = NULL;
 696     int i_ret;
 697
 698 #ifdef WIN32
 699     sep = '\\';
 700 #else
 701     sep = '/';
 702 #endif
 703
 704     /* Create environment for the CGI */
 705     TAB_APPEND( i_env, ppsz_env, strdup("GATEWAY_INTERFACE=CGI/1.1") );
 706     TAB_APPEND( i_env, ppsz_env, strdup("SERVER_PROTOCOL=HTTP/1.1") );
 707     TAB_APPEND( i_env, ppsz_env, strdup("SERVER_SOFTWARE=" COPYRIGHT_MESSAGE) );
 708
 709     switch( i_type )
 710     {
 711     case HTTPD_MSG_GET:
 712         TAB_APPEND( i_env, ppsz_env, strdup("REQUEST_METHOD=GET") );
 713         break;
 714     case HTTPD_MSG_POST:
 715         TAB_APPEND( i_env, ppsz_env, strdup("REQUEST_METHOD=POST") );
 716         break;
 717     case HTTPD_MSG_HEAD:
 718         TAB_APPEND( i_env, ppsz_env, strdup("REQUEST_METHOD=HEAD") );
 719         break;
 720     default:
 721         break;
 722     }
 723
 724     if( i_request )
 725     {
 726         psz_tmp = malloc( sizeof("QUERY_STRING=") + i_request );
 727         sprintf( psz_tmp, "QUERY_STRING=%s", p_request );
 728         TAB_APPEND( i_env, ppsz_env, psz_tmp );
 729
 730         psz_tmp = malloc( sizeof("REQUEST_URI=?") + strlen(p_url)
 731                            + i_request );
 732         sprintf( psz_tmp, "REQUEST_URI=%s?%s", p_url, p_request );
 733         TAB_APPEND( i_env, ppsz_env, psz_tmp );
 734     }
 735     else
 736     {
 737         psz_tmp = malloc( sizeof("REQUEST_URI=") + strlen(p_url) );
 738         sprintf( psz_tmp, "REQUEST_URI=%s", p_url );
 739         TAB_APPEND( i_env, ppsz_env, psz_tmp );
 740     }
 741
 742     psz_tmp = malloc( sizeof("SCRIPT_NAME=") + strlen(p_url) );
 743     sprintf( psz_tmp, "SCRIPT_NAME=%s", p_url );
 744     TAB_APPEND( i_env, ppsz_env, psz_tmp );
 745
 746 #define p_sys p_args->file.p_intf->p_sys
 747     psz_tmp = malloc( sizeof("SERVER_NAME=") + strlen(p_sys->psz_address) );
 748     sprintf( psz_tmp, "SERVER_NAME=%s", p_sys->psz_address );
 749     TAB_APPEND( i_env, ppsz_env, psz_tmp );
 750
 751     psz_tmp = malloc( sizeof("SERVER_PORT=") + 5 );
 752     sprintf( psz_tmp, "SERVER_PORT=%u", p_sys->i_port );
 753     TAB_APPEND( i_env, ppsz_env, psz_tmp );
 754 #undef p_sys
 755
 756     p = getenv( "PATH" );
 757     if( p != NULL )
 758     {
 759         psz_tmp = malloc( sizeof("PATH=") + strlen(p) );
 760         sprintf( psz_tmp, "PATH=%s", p );
 761         TAB_APPEND( i_env, ppsz_env, psz_tmp );
 762     }
 763
 764 #ifdef WIN32
 765     p = getenv( "windir" );
 766     if( p != NULL )
 767     {
 768         psz_tmp = malloc( sizeof("SYSTEMROOT=") + strlen(p) );
 769         sprintf( psz_tmp, "SYSTEMROOT=%s", p );
 770         TAB_APPEND( i_env, ppsz_env, psz_tmp );
 771     }
 772 #endif
 773
 774     if( psz_remote_addr != NULL && *psz_remote_addr )
 775     {
 776         psz_tmp = malloc( sizeof("REMOTE_ADDR=") + strlen(psz_remote_addr) );
 777         sprintf( psz_tmp, "REMOTE_ADDR=%s", psz_remote_addr );
 778         TAB_APPEND( i_env, ppsz_env, psz_tmp );
 779     }
 780
 781     if( psz_remote_host != NULL && *psz_remote_host )
 782     {
 783         psz_tmp = malloc( sizeof("REMOTE_HOST=") + strlen(psz_remote_host) );
 784         sprintf( psz_tmp, "REMOTE_HOST=%s", psz_remote_host );
 785         TAB_APPEND( i_env, ppsz_env, psz_tmp );
 786     }
 787
 788     if( i_in )
 789     {
 790         p = p_in;
 791         for ( ; ; )
 792         {
 793             if( !strncasecmp( p, "Content-Type: ", strlen("Content-Type: ") ) )
 794             {
 795                 char *end = strchr( p, '\r' );
 796                 if( end == NULL )
 797                     break;
 798                 *end = '\0';
 799                 psz_tmp = malloc( sizeof("CONTENT_TYPE=") + strlen(p) );
 800                 sprintf( psz_tmp, "CONTENT_TYPE=%s", p );
 801                 TAB_APPEND( i_env, ppsz_env, psz_tmp );
 802                 *end = '\r';
 803             }
 804             if( !strncasecmp( p, "Content-Length: ",
 805                               strlen("Content-Length: ") ) )
 806             {
 807                 char *end = strchr( p, '\r' );
 808                 if( end == NULL )
 809                     break;
 810                 *end = '\0';
 811                 psz_tmp = malloc( sizeof("CONTENT_LENGTH=") + strlen(p) );
 812                 sprintf( psz_tmp, "CONTENT_LENGTH=%s", p );
 813                 TAB_APPEND( i_env, ppsz_env, psz_tmp );
 814                 *end = '\r';
 815             }
 816
 817             p = strchr( p, '\n' );
 818             if( p == NULL || p[1] == '\r' )
 819             {
 820                 p = NULL;
 821                 break;
 822             }
 823             p++;
 824         }
 825     }
 826
 827     psz_file = strrchr( p_args->file.file, sep );
 828     if( psz_file != NULL )
 829     {
 830         psz_file++;
 831         psz_tmp = malloc( sizeof("SCRIPT_FILENAME=") + strlen(psz_file) );
 832         sprintf( psz_tmp, "SCRIPT_FILENAME=%s", psz_file );
 833         TAB_APPEND( i_env, ppsz_env, psz_tmp );
 834
 835         TAB_APPEND( p_args->p_association->i_argc,
 836                     p_args->p_association->ppsz_argv, psz_file );
 837     }
 838
 839     TAB_APPEND( i_env, ppsz_env, NULL );
 840
 841     TAB_APPEND( p_args->p_association->i_argc, p_args->p_association->ppsz_argv,
 842                 NULL );
 843
 844     psz_tmp = strdup( p_args->file.file );
 845     p = strrchr( psz_tmp, sep );
 846     if( p != NULL )
 847     {
 848         *p = '\0';
 849         psz_cwd = psz_tmp;
 850     }
 851     else
 852     {
 853         free( psz_tmp );
 854         psz_cwd = NULL;
 855     }
 856
 857     i_ret = vlc_execve( p_args->file.p_intf, p_args->p_association->i_argc,
 858                         p_args->p_association->ppsz_argv, ppsz_env, psz_cwd,
 859                         (char *)p_in, i_in, &p_buffer, &i_buffer );
 860     TAB_REMOVE( p_args->p_association->i_argc, p_args->p_association->ppsz_argv,
 861                 NULL );
 862     TAB_REMOVE( p_args->p_association->i_argc, p_args->p_association->ppsz_argv,
 863                 psz_file );
 864     if( psz_cwd != NULL )
 865         free( psz_cwd );
 866     while( i_env )
 867         TAB_REMOVE( i_env, ppsz_env, ppsz_env[0] );
 868
 869     if( i_ret == -1 )
 870     {
 871         Callback404( (httpd_file_sys_t *)p_args, pp_data, pi_data );
 872         return VLC_SUCCESS;
 873     }
 874     p = p_buffer;
 875     while( strncasecmp( p, "Content-Type: text/html",
 876                         strlen("Content-Type: text/html") ) )
 877     {
 878         p = strchr( p, '\n' );
 879         if( p == NULL || p[1] == '\r' )
 880         {
 881             p = NULL;
 882             break;
 883         }
 884         p++;
 885     }
 886
 887     if( p == NULL )
 888     {
 889         *pp_data = p_buffer;
 890         *pi_data = i_buffer;
 891     }
 892     else
 893     {
 894         ParseExecute( (httpd_file_sys_t *)p_args, p_buffer, i_buffer,
 895                       p_request, pp_data, pi_data );
 896
 897         free( p_buffer );
 898     }
 899
 900     return VLC_SUCCESS;
 901 }