modules/access/dvb/access.c

   1 /*****************************************************************************
   2  * access.c: DVB card input v4l2 only
   3  *****************************************************************************
   4  * Copyright (C) 1998-2010 the VideoLAN team
   5  *
   6  * Authors: Johan Bilien <jobi@via.ecp.fr>
   7  *          Jean-Paul Saman <jpsaman _at_ videolan _dot_ org>
   8  *          Christophe Massiot <massiot@via.ecp.fr>
   9  *          Laurent Aimar <fenrir@via.ecp.fr>
  10  *          David Kaplan <david@2of1.org>
  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 along
  23  * with this program; if not, write to the Free Software Foundation, Inc.,
  24  * 51 Franklin Street, Fifth Floor, Boston MA 02110-1301, USA.
  25  *****************************************************************************/
  26
  27
  28 /*****************************************************************************
  29  * Preamble
  30  *****************************************************************************/
  31 #ifdef HAVE_CONFIG_H
  32 # include "config.h"
  33 #endif
  34
  35 #include <vlc_common.h>
  36 #include <vlc_plugin.h>
  37 #include <vlc_access.h>
  38 #include <vlc_input.h>
  39 #include <vlc_interface.h>
  40 #include <vlc_dialog.h>
  41 #include <vlc_fs.h>
  42
  43 #ifdef HAVE_UNISTD_H
  44 #   include <unistd.h>
  45 #endif
  46
  47 #include <sys/types.h>
  48 #include <poll.h>
  49
  50 #include <errno.h>
  51
  52 /* Include dvbpsi headers */
  53 #ifdef HAVE_DVBPSI_DR_H
  54 #   include <dvbpsi/dvbpsi.h>
  55 #   include <dvbpsi/descriptor.h>
  56 #   include <dvbpsi/pat.h>
  57 #   include <dvbpsi/pmt.h>
  58 #   include <dvbpsi/dr.h>
  59 #   include <dvbpsi/psi.h>
  60 #   include <dvbpsi/demux.h>
  61 #   include <dvbpsi/sdt.h>
  62 #else
  63 #   include "dvbpsi.h"
  64 #   include "descriptor.h"
  65 #   include "tables/pat.h"
  66 #   include "tables/pmt.h"
  67 #   include "descriptors/dr.h"
  68 #   include "psi.h"
  69 #   include "demux.h"
  70 #   include "tables/sdt.h"
  71 #endif
  72
  73 #ifdef ENABLE_HTTPD
  74 #   include <vlc_httpd.h>
  75 #endif
  76
  77 #include "dvb.h"
  78
  79 /*****************************************************************************
  80  * Module descriptor
  81  *****************************************************************************/
  82 static int  Open( vlc_object_t *p_this );
  83 static void Close( vlc_object_t *p_this );
  84
  85 #define CACHING_TEXT N_("Caching value in ms")
  86 #define CACHING_LONGTEXT N_( \
  87     "Caching value for DVB streams. This " \
  88     "value should be set in milliseconds." )
  89
  90 #define ADAPTER_TEXT N_("Adapter card to tune")
  91 #define ADAPTER_LONGTEXT N_("Adapter cards have a device file in directory named /dev/dvb/adapter[n] with n>=0.")
  92
  93 #define DEVICE_TEXT N_("Device number to use on adapter")
  94 #define DEVICE_LONGTEXT ""
  95
  96 #define FREQ_TEXT N_("Transponder/multiplex frequency")
  97 #define FREQ_LONGTEXT N_("In kHz for DVB-S or Hz for DVB-C/T")
  98
  99 #define INVERSION_TEXT N_("Inversion mode")
 100 #define INVERSION_LONGTEXT N_("Inversion mode [0=off, 1=on, 2=auto]")
 101
 102 #define PROBE_TEXT N_("Probe DVB card for capabilities")
 103 #define PROBE_LONGTEXT N_("Some DVB cards do not like to be probed for their capabilities, you can disable this feature if you experience some trouble.")
 104
 105 #define BUDGET_TEXT N_("Budget mode")
 106 #define BUDGET_LONGTEXT N_("This allows you to stream an entire transponder with a \"budget\" card.")
 107
 108 /* Satellite */
 109 #define SATELLITE_TEXT N_("Satellite scanning config")
 110 #define SATELLITE_LONGTEXT N_("filename of config file in share/dvb/dvb-s")
 111
 112 #define SATNO_TEXT N_("Satellite number in the Diseqc system")
 113 #define SATNO_LONGTEXT N_("[0=no diseqc, 1-4=satellite number].")
 114
 115 #define VOLTAGE_TEXT N_("LNB voltage")
 116 #define VOLTAGE_LONGTEXT N_("In Volts [0, 13=vertical, 18=horizontal].")
 117
 118 #define HIGH_VOLTAGE_TEXT N_("High LNB voltage")
 119 #define HIGH_VOLTAGE_LONGTEXT N_("Enable high voltage if your cables are " \
 120     "particularly long. This is not supported by all frontends.")
 121
 122 #define TONE_TEXT N_("22 kHz tone")
 123 #define TONE_LONGTEXT N_("[0=off, 1=on, -1=auto].")
 124
 125 #define FEC_TEXT N_("Transponder FEC")
 126 #define FEC_LONGTEXT N_("FEC=Forward Error Correction mode [9=auto].")
 127
 128 #define SRATE_TEXT N_("Transponder symbol rate in kHz")
 129 #define SRATE_LONGTEXT ""
 130
 131 #define LNB_LOF1_TEXT N_("Antenna lnb_lof1 (kHz)")
 132 #define LNB_LOF1_LONGTEXT ""
 133
 134 #define LNB_LOF2_TEXT N_("Antenna lnb_lof2 (kHz)")
 135 #define LNB_LOF2_LONGTEXT ""
 136
 137 #define LNB_SLOF_TEXT N_("Antenna lnb_slof (kHz)")
 138 #define LNB_SLOF_LONGTEXT ""
 139
 140 /* Cable */
 141 #define MODULATION_TEXT N_("Modulation type")
 142 #define MODULATION_LONGTEXT N_("Modulation type for front-end device.")
 143
 144 /* Terrestrial */
 145 #define CODE_RATE_HP_TEXT N_("Terrestrial high priority stream code rate (FEC)")
 146 #define CODE_RATE_HP_LONGTEXT ""
 147
 148 #define CODE_RATE_LP_TEXT N_("Terrestrial low priority stream code rate (FEC)")
 149 #define CODE_RATE_LP_LONGTEXT ""
 150
 151 #define BANDWIDTH_TEXT N_("Terrestrial bandwidth")
 152 #define BANDWIDTH_LONGTEXT N_("Terrestrial bandwidth [0=auto,6,7,8 in MHz]")
 153
 154 #define GUARD_TEXT N_("Terrestrial guard interval")
 155 #define GUARD_LONGTEXT ""
 156
 157 #define TRANSMISSION_TEXT N_("Terrestrial transmission mode")
 158 #define TRANSMISSION_LONGTEXT ""
 159
 160 #define HIERARCHY_TEXT N_("Terrestrial hierarchy mode")
 161 #define HIERARCHY_LONGTEXT ""
 162
 163 #define HOST_TEXT N_( "HTTP Host address" )
 164 #define HOST_LONGTEXT N_( \
 165     "To enable the internal HTTP server, set its address and port here." )
 166
 167 #define USER_TEXT N_( "HTTP user name" )
 168 #define USER_LONGTEXT N_( \
 169     "User name the administrator will use to log into " \
 170     "the internal HTTP server." )
 171
 172 #define PASSWORD_TEXT N_( "HTTP password" )
 173 #define PASSWORD_LONGTEXT N_( \
 174     "Password the administrator will use to log into " \
 175     "the internal HTTP server." )
 176
 177 #define ACL_TEXT N_( "HTTP ACL" )
 178 #define ACL_LONGTEXT N_( \
 179     "Access control list (equivalent to .hosts) file path, " \
 180     "which will limit the range of IPs entitled to log into the internal " \
 181     "HTTP server." )
 182
 183 #define CERT_TEXT N_( "Certificate file" )
 184 #define CERT_LONGTEXT N_( "HTTP interface x509 PEM certificate file " \
 185                           "(enables SSL)" )
 186
 187 #define KEY_TEXT N_( "Private key file" )
 188 #define KEY_LONGTEXT N_( "HTTP interface x509 PEM private key file" )
 189
 190 #define CA_TEXT N_( "Root CA file" )
 191 #define CA_LONGTEXT N_( "HTTP interface x509 PEM trusted root CA " \
 192                         "certificates file" )
 193
 194 #define CRL_TEXT N_( "CRL file" )
 195 #define CRL_LONGTEXT N_( "HTTP interface Certificates Revocation List file" )
 196
 197 vlc_module_begin ()
 198     set_shortname( N_("DVB") )
 199     set_description( N_("DVB input with v4l2 support") )
 200     set_category( CAT_INPUT )
 201     set_subcategory( SUBCAT_INPUT_ACCESS )
 202
 203     add_integer( "dvb-caching", DEFAULT_PTS_DELAY / 1000, NULL, CACHING_TEXT,
 204                  CACHING_LONGTEXT, true )
 205         change_safe()
 206     add_integer( "dvb-adapter", 0, NULL, ADAPTER_TEXT, ADAPTER_LONGTEXT,
 207                  false )
 208     add_integer( "dvb-device", 0, NULL, DEVICE_TEXT, DEVICE_LONGTEXT,
 209                  true )
 210     add_integer( "dvb-frequency", 0, NULL, FREQ_TEXT, FREQ_LONGTEXT,
 211                  false )
 212         change_safe()
 213     add_integer( "dvb-inversion", 2, NULL, INVERSION_TEXT, INVERSION_LONGTEXT,
 214                  true )
 215     add_bool( "dvb-probe", true, NULL, PROBE_TEXT, PROBE_LONGTEXT, true )
 216     add_bool( "dvb-budget-mode", false, NULL, BUDGET_TEXT, BUDGET_LONGTEXT,
 217               true )
 218     /* DVB-S (satellite) */
 219     add_string( "dvb-satellite", NULL, SATELLITE_TEXT, SATELLITE_LONGTEXT,
 220                 true )
 221     add_integer( "dvb-satno", 0, NULL, SATNO_TEXT, SATNO_LONGTEXT,
 222                  true )
 223     add_integer( "dvb-voltage", 13, NULL, VOLTAGE_TEXT, VOLTAGE_LONGTEXT,
 224                  true )
 225     add_bool( "dvb-high-voltage", false, NULL, HIGH_VOLTAGE_TEXT,
 226               HIGH_VOLTAGE_LONGTEXT, true )
 227     add_integer( "dvb-tone", -1, NULL, TONE_TEXT, TONE_LONGTEXT,
 228                  true )
 229     add_integer( "dvb-fec", 9, NULL, FEC_TEXT, FEC_LONGTEXT, true )
 230     add_integer( "dvb-srate", 27500000, NULL, SRATE_TEXT, SRATE_LONGTEXT,
 231                  false )
 232     add_integer( "dvb-lnb-lof1", 0, NULL, LNB_LOF1_TEXT,
 233                  LNB_LOF1_LONGTEXT, true )
 234     add_integer( "dvb-lnb-lof2", 0, NULL, LNB_LOF2_TEXT,
 235                  LNB_LOF2_LONGTEXT, true )
 236     add_integer( "dvb-lnb-slof", 0, NULL, LNB_SLOF_TEXT,
 237                  LNB_SLOF_LONGTEXT, true )
 238     /* DVB-C (cable) */
 239     add_integer( "dvb-modulation", 0, NULL, MODULATION_TEXT,
 240                  MODULATION_LONGTEXT, true )
 241     /* DVB-T (terrestrial) */
 242     add_integer( "dvb-code-rate-hp", 9, NULL, CODE_RATE_HP_TEXT,
 243                  CODE_RATE_HP_LONGTEXT, true )
 244     add_integer( "dvb-code-rate-lp", 9, NULL, CODE_RATE_LP_TEXT,
 245                  CODE_RATE_LP_LONGTEXT, true )
 246     add_integer( "dvb-bandwidth", 0, NULL, BANDWIDTH_TEXT, BANDWIDTH_LONGTEXT,
 247                  true )
 248         change_safe()
 249     add_integer( "dvb-guard", 0, NULL, GUARD_TEXT, GUARD_LONGTEXT, true )
 250     add_integer( "dvb-transmission", 0, NULL, TRANSMISSION_TEXT,
 251                  TRANSMISSION_LONGTEXT, true )
 252     add_integer( "dvb-hierarchy", 0, NULL, HIERARCHY_TEXT, HIERARCHY_LONGTEXT,
 253                  true )
 254 #ifdef ENABLE_HTTPD
 255     /* MMI HTTP interface */
 256     set_section( N_("HTTP server" ), 0 )
 257     add_string( "dvb-http-host", NULL, HOST_TEXT, HOST_LONGTEXT,
 258                 true )
 259     add_string( "dvb-http-user", NULL, USER_TEXT, USER_LONGTEXT,
 260                 true )
 261     add_password( "dvb-http-password", NULL, NULL, PASSWORD_TEXT,
 262                   PASSWORD_LONGTEXT, true )
 263     add_string( "dvb-http-acl", NULL, ACL_TEXT, ACL_LONGTEXT,
 264                 true )
 265     add_string( "dvb-http-intf-cert", NULL, CERT_TEXT, CERT_LONGTEXT,
 266                 true )
 267     add_string( "dvb-http-intf-key",  NULL, KEY_TEXT,  KEY_LONGTEXT,
 268                 true )
 269     add_string( "dvb-http-intf-ca",   NULL, CA_TEXT,   CA_LONGTEXT,
 270                 true )
 271     add_string( "dvb-http-intf-crl",  NULL, CRL_TEXT,  CRL_LONGTEXT,
 272                 true )
 273 #endif
 274
 275     set_capability( "access", 0 )
 276     add_shortcut( "dvb",                        /* Generic name */
 277                   "dvb-s", "qpsk", "satellite", /* Satellite */
 278                   "dvb-c", "cable",             /* Cable */
 279                   "dvb-t", "terrestrial",       /* Terrestrial */
 280                   "atsc" )                      /* Atsc */
 281     add_shortcut( "usdigital" )
 282
 283     set_callbacks( Open, Close )
 284
 285 vlc_module_end ()
 286
 287
 288 /*****************************************************************************
 289  * Local prototypes
 290  *****************************************************************************/
 291 static block_t *Block( access_t * );
 292 static int Control( access_t *, int, va_list );
 293
 294 static block_t *BlockScan( access_t * );
 295
 296 #define DVB_READ_ONCE 20
 297 #define DVB_READ_ONCE_START 2
 298 #define DVB_READ_ONCE_SCAN 1
 299 #define TS_PACKET_SIZE 188
 300
 301 #define DVB_SCAN_MAX_SIGNAL_TIME (1000*1000)
 302 #define DVB_SCAN_MAX_LOCK_TIME (5000*1000)
 303 #define DVB_SCAN_MAX_PROBE_TIME (45000*1000)
 304
 305 static void FilterUnset( access_t *, int i_max );
 306 static void FilterUnsetPID( access_t *, int i_pid );
 307 static void FilterSet( access_t *, int i_pid, int i_type );
 308
 309 static void VarInit( access_t * );
 310 static int  ParseMRL( access_t * );
 311
 312 /*****************************************************************************
 313  * Open: open the frontend device
 314  *****************************************************************************/
 315 static int Open( vlc_object_t *p_this )
 316 {
 317     access_t     *p_access = (access_t*)p_this;
 318     access_sys_t *p_sys;
 319
 320     /* Only if selected */
 321     if( *p_access->psz_access == '\0' )
 322         return VLC_EGENERIC;
 323
 324     /* Set up access */
 325     p_access->pf_read = NULL;
 326     p_access->pf_block = Block;
 327     p_access->pf_control = Control;
 328     p_access->pf_seek = NULL;
 329
 330     access_InitFields( p_access );
 331
 332     p_access->p_sys = p_sys = calloc( 1, sizeof( access_sys_t ) );
 333     if( !p_sys )
 334         return VLC_ENOMEM;
 335
 336     /* Create all variables */
 337     VarInit( p_access );
 338
 339     /* Parse the command line */
 340     if( ParseMRL( p_access ) )
 341     {
 342         free( p_sys );
 343         return VLC_EGENERIC;
 344     }
 345
 346     /* Getting frontend info */
 347     if( FrontendOpen( p_access) )
 348     {
 349         free( p_sys );
 350         return VLC_EGENERIC;
 351     }
 352
 353     /* */
 354     p_sys->b_scan_mode = var_GetInteger( p_access, "dvb-frequency" ) == 0;
 355     if( p_sys->b_scan_mode )
 356     {
 357         msg_Dbg( p_access, "DVB scan mode selected" );
 358         p_access->pf_block = BlockScan;
 359     }
 360     else
 361     {
 362         /* Setting frontend parameters for tuning the hardware */
 363         msg_Dbg( p_access, "trying to tune the frontend...");
 364         if( FrontendSet( p_access ) < 0 )
 365         {
 366             FrontendClose( p_access );
 367             free( p_sys );
 368             return VLC_EGENERIC;
 369         }
 370     }
 371
 372     /* Opening DVR device */
 373     if( DVROpen( p_access ) < 0 )
 374     {
 375         FrontendClose( p_access );
 376         free( p_sys );
 377         return VLC_EGENERIC;
 378     }
 379
 380     if( p_sys->b_scan_mode )
 381     {
 382         scan_parameter_t parameter;
 383
 384         msg_Dbg( p_access, "setting filter on PAT/NIT/SDT (DVB only)" );
 385         FilterSet( p_access, 0x00, OTHER_TYPE );    // PAT
 386         FilterSet( p_access, 0x10, OTHER_TYPE );    // NIT
 387         FilterSet( p_access, 0x11, OTHER_TYPE );    // SDT
 388
 389         if( FrontendGetScanParameter( p_access, &parameter ) ||
 390             scan_Init( VLC_OBJECT(p_access), &p_sys->scan, &parameter ) )
 391         {
 392             Close( VLC_OBJECT(p_access) );
 393             return VLC_EGENERIC;
 394         }
 395     }
 396     else
 397     {
 398         p_sys->b_budget_mode = var_GetBool( p_access, "dvb-budget-mode" );
 399         if( p_sys->b_budget_mode )
 400         {
 401             msg_Dbg( p_access, "setting filter on all PIDs" );
 402             FilterSet( p_access, 0x2000, OTHER_TYPE );
 403         }
 404         else
 405         {
 406             msg_Dbg( p_access, "setting filter on PAT" );
 407             FilterSet( p_access, 0x0, OTHER_TYPE );
 408         }
 409
 410         CAMOpen( p_access );
 411
 412 #ifdef ENABLE_HTTPD
 413         HTTPOpen( p_access );
 414 #endif
 415     }
 416
 417     if( p_sys->b_scan_mode )
 418         p_sys->i_read_once = DVB_READ_ONCE_SCAN;
 419     else if( p_sys->b_budget_mode )
 420         p_sys->i_read_once = DVB_READ_ONCE;
 421     else
 422         p_sys->i_read_once = DVB_READ_ONCE_START;
 423
 424     free( p_access->psz_demux );
 425     p_access->psz_demux = strdup( p_sys->b_scan_mode ? "m3u8" : "ts" );
 426     return VLC_SUCCESS;
 427 }
 428
 429 /*****************************************************************************
 430  * Close : Close the device
 431  *****************************************************************************/
 432 static void Close( vlc_object_t *p_this )
 433 {
 434     access_t     *p_access = (access_t*)p_this;
 435     access_sys_t *p_sys = p_access->p_sys;
 436
 437     FilterUnset( p_access, p_sys->b_budget_mode && !p_sys->b_scan_mode ? 1 : MAX_DEMUX );
 438
 439     DVRClose( p_access );
 440     FrontendClose( p_access );
 441     if( p_sys->b_scan_mode )
 442         scan_Clean( &p_sys->scan );
 443     else
 444         CAMClose( p_access );
 445
 446 #ifdef ENABLE_HTTPD
 447     if( !p_sys->b_scan_mode )
 448         HTTPClose( p_access );
 449 #endif
 450
 451     free( p_sys );
 452 }
 453
 454 /*****************************************************************************
 455  * Block:
 456  *****************************************************************************/
 457 static block_t *Block( access_t *p_access )
 458 {
 459     access_sys_t *p_sys = p_access->p_sys;
 460     block_t *p_block;
 461
 462     for ( ; ; )
 463     {
 464         struct pollfd ufds[2];
 465         int i_ret;
 466
 467         /* Initialize file descriptor sets */
 468         memset (ufds, 0, sizeof (ufds));
 469         ufds[0].fd = p_sys->i_handle;
 470         ufds[0].events = POLLIN;
 471         ufds[1].fd = p_sys->i_frontend_handle;
 472         ufds[1].events = POLLPRI;
 473
 474         /* We'll wait 0.5 second if nothing happens */
 475         /* Find if some data is available */
 476         i_ret = poll( ufds, 2, 500 );
 477
 478         if ( !vlc_object_alive (p_access) )
 479             return NULL;
 480
 481         if ( i_ret < 0 )
 482         {
 483             if( errno == EINTR )
 484                 continue;
 485
 486             msg_Err( p_access, "poll error: %m" );
 487             return NULL;
 488         }
 489
 490         if ( p_sys->i_ca_handle && mdate() > p_sys->i_ca_next_event )
 491         {
 492             CAMPoll( p_access );
 493             p_sys->i_ca_next_event = mdate() + p_sys->i_ca_timeout;
 494         }
 495
 496         if ( ufds[1].revents )
 497         {
 498             FrontendPoll( p_access );
 499         }
 500
 501 #ifdef ENABLE_HTTPD
 502         if ( p_sys->i_httpd_timeout && mdate() > p_sys->i_httpd_timeout )
 503         {
 504             vlc_mutex_lock( &p_sys->httpd_mutex );
 505             if ( p_sys->b_request_frontend_info )
 506             {
 507                 msg_Warn( p_access, "frontend timeout for HTTP interface" );
 508                 p_sys->b_request_frontend_info = false;
 509                 p_sys->psz_frontend_info = strdup( "Timeout getting info\n" );
 510             }
 511             if ( p_sys->b_request_mmi_info )
 512             {
 513                 msg_Warn( p_access, "MMI timeout for HTTP interface" );
 514                 p_sys->b_request_mmi_info = false;
 515                 p_sys->psz_mmi_info = strdup( "Timeout getting info\n" );
 516             }
 517             vlc_cond_signal( &p_sys->httpd_cond );
 518             vlc_mutex_unlock( &p_sys->httpd_mutex );
 519         }
 520
 521         if ( p_sys->b_request_frontend_info )
 522         {
 523             FrontendStatus( p_access );
 524         }
 525
 526         if ( p_sys->b_request_mmi_info )
 527         {
 528             CAMStatus( p_access );
 529         }
 530 #endif
 531
 532         if ( p_sys->i_frontend_timeout && mdate() > p_sys->i_frontend_timeout )
 533         {
 534             msg_Warn( p_access, "no lock, tuning again" );
 535             FrontendSet( p_access );
 536         }
 537
 538         if ( ufds[0].revents )
 539         {
 540             p_block = block_New( p_access,
 541                                  p_sys->i_read_once * TS_PACKET_SIZE );
 542             if( ( i_ret = read( p_sys->i_handle, p_block->p_buffer,
 543                                 p_sys->i_read_once * TS_PACKET_SIZE ) ) <= 0 )
 544             {
 545                 msg_Warn( p_access, "read failed (%m)" );
 546                 block_Release( p_block );
 547                 continue;
 548             }
 549             p_block->i_buffer = i_ret;
 550             break;
 551         }
 552     }
 553
 554     if( p_sys->i_read_once < DVB_READ_ONCE )
 555         p_sys->i_read_once++;
 556
 557     /* Update moderatly the signal properties */
 558     if( (p_sys->i_stat_counter++ % 100) == 0 )
 559         p_access->info.i_update |= INPUT_UPDATE_SIGNAL;
 560
 561     return p_block;
 562 }
 563
 564 /*****************************************************************************
 565  * BlockScan:
 566  *****************************************************************************/
 567 static block_t *BlockScan( access_t *p_access )
 568 {
 569     access_sys_t *p_sys = p_access->p_sys;
 570     scan_t *p_scan = &p_sys->scan;
 571     scan_configuration_t cfg;
 572     scan_session_t session;
 573
 574     /* set satellite config file path */
 575     if( p_scan->parameter.type == SCAN_DVB_S )
 576         p_scan->parameter.sat_info.psz_name = var_GetString( p_access, "dvb-satellite" );
 577
 578     /* */
 579     if( scan_Next( p_scan, &cfg ) )
 580     {
 581         const bool b_first_eof = !p_access->info.b_eof;
 582
 583         if( b_first_eof )
 584             msg_Warn( p_access, "Scanning finished" );
 585
 586         /* */
 587         p_access->info.b_eof = true;
 588         return b_first_eof ? scan_GetM3U( p_scan ) : NULL;
 589     }
 590
 591     /* */
 592
 593     if( scan_session_Init( VLC_OBJECT(p_access), &session, &cfg ) )
 594         return NULL;
 595
 596     /* */
 597     if( p_scan->parameter.type == SCAN_DVB_S )
 598     {
 599         msg_Dbg( p_access,
 600                  "Scanning frequency %d, symbol rate = %d, fec = %d",
 601                  cfg.i_frequency,
 602                  cfg.i_bandwidth,
 603                  cfg.i_fec );
 604     }
 605     else
 606         msg_Dbg( p_access, "Scanning frequency %d, bandwidth = %d",
 607                  cfg.i_frequency,
 608                  cfg.i_bandwidth );
 609
 610     var_SetInteger( p_access, "dvb-frequency", cfg.i_frequency );
 611     var_SetInteger( p_access, "dvb-bandwidth", cfg.i_bandwidth );
 612     if ( cfg.i_fec )
 613         var_SetInteger( p_access, "dvb-fec", cfg.i_fec );
 614     if ( cfg.c_polarization )
 615         var_SetInteger( p_access, "dvb-voltage", cfg.c_polarization == 'H' ? 18 : 13 );
 616
 617     /* Setting frontend parameters for tuning the hardware */
 618     if( FrontendSet( p_access ) < 0 )
 619     {
 620         msg_Err( p_access, "Failed to tune the frontend" );
 621         p_access->info.b_eof = true;
 622         return NULL;
 623     }
 624
 625     /* */
 626     int64_t i_scan_start = mdate();
 627
 628     bool b_has_dvb_signal = false;
 629     bool b_has_lock = false;
 630     int i_best_snr = -1;
 631
 632     for ( ; ; )
 633     {
 634         struct pollfd ufds[2];
 635         int i_ret;
 636
 637         /* Initialize file descriptor sets */
 638         memset (ufds, 0, sizeof (ufds));
 639         ufds[0].fd = p_sys->i_handle;
 640         ufds[0].events = POLLIN;
 641         ufds[1].fd = p_sys->i_frontend_handle;
 642         ufds[1].events = POLLPRI;
 643
 644         /* We'll wait 0.1 second if nothing happens */
 645         /* Find if some data is available */
 646         i_ret = poll( ufds, 2, 100 );
 647
 648         if( !vlc_object_alive (p_access) || scan_IsCancelled( p_scan ) )
 649             break;
 650
 651         if( i_ret <= 0 )
 652         {
 653             const mtime_t i_scan_time = mdate() - i_scan_start;
 654             frontend_status_t status;
 655
 656             FrontendGetStatus( p_access, &status );
 657
 658             b_has_dvb_signal |= status.b_has_carrier;
 659             b_has_lock |= status.b_has_lock;
 660
 661             if( ( !b_has_dvb_signal && i_scan_time > DVB_SCAN_MAX_SIGNAL_TIME ) ||
 662                 ( !b_has_lock && i_scan_time > DVB_SCAN_MAX_LOCK_TIME ) ||
 663                 ( i_scan_time > DVB_SCAN_MAX_PROBE_TIME ) )
 664             {
 665                 msg_Dbg( p_access, "timed out scanning current frequency (s=%d l=%d)", b_has_dvb_signal, b_has_lock );
 666                 break;
 667             }
 668         }
 669
 670         if( i_ret < 0 )
 671         {
 672             if( errno == EINTR )
 673                 continue;
 674
 675             msg_Err( p_access, "poll error: %m" );
 676             scan_session_Clean( p_scan, &session );
 677
 678             p_access->info.b_eof = true;
 679             return NULL;
 680         }
 681
 682         if( ufds[1].revents )
 683         {
 684             frontend_statistic_t stat;
 685
 686             FrontendPoll( p_access );
 687
 688             if( !FrontendGetStatistic( p_access, &stat ) )
 689             {
 690                 if( stat.i_snr > i_best_snr )
 691                     i_best_snr = stat.i_snr;
 692             }
 693         }
 694
 695         if ( p_sys->i_frontend_timeout && mdate() > p_sys->i_frontend_timeout )
 696         {
 697             msg_Warn( p_access, "no lock, tuning again" );
 698             FrontendSet( p_access );
 699         }
 700
 701         if ( ufds[0].revents )
 702         {
 703             const int i_read_once = 1;
 704             block_t *p_block = block_New( p_access, i_read_once * TS_PACKET_SIZE );
 705
 706             if( ( i_ret = read( p_sys->i_handle, p_block->p_buffer,
 707                                 i_read_once * TS_PACKET_SIZE ) ) <= 0 )
 708             {
 709                 msg_Warn( p_access, "read failed (%m)" );
 710                 block_Release( p_block );
 711                 continue;
 712             }
 713             p_block->i_buffer = i_ret;
 714
 715             /* */
 716             if( scan_session_Push( &session, p_block ) )
 717             {
 718                 msg_Dbg( p_access, "finished scanning current frequency" );
 719                 break;
 720             }
 721         }
 722     }
 723
 724     /* */
 725     if( i_best_snr > 0 )
 726         scan_service_SetSNR( &session, i_best_snr );
 727
 728     scan_session_Clean( p_scan, &session );
 729     return NULL;
 730 }
 731
 732 /*****************************************************************************
 733  * Control:
 734  *****************************************************************************/
 735 static int Control( access_t *p_access, int i_query, va_list args )
 736 {
 737     access_sys_t *p_sys = p_access->p_sys;
 738     bool         *pb_bool, b_bool;
 739     int          i_int;
 740     int64_t      *pi_64;
 741     double       *pf1, *pf2;
 742     dvbpsi_pmt_t *p_pmt;
 743     frontend_statistic_t stat;
 744
 745     switch( i_query )
 746     {
 747         /* */
 748         case ACCESS_CAN_SEEK:
 749         case ACCESS_CAN_FASTSEEK:
 750         case ACCESS_CAN_PAUSE:
 751         case ACCESS_CAN_CONTROL_PACE:
 752             pb_bool = (bool*)va_arg( args, bool* );
 753             *pb_bool = false;
 754             break;
 755         /* */
 756         case ACCESS_GET_PTS_DELAY:
 757             pi_64 = (int64_t*)va_arg( args, int64_t * );
 758             *pi_64 = var_GetInteger( p_access, "dvb-caching" ) * 1000;
 759             break;
 760
 761         /* */
 762         case ACCESS_SET_PAUSE_STATE:
 763         case ACCESS_GET_TITLE_INFO:
 764         case ACCESS_SET_TITLE:
 765         case ACCESS_SET_SEEKPOINT:
 766         case ACCESS_GET_CONTENT_TYPE:
 767             return VLC_EGENERIC;
 768
 769         case ACCESS_GET_SIGNAL:
 770             pf1 = (double*)va_arg( args, double * );
 771             pf2 = (double*)va_arg( args, double * );
 772
 773             *pf1 = *pf2 = 0;
 774             if( !FrontendGetStatistic( p_access, &stat ) )
 775             {
 776                 *pf1 = (double)stat.i_snr / 65535.0;
 777                 *pf2 = (double)stat.i_signal_strenth / 65535.0;
 778             }
 779             return VLC_SUCCESS;
 780
 781         case ACCESS_SET_PRIVATE_ID_STATE:
 782             if( p_sys->b_scan_mode )
 783                 return VLC_EGENERIC;
 784
 785             i_int  = (int)va_arg( args, int );               /* Private data (pid for now)*/
 786             b_bool = (bool)va_arg( args, int ); /* b_selected */
 787             if( !p_sys->b_budget_mode )
 788             {
 789                 /* FIXME we may want to give the real type (me ?, I don't ;) */
 790                 if( b_bool )
 791                     FilterSet( p_access, i_int, OTHER_TYPE );
 792                 else
 793                     FilterUnsetPID( p_access, i_int );
 794             }
 795             break;
 796
 797         case ACCESS_SET_PRIVATE_ID_CA:
 798             if( p_sys->b_scan_mode )
 799                 return VLC_EGENERIC;
 800
 801             p_pmt = (dvbpsi_pmt_t *)va_arg( args, dvbpsi_pmt_t * );
 802
 803             CAMSet( p_access, p_pmt );
 804             break;
 805
 806         default:
 807             msg_Warn( p_access, "unimplemented query in control" );
 808             return VLC_EGENERIC;
 809
 810     }
 811     return VLC_SUCCESS;
 812 }
 813
 814 /*****************************************************************************
 815  * FilterSet/FilterUnset:
 816  *****************************************************************************/
 817 static void FilterSet( access_t *p_access, int i_pid, int i_type )
 818 {
 819     access_sys_t *p_sys = p_access->p_sys;
 820     int i;
 821
 822     /* Find first free slot */
 823     for( i = 0; i < MAX_DEMUX; i++ )
 824     {
 825         if( !p_sys->p_demux_handles[i].i_type )
 826             break;
 827
 828         if( p_sys->p_demux_handles[i].i_pid == i_pid )
 829             return; /* Already set */
 830     }
 831
 832     if( i >= MAX_DEMUX )
 833     {
 834         msg_Err( p_access, "no free p_demux_handles !" );
 835         return;
 836     }
 837
 838     if( DMXSetFilter( p_access, i_pid,
 839                            &p_sys->p_demux_handles[i].i_handle, i_type ) )
 840     {
 841         msg_Err( p_access, "DMXSetFilter failed" );
 842         return;
 843     }
 844     p_sys->p_demux_handles[i].i_type = i_type;
 845     p_sys->p_demux_handles[i].i_pid = i_pid;
 846
 847     if( p_sys->i_read_once < DVB_READ_ONCE )
 848         p_sys->i_read_once++;
 849 }
 850
 851 static void FilterUnset( access_t *p_access, int i_max )
 852 {
 853     access_sys_t *p_sys = p_access->p_sys;
 854     int i;
 855
 856     for( i = 0; i < i_max; i++ )
 857     {
 858         if( p_sys->p_demux_handles[i].i_type )
 859         {
 860             DMXUnsetFilter( p_access, p_sys->p_demux_handles[i].i_handle );
 861             p_sys->p_demux_handles[i].i_type = 0;
 862         }
 863     }
 864 }
 865
 866 static void FilterUnsetPID( access_t *p_access, int i_pid )
 867 {
 868     access_sys_t *p_sys = p_access->p_sys;
 869     int i;
 870
 871     for( i = 0; i < MAX_DEMUX; i++ )
 872     {
 873         if( p_sys->p_demux_handles[i].i_type &&
 874             p_sys->p_demux_handles[i].i_pid == i_pid )
 875         {
 876             DMXUnsetFilter( p_access, p_sys->p_demux_handles[i].i_handle );
 877             p_sys->p_demux_handles[i].i_type = 0;
 878         }
 879     }
 880 }
 881
 882 /*****************************************************************************
 883  * VarInit/ParseMRL:
 884  *****************************************************************************/
 885 static void VarInit( access_t *p_access )
 886 {
 887     /* */
 888     var_Create( p_access, "dvb-caching", VLC_VAR_INTEGER | VLC_VAR_DOINHERIT );
 889
 890     /* */
 891     var_Create( p_access, "dvb-adapter", VLC_VAR_INTEGER | VLC_VAR_DOINHERIT );
 892     var_Create( p_access, "dvb-device", VLC_VAR_INTEGER | VLC_VAR_DOINHERIT );
 893     var_Create( p_access, "dvb-frequency", VLC_VAR_INTEGER | VLC_VAR_DOINHERIT );
 894     var_Create( p_access, "dvb-inversion", VLC_VAR_INTEGER | VLC_VAR_DOINHERIT );
 895     var_Create( p_access, "dvb-probe", VLC_VAR_BOOL | VLC_VAR_DOINHERIT );
 896     var_Create( p_access, "dvb-budget-mode", VLC_VAR_BOOL | VLC_VAR_DOINHERIT );
 897
 898     /* */
 899     var_Create( p_access, "dvb-satellite", VLC_VAR_STRING | VLC_VAR_DOINHERIT );
 900     var_Create( p_access, "dvb-satno", VLC_VAR_INTEGER | VLC_VAR_DOINHERIT );
 901     var_Create( p_access, "dvb-voltage", VLC_VAR_INTEGER | VLC_VAR_DOINHERIT );
 902     var_Create( p_access, "dvb-high-voltage", VLC_VAR_BOOL | VLC_VAR_DOINHERIT );
 903     var_Create( p_access, "dvb-tone", VLC_VAR_INTEGER | VLC_VAR_DOINHERIT );
 904     var_Create( p_access, "dvb-fec", VLC_VAR_INTEGER | VLC_VAR_DOINHERIT );
 905     var_Create( p_access, "dvb-srate", VLC_VAR_INTEGER | VLC_VAR_DOINHERIT );
 906     var_Create( p_access, "dvb-lnb-lof1", VLC_VAR_INTEGER | VLC_VAR_DOINHERIT );
 907     var_Create( p_access, "dvb-lnb-lof2", VLC_VAR_INTEGER | VLC_VAR_DOINHERIT );
 908     var_Create( p_access, "dvb-lnb-slof", VLC_VAR_INTEGER | VLC_VAR_DOINHERIT );
 909
 910     /* */
 911     var_Create( p_access, "dvb-modulation", VLC_VAR_INTEGER | VLC_VAR_DOINHERIT );
 912
 913     /* */
 914     var_Create( p_access, "dvb-code-rate-hp", VLC_VAR_INTEGER | VLC_VAR_DOINHERIT );
 915     var_Create( p_access, "dvb-code-rate-lp", VLC_VAR_INTEGER | VLC_VAR_DOINHERIT );
 916     var_Create( p_access, "dvb-bandwidth", VLC_VAR_INTEGER | VLC_VAR_DOINHERIT );
 917     var_Create( p_access, "dvb-transmission", VLC_VAR_INTEGER | VLC_VAR_DOINHERIT );
 918     var_Create( p_access, "dvb-guard", VLC_VAR_INTEGER | VLC_VAR_DOINHERIT );
 919     var_Create( p_access, "dvb-hierarchy", VLC_VAR_INTEGER | VLC_VAR_DOINHERIT );
 920
 921 #ifdef ENABLE_HTTPD
 922     var_Create( p_access, "dvb-http-host", VLC_VAR_STRING | VLC_VAR_DOINHERIT );
 923     var_Create( p_access, "dvb-http-user", VLC_VAR_STRING | VLC_VAR_DOINHERIT );
 924     var_Create( p_access, "dvb-http-password", VLC_VAR_STRING | VLC_VAR_DOINHERIT );
 925     var_Create( p_access, "dvb-http-acl", VLC_VAR_STRING | VLC_VAR_DOINHERIT );
 926     var_Create( p_access, "dvb-http-intf-cert", VLC_VAR_STRING | VLC_VAR_DOINHERIT );
 927     var_Create( p_access, "dvb-http-intf-key", VLC_VAR_STRING | VLC_VAR_DOINHERIT );
 928     var_Create( p_access, "dvb-http-intf-ca", VLC_VAR_STRING | VLC_VAR_DOINHERIT );
 929     var_Create( p_access, "dvb-http-intf-crl", VLC_VAR_STRING | VLC_VAR_DOINHERIT );
 930 #endif
 931 }
 932
 933 /* */
 934 static int ParseMRL( access_t *p_access )
 935 {
 936     char *psz_dup = strdup( p_access->psz_location );
 937     char *psz_parser = psz_dup;
 938     char *psz_next;
 939     vlc_value_t         val;
 940
 941 #define GET_OPTION_INT( option )                                            \
 942     if ( !strncmp( psz_parser, option "=", strlen(option "=") ) )           \
 943     {                                                                       \
 944         val.i_int = strtol( psz_parser + strlen(option "="), &psz_parser,   \
 945                             0 );                                            \
 946         var_Set( p_access, "dvb-" option, val );                            \
 947     }
 948
 949 #define GET_OPTION_BOOL( option )                                           \
 950     if ( !strncmp( psz_parser, option "=", strlen(option "=") ) )           \
 951     {                                                                       \
 952         val.b_bool = strtol( psz_parser + strlen(option "="), &psz_parser,  \
 953                              0 );                                           \
 954         var_Set( p_access, "dvb-" option, val );                            \
 955     }
 956
 957 #define GET_OPTION_STRING( option )                                         \
 958     if ( !strncmp( psz_parser, option "=", strlen( option "=" ) ) )         \
 959     {                                                                       \
 960         psz_parser += strlen( option "=" );                                 \
 961         val.psz_string = psz_parser;                                        \
 962         char *p_save;                                                       \
 963         char *tok = strtok_r(val.psz_string, ":", &p_save);                 \
 964         val.psz_string[tok - val.psz_string - 1] = 0;                       \
 965         var_Set( p_access, "dvb-" option, val );                            \
 966         psz_parser += strlen( val.psz_string );                             \
 967     }
 968
 969     /* Test for old syntax */
 970     strtol( psz_parser, &psz_next, 10 );
 971     if( psz_next != psz_parser )
 972     {
 973         msg_Err( p_access, "the DVB input old syntax is deprecated, use vlc "
 974                           "-p dvb to see an explanation of the new syntax" );
 975         dialog_FatalWait( p_access, _("Input syntax is deprecated"), "%s",
 976             _("The given syntax is deprecated. Run \"vlc -p dvb\" to see an " \
 977                 "explanation of the new syntax.") );
 978         free( psz_dup );
 979         return VLC_EGENERIC;
 980     }
 981
 982     while( *psz_parser )
 983     {
 984         GET_OPTION_INT("adapter")
 985         else GET_OPTION_INT("device")
 986         else GET_OPTION_INT("frequency")
 987         else GET_OPTION_INT("inversion")
 988         else GET_OPTION_BOOL("probe")
 989         else GET_OPTION_BOOL("budget-mode")
 990
 991         else GET_OPTION_STRING("satellite")
 992         else GET_OPTION_INT("voltage")
 993         else GET_OPTION_BOOL("high-voltage")
 994         else GET_OPTION_INT("tone")
 995         else GET_OPTION_INT("satno")
 996         else GET_OPTION_INT("fec")
 997         else GET_OPTION_INT("srate")
 998         else GET_OPTION_INT("lnb-lof1")
 999         else GET_OPTION_INT("lnb-lof2")
1000         else GET_OPTION_INT("lnb-slof")
1001
1002         else GET_OPTION_INT("modulation")
1003
1004         else GET_OPTION_INT("code-rate-hp")
1005         else GET_OPTION_INT("code-rate-lp")
1006         else GET_OPTION_INT("bandwidth")
1007         else GET_OPTION_INT("transmission")
1008         else GET_OPTION_INT("guard")
1009         else GET_OPTION_INT("hierarchy")
1010
1011         /* Redundant with voltage but much easier to use */
1012         else if( !strncmp( psz_parser, "polarization=",
1013                            strlen( "polarization=" ) ) )
1014         {
1015             psz_parser += strlen( "polarization=" );
1016             if ( *psz_parser == 'V' || *psz_parser == 'v' )
1017                 val.i_int = 13;
1018             else if ( *psz_parser == 'H' || *psz_parser == 'h' )
1019                 val.i_int = 18;
1020             else
1021             {
1022                 msg_Err( p_access, "illegal polarization %c", *psz_parser );
1023                 dialog_Fatal( p_access, _("Invalid polarization"),
1024                                 _("The provided polarization \"%c\" is not valid."),
1025                                 *psz_parser );
1026                 free( psz_dup );
1027                 return VLC_EGENERIC;
1028             }
1029             var_Set( p_access, "dvb-voltage", val );
1030         }
1031         else
1032         {
1033             msg_Err( p_access, "unknown option (%s)", psz_parser );
1034             free( psz_dup );
1035             return VLC_EGENERIC;
1036         }
1037
1038         if ( *psz_parser )
1039             psz_parser++;
1040     }
1041 #undef GET_OPTION_INT
1042 #undef GET_OPTION_BOOL
1043 #undef GET_OPTION_STRING
1044
1045     free( psz_dup );
1046     return VLC_SUCCESS;
1047 }
1048