FSF address change.
[vlc.git] / modules / access / dvb / http.c
1 /*****************************************************************************
2  * http.c: HTTP interface
3  *****************************************************************************
4  * Copyright (C) 2005 the VideoLAN team
5  *
6  * Authors: Christophe Massiot <massiot@via.ecp.fr>
7  *
8  * This program is free software; you can redistribute it and/or modify
9  * it under the terms of the GNU General Public License as published by
10  * the Free Software Foundation; either version 2 of the License, or
11  * (at your option) any later version.
12  *
13  * This program is distributed in the hope that it will be useful,
14  * but WITHOUT ANY WARRANTY; without even the implied warranty of
15  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
16  * GNU General Public License for more details.
17  *
18  * You should have received a copy of the GNU General Public License
19  * along with this program; if not, write to the Free Software
20  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston MA 02110-1301, USA.
21  *****************************************************************************/
22
23
24 /*****************************************************************************
25  * Preamble
26  *****************************************************************************/
27 #include <vlc/vlc.h>
28 #include <vlc/input.h>
29
30 #ifdef HAVE_UNISTD_H
31 #   include <unistd.h>
32 #endif
33
34 #include <fcntl.h>
35 #include <sys/types.h>
36
37 #include <errno.h>
38
39 /* Include dvbpsi headers */
40 #ifdef HAVE_DVBPSI_DR_H
41 #   include <dvbpsi/dvbpsi.h>
42 #   include <dvbpsi/descriptor.h>
43 #   include <dvbpsi/pat.h>
44 #   include <dvbpsi/pmt.h>
45 #   include <dvbpsi/dr.h>
46 #   include <dvbpsi/psi.h>
47 #else
48 #   include "dvbpsi.h"
49 #   include "descriptor.h"
50 #   include "tables/pat.h"
51 #   include "tables/pmt.h"
52 #   include "descriptors/dr.h"
53 #   include "psi.h"
54 #endif
55
56 #ifdef ENABLE_HTTPD
57 #   include "vlc_httpd.h"
58 #   include "vlc_acl.h"
59 #endif
60
61 #include "dvb.h"
62
63 #ifdef ENABLE_HTTPD
64 struct httpd_file_sys_t
65 {
66     access_t         *p_access;
67     httpd_file_t     *p_file;
68 };
69
70 static int HttpCallback( httpd_file_sys_t *p_args,
71                          httpd_file_t *p_file,
72                          uint8_t *_p_request,
73                          uint8_t **_pp_data, int *pi_data );
74
75 /*****************************************************************************
76  * HTTPOpen: Start the internal HTTP server
77  *****************************************************************************/
78 int E_(HTTPOpen)( access_t *p_access )
79 {
80 #define FREE( x )                                                           \
81     if ( (x) != NULL )                                                      \
82         free( x );
83
84     access_sys_t *p_sys = p_access->p_sys;
85     char          *psz_address, *psz_cert = NULL, *psz_key = NULL,
86                   *psz_ca = NULL, *psz_crl = NULL, *psz_user = NULL,
87                   *psz_password = NULL, *psz_acl = NULL;
88     int           i_port       = 0;
89     char          psz_tmp[10];
90     vlc_acl_t     *p_acl = NULL;
91     httpd_file_sys_t *f;
92
93     vlc_mutex_init( p_access, &p_sys->httpd_mutex );
94     vlc_cond_init( p_access, &p_sys->httpd_cond );
95     p_sys->b_request_frontend_info = p_sys->b_request_mmi_info = VLC_FALSE;
96     p_sys->i_httpd_timeout = 0;
97
98     psz_address = var_GetString( p_access, "dvb-http-host" );
99     if( psz_address != NULL && *psz_address )
100     {
101         char *psz_parser = strchr( psz_address, ':' );
102         if( psz_parser )
103         {
104             *psz_parser++ = '\0';
105             i_port = atoi( psz_parser );
106         }
107     }
108     else
109     {
110         if ( psz_address != NULL ) free( psz_address );
111         return VLC_SUCCESS;
112     }
113
114     /* determine SSL configuration */
115     psz_cert = var_GetString( p_access, "dvb-http-intf-cert" );
116     if ( psz_cert != NULL && *psz_cert )
117     {
118         msg_Dbg( p_access, "enabling TLS for HTTP interface (cert file: %s)",
119                  psz_cert );
120         psz_key = config_GetPsz( p_access, "dvb-http-intf-key" );
121         psz_ca = config_GetPsz( p_access, "dvb-http-intf-ca" );
122         psz_crl = config_GetPsz( p_access, "dvb-http-intf-crl" );
123
124         if ( i_port <= 0 )
125             i_port = 8443;
126     }
127     else
128     {
129         if ( !*psz_cert )
130         {
131             free( psz_cert );
132             psz_cert = NULL;
133         }
134         if ( i_port <= 0 )
135             i_port= 8082;
136     }
137
138     /* Ugly hack to allow to run several HTTP servers on different ports. */
139     sprintf( psz_tmp, ":%d", i_port + 1 );
140     config_PutPsz( p_access, "dvb-http-host", psz_tmp );
141
142     msg_Dbg( p_access, "base %s:%d", psz_address, i_port );
143
144     p_sys->p_httpd_host = httpd_TLSHostNew( VLC_OBJECT(p_access), psz_address,
145                                             i_port, psz_cert, psz_key, psz_ca,
146                                             psz_crl );
147     FREE( psz_cert );
148     FREE( psz_key );
149     FREE( psz_ca );
150     FREE( psz_crl );
151
152     if ( p_sys->p_httpd_host == NULL )
153     {
154         msg_Err( p_access, "cannot listen on %s:%d", psz_address, i_port );
155         free( psz_address );
156         return VLC_EGENERIC;
157     }
158     free( psz_address );
159
160     psz_user = var_GetString( p_access, "dvb-http-user" );
161     psz_password = var_GetString( p_access, "dvb-http-password" );
162     psz_acl = var_GetString( p_access, "dvb-http-acl" );
163
164     if ( psz_acl != NULL )
165     {
166         p_acl = ACL_Create( p_access, VLC_FALSE );
167         if( ACL_LoadFile( p_acl, psz_acl ) )
168         {
169             ACL_Destroy( p_acl );
170             p_acl = NULL;
171         }
172     }
173
174     /* Declare an index.html file. */
175     f = malloc( sizeof(httpd_file_sys_t) );
176     f->p_access = p_access;
177     f->p_file = httpd_FileNew( p_sys->p_httpd_host, "/index.html",
178                                "text/html; charset=UTF-8",
179                                psz_user, psz_password, p_acl,
180                                HttpCallback, f );
181
182     FREE( psz_user );
183     FREE( psz_password );
184     FREE( psz_acl );
185     if ( p_acl != NULL )
186         ACL_Destroy( p_acl );
187
188     if ( f->p_file == NULL )
189     {
190         free( f );
191         p_sys->p_httpd_file = NULL;
192         return VLC_EGENERIC;
193     }
194
195     p_sys->p_httpd_file = f;
196     p_sys->p_httpd_redir = httpd_RedirectNew( p_sys->p_httpd_host,
197                                               "/index.html", "/" );
198
199 #undef FREE
200
201     return VLC_SUCCESS;
202 }
203
204 /*****************************************************************************
205  * HTTPClose: Stop the internal HTTP server
206  *****************************************************************************/
207 void E_(HTTPClose)( access_t *p_access )
208 {
209     access_sys_t *p_sys = p_access->p_sys;
210
211     if ( p_sys->p_httpd_host != NULL )
212     {
213         if ( p_sys->p_httpd_file != NULL )
214         {
215             /* Unlock the thread if it is stuck in HttpCallback */
216             vlc_mutex_lock( &p_sys->httpd_mutex );
217             if ( p_sys->b_request_frontend_info == VLC_TRUE )
218             {
219                 p_sys->b_request_frontend_info = VLC_FALSE;
220                 p_sys->psz_frontend_info = strdup("");
221             }
222             if ( p_sys->b_request_mmi_info == VLC_TRUE )
223             {
224                 p_sys->b_request_mmi_info = VLC_FALSE;
225                 p_sys->psz_mmi_info = strdup("");
226             }
227             vlc_cond_signal( &p_sys->httpd_cond );
228             vlc_mutex_unlock( &p_sys->httpd_mutex );
229
230             httpd_FileDelete( p_sys->p_httpd_file->p_file );
231             httpd_RedirectDelete( p_sys->p_httpd_redir );
232         }
233
234         httpd_HostDelete( p_sys->p_httpd_host );
235     }
236
237     vlc_mutex_destroy( &p_sys->httpd_mutex );
238     vlc_cond_destroy( &p_sys->httpd_cond );
239 }
240
241
242 static const char *psz_constant_header =
243     "<html>\n"
244     "<head><title>VLC DVB monitoring interface</title></head>\n"
245     "<body><a href=\"index.html\">Reload this page</a>\n"
246     "<h1>CAM info</h1>\n";
247
248 static const char *psz_constant_middle =
249     "<hr><h1>Frontend Info</h1>\n";
250
251 static const char *psz_constant_footer =
252     "</body></html>\n";
253
254 /****************************************************************************
255  * HttpCallback: Return the index.html file
256  ****************************************************************************/
257 static int HttpCallback( httpd_file_sys_t *p_args,
258                          httpd_file_t *p_file,
259                          uint8_t *_psz_request,
260                          uint8_t **_pp_data, int *pi_data )
261 {
262     access_sys_t *p_sys = p_args->p_access->p_sys;
263     char *psz_request = (char *)_psz_request;
264     char **pp_data = (char **)_pp_data;
265
266     vlc_mutex_lock( &p_sys->httpd_mutex );
267
268     p_sys->i_httpd_timeout = mdate() + I64C(3000000); /* 3 s */
269     p_sys->psz_request = psz_request;
270     p_sys->b_request_frontend_info = VLC_TRUE;
271     if ( p_sys->i_ca_handle )
272     {
273         p_sys->b_request_mmi_info = VLC_TRUE;
274     }
275     else
276     {
277         p_sys->psz_mmi_info = strdup( "No available CAM interface\n" );
278     }
279
280     do
281     {
282         vlc_cond_wait( &p_sys->httpd_cond, &p_sys->httpd_mutex );
283     }
284     while ( p_sys->b_request_frontend_info || p_sys->b_request_mmi_info );
285
286     p_sys->i_httpd_timeout = 0;
287     vlc_mutex_unlock( &p_sys->httpd_mutex );
288
289     *pi_data = strlen( psz_constant_header )
290                 + strlen( p_sys->psz_mmi_info )
291                 + strlen( psz_constant_middle )
292                 + strlen( p_sys->psz_frontend_info )
293                 + strlen( psz_constant_footer ) + 1;
294     *pp_data = malloc( *pi_data );
295
296     sprintf( *pp_data, "%s%s%s%s%s", psz_constant_header,
297              p_sys->psz_mmi_info, psz_constant_middle,
298              p_sys->psz_frontend_info, psz_constant_footer );
299     free( p_sys->psz_frontend_info );
300     free( p_sys->psz_mmi_info );
301
302     return VLC_SUCCESS;
303 }
304
305 /****************************************************************************
306  * HTTPExtractValue: Extract a GET variable from psz_request
307  ****************************************************************************/
308 char *E_(HTTPExtractValue)( char *psz_uri, const char *psz_name,
309                             char *psz_value, int i_value_max )
310 {
311     char *p = psz_uri;
312
313     while( (p = strstr( p, psz_name )) )
314     {
315         /* Verify that we are dealing with a post/get argument */
316         if( (p == psz_uri || *(p - 1) == '&' || *(p - 1) == '\n')
317               && p[strlen(psz_name)] == '=' )
318             break;
319         p++;
320     }
321
322     if( p )
323     {
324         int i_len;
325
326         p += strlen( psz_name );
327         if( *p == '=' ) p++;
328
329         if( strchr( p, '&' ) )
330         {
331             i_len = strchr( p, '&' ) - p;
332         }
333         else
334         {
335             /* for POST method */
336             if( strchr( p, '\n' ) )
337             {
338                 i_len = strchr( p, '\n' ) - p;
339                 if( i_len && *(p+i_len-1) == '\r' ) i_len--;
340             }
341             else
342             {
343                 i_len = strlen( p );
344             }
345         }
346         i_len = __MIN( i_value_max - 1, i_len );
347         if( i_len > 0 )
348         {
349             strncpy( psz_value, p, i_len );
350             psz_value[i_len] = '\0';
351         }
352         else
353         {
354             strncpy( psz_value, "", i_value_max );
355         }
356         p += i_len;
357     }
358     else
359     {
360         strncpy( psz_value, "", i_value_max );
361     }
362
363     return p;
364 }
365
366 #endif /* ENABLE_HTTPD */