| … | |
… | |
| 11 | use Event; |
11 | use Event; |
| 12 | use Linux::DVB; |
12 | use Linux::DVB; |
| 13 | |
13 | |
| 14 | use Data::Dumper; |
14 | use Data::Dumper; |
| 15 | |
15 | |
|
|
16 | my $sniff_only = 1; # set to zero to actively tune to a channel |
|
|
17 | |
| 16 | my $fe = new Linux::DVB::Frontend "/dev/dvb/adapter0/frontend0"; |
18 | my $fe = new Linux::DVB::Frontend "/dev/dvb/adapter0/frontend0", $sniff_only ? &O_RDONLY : &O_RDWR; |
|
|
19 | |
|
|
20 | unless ($sniff_only) { |
|
|
21 | $fe->set ( |
|
|
22 | frequency => 426000000, |
|
|
23 | symbol_rate => 6900000, |
|
|
24 | modulation => QAM_64, |
|
|
25 | fec_inner => FEC_AUTO, |
|
|
26 | inversion => INVERSION_AUTO, |
|
|
27 | ) or die "frontend->set: $!"; |
|
|
28 | } |
| 17 | |
29 | |
| 18 | sub new_demux { |
30 | sub new_demux { |
| 19 | new Linux::DVB::Demux "/dev/dvb/adapter0/demux0"; |
31 | new Linux::DVB::Demux "/dev/dvb/adapter0/demux0"; |
| 20 | } |
32 | } |
| 21 | |
33 | |
