access_dvb: constify.
[vlc.git] / modules / access / dvb / linux_dvb.c
1 /*****************************************************************************
2  * linux_dvb.c : functions to control a DVB card under Linux with v4l2
3  *****************************************************************************
4  * Copyright (C) 1998-2005 the VideoLAN team
5  *
6  * Authors: Damien Lucas <nitrox@via.ecp.fr>
7  *          Johan Bilien <jobi@via.ecp.fr>
8  *          Jean-Paul Saman <jpsaman _at_ videolan _dot_ org>
9  *          Christopher Ross <chris@tebibyte.org>
10  *          Christophe Massiot <massiot@via.ecp.fr>
11  *
12  * This program is free software; you can redistribute it and/or modify
13  * it under the terms of the GNU General Public License as published by
14  * the Free Software Foundation; either version 2 of the License, or
15  * (at your option) any later version.
16  *
17  * This program is distributed in the hope that it will be useful,
18  * but WITHOUT ANY WARRANTY; without even the implied warranty of
19  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.    See the
20  * GNU General Public License for more details.
21  *
22  * You should have received a copy of the GNU General Public License
23  * along with this program; if not, write to the Free Software
24  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA    02111, USA.
25  *****************************************************************************/
26
27 #ifdef HAVE_CONFIG_H
28 # include "config.h"
29 #endif
30
31 #include <vlc_common.h>
32 #include <vlc_access.h>
33 #include <sys/ioctl.h>
34 #include <errno.h>
35
36 #include <sys/types.h>
37 #include <sys/stat.h>
38 #include <fcntl.h>
39 #include <time.h>
40 #include <unistd.h>
41 #include <sys/stat.h>
42 #include <sys/poll.h>
43
44 /* DVB Card Drivers */
45 #include <linux/dvb/version.h>
46 #include <linux/dvb/dmx.h>
47 #include <linux/dvb/frontend.h>
48 #include <linux/dvb/ca.h>
49
50 /* Include dvbpsi headers */
51 #ifdef HAVE_DVBPSI_DR_H
52 #   include <dvbpsi/dvbpsi.h>
53 #   include <dvbpsi/descriptor.h>
54 #   include <dvbpsi/pat.h>
55 #   include <dvbpsi/pmt.h>
56 #   include <dvbpsi/dr.h>
57 #   include <dvbpsi/psi.h>
58 #   include <dvbpsi/demux.h>
59 #   include <dvbpsi/sdt.h>
60 #else
61 #   include "dvbpsi.h"
62 #   include "descriptor.h"
63 #   include "tables/pat.h"
64 #   include "tables/pmt.h"
65 #   include "descriptors/dr.h"
66 #   include "psi.h"
67 #   include "demux.h"
68 #   include "tables/sdt.h"
69 #endif
70
71 #ifdef ENABLE_HTTPD
72 #   include <vlc_httpd.h>
73 #endif
74
75 #include "dvb.h"
76
77 /*
78  * Frontends
79  */
80 struct frontend_t
81 {
82     fe_status_t i_last_status;
83     struct dvb_frontend_info info;
84 };
85
86 #define FRONTEND_LOCK_TIMEOUT 10000000 /* 10 s */
87
88 /* Local prototypes */
89 static int FrontendInfo( access_t * );
90 static int FrontendSetQPSK( access_t * );
91 static int FrontendSetQAM( access_t * );
92 static int FrontendSetOFDM( access_t * );
93 static int FrontendSetATSC( access_t * );
94
95 /*****************************************************************************
96  * FrontendOpen : Determine frontend device information and capabilities
97  *****************************************************************************/
98 int FrontendOpen( access_t *p_access )
99 {
100     access_sys_t *p_sys = p_access->p_sys;
101     frontend_t * p_frontend;
102     unsigned int i_adapter, i_device;
103     bool b_probe;
104     char frontend[128];
105
106     i_adapter = var_GetInteger( p_access, "dvb-adapter" );
107     i_device = var_GetInteger( p_access, "dvb-device" );
108     b_probe = var_GetBool( p_access, "dvb-probe" );
109
110     if( snprintf( frontend, sizeof(frontend), FRONTEND, i_adapter, i_device ) >= (int)sizeof(frontend) )
111     {
112         msg_Err( p_access, "snprintf() truncated string for FRONTEND" );
113         frontend[sizeof(frontend) - 1] = '\0';
114     }
115
116     p_sys->p_frontend = p_frontend = malloc( sizeof(frontend_t) );
117     if( !p_frontend )
118         return VLC_ENOMEM;
119
120     msg_Dbg( p_access, "Opening device %s", frontend );
121     if( (p_sys->i_frontend_handle = open(frontend, O_RDWR | O_NONBLOCK)) < 0 )
122     {
123         msg_Err( p_access, "FrontEndOpen: opening device failed (%m)" );
124         free( p_frontend );
125         return VLC_EGENERIC;
126     }
127
128     if( b_probe )
129     {
130         const char * psz_expected = NULL;
131         const char * psz_real;
132
133         if( FrontendInfo( p_access ) < 0 )
134         {
135             close( p_sys->i_frontend_handle );
136             free( p_frontend );
137             return VLC_EGENERIC;
138         }
139
140         switch( p_frontend->info.type )
141         {
142         case FE_OFDM:
143             psz_real = "DVB-T";
144             break;
145         case FE_QAM:
146             psz_real = "DVB-C";
147             break;
148         case FE_QPSK:
149             psz_real = "DVB-S";
150             break;
151         case FE_ATSC:
152             psz_real = "ATSC";
153             break;
154         default:
155             psz_real = "unknown";
156         }
157
158         /* Sanity checks */
159         if( (!strncmp( p_access->psz_access, "qpsk", 4 ) ||
160              !strncmp( p_access->psz_access, "dvb-s", 5 ) ||
161              !strncmp( p_access->psz_access, "satellite", 9 ) ) &&
162              (p_frontend->info.type != FE_QPSK) )
163         {
164             psz_expected = "DVB-S";
165         }
166         if( (!strncmp( p_access->psz_access, "cable", 5 ) ||
167              !strncmp( p_access->psz_access, "dvb-c", 5 ) ) &&
168              (p_frontend->info.type != FE_QAM) )
169         {
170             psz_expected = "DVB-C";
171         }
172         if( (!strncmp( p_access->psz_access, "terrestrial", 11 ) ||
173              !strncmp( p_access->psz_access, "dvb-t", 5 ) ) &&
174              (p_frontend->info.type != FE_OFDM) )
175         {
176             psz_expected = "DVB-T";
177         }
178
179         if( (!strncmp( p_access->psz_access, "usdigital", 9 ) ||
180              !strncmp( p_access->psz_access, "atsc", 4 ) ) &&
181              (p_frontend->info.type != FE_ATSC) )
182         {
183             psz_expected = "ATSC";
184         }
185
186         if( psz_expected != NULL )
187         {
188             msg_Err( p_access, "the user asked for %s, and the tuner is %s",
189                      psz_expected, psz_real );
190             close( p_sys->i_frontend_handle );
191             free( p_frontend );
192             return VLC_EGENERIC;
193         }
194     }
195     else /* no frontend probing is done so use default border values. */
196     {
197         msg_Dbg( p_access, "using default values for frontend info" );
198
199         msg_Dbg( p_access, "method of access is %s", p_access->psz_access );
200         p_frontend->info.type = FE_QPSK;
201         if( !strncmp( p_access->psz_access, "qpsk", 4 ) ||
202             !strncmp( p_access->psz_access, "dvb-s", 5 ) )
203             p_frontend->info.type = FE_QPSK;
204         else if( !strncmp( p_access->psz_access, "cable", 5 ) ||
205                  !strncmp( p_access->psz_access, "dvb-c", 5 ) )
206             p_frontend->info.type = FE_QAM;
207         else if( !strncmp( p_access->psz_access, "terrestrial", 11 ) ||
208                  !strncmp( p_access->psz_access, "dvb-t", 5 ) )
209             p_frontend->info.type = FE_OFDM;
210         else if( !strncmp( p_access->psz_access, "usdigital", 9 ) ||
211                  !strncmp( p_access->psz_access, "atsc", 4 ) )
212             p_frontend->info.type = FE_ATSC;
213     }
214
215     return VLC_SUCCESS;
216 }
217
218 /*****************************************************************************
219  * FrontendClose : Close the frontend
220  *****************************************************************************/
221 void FrontendClose( access_t *p_access )
222 {
223     access_sys_t *p_sys = p_access->p_sys;
224
225     if( p_sys->p_frontend )
226     {
227         close( p_sys->i_frontend_handle );
228         free( p_sys->p_frontend );
229
230         p_sys->p_frontend = NULL;
231     }
232 }
233
234 /*****************************************************************************
235  * FrontendSet : Tune !
236  *****************************************************************************/
237 int FrontendSet( access_t *p_access )
238 {
239     access_sys_t *p_sys = p_access->p_sys;
240
241     switch( p_sys->p_frontend->info.type )
242     {
243     /* DVB-S */
244     case FE_QPSK:
245         if( FrontendSetQPSK( p_access ) < 0 )
246         {
247             msg_Err( p_access, "DVB-S: tuning failed" );
248             return VLC_EGENERIC;
249         }
250         break;
251
252     /* DVB-C */
253     case FE_QAM:
254         if( FrontendSetQAM( p_access ) < 0 )
255         {
256             msg_Err( p_access, "DVB-C: tuning failed" );
257             return VLC_EGENERIC;
258         }
259         break;
260
261     /* DVB-T */
262     case FE_OFDM:
263         if( FrontendSetOFDM( p_access ) < 0 )
264         {
265             msg_Err( p_access, "DVB-T: tuning failed" );
266             return VLC_EGENERIC;
267         }
268         break;
269
270     /* ATSC */
271     case FE_ATSC:
272         if( FrontendSetATSC( p_access ) < 0 )
273         {
274             msg_Err( p_access, "ATSC: tuning failed" );
275             return VLC_EGENERIC;
276         }
277         break;
278
279     default:
280         msg_Err( p_access, "Could not determine frontend type on %s",
281                  p_sys->p_frontend->info.name );
282         return VLC_EGENERIC;
283     }
284     p_sys->p_frontend->i_last_status = 0;
285     p_sys->i_frontend_timeout = mdate() + FRONTEND_LOCK_TIMEOUT;
286     return VLC_SUCCESS;
287 }
288
289 /*****************************************************************************
290  * FrontendPoll : Poll for frontend events
291  *****************************************************************************/
292 void FrontendPoll( access_t *p_access )
293 {
294     access_sys_t *p_sys = p_access->p_sys;
295     frontend_t * p_frontend = p_sys->p_frontend;
296     struct dvb_frontend_event event;
297     fe_status_t i_status, i_diff;
298
299     for( ;; )
300     {
301         int i_ret = ioctl( p_sys->i_frontend_handle, FE_GET_EVENT, &event );
302
303         if( i_ret < 0 )
304         {
305             if( errno == EWOULDBLOCK )
306                 return; /* no more events */
307
308             msg_Err( p_access, "reading frontend event failed (%d): %m",
309                      i_ret );
310             return;
311         }
312
313         i_status = event.status;
314         i_diff = i_status ^ p_frontend->i_last_status;
315         p_frontend->i_last_status = i_status;
316
317         {
318 #define IF_UP( x )                                                          \
319         }                                                                   \
320         if ( i_diff & (x) )                                                 \
321         {                                                                   \
322             if ( i_status & (x) )
323
324             IF_UP( FE_HAS_SIGNAL )
325                 msg_Dbg( p_access, "frontend has acquired signal" );
326             else
327                 msg_Dbg( p_access, "frontend has lost signal" );
328
329             IF_UP( FE_HAS_CARRIER )
330                 msg_Dbg( p_access, "frontend has acquired carrier" );
331             else
332                 msg_Dbg( p_access, "frontend has lost carrier" );
333
334             IF_UP( FE_HAS_VITERBI )
335                 msg_Dbg( p_access, "frontend has acquired stable FEC" );
336             else
337                 msg_Dbg( p_access, "frontend has lost FEC" );
338
339             IF_UP( FE_HAS_SYNC )
340                 msg_Dbg( p_access, "frontend has acquired sync" );
341             else
342                 msg_Dbg( p_access, "frontend has lost sync" );
343
344             IF_UP( FE_HAS_LOCK )
345             {
346                 frontend_statistic_t stat;
347
348                 msg_Dbg( p_access, "frontend has acquired lock" );
349                 p_sys->i_frontend_timeout = 0;
350
351                 /* Read some statistics */
352                 if( !FrontendGetStatistic( p_access, &stat ) )
353                 {
354                     if( stat.i_ber >= 0 )
355                         msg_Dbg( p_access, "- Bit error rate: %d", stat.i_ber );
356                     if( stat.i_signal_strenth >= 0 )
357                         msg_Dbg( p_access, "- Signal strength: %d", stat.i_signal_strenth );
358                     if( stat.i_snr >= 0 )
359                         msg_Dbg( p_access, "- SNR: %d", stat.i_snr );
360                 }
361             }
362             else
363             {
364                 msg_Dbg( p_access, "frontend has lost lock" );
365                 p_sys->i_frontend_timeout = mdate() + FRONTEND_LOCK_TIMEOUT;
366             }
367
368             IF_UP( FE_REINIT )
369             {
370                 /* The frontend was reinited. */
371                 msg_Warn( p_access, "reiniting frontend");
372                 FrontendSet( p_access );
373             }
374         }
375 #undef IF_UP
376     }
377 }
378 int FrontendGetStatistic( access_t *p_access, frontend_statistic_t *p_stat )
379 {
380     access_sys_t *p_sys = p_access->p_sys;
381     frontend_t * p_frontend = p_sys->p_frontend;
382
383     if( (p_frontend->i_last_status & FE_HAS_LOCK) == 0 )
384         return VLC_EGENERIC;
385
386     memset( p_stat, 0, sizeof(*p_stat) );
387     if( ioctl( p_sys->i_frontend_handle, FE_READ_BER, &p_stat->i_ber ) < 0 )
388         p_stat->i_ber = -1;
389     if( ioctl( p_sys->i_frontend_handle, FE_READ_SIGNAL_STRENGTH, &p_stat->i_signal_strenth ) < 0 )
390         p_stat->i_signal_strenth = -1;
391     if( ioctl( p_sys->i_frontend_handle, FE_READ_SNR, &p_stat->i_snr ) < 0 )
392         p_stat->i_snr = -1;
393
394     return VLC_SUCCESS;
395 }
396 void FrontendGetStatus( access_t *p_access, frontend_status_t *p_status )
397 {
398     access_sys_t *p_sys = p_access->p_sys;
399     frontend_t * p_frontend = p_sys->p_frontend;
400
401     p_status->b_has_signal = (p_frontend->i_last_status & FE_HAS_SIGNAL) != 0;
402     p_status->b_has_carrier = (p_frontend->i_last_status & FE_HAS_CARRIER) != 0;
403     p_status->b_has_lock = (p_frontend->i_last_status & FE_HAS_LOCK) != 0;
404 }
405 static int ScanParametersDvbC( access_t *p_access, scan_parameter_t *p_scan )
406 {
407     const frontend_t *p_frontend = p_access->p_sys->p_frontend;
408
409
410     memset( p_scan, 0, sizeof(*p_scan) );
411     p_scan->type = SCAN_DVB_C;
412     p_scan->b_exhaustive = false;
413
414     /* */
415     p_scan->frequency.i_min = p_frontend->info.frequency_min;
416     p_scan->frequency.i_max = p_frontend->info.frequency_max;
417     p_scan->frequency.i_step = p_frontend->info.frequency_stepsize
418         ? p_frontend->info.frequency_stepsize : 166667;
419     p_scan->frequency.i_count = (p_scan->frequency.i_max-p_scan->frequency.i_min)/p_scan->frequency.i_step;
420
421     /* */
422     p_scan->bandwidth.i_min  = 6;
423     p_scan->bandwidth.i_max  = 8;
424     p_scan->bandwidth.i_step = 1;
425     p_scan->bandwidth.i_count = 3;
426     return VLC_SUCCESS;
427 }
428 static int ScanParametersDvbT( access_t *p_access, scan_parameter_t *p_scan )
429 {
430     const frontend_t *p_frontend = p_access->p_sys->p_frontend;
431
432
433     memset( p_scan, 0, sizeof(*p_scan) );
434     p_scan->type = SCAN_DVB_T;
435     p_scan->b_exhaustive = false;
436
437     /* */
438     p_scan->frequency.i_min = p_frontend->info.frequency_min;
439     p_scan->frequency.i_max = p_frontend->info.frequency_max;
440     p_scan->frequency.i_step = p_frontend->info.frequency_stepsize
441         ? p_frontend->info.frequency_stepsize : 166667;
442     p_scan->frequency.i_count = (p_scan->frequency.i_max-p_scan->frequency.i_min)/p_scan->frequency.i_step;
443
444     /* */
445     p_scan->bandwidth.i_min  = 6;
446     p_scan->bandwidth.i_max  = 8;
447     p_scan->bandwidth.i_step = 1;
448     p_scan->bandwidth.i_count = 3;
449     return VLC_SUCCESS;
450 }
451 int  FrontendGetScanParameter( access_t *p_access, scan_parameter_t *p_scan )
452 {
453     access_sys_t *p_sys = p_access->p_sys;
454     const frontend_t *p_frontend = p_sys->p_frontend;
455
456     if( p_frontend->info.type == FE_OFDM )  // DVB-T
457         return ScanParametersDvbT( p_access, p_scan );
458     else if( p_frontend->info.type == FE_QAM )  // DVB-C
459         return ScanParametersDvbC( p_access, p_scan );
460
461     msg_Err( p_access, "Frontend type not supported for scanning" );
462     return VLC_EGENERIC;
463 }
464
465 #ifdef ENABLE_HTTPD
466 /*****************************************************************************
467  * FrontendStatus : Read frontend status
468  *****************************************************************************/
469 void FrontendStatus( access_t *p_access )
470 {
471     access_sys_t *p_sys = p_access->p_sys;
472     frontend_t *p_frontend = p_sys->p_frontend;
473     char *p = p_sys->psz_frontend_info = malloc( 10000 );
474     fe_status_t i_status;
475     int i_ret;
476
477     /* Determine type of frontend */
478     if( (i_ret = ioctl( p_sys->i_frontend_handle, FE_GET_INFO,
479                         &p_frontend->info )) < 0 )
480     {
481         char buf[1000];
482         strerror_r( errno, buf, sizeof( buf ) );
483         p += sprintf( p, "ioctl FE_GET_INFO failed (%d) %s\n", i_ret, buf );
484         goto out;
485     }
486
487     /* Print out frontend capabilities. */
488     p += sprintf( p, "<table border=1><tr><th>name</th><td>%s</td></tr>\n",
489                   p_frontend->info.name );
490     switch( p_frontend->info.type )
491     {
492         case FE_QPSK:
493             p += sprintf( p, "<tr><th>type</th><td>QPSK (DVB-S)</td></tr>\n" );
494             break;
495         case FE_QAM:
496             p += sprintf( p, "<tr><th>type</th><td>QAM (DVB-C)</td></tr>\n" );
497             break;
498         case FE_OFDM:
499             p += sprintf( p, "<tr><th>type</th><td>OFDM (DVB-T)</td></tr>\n" );
500             break;
501 #if 0 /* DVB_API_VERSION == 3 */
502         case FE_MEMORY:
503             p += sprintf( p, "<tr><th>type</th><td>MEMORY</td></tr>\n" );
504             break;
505         case FE_NET:
506             p += sprintf( p, "<tr><th>type</th><td>NETWORK</td></tr>\n" );
507             break;
508 #endif
509         default:
510             p += sprintf( p, "<tr><th>type</th><td>UNKNOWN (%d)</td></tr>\n",
511                           p_frontend->info.type );
512             goto out;
513     }
514 #define CHECK_INFO( x )                                                     \
515     p += sprintf( p,                                                        \
516                   "<tr><th>" STRINGIFY(x) "</th><td>%u</td></tr>\n",        \
517                   p_frontend->info.x );
518
519     CHECK_INFO( frequency_min );
520     CHECK_INFO( frequency_max );
521     CHECK_INFO( frequency_stepsize );
522     CHECK_INFO( frequency_tolerance );
523     CHECK_INFO( symbol_rate_min );
524     CHECK_INFO( symbol_rate_max );
525     CHECK_INFO( symbol_rate_tolerance );
526     CHECK_INFO( notifier_delay );
527 #undef CHECK_INFO
528
529     p += sprintf( p, "</table><p>Frontend capability list:\n<table border=1>" );
530
531 #define CHECK_CAPS( x )                                                     \
532     if ( p_frontend->info.caps & (FE_##x) )                                 \
533         p += sprintf( p, "<tr><td>" STRINGIFY(x) "</td></tr>\n" );
534
535     CHECK_CAPS( IS_STUPID );
536     CHECK_CAPS( CAN_INVERSION_AUTO );
537     CHECK_CAPS( CAN_FEC_1_2 );
538     CHECK_CAPS( CAN_FEC_2_3 );
539     CHECK_CAPS( CAN_FEC_3_4 );
540     CHECK_CAPS( CAN_FEC_4_5 );
541     CHECK_CAPS( CAN_FEC_5_6 );
542     CHECK_CAPS( CAN_FEC_6_7 );
543     CHECK_CAPS( CAN_FEC_7_8 );
544     CHECK_CAPS( CAN_FEC_8_9 );
545     CHECK_CAPS( CAN_FEC_AUTO );
546     CHECK_CAPS( CAN_QPSK );
547     CHECK_CAPS( CAN_QAM_16 );
548     CHECK_CAPS( CAN_QAM_32 );
549     CHECK_CAPS( CAN_QAM_64 );
550     CHECK_CAPS( CAN_QAM_128 );
551     CHECK_CAPS( CAN_QAM_256 );
552     CHECK_CAPS( CAN_QAM_AUTO );
553     CHECK_CAPS( CAN_TRANSMISSION_MODE_AUTO );
554     CHECK_CAPS( CAN_BANDWIDTH_AUTO );
555     CHECK_CAPS( CAN_GUARD_INTERVAL_AUTO );
556     CHECK_CAPS( CAN_HIERARCHY_AUTO );
557     CHECK_CAPS( CAN_MUTE_TS );
558     CHECK_CAPS( CAN_RECOVER );
559 #if 0 /* Disabled because of older distributions */
560     CHECK_CAPS( CAN_CLEAN_SETUP );
561 #endif
562 #undef CHECK_CAPS
563
564     p += sprintf( p, "</table><p>Current frontend status:\n<table border=1>" );
565
566     if( (i_ret = ioctl( p_sys->i_frontend_handle, FE_READ_STATUS, &i_status ))
567            < 0 )
568     {
569         char buf[1000];
570         strerror_r( errno, buf, sizeof( buf ) );
571         p += sprintf( p, "</table>ioctl FE_READ_STATUS failed (%d) %s\n",
572                       i_ret, buf );
573         goto out;
574     }
575
576 #define CHECK_STATUS( x )                                                   \
577     if ( i_status & (FE_##x) )                                              \
578         p += sprintf( p, "<tr><td>" STRINGIFY(x) "</td></tr>\n" );
579
580     CHECK_STATUS( HAS_SIGNAL );
581     CHECK_STATUS( HAS_CARRIER );
582     CHECK_STATUS( HAS_VITERBI );
583     CHECK_STATUS( HAS_SYNC );
584     CHECK_STATUS( HAS_LOCK );
585     CHECK_STATUS( REINIT );
586     if( i_status == 0 )
587         p += sprintf( p, "<tr><td>Tuning failed</td></tr>\n" );
588 #undef CHECK_STATUS
589
590     if ( i_status & FE_HAS_LOCK )
591     {
592         int32_t i_value;
593         p += sprintf( p, "</table><p>Signal status:\n<table border=1>" );
594         if( ioctl( p_sys->i_frontend_handle, FE_READ_BER, &i_value ) >= 0 )
595             p += sprintf( p, "<tr><th>Bit error rate</th><td>%d</td></tr>\n",
596                           i_value );
597         if( ioctl( p_sys->i_frontend_handle, FE_READ_SIGNAL_STRENGTH,
598                    &i_value ) >= 0 )
599             p += sprintf( p, "<tr><th>Signal strength</th><td>%d</td></tr>\n",
600                           i_value );
601         if( ioctl( p_sys->i_frontend_handle, FE_READ_SNR, &i_value ) >= 0 )
602             p += sprintf( p, "<tr><th>SNR</th><td>%d</td></tr>\n",
603                           i_value );
604     }
605     p += sprintf( p, "</table>" );
606
607 out:
608     vlc_mutex_lock( &p_sys->httpd_mutex );
609     p_sys->b_request_frontend_info = false;
610     vlc_cond_signal( &p_sys->httpd_cond );
611     vlc_mutex_unlock( &p_sys->httpd_mutex );
612 }
613 #endif
614
615 /*****************************************************************************
616  * FrontendInfo : Return information about given frontend
617  *****************************************************************************/
618 static int FrontendInfo( access_t *p_access )
619 {
620     access_sys_t *p_sys = p_access->p_sys;
621     frontend_t *p_frontend = p_sys->p_frontend;
622     int i_ret;
623
624     /* Determine type of frontend */
625     if( (i_ret = ioctl( p_sys->i_frontend_handle, FE_GET_INFO,
626                         &p_frontend->info )) < 0 )
627     {
628         msg_Err( p_access, "ioctl FE_GET_INFO failed (%d): %m", i_ret );
629         return VLC_EGENERIC;
630     }
631
632     /* Print out frontend capabilities. */
633     msg_Dbg(p_access, "Frontend Info:" );
634     msg_Dbg(p_access, "  name = %s", p_frontend->info.name );
635     switch( p_frontend->info.type )
636     {
637         case FE_QPSK:
638             msg_Dbg( p_access, "  type = QPSK (DVB-S)" );
639             break;
640         case FE_QAM:
641             msg_Dbg( p_access, "  type = QAM (DVB-C)" );
642             break;
643         case FE_OFDM:
644             msg_Dbg( p_access, "  type = OFDM (DVB-T)" );
645             break;
646         case FE_ATSC:
647             msg_Dbg( p_access, "  type = ATSC (USA)" );
648             break;
649 #if 0 /* DVB_API_VERSION == 3 */
650         case FE_MEMORY:
651             msg_Dbg(p_access, "  type = MEMORY" );
652             break;
653         case FE_NET:
654             msg_Dbg(p_access, "  type = NETWORK" );
655             break;
656 #endif
657         default:
658             msg_Err( p_access, "  unknown frontend type (%d)",
659                      p_frontend->info.type );
660             return VLC_EGENERIC;
661     }
662     msg_Dbg(p_access, "  frequency_min = %u (kHz)",
663             p_frontend->info.frequency_min);
664     msg_Dbg(p_access, "  frequency_max = %u (kHz)",
665             p_frontend->info.frequency_max);
666     msg_Dbg(p_access, "  frequency_stepsize = %u",
667             p_frontend->info.frequency_stepsize);
668     msg_Dbg(p_access, "  frequency_tolerance = %u",
669             p_frontend->info.frequency_tolerance);
670     msg_Dbg(p_access, "  symbol_rate_min = %u (kHz)",
671             p_frontend->info.symbol_rate_min);
672     msg_Dbg(p_access, "  symbol_rate_max = %u (kHz)",
673             p_frontend->info.symbol_rate_max);
674     msg_Dbg(p_access, "  symbol_rate_tolerance (ppm) = %u",
675             p_frontend->info.symbol_rate_tolerance);
676     msg_Dbg(p_access, "  notifier_delay (ms) = %u",
677             p_frontend->info.notifier_delay );
678
679     msg_Dbg(p_access, "Frontend Info capability list:");
680     if( p_frontend->info.caps & FE_IS_STUPID)
681         msg_Dbg(p_access, "  no capabilities - frontend is stupid!");
682     if( p_frontend->info.caps & FE_CAN_INVERSION_AUTO)
683         msg_Dbg(p_access, "  inversion auto");
684     if( p_frontend->info.caps & FE_CAN_FEC_1_2)
685         msg_Dbg(p_access, "  forward error correction 1/2");
686     if( p_frontend->info.caps & FE_CAN_FEC_2_3)
687         msg_Dbg(p_access, "  forward error correction 2/3");
688     if( p_frontend->info.caps & FE_CAN_FEC_3_4)
689         msg_Dbg(p_access, "  forward error correction 3/4");
690     if( p_frontend->info.caps & FE_CAN_FEC_4_5)
691         msg_Dbg(p_access, "  forward error correction 4/5");
692     if( p_frontend->info.caps & FE_CAN_FEC_5_6)
693         msg_Dbg(p_access, "  forward error correction 5/6");
694     if( p_frontend->info.caps & FE_CAN_FEC_6_7)
695         msg_Dbg(p_access, "  forward error correction 6/7");
696     if( p_frontend->info.caps & FE_CAN_FEC_7_8)
697         msg_Dbg(p_access, "  forward error correction 7/8");
698     if( p_frontend->info.caps & FE_CAN_FEC_8_9)
699         msg_Dbg(p_access, "  forward error correction 8/9");
700     if( p_frontend->info.caps & FE_CAN_FEC_AUTO)
701         msg_Dbg(p_access, "  forward error correction auto");
702     if( p_frontend->info.caps & FE_CAN_QPSK)
703         msg_Dbg(p_access, "  card can do QPSK");
704     if( p_frontend->info.caps & FE_CAN_QAM_16)
705         msg_Dbg(p_access, "  card can do QAM 16");
706     if( p_frontend->info.caps & FE_CAN_QAM_32)
707         msg_Dbg(p_access, "  card can do QAM 32");
708     if( p_frontend->info.caps & FE_CAN_QAM_64)
709         msg_Dbg(p_access, "  card can do QAM 64");
710     if( p_frontend->info.caps & FE_CAN_QAM_128)
711         msg_Dbg(p_access, "  card can do QAM 128");
712     if( p_frontend->info.caps & FE_CAN_QAM_256)
713         msg_Dbg(p_access, "  card can do QAM 256");
714     if( p_frontend->info.caps & FE_CAN_QAM_AUTO)
715         msg_Dbg(p_access, "  card can do QAM auto");
716     if( p_frontend->info.caps & FE_CAN_TRANSMISSION_MODE_AUTO)
717         msg_Dbg(p_access, "  transmission mode auto");
718     if( p_frontend->info.caps & FE_CAN_BANDWIDTH_AUTO)
719         msg_Dbg(p_access, "  bandwidth mode auto");
720     if( p_frontend->info.caps & FE_CAN_GUARD_INTERVAL_AUTO)
721         msg_Dbg(p_access, "  guard interval mode auto");
722     if( p_frontend->info.caps & FE_CAN_HIERARCHY_AUTO)
723         msg_Dbg(p_access, "  hierarchy mode auto");
724     if( p_frontend->info.caps & FE_CAN_MUTE_TS)
725         msg_Dbg(p_access, "  card can mute TS");
726     if( p_frontend->info.caps & FE_CAN_RECOVER)
727         msg_Dbg(p_access, "  card can recover from a cable unplug");
728     if( p_frontend->info.caps & FE_CAN_8VSB)
729         msg_Dbg(p_access, "  card can do 8vsb");
730     if( p_frontend->info.caps & FE_CAN_16VSB)
731         msg_Dbg(p_access, "  card can do 16vsb");
732     msg_Dbg(p_access, "End of capability list");
733
734     return VLC_SUCCESS;
735 }
736
737 /*****************************************************************************
738  * Decoding the DVB parameters (common)
739  *****************************************************************************/
740 static fe_spectral_inversion_t DecodeInversion( access_t *p_access )
741 {
742     vlc_value_t         val;
743     fe_spectral_inversion_t fe_inversion = 0;
744
745     var_Get( p_access, "dvb-inversion", &val );
746     msg_Dbg( p_access, "using inversion=%d", val.i_int );
747
748     switch( val.i_int )
749     {
750         case 0: fe_inversion = INVERSION_OFF; break;
751         case 1: fe_inversion = INVERSION_ON; break;
752         case 2: fe_inversion = INVERSION_AUTO; break;
753         default:
754             msg_Dbg( p_access, "dvb has inversion not set, using auto");
755             fe_inversion = INVERSION_AUTO;
756             break;
757     }
758     return fe_inversion;
759 }
760
761 static fe_code_rate_t DecodeFEC( access_t *p_access, int i_val )
762 {
763     fe_code_rate_t      fe_fec = FEC_NONE;
764
765     msg_Dbg( p_access, "using fec=%d", i_val );
766
767     switch( i_val )
768     {
769         case 0: fe_fec = FEC_NONE; break;
770         case 1: fe_fec = FEC_1_2; break;
771         case 2: fe_fec = FEC_2_3; break;
772         case 3: fe_fec = FEC_3_4; break;
773         case 4: fe_fec = FEC_4_5; break;
774         case 5: fe_fec = FEC_5_6; break;
775         case 6: fe_fec = FEC_6_7; break;
776         case 7: fe_fec = FEC_7_8; break;
777         case 8: fe_fec = FEC_8_9; break;
778         case 9: fe_fec = FEC_AUTO; break;
779         default:
780             /* cannot happen */
781             fe_fec = FEC_NONE;
782             msg_Err( p_access, "argument has invalid FEC (%d)", i_val);
783             break;
784     }
785     return fe_fec;
786 }
787
788 static fe_modulation_t DecodeModulationQAM( access_t *p_access )
789 {
790     switch( var_GetInteger( p_access, "dvb-modulation" ) )
791     {
792         case 0:     return QAM_AUTO;
793         case 16:    return QAM_16;
794         case 32:    return QAM_32;
795         case 64:    return QAM_64;
796         case 128:   return QAM_128;
797         case 256:   return QAM_256;
798         default:
799             msg_Dbg( p_access, "QAM modulation not set, using auto");
800             return QAM_AUTO;
801     }
802 }
803 static fe_modulation_t DecodeModulationOFDM( access_t *p_access )
804 {
805     switch( var_GetInteger( p_access, "dvb-modulation" ) )
806     {
807         case -1:    return QPSK;
808         case 0:     return QAM_AUTO;
809         case 16:    return QAM_16;
810         case 32:    return QAM_32;
811         case 64:    return QAM_64;
812         case 128:   return QAM_128;
813         case 256:   return QAM_256;
814         default:
815             msg_Dbg( p_access, "OFDM modulation not set, using QAM auto");
816             return QAM_AUTO;
817     }
818 }
819 static fe_modulation_t DecodeModulationATSC( access_t *p_access )
820 {
821     switch( var_GetInteger( p_access, "dvb-modulation" ) )
822     {
823         case 0:     return QAM_AUTO;
824         case 8:     return VSB_8;
825         case 16:    return VSB_16;
826         case 32:    return QAM_32;
827         case 64:    return QAM_64;
828         case 128:   return QAM_128;
829         case 256:   return QAM_256;
830         default:
831             msg_Dbg( p_access, "ATSC modulation not set, using VSB 8");
832             return VSB_8;
833     }
834 }
835
836 /*****************************************************************************
837  * FrontendSetQPSK : controls the FE device
838  *****************************************************************************/
839 static fe_sec_voltage_t DecodeVoltage( access_t *p_access )
840 {
841     vlc_value_t         val;
842     fe_sec_voltage_t    fe_voltage;
843
844     var_Get( p_access, "dvb-voltage", &val );
845     msg_Dbg( p_access, "using voltage=%d", val.i_int );
846
847     switch( val.i_int )
848     {
849         case 0: fe_voltage = SEC_VOLTAGE_OFF; break;
850         case 13: fe_voltage = SEC_VOLTAGE_13; break;
851         case 18: fe_voltage = SEC_VOLTAGE_18; break;
852         default:
853             fe_voltage = SEC_VOLTAGE_OFF;
854             msg_Err( p_access, "argument has invalid voltage (%d)", val.i_int );
855             break;
856     }
857     return fe_voltage;
858 }
859
860 static fe_sec_tone_mode_t DecodeTone( access_t *p_access )
861 {
862     vlc_value_t         val;
863     fe_sec_tone_mode_t  fe_tone;
864
865     var_Get( p_access, "dvb-tone", &val );
866     msg_Dbg( p_access, "using tone=%d", val.i_int );
867
868     switch( val.i_int )
869     {
870         case 0: fe_tone = SEC_TONE_OFF; break;
871         case 1: fe_tone = SEC_TONE_ON; break;
872         default:
873             fe_tone = SEC_TONE_OFF;
874             msg_Err( p_access, "argument has invalid tone mode (%d)", val.i_int);
875             break;
876     }
877     return fe_tone;
878 }
879
880 struct diseqc_cmd_t
881 {
882     struct dvb_diseqc_master_cmd cmd;
883     uint32_t wait;
884 };
885
886 static int DoDiseqc( access_t *p_access )
887 {
888     access_sys_t *p_sys = p_access->p_sys;
889     vlc_value_t val;
890     int i_frequency, i_lnb_slof;
891     fe_sec_voltage_t fe_voltage;
892     fe_sec_tone_mode_t fe_tone;
893     int i_err;
894
895     var_Get( p_access, "dvb-frequency", &val );
896     i_frequency = val.i_int;
897     var_Get( p_access, "dvb-lnb-slof", &val );
898     i_lnb_slof = val.i_int;
899
900     var_Get( p_access, "dvb-tone", &val );
901     if( val.i_int == -1 /* auto */ )
902     {
903         if( i_frequency >= i_lnb_slof )
904             val.i_int = 1;
905         else
906             val.i_int = 0;
907         var_Set( p_access, "dvb-tone", val );
908     }
909
910     fe_voltage = DecodeVoltage( p_access );
911     fe_tone = DecodeTone( p_access );
912
913     /* Switch off continuous tone. */
914     if( (i_err = ioctl( p_sys->i_frontend_handle, FE_SET_TONE, SEC_TONE_OFF )) < 0 )
915     {
916         msg_Err( p_access, "ioctl FE_SET_TONE failed, tone=%s (%d) %m",
917                  fe_tone == SEC_TONE_ON ? "on" : "off", i_err );
918         return i_err;
919     }
920
921     /* Configure LNB voltage. */
922     if( (i_err = ioctl( p_sys->i_frontend_handle, FE_SET_VOLTAGE, fe_voltage )) < 0 )
923     {
924         msg_Err( p_access, "ioctl FE_SET_VOLTAGE failed, voltage=%d (%d) %m",
925                  fe_voltage, i_err );
926         return i_err;
927     }
928
929     var_Get( p_access, "dvb-high-voltage", &val );
930     if( (i_err = ioctl( p_sys->i_frontend_handle, FE_ENABLE_HIGH_LNB_VOLTAGE,
931                         val.b_bool )) < 0 && val.b_bool )
932     {
933         msg_Err( p_access,
934                  "ioctl FE_ENABLE_HIGH_LNB_VOLTAGE failed, val=%d (%d) %m",
935                  val.b_bool, i_err );
936     }
937
938     /* Wait for at least 15 ms. */
939     msleep(15000);
940
941     var_Get( p_access, "dvb-satno", &val );
942     if( val.i_int > 0 && val.i_int < 5 )
943     {
944         /* digital satellite equipment control,
945          * specification is available from http://www.eutelsat.com/
946          */
947
948         /* 1.x compatible equipment */
949         struct diseqc_cmd_t cmd =  { {{0xe0, 0x10, 0x38, 0xf0, 0x00, 0x00}, 4}, 0 };
950
951         /* param: high nibble: reset bits, low nibble set bits,
952          * bits are: option, position, polarization, band
953          */
954         cmd.cmd.msg[3] = 0xf0 /* reset bits */
955                           | (((val.i_int - 1) * 4) & 0xc)
956                           | (fe_voltage == SEC_VOLTAGE_13 ? 0 : 2)
957                           | (fe_tone == SEC_TONE_ON ? 1 : 0);
958
959         if( (i_err = ioctl( p_sys->i_frontend_handle, FE_DISEQC_SEND_MASTER_CMD,
960                            &cmd.cmd )) < 0 )
961         {
962             msg_Err( p_access, "ioctl FE_SEND_MASTER_CMD failed (%d) %m",
963                      i_err );
964             return i_err;
965         }
966
967         msleep(15000 + cmd.wait * 1000);
968
969         /* A or B simple diseqc ("diseqc-compatible") */
970         if( (i_err = ioctl( p_sys->i_frontend_handle, FE_DISEQC_SEND_BURST,
971                       ((val.i_int - 1) % 2) ? SEC_MINI_B : SEC_MINI_A )) < 0 )
972         {
973             msg_Err( p_access, "ioctl FE_SEND_BURST failed (%d) %m",
974                      i_err );
975             return i_err;
976         }
977
978         msleep(15000);
979     }
980
981     if( (i_err = ioctl( p_sys->i_frontend_handle, FE_SET_TONE, fe_tone )) < 0 )
982     {
983         msg_Err( p_access, "ioctl FE_SET_TONE failed, tone=%s (%d) %m",
984                  fe_tone == SEC_TONE_ON ? "on" : "off", i_err );
985         return i_err;
986     }
987
988     msleep(50000);
989     return 0;
990 }
991
992 static int FrontendSetQPSK( access_t *p_access )
993 {
994     access_sys_t *p_sys = p_access->p_sys;
995     struct dvb_frontend_parameters fep;
996     int i_ret;
997     vlc_value_t val;
998     int i_frequency, i_lnb_slof = 0, i_lnb_lof1, i_lnb_lof2 = 0;
999
1000     /* Prepare the fep structure */
1001     var_Get( p_access, "dvb-frequency", &val );
1002     i_frequency = val.i_int;
1003
1004     var_Get( p_access, "dvb-lnb-lof1", &val );
1005     if ( val.i_int == 0 )
1006     {
1007         /* Automatic mode. */
1008         if ( i_frequency >= 950000 && i_frequency <= 2150000 )
1009         {
1010             msg_Dbg( p_access, "frequency %d is in IF-band", i_frequency );
1011             i_lnb_lof1 = 0;
1012         }
1013         else if ( i_frequency >= 2500000 && i_frequency <= 2700000 )
1014         {
1015             msg_Dbg( p_access, "frequency %d is in S-band", i_frequency );
1016             i_lnb_lof1 = 3650000;
1017         }
1018         else if ( i_frequency >= 3400000 && i_frequency <= 4200000 )
1019         {
1020             msg_Dbg( p_access, "frequency %d is in C-band (lower)",
1021                      i_frequency );
1022             i_lnb_lof1 = 5150000;
1023         }
1024         else if ( i_frequency >= 4500000 && i_frequency <= 4800000 )
1025         {
1026             msg_Dbg( p_access, "frequency %d is in C-band (higher)",
1027                      i_frequency );
1028             i_lnb_lof1 = 5950000;
1029         }
1030         else if ( i_frequency >= 10700000 && i_frequency <= 13250000 )
1031         {
1032             msg_Dbg( p_access, "frequency %d is in Ku-band",
1033                      i_frequency );
1034             i_lnb_lof1 = 9750000;
1035             i_lnb_lof2 = 10600000;
1036             i_lnb_slof = 11700000;
1037         }
1038         else
1039         {
1040             msg_Err( p_access, "frequency %d is out of any known band",
1041                      i_frequency );
1042             msg_Err( p_access, "specify dvb-lnb-lof1 manually for the local "
1043                      "oscillator frequency" );
1044             return VLC_EGENERIC;
1045         }
1046         val.i_int = i_lnb_lof1;
1047         var_Set( p_access, "dvb-lnb-lof1", val );
1048         val.i_int = i_lnb_lof2;
1049         var_Set( p_access, "dvb-lnb-lof2", val );
1050         val.i_int = i_lnb_slof;
1051         var_Set( p_access, "dvb-lnb-slof", val );
1052     }
1053     else
1054     {
1055         i_lnb_lof1 = val.i_int;
1056         var_Get( p_access, "dvb-lnb-lof2", &val );
1057         i_lnb_lof2 = val.i_int;
1058         var_Get( p_access, "dvb-lnb-slof", &val );
1059         i_lnb_slof = val.i_int;
1060     }
1061
1062     if( i_lnb_slof && i_frequency >= i_lnb_slof )
1063     {
1064         i_frequency -= i_lnb_lof2;
1065     }
1066     else
1067     {
1068         i_frequency -= i_lnb_lof1;
1069     }
1070     fep.frequency = i_frequency >= 0 ? i_frequency : -i_frequency;
1071
1072     fep.inversion = DecodeInversion( p_access );
1073
1074     var_Get( p_access, "dvb-srate", &val );
1075     fep.u.qpsk.symbol_rate = val.i_int;
1076
1077     var_Get( p_access, "dvb-fec", &val );
1078     fep.u.qpsk.fec_inner = DecodeFEC( p_access, val.i_int );
1079
1080     if( DoDiseqc( p_access ) < 0 )
1081     {
1082         return VLC_EGENERIC;
1083     }
1084
1085     /* Empty the event queue */
1086     for( ; ; )
1087     {
1088         struct dvb_frontend_event event;
1089         if ( ioctl( p_sys->i_frontend_handle, FE_GET_EVENT, &event ) < 0
1090               && errno == EWOULDBLOCK )
1091             break;
1092     }
1093
1094     /* Now send it all to the frontend device */
1095     if( (i_ret = ioctl( p_sys->i_frontend_handle, FE_SET_FRONTEND, &fep )) < 0 )
1096     {
1097         msg_Err( p_access, "DVB-S: setting frontend failed (%d) %m", i_ret );
1098         return VLC_EGENERIC;
1099     }
1100
1101     return VLC_SUCCESS;
1102 }
1103
1104 /*****************************************************************************
1105  * FrontendSetQAM : controls the FE device
1106  *****************************************************************************/
1107 static int FrontendSetQAM( access_t *p_access )
1108 {
1109     access_sys_t *p_sys = p_access->p_sys;
1110     frontend_t *p_frontend = p_sys->p_frontend;
1111     struct dvb_frontend_parameters fep;
1112     vlc_value_t val;
1113     int i_ret;
1114
1115     /* Prepare the fep structure */
1116
1117     var_Get( p_access, "dvb-frequency", &val );
1118     fep.frequency = val.i_int;
1119
1120     fep.inversion = DecodeInversion( p_access );
1121
1122     /* Default symbol-rate is for dvb-s, and doesn't fit
1123      * for dvb-c, so if it's over the limit of frontend, default to
1124      * somewhat common value
1125      */
1126     var_Get( p_access, "dvb-srate", &val );
1127     if( val.i_int < p_frontend->info.symbol_rate_max &&
1128         val.i_int > p_frontend->info.symbol_rate_min )
1129         fep.u.qam.symbol_rate = val.i_int;
1130     else
1131         fep.u.qam.symbol_rate = 6875000;
1132
1133     var_Get( p_access, "dvb-fec", &val );
1134     fep.u.qam.fec_inner = DecodeFEC( p_access, val.i_int );
1135
1136     fep.u.qam.modulation = DecodeModulationQAM( p_access );
1137
1138     /* Empty the event queue */
1139     for( ; ; )
1140     {
1141         struct dvb_frontend_event event;
1142         if ( ioctl( p_sys->i_frontend_handle, FE_GET_EVENT, &event ) < 0
1143               && errno == EWOULDBLOCK )
1144             break;
1145     }
1146
1147     /* Now send it all to the frontend device */
1148     if( (i_ret = ioctl( p_sys->i_frontend_handle, FE_SET_FRONTEND, &fep )) < 0 )
1149     {
1150         msg_Err( p_access, "DVB-C: setting frontend failed (%d): %m", i_ret );
1151         return VLC_EGENERIC;
1152     }
1153
1154     return VLC_SUCCESS;
1155 }
1156
1157 /*****************************************************************************
1158  * FrontendSetOFDM : controls the FE device
1159  *****************************************************************************/
1160 static fe_bandwidth_t DecodeBandwidth( access_t *p_access )
1161 {
1162     vlc_value_t         val;
1163     fe_bandwidth_t      fe_bandwidth = 0;
1164
1165     var_Get( p_access, "dvb-bandwidth", &val );
1166     msg_Dbg( p_access, "using bandwidth=%d", val.i_int );
1167
1168     switch( val.i_int )
1169     {
1170         case 0: fe_bandwidth = BANDWIDTH_AUTO; break;
1171         case 6: fe_bandwidth = BANDWIDTH_6_MHZ; break;
1172         case 7: fe_bandwidth = BANDWIDTH_7_MHZ; break;
1173         case 8: fe_bandwidth = BANDWIDTH_8_MHZ; break;
1174         default:
1175             msg_Dbg( p_access, "terrestrial dvb has bandwidth not set, using auto" );
1176             fe_bandwidth = BANDWIDTH_AUTO;
1177             break;
1178     }
1179     return fe_bandwidth;
1180 }
1181
1182 static fe_transmit_mode_t DecodeTransmission( access_t *p_access )
1183 {
1184     vlc_value_t         val;
1185     fe_transmit_mode_t  fe_transmission = 0;
1186
1187     var_Get( p_access, "dvb-transmission", &val );
1188     msg_Dbg( p_access, "using transmission=%d", val.i_int );
1189
1190     switch( val.i_int )
1191     {
1192         case 0: fe_transmission = TRANSMISSION_MODE_AUTO; break;
1193         case 2: fe_transmission = TRANSMISSION_MODE_2K; break;
1194         case 8: fe_transmission = TRANSMISSION_MODE_8K; break;
1195         default:
1196             msg_Dbg( p_access, "terrestrial dvb has transmission mode not set, using auto");
1197             fe_transmission = TRANSMISSION_MODE_AUTO;
1198             break;
1199     }
1200     return fe_transmission;
1201 }
1202
1203 static fe_guard_interval_t DecodeGuardInterval( access_t *p_access )
1204 {
1205     vlc_value_t         val;
1206     fe_guard_interval_t fe_guard = 0;
1207
1208     var_Get( p_access, "dvb-guard", &val );
1209     msg_Dbg( p_access, "using guard=%d", val.i_int );
1210
1211     switch( val.i_int )
1212     {
1213         case 0: fe_guard = GUARD_INTERVAL_AUTO; break;
1214         case 4: fe_guard = GUARD_INTERVAL_1_4; break;
1215         case 8: fe_guard = GUARD_INTERVAL_1_8; break;
1216         case 16: fe_guard = GUARD_INTERVAL_1_16; break;
1217         case 32: fe_guard = GUARD_INTERVAL_1_32; break;
1218         default:
1219             msg_Dbg( p_access, "terrestrial dvb has guard interval not set, using auto");
1220             fe_guard = GUARD_INTERVAL_AUTO;
1221             break;
1222     }
1223     return fe_guard;
1224 }
1225
1226 static fe_hierarchy_t DecodeHierarchy( access_t *p_access )
1227 {
1228     vlc_value_t         val;
1229     fe_hierarchy_t      fe_hierarchy = 0;
1230
1231     var_Get( p_access, "dvb-hierarchy", &val );
1232     msg_Dbg( p_access, "using hierarchy=%d", val.i_int );
1233
1234     switch( val.i_int )
1235     {
1236         case -1: fe_hierarchy = HIERARCHY_NONE; break;
1237         case 0: fe_hierarchy = HIERARCHY_AUTO; break;
1238         case 1: fe_hierarchy = HIERARCHY_1; break;
1239         case 2: fe_hierarchy = HIERARCHY_2; break;
1240         case 4: fe_hierarchy = HIERARCHY_4; break;
1241         default:
1242             msg_Dbg( p_access, "terrestrial dvb has hierarchy not set, using auto");
1243             fe_hierarchy = HIERARCHY_AUTO;
1244             break;
1245     }
1246     return fe_hierarchy;
1247 }
1248
1249 static int FrontendSetOFDM( access_t * p_access )
1250 {
1251     access_sys_t *p_sys = p_access->p_sys;
1252     struct dvb_frontend_parameters fep;
1253     vlc_value_t val;
1254     int ret;
1255
1256     /* Prepare the fep structure */
1257
1258     var_Get( p_access, "dvb-frequency", &val );
1259     fep.frequency = val.i_int;
1260
1261     fep.inversion = DecodeInversion( p_access );
1262
1263     fep.u.ofdm.bandwidth = DecodeBandwidth( p_access );
1264     var_Get( p_access, "dvb-code-rate-hp", &val );
1265     fep.u.ofdm.code_rate_HP = DecodeFEC( p_access, val.i_int );
1266     var_Get( p_access, "dvb-code-rate-lp", &val );
1267     fep.u.ofdm.code_rate_LP = DecodeFEC( p_access, val.i_int );
1268     fep.u.ofdm.constellation = DecodeModulationOFDM( p_access );
1269     fep.u.ofdm.transmission_mode = DecodeTransmission( p_access );
1270     fep.u.ofdm.guard_interval = DecodeGuardInterval( p_access );
1271     fep.u.ofdm.hierarchy_information = DecodeHierarchy( p_access );
1272
1273     /* Empty the event queue */
1274     for( ; ; )
1275     {
1276         struct dvb_frontend_event event;
1277         if ( ioctl( p_sys->i_frontend_handle, FE_GET_EVENT, &event ) < 0
1278               && errno == EWOULDBLOCK )
1279             break;
1280     }
1281
1282     /* Now send it all to the frontend device */
1283     if( (ret = ioctl( p_sys->i_frontend_handle, FE_SET_FRONTEND, &fep )) < 0 )
1284     {
1285         msg_Err( p_access, "DVB-T: setting frontend failed (%d): %m", ret );
1286         return -1;
1287     }
1288
1289     return VLC_SUCCESS;
1290 }
1291
1292 /*****************************************************************************
1293  * FrontendSetATSC : controls the FE device
1294  *****************************************************************************/
1295 static int FrontendSetATSC( access_t *p_access )
1296 {
1297     access_sys_t *p_sys = p_access->p_sys;
1298     struct dvb_frontend_parameters fep;
1299     vlc_value_t val;
1300     int i_ret;
1301
1302     /* Prepare the fep structure */
1303
1304     var_Get( p_access, "dvb-frequency", &val );
1305     fep.frequency = val.i_int;
1306
1307     fep.u.vsb.modulation = DecodeModulationATSC( p_access );
1308
1309     /* Empty the event queue */
1310     for( ; ; )
1311     {
1312         struct dvb_frontend_event event;
1313         if ( ioctl( p_sys->i_frontend_handle, FE_GET_EVENT, &event ) < 0
1314               && errno == EWOULDBLOCK )
1315             break;
1316     }
1317
1318     /* Now send it all to the frontend device */
1319     if( (i_ret = ioctl( p_sys->i_frontend_handle, FE_SET_FRONTEND, &fep )) < 0 )
1320     {
1321         msg_Err( p_access, "ATSC: setting frontend failed (%d): %m", i_ret );
1322         return VLC_EGENERIC;
1323     }
1324
1325     return VLC_SUCCESS;
1326 }
1327
1328
1329 /*
1330  * Demux
1331  */
1332
1333 /*****************************************************************************
1334  * DMXSetFilter : controls the demux to add a filter
1335  *****************************************************************************/
1336 int DMXSetFilter( access_t * p_access, int i_pid, int * pi_fd, int i_type )
1337 {
1338     struct dmx_pes_filter_params s_filter_params;
1339     int i_ret;
1340     unsigned int i_adapter, i_device;
1341     char dmx[128];
1342     vlc_value_t val;
1343
1344     var_Get( p_access, "dvb-adapter", &val );
1345     i_adapter = val.i_int;
1346     var_Get( p_access, "dvb-device", &val );
1347     i_device = val.i_int;
1348
1349     if( snprintf( dmx, sizeof(dmx), DMX, i_adapter, i_device )
1350             >= (int)sizeof(dmx) )
1351     {
1352         msg_Err( p_access, "snprintf() truncated string for DMX" );
1353         dmx[sizeof(dmx) - 1] = '\0';
1354     }
1355
1356     msg_Dbg( p_access, "Opening device %s", dmx );
1357     if( (*pi_fd = open(dmx, O_RDWR)) < 0 )
1358     {
1359         msg_Err( p_access, "DMXSetFilter: opening device failed (%m)" );
1360         return VLC_EGENERIC;
1361     }
1362
1363     /* We fill the DEMUX structure : */
1364     s_filter_params.pid     =   i_pid;
1365     s_filter_params.input   =   DMX_IN_FRONTEND;
1366     s_filter_params.output  =   DMX_OUT_TS_TAP;
1367     s_filter_params.flags   =   DMX_IMMEDIATE_START;
1368
1369     switch ( i_type )
1370     {   /* First device */
1371         case 1:
1372             msg_Dbg(p_access, "DMXSetFilter: DMX_PES_VIDEO0 for PID %d", i_pid);
1373             s_filter_params.pes_type = DMX_PES_VIDEO0;
1374             break;
1375         case 2:
1376             msg_Dbg(p_access, "DMXSetFilter: DMX_PES_AUDIO0 for PID %d", i_pid);
1377             s_filter_params.pes_type = DMX_PES_AUDIO0;
1378             break;
1379         case 3:
1380             msg_Dbg(p_access, "DMXSetFilter: DMX_PES_TELETEXT0 for PID %d", i_pid);
1381             s_filter_params.pes_type = DMX_PES_TELETEXT0;
1382             break;
1383         case 4:
1384             msg_Dbg(p_access, "DMXSetFilter: DMX_PES_SUBTITLE0 for PID %d", i_pid);
1385             s_filter_params.pes_type = DMX_PES_SUBTITLE0;
1386             break;
1387         case 5:
1388             msg_Dbg(p_access, "DMXSetFilter: DMX_PES_PCR0 for PID %d", i_pid);
1389             s_filter_params.pes_type = DMX_PES_PCR0;
1390             break;
1391         /* Second device */
1392         case 6:
1393             msg_Dbg(p_access, "DMXSetFilter: DMX_PES_VIDEO1 for PID %d", i_pid);
1394             s_filter_params.pes_type = DMX_PES_VIDEO1;
1395             break;
1396         case 7:
1397             msg_Dbg(p_access, "DMXSetFilter: DMX_PES_AUDIO1 for PID %d", i_pid);
1398             s_filter_params.pes_type = DMX_PES_AUDIO1;
1399             break;
1400         case 8:
1401             msg_Dbg(p_access, "DMXSetFilter: DMX_PES_TELETEXT1 for PID %d", i_pid);
1402             s_filter_params.pes_type = DMX_PES_TELETEXT1;
1403             break;
1404         case 9:
1405             msg_Dbg(p_access, "DMXSetFilter: DMX_PES_SUBTITLE1 for PID %d", i_pid);
1406             s_filter_params.pes_type = DMX_PES_SUBTITLE1;
1407             break;
1408         case 10:
1409             msg_Dbg(p_access, "DMXSetFilter: DMX_PES_PCR1 for PID %d", i_pid);
1410             s_filter_params.pes_type = DMX_PES_PCR1;
1411             break;
1412         /* Third device */
1413         case 11:
1414             msg_Dbg(p_access, "DMXSetFilter: DMX_PES_VIDEO2 for PID %d", i_pid);
1415             s_filter_params.pes_type = DMX_PES_VIDEO2;
1416             break;
1417         case 12:
1418             msg_Dbg(p_access, "DMXSetFilter: DMX_PES_AUDIO2 for PID %d", i_pid);
1419             s_filter_params.pes_type = DMX_PES_AUDIO2;
1420             break;
1421         case 13:
1422             msg_Dbg(p_access, "DMXSetFilter: DMX_PES_TELETEXT2 for PID %d", i_pid);
1423             s_filter_params.pes_type = DMX_PES_TELETEXT2;
1424             break;
1425         case 14:
1426             msg_Dbg(p_access, "DMXSetFilter: DMX_PES_SUBTITLE2 for PID %d", i_pid);
1427             s_filter_params.pes_type = DMX_PES_SUBTITLE2;
1428             break;
1429         case 15:
1430             msg_Dbg(p_access, "DMXSetFilter: DMX_PES_PCR2 for PID %d", i_pid);
1431             s_filter_params.pes_type = DMX_PES_PCR2;
1432             break;
1433         /* Forth device */
1434         case 16:
1435             msg_Dbg(p_access, "DMXSetFilter: DMX_PES_VIDEO3 for PID %d", i_pid);
1436             s_filter_params.pes_type = DMX_PES_VIDEO3;
1437             break;
1438         case 17:
1439             msg_Dbg(p_access, "DMXSetFilter: DMX_PES_AUDIO3 for PID %d", i_pid);
1440             s_filter_params.pes_type = DMX_PES_AUDIO3;
1441             break;
1442         case 18:
1443             msg_Dbg(p_access, "DMXSetFilter: DMX_PES_TELETEXT3 for PID %d", i_pid);
1444             s_filter_params.pes_type = DMX_PES_TELETEXT3;
1445             break;
1446         case 19:
1447             msg_Dbg(p_access, "DMXSetFilter: DMX_PES_SUBTITLE3 for PID %d", i_pid);
1448             s_filter_params.pes_type = DMX_PES_SUBTITLE3;
1449             break;
1450         case 20:
1451             msg_Dbg(p_access, "DMXSetFilter: DMX_PES_PCR3 for PID %d", i_pid);
1452             s_filter_params.pes_type = DMX_PES_PCR3;
1453             break;
1454         /* Usually used by Nova cards */
1455         case 21:
1456         default:
1457             msg_Dbg(p_access, "DMXSetFilter: DMX_PES_OTHER for PID %d", i_pid);
1458             s_filter_params.pes_type = DMX_PES_OTHER;
1459             break;
1460     }
1461
1462     /* We then give the order to the device : */
1463     if( (i_ret = ioctl( *pi_fd, DMX_SET_PES_FILTER, &s_filter_params )) < 0 )
1464     {
1465         msg_Err( p_access, "DMXSetFilter: failed with %d (%m)", i_ret );
1466         return VLC_EGENERIC;
1467     }
1468     return VLC_SUCCESS;
1469 }
1470
1471 /*****************************************************************************
1472  * DMXUnsetFilter : removes a filter
1473  *****************************************************************************/
1474 int DMXUnsetFilter( access_t * p_access, int i_fd )
1475 {
1476     int i_ret;
1477
1478     if( (i_ret = ioctl( i_fd, DMX_STOP )) < 0 )
1479     {
1480         msg_Err( p_access, "DMX_STOP failed for demux (%d): %m", i_ret );
1481         return i_ret;
1482     }
1483
1484     msg_Dbg( p_access, "DMXUnsetFilter: closing demux %d", i_fd );
1485     close( i_fd );
1486     return VLC_SUCCESS;
1487 }
1488
1489
1490 /*
1491  * DVR device
1492  */
1493
1494 /*****************************************************************************
1495  * DVROpen :
1496  *****************************************************************************/
1497 int DVROpen( access_t * p_access )
1498 {
1499     access_sys_t *p_sys = p_access->p_sys;
1500     unsigned int i_adapter, i_device;
1501     char dvr[128];
1502     vlc_value_t val;
1503
1504     var_Get( p_access, "dvb-adapter", &val );
1505     i_adapter = val.i_int;
1506     var_Get( p_access, "dvb-device", &val );
1507     i_device = val.i_int;
1508
1509     if( snprintf( dvr, sizeof(dvr), DVR, i_adapter, i_device )
1510             >= (int)sizeof(dvr) )
1511     {
1512         msg_Err( p_access, "snprintf() truncated string for DVR" );
1513         dvr[sizeof(dvr) - 1] = '\0';
1514     }
1515
1516     msg_Dbg( p_access, "Opening device %s", dvr );
1517     if( (p_sys->i_handle = open(dvr, O_RDONLY)) < 0 )
1518     {
1519         msg_Err( p_access, "DVROpen: opening device failed (%m)" );
1520         return VLC_EGENERIC;
1521     }
1522
1523     if( fcntl( p_sys->i_handle, F_SETFL, O_NONBLOCK ) == -1 )
1524     {
1525         msg_Warn( p_access, "DVROpen: couldn't set non-blocking mode (%m)" );
1526     }
1527
1528     return VLC_SUCCESS;
1529 }
1530
1531 /*****************************************************************************
1532  * DVRClose :
1533  *****************************************************************************/
1534 void DVRClose( access_t * p_access )
1535 {
1536     access_sys_t *p_sys = p_access->p_sys;
1537
1538     close( p_sys->i_handle );
1539 }
1540
1541
1542 /*
1543  * CAM device
1544  */
1545
1546 /*****************************************************************************
1547  * CAMOpen :
1548  *****************************************************************************/
1549 int CAMOpen( access_t *p_access )
1550 {
1551     access_sys_t *p_sys = p_access->p_sys;
1552     char ca[128];
1553     int i_adapter, i_device;
1554     ca_caps_t caps;
1555
1556     i_adapter = var_GetInteger( p_access, "dvb-adapter" );
1557     i_device = var_GetInteger( p_access, "dvb-device" );
1558
1559     if( snprintf( ca, sizeof(ca), CA, i_adapter, i_device ) >= (int)sizeof(ca) )
1560     {
1561         msg_Err( p_access, "snprintf() truncated string for CA" );
1562         ca[sizeof(ca) - 1] = '\0';
1563     }
1564     memset( &caps, 0, sizeof( ca_caps_t ));
1565
1566     msg_Dbg( p_access, "Opening device %s", ca );
1567     if( (p_sys->i_ca_handle = open(ca, O_RDWR | O_NONBLOCK)) < 0 )
1568     {
1569         msg_Warn( p_access, "CAMInit: opening CAM device failed (%m)" );
1570         p_sys->i_ca_handle = 0;
1571         return VLC_EGENERIC;
1572     }
1573
1574     if ( ioctl( p_sys->i_ca_handle, CA_GET_CAP, &caps ) != 0 )
1575     {
1576         msg_Err( p_access, "CAMInit: ioctl() error getting CAM capabilities" );
1577         close( p_sys->i_ca_handle );
1578         p_sys->i_ca_handle = 0;
1579         return VLC_EGENERIC;
1580     }
1581
1582     /* Output CA capabilities */
1583     msg_Dbg( p_access, "CAMInit: CA interface with %d %s", caps.slot_num,
1584         caps.slot_num == 1 ? "slot" : "slots" );
1585     if ( caps.slot_type & CA_CI )
1586         msg_Dbg( p_access, "CAMInit: CI high level interface type" );
1587     if ( caps.slot_type & CA_CI_LINK )
1588         msg_Dbg( p_access, "CAMInit: CI link layer level interface type" );
1589     if ( caps.slot_type & CA_CI_PHYS )
1590         msg_Dbg( p_access, "CAMInit: CI physical layer level interface type (not supported) " );
1591     if ( caps.slot_type & CA_DESCR )
1592         msg_Dbg( p_access, "CAMInit: built-in descrambler detected" );
1593     if ( caps.slot_type & CA_SC )
1594         msg_Dbg( p_access, "CAMInit: simple smart card interface" );
1595
1596     msg_Dbg( p_access, "CAMInit: %d available %s", caps.descr_num,
1597         caps.descr_num == 1 ? "descrambler (key)" : "descramblers (keys)" );
1598     if ( caps.descr_type & CA_ECD )
1599         msg_Dbg( p_access, "CAMInit: ECD scrambling system supported" );
1600     if ( caps.descr_type & CA_NDS )
1601         msg_Dbg( p_access, "CAMInit: NDS scrambling system supported" );
1602     if ( caps.descr_type & CA_DSS )
1603         msg_Dbg( p_access, "CAMInit: DSS scrambling system supported" );
1604  
1605     if ( caps.slot_num == 0 )
1606     {
1607         msg_Err( p_access, "CAMInit: CAM module with no slots" );
1608         close( p_sys->i_ca_handle );
1609         p_sys->i_ca_handle = 0;
1610         return VLC_EGENERIC;
1611     }
1612
1613     if( caps.slot_type & CA_CI_LINK )
1614     {
1615         p_sys->i_ca_type = CA_CI_LINK;
1616     }
1617     else if( caps.slot_type & CA_CI )
1618     {
1619         p_sys->i_ca_type = CA_CI;
1620     }
1621     else
1622     {
1623         p_sys->i_ca_type = -1;
1624         msg_Err( p_access, "CAMInit: incompatible CAM interface" );
1625         close( p_sys->i_ca_handle );
1626         p_sys->i_ca_handle = 0;
1627         return VLC_EGENERIC;
1628     }
1629
1630     p_sys->i_nb_slots = caps.slot_num;
1631     memset( p_sys->pb_active_slot, 0, sizeof(bool) * MAX_CI_SLOTS );
1632     memset( p_sys->pb_slot_mmi_expected, 0, sizeof(bool) * MAX_CI_SLOTS );
1633     memset( p_sys->pb_slot_mmi_undisplayed, 0,
1634             sizeof(bool) * MAX_CI_SLOTS );
1635
1636     return en50221_Init( p_access );
1637 }
1638
1639 /*****************************************************************************
1640  * CAMPoll :
1641  *****************************************************************************/
1642 int CAMPoll( access_t * p_access )
1643 {
1644     access_sys_t *p_sys = p_access->p_sys;
1645     int i_ret = VLC_EGENERIC;
1646
1647     if ( p_sys->i_ca_handle == 0 )
1648     {
1649         return VLC_EGENERIC;
1650     }
1651
1652     switch( p_sys->i_ca_type )
1653     {
1654     case CA_CI_LINK:
1655         i_ret = en50221_Poll( p_access );
1656         break;
1657     case CA_CI:
1658         i_ret = VLC_SUCCESS;
1659         break;
1660     default:
1661         msg_Err( p_access, "CAMPoll: This should not happen" );
1662         break;
1663     }
1664
1665     return i_ret;
1666 }
1667
1668 #ifdef ENABLE_HTTPD
1669 /*****************************************************************************
1670  * CAMStatus :
1671  *****************************************************************************/
1672 void CAMStatus( access_t * p_access )
1673 {
1674     access_sys_t *p_sys = p_access->p_sys;
1675     char *p;
1676     ca_caps_t caps;
1677     int i_slot, i;
1678
1679     if ( p_sys->psz_request != NULL && *p_sys->psz_request )
1680     {
1681         /* Check if we have an undisplayed MMI message : in that case we ignore
1682          * the user input to avoid confusing the CAM. */
1683         for ( i_slot = 0; i_slot < p_sys->i_nb_slots; i_slot++ )
1684         {
1685             if ( p_sys->pb_slot_mmi_undisplayed[i_slot] == true )
1686             {
1687                 p_sys->psz_request = NULL;
1688                 msg_Dbg( p_access,
1689                          "ignoring user request because of a new MMI object" );
1690                 break;
1691             }
1692         }
1693     }
1694
1695     if ( p_sys->psz_request != NULL && *p_sys->psz_request )
1696     {
1697         /* We have a mission to accomplish. */
1698         en50221_mmi_object_t mmi_object;
1699         char *psz_request = p_sys->psz_request;
1700         char psz_value[255];
1701         int i_slot;
1702         bool b_ok = false;
1703
1704         p_sys->psz_request = NULL;
1705
1706         if ( HTTPExtractValue( psz_request, "slot", psz_value,
1707                                    sizeof(psz_value) ) == NULL )
1708         {
1709             p_sys->psz_mmi_info = strdup( "invalid request parameter\n" );
1710             goto out;
1711         }
1712         i_slot = atoi(psz_value);
1713
1714         if ( HTTPExtractValue( psz_request, "open", psz_value,
1715                                    sizeof(psz_value) ) != NULL )
1716         {
1717             en50221_OpenMMI( p_access, i_slot );
1718             return;
1719         }
1720
1721         if ( HTTPExtractValue( psz_request, "close", psz_value,
1722                                    sizeof(psz_value) ) != NULL )
1723         {
1724             en50221_CloseMMI( p_access, i_slot );
1725             return;
1726         }
1727
1728         if ( HTTPExtractValue( psz_request, "cancel", psz_value,
1729                                    sizeof(psz_value) ) == NULL )
1730         {
1731             b_ok = true;
1732         }
1733
1734         if ( HTTPExtractValue( psz_request, "type", psz_value,
1735                                    sizeof(psz_value) ) == NULL )
1736         {
1737             p_sys->psz_mmi_info = strdup( "invalid request parameter\n" );
1738             goto out;
1739         }
1740
1741         if ( !strcmp( psz_value, "enq" ) )
1742         {
1743             mmi_object.i_object_type = EN50221_MMI_ANSW;
1744             mmi_object.u.answ.b_ok = b_ok;
1745             if ( b_ok == false )
1746             {
1747                 mmi_object.u.answ.psz_answ = strdup("");
1748             }
1749             else
1750             {
1751                 if ( HTTPExtractValue( psz_request, "answ", psz_value,
1752                                            sizeof(psz_value) ) == NULL )
1753                 {
1754                     p_sys->psz_mmi_info = strdup( "invalid request parameter\n" );
1755                     goto out;
1756                 }
1757
1758                 mmi_object.u.answ.psz_answ = strdup(psz_value);
1759             }
1760         }
1761         else
1762         {
1763             mmi_object.i_object_type = EN50221_MMI_MENU_ANSW;
1764             if ( b_ok == false )
1765             {
1766                 mmi_object.u.menu_answ.i_choice = 0;
1767             }
1768             else
1769             {
1770                 if ( HTTPExtractValue( psz_request, "choice", psz_value,
1771                                            sizeof(psz_value) ) == NULL )
1772                     mmi_object.u.menu_answ.i_choice = 0;
1773                 else
1774                     mmi_object.u.menu_answ.i_choice = atoi(psz_value);
1775             }
1776         }
1777
1778         en50221_SendMMIObject( p_access, i_slot, &mmi_object );
1779         return;
1780     }
1781
1782     /* Check that we have all necessary MMI information. */
1783     for ( i_slot = 0; i_slot < p_sys->i_nb_slots; i_slot++ )
1784     {
1785         if ( p_sys->pb_slot_mmi_expected[i_slot] == true )
1786             return;
1787     }
1788
1789     p = p_sys->psz_mmi_info = malloc( 10000 );
1790
1791     if ( ioctl( p_sys->i_ca_handle, CA_GET_CAP, &caps ) != 0 )
1792     {
1793         char buf[1000];
1794         strerror_r( errno, buf, sizeof( buf ) );
1795         p += sprintf( p, "ioctl CA_GET_CAP failed (%s)\n", buf );
1796         goto out;
1797     }
1798
1799     /* Output CA capabilities */
1800     p += sprintf( p, "CA interface with %d %s, type:\n<table>", caps.slot_num,
1801                   caps.slot_num == 1 ? "slot" : "slots" );
1802 #define CHECK_CAPS( x, s )                                                  \
1803     if ( caps.slot_type & (CA_##x) )                                        \
1804         p += sprintf( p, "<tr><td>" s "</td></tr>\n" );
1805
1806     CHECK_CAPS( CI, "CI high level interface" );
1807     CHECK_CAPS( CI_LINK, "CI link layer level interface" );
1808     CHECK_CAPS( CI_PHYS, "CI physical layer level interface (not supported)" );
1809     CHECK_CAPS( DESCR, "built-in descrambler" );
1810     CHECK_CAPS( SC, "simple smartcard interface" );
1811 #undef CHECK_CAPS
1812
1813     p += sprintf( p, "</table>%d available %s\n<table>", caps.descr_num,
1814         caps.descr_num == 1 ? "descrambler (key)" : "descramblers (keys)" );
1815 #define CHECK_DESC( x )                                                     \
1816     if ( caps.descr_type & (CA_##x) )                                       \
1817         p += sprintf( p, "<tr><td>" STRINGIFY(x) "</td></tr>\n" );
1818
1819     CHECK_DESC( ECD );
1820     CHECK_DESC( NDS );
1821     CHECK_DESC( DSS );
1822 #undef CHECK_DESC
1823
1824     p += sprintf( p, "</table>" );
1825
1826     for ( i_slot = 0; i_slot < p_sys->i_nb_slots; i_slot++ )
1827     {
1828         ca_slot_info_t sinfo;
1829
1830         p_sys->pb_slot_mmi_undisplayed[i_slot] = false;
1831         p += sprintf( p, "<p>CA slot #%d: ", i_slot );
1832
1833         sinfo.num = i_slot;
1834         if ( ioctl( p_sys->i_ca_handle, CA_GET_SLOT_INFO, &sinfo ) != 0 )
1835         {
1836             char buf[1000];
1837             strerror_r( errno, buf, sizeof( buf ) );
1838             p += sprintf( p, "ioctl CA_GET_SLOT_INFO failed (%s)<br>\n", buf );
1839             continue;
1840         }
1841
1842 #define CHECK_TYPE( x, s )                                                  \
1843         if ( sinfo.type & (CA_##x) )                                        \
1844             p += sprintf( p, "%s", s );
1845
1846         CHECK_TYPE( CI, "high level, " );
1847         CHECK_TYPE( CI_LINK, "link layer level, " );
1848         CHECK_TYPE( CI_PHYS, "physical layer level, " );
1849 #undef CHECK_TYPE
1850
1851         if ( sinfo.flags & CA_CI_MODULE_READY )
1852         {
1853             en50221_mmi_object_t *p_object = en50221_GetMMIObject( p_access,
1854                                                                        i_slot );
1855
1856             p += sprintf( p, "module present and ready<p>\n" );
1857             p += sprintf( p, "<form action=index.html method=get>\n" );
1858             p += sprintf( p, "<input type=hidden name=slot value=\"%d\">\n",
1859                           i_slot );
1860
1861             if ( p_object == NULL )
1862             {
1863                 p += sprintf( p, "<input type=submit name=open value=\"Open session\">\n" );
1864             }
1865             else
1866             {
1867                 switch ( p_object->i_object_type )
1868                 {
1869                 case EN50221_MMI_ENQ:
1870                     p += sprintf( p, "<input type=hidden name=type value=enq>\n" );
1871                     p += sprintf( p, "<table border=1><tr><th>%s</th></tr>\n",
1872                                   p_object->u.enq.psz_text );
1873                     if ( p_object->u.enq.b_blind == false )
1874                         p += sprintf( p, "<tr><td><input type=text name=answ></td></tr>\n" );
1875                     else
1876                         p += sprintf( p, "<tr><td><input type=password name=answ></td></tr>\n" );
1877                     break;
1878
1879                 case EN50221_MMI_MENU:
1880                     p += sprintf( p, "<input type=hidden name=type value=menu>\n" );
1881                     p += sprintf( p, "<table border=1><tr><th>%s</th></tr>\n",
1882                                   p_object->u.menu.psz_title );
1883                     p += sprintf( p, "<tr><td>%s</td></tr><tr><td>\n",
1884                                   p_object->u.menu.psz_subtitle );
1885                     for ( i = 0; i < p_object->u.menu.i_choices; i++ )
1886                         p += sprintf( p, "<input type=radio name=choice value=\"%d\">%s<br>\n", i + 1, p_object->u.menu.ppsz_choices[i] );
1887                     p += sprintf( p, "</td></tr><tr><td>%s</td></tr>\n",
1888                                   p_object->u.menu.psz_bottom );
1889                     break;
1890
1891                 case EN50221_MMI_LIST:
1892                     p += sprintf( p, "<input type=hidden name=type value=menu>\n" );
1893                     p += sprintf( p, "<input type=hidden name=choice value=0>\n" );
1894                     p += sprintf( p, "<table border=1><tr><th>%s</th></tr>\n",
1895                                   p_object->u.menu.psz_title );
1896                     p += sprintf( p, "<tr><td>%s</td></tr><tr><td>\n",
1897                                   p_object->u.menu.psz_subtitle );
1898                     for ( i = 0; i < p_object->u.menu.i_choices; i++ )
1899                         p += sprintf( p, "%s<br>\n",
1900                                       p_object->u.menu.ppsz_choices[i] );
1901                     p += sprintf( p, "</td></tr><tr><td>%s</td></tr>\n",
1902                                   p_object->u.menu.psz_bottom );
1903                     break;
1904
1905                 default:
1906                     p += sprintf( p, "<table><tr><th>Unknown MMI object type</th></tr>\n" );
1907                 }
1908
1909                 p += sprintf( p, "</table><p><input type=submit name=ok value=\"OK\">\n" );
1910                 p += sprintf( p, "<input type=submit name=cancel value=\"Cancel\">\n" );
1911                 p += sprintf( p, "<input type=submit name=close value=\"Close Session\">\n" );
1912             }
1913             p += sprintf( p, "</form>\n" );
1914         }
1915         else if ( sinfo.flags & CA_CI_MODULE_PRESENT )
1916             p += sprintf( p, "module present, not ready<br>\n" );
1917         else
1918             p += sprintf( p, "module not present<br>\n" );
1919     }
1920
1921 out:
1922     vlc_mutex_lock( &p_sys->httpd_mutex );
1923     p_sys->b_request_mmi_info = false;
1924     vlc_cond_signal( &p_sys->httpd_cond );
1925     vlc_mutex_unlock( &p_sys->httpd_mutex );
1926 }
1927 #endif
1928
1929 /*****************************************************************************
1930  * CAMSet :
1931  *****************************************************************************/
1932 int CAMSet( access_t * p_access, dvbpsi_pmt_t *p_pmt )
1933 {
1934     access_sys_t *p_sys = p_access->p_sys;
1935
1936     if( p_sys->i_ca_handle == 0 )
1937     {
1938         dvbpsi_DeletePMT( p_pmt );
1939         return VLC_EGENERIC;
1940     }
1941
1942     en50221_SetCAPMT( p_access, p_pmt );
1943
1944     return VLC_SUCCESS;
1945 }
1946
1947 /*****************************************************************************
1948  * CAMClose :
1949  *****************************************************************************/
1950 void CAMClose( access_t * p_access )
1951 {
1952     access_sys_t *p_sys = p_access->p_sys;
1953
1954     en50221_End( p_access );
1955
1956     if ( p_sys->i_ca_handle )
1957     {
1958         close( p_sys->i_ca_handle );
1959     }
1960 }
1961