… | |
… | |
30 | package Linux::DVB; |
30 | package Linux::DVB; |
31 | |
31 | |
32 | use Fcntl (); |
32 | use Fcntl (); |
33 | |
33 | |
34 | BEGIN { |
34 | BEGIN { |
35 | $VERSION = '0.4'; |
35 | $VERSION = '1.0'; |
36 | @ISA = qw(Exporter); |
36 | @ISA = qw(Exporter); |
37 | |
37 | |
38 | require XSLoader; |
38 | require XSLoader; |
39 | XSLoader::load __PACKAGE__, $VERSION; |
39 | XSLoader::load __PACKAGE__, $VERSION; |
40 | |
40 | |
… | |
… | |
105 | |
105 | |
106 | %$self = ( %$self, %{ $self->frontend_info } ); |
106 | %$self = ( %$self, %{ $self->frontend_info } ); |
107 | |
107 | |
108 | $self; |
108 | $self; |
109 | } |
109 | } |
110 | |
|
|
111 | sub frontend_info { _frontend_info ($_[0]{fd}) } |
|
|
112 | sub status { _read_status ($_[0]{fd}) } |
|
|
113 | sub ber { _read_ber ($_[0]{fd}) } |
|
|
114 | sub snr { _snr ($_[0]{fd}) } |
|
|
115 | sub signal_strength { _signal_strength ($_[0]{fd}) } |
|
|
116 | sub uncorrected { _uncorrected ($_[0]{fd}) } |
|
|
117 | |
110 | |
118 | =item $fe->set (parameter => value, ...) |
111 | =item $fe->set (parameter => value, ...) |
119 | |
112 | |
120 | Sets frontend parameters. All values are stuffed into the |
113 | Sets frontend parameters. All values are stuffed into the |
121 | C<dvb_frontend_parameters> structure without conversion and passed to |
114 | C<dvb_frontend_parameters> structure without conversion and passed to |
… | |
… | |
172 | =cut |
165 | =cut |
173 | |
166 | |
174 | sub parameters { _get ($_[0]{fd}, $_[0]{type}) } |
167 | sub parameters { _get ($_[0]{fd}, $_[0]{type}) } |
175 | sub get { _get ($_[0]{fd}, $_[0]{type}) } # unannounced alias |
168 | sub get { _get ($_[0]{fd}, $_[0]{type}) } # unannounced alias |
176 | sub event { _event ($_[0]{fd}, $_[0]{type}) } |
169 | sub event { _event ($_[0]{fd}, $_[0]{type}) } |
|
|
170 | |
|
|
171 | =item $ok = $fe->diseqc_reset_overload |
|
|
172 | |
|
|
173 | If the bus has been automatically powered off due to power overload, this |
|
|
174 | call restores the power to the bus. The call requires read/write access |
|
|
175 | to the device. This call has no effect if the device is manually powered |
|
|
176 | off. Not all DVB adapters support this call. |
|
|
177 | |
|
|
178 | =item $ok = $fe->diseqc_voltage (13|18) |
|
|
179 | |
|
|
180 | Set the DiSEqC voltage to either 13 or 18 volts. |
|
|
181 | |
|
|
182 | =item $ok = $fe->diseqc_tone (1|0) |
|
|
183 | |
|
|
184 | Enables (1) or disables (0) the DiSEqC continuous 22khz tone generation. |
|
|
185 | |
|
|
186 | =item $ok = $fe->diseqc_send_burst (0|1) |
|
|
187 | |
|
|
188 | Sends a 22KHz tone burst of type SEC_MINI_A (0) or SEC_MINI_B (1). |
|
|
189 | |
|
|
190 | =item $ok = $fe->diseqc_cmd ($command) |
|
|
191 | |
|
|
192 | Sends a DiSEqC command. |
|
|
193 | |
|
|
194 | =item $reply = $fe->diseqc_reply ($timeout) |
|
|
195 | |
|
|
196 | Receives a reply to a DiSEqC 2.0 command (or undef). |
|
|
197 | |
|
|
198 | =cut |
177 | |
199 | |
178 | package Linux::DVB::Demux; |
200 | package Linux::DVB::Demux; |
179 | |
201 | |
180 | @ISA = qw(Linux::DVB); |
202 | @ISA = qw(Linux::DVB); |
181 | |
203 | |