| … | |
… | |
| 10 | |
10 | |
| 11 | This module provides an interface to the Linux DVB API. It is a straightforward |
11 | This module provides an interface to the Linux DVB API. It is a straightforward |
| 12 | translation of the C API. You should read the Linux DVB API description to make |
12 | translation of the C API. You should read the Linux DVB API description to make |
| 13 | any sense of this module. It can be found here: |
13 | any sense of this module. It can be found here: |
| 14 | |
14 | |
| 15 | http://www.linuxtv.org/developer/dvbapi.xml |
15 | http://www.linuxtv.org/docs/dvbapi/dvbapi.html |
| 16 | |
16 | |
| 17 | All constants from F<frontend.h> and F<demux.h> are exported by their C |
17 | All constants from F<frontend.h> and F<demux.h> are exported by their C |
| 18 | name and by default. |
18 | name and by default. |
| 19 | |
19 | |
| 20 | Noteworthy differences to the C API: unions and sub-structs are usually |
20 | Noteworthy differences to the C API: unions and sub-structs are usually |
| 21 | translated into flat perl hashes, i.e C<struct.u.qam.symbol_rate> |
21 | translated into flat perl hashes, i.e C<struct.u.qam.symbol_rate> |
| 22 | becomes C<< $struct->{symbol_rate} >>. |
22 | becomes C<< $struct->{symbol_rate} >>. |
| 23 | |
23 | |
| 24 | Noteworthy limitations of this module include: no way to set the |
24 | Noteworthy limitations of this module include: No interface to the video, |
| 25 | frequency or diseqc. No interface to the video, audio and net devices. |
|
|
| 26 | If you need this functionality bug the author. |
25 | audio and net devices. If you need this functionality bug the author. |
| 27 | |
26 | |
| 28 | =cut |
27 | =cut |
| 29 | |
28 | |
| 30 | package Linux::DVB; |
29 | package Linux::DVB; |
| 31 | |
30 | |
| 32 | use Fcntl (); |
31 | use Fcntl (); |
| 33 | |
32 | |
| 34 | BEGIN { |
33 | BEGIN { |
| 35 | $VERSION = '0.1'; |
34 | $VERSION = '1.0'; |
| 36 | @ISA = qw(Exporter); |
35 | @ISA = qw(Exporter); |
| 37 | |
36 | |
| 38 | require XSLoader; |
37 | require XSLoader; |
| 39 | XSLoader::load __PACKAGE__, $VERSION; |
38 | XSLoader::load __PACKAGE__, $VERSION; |
| 40 | |
39 | |
| … | |
… | |
| 93 | |
92 | |
| 94 | my $tune = $fe->parameters; |
93 | my $tune = $fe->parameters; |
| 95 | $tune->{frequency}; |
94 | $tune->{frequency}; |
| 96 | $tune->{symbol_rate}; |
95 | $tune->{symbol_rate}; |
| 97 | |
96 | |
|
|
97 | =over 4 |
|
|
98 | |
| 98 | =cut |
99 | =cut |
| 99 | |
100 | |
| 100 | sub new { |
101 | sub new { |
| 101 | my ($class, $path, $mode) = @_; |
102 | my ($class, $path, $mode) = @_; |
| 102 | my $self = $class->SUPER::new ($path, $mode ? &Fcntl::O_RDWR : &Fcntl::O_RDONLY); |
103 | my $self = $class->SUPER::new ($path, $mode ? &Fcntl::O_RDWR : &Fcntl::O_RDONLY); |
| … | |
… | |
| 104 | %$self = ( %$self, %{ $self->frontend_info } ); |
105 | %$self = ( %$self, %{ $self->frontend_info } ); |
| 105 | |
106 | |
| 106 | $self; |
107 | $self; |
| 107 | } |
108 | } |
| 108 | |
109 | |
| 109 | sub frontend_info { _frontend_info ($_[0]{fd}) } |
110 | =item $fe->set (parameter => value, ...) |
| 110 | sub status { _read_status ($_[0]{fd}) } |
|
|
| 111 | sub ber { _read_ber ($_[0]{fd}) } |
|
|
| 112 | sub snr { _snr ($_[0]{fd}) } |
|
|
| 113 | sub signal_strength { _signal_strength ($_[0]{fd}) } |
|
|
| 114 | sub uncorrected { _uncorrected ($_[0]{fd}) } |
|
|
| 115 | |
111 | |
| 116 | #sub set { _set ($_[0]{fd}, $_[0]{type}) } |
112 | Sets frontend parameters. All values are stuffed into the |
|
|
113 | C<dvb_frontend_parameters> structure without conversion and passed to |
|
|
114 | FE_SET_FRONTEND. |
|
|
115 | |
|
|
116 | Returns true on success. |
|
|
117 | |
|
|
118 | All modes: |
|
|
119 | |
|
|
120 | frequency => |
|
|
121 | inversion => |
|
|
122 | |
|
|
123 | QPSK frontends: |
|
|
124 | |
|
|
125 | symbol_rate => |
|
|
126 | fec_inner => |
|
|
127 | |
|
|
128 | QAM frontends: |
|
|
129 | |
|
|
130 | symbol_rate => |
|
|
131 | modulation => |
|
|
132 | |
|
|
133 | QFDM frontends: |
|
|
134 | |
|
|
135 | bandwidth => |
|
|
136 | code_rate_HP => |
|
|
137 | code_rate_LP => |
|
|
138 | constellation => |
|
|
139 | transmission_mode => |
|
|
140 | |
|
|
141 | =cut |
|
|
142 | |
|
|
143 | sub set { |
|
|
144 | my ($self) = shift; |
|
|
145 | _set $self->{fd}, { @_ }, $self->{type} |
|
|
146 | } |
|
|
147 | |
|
|
148 | =item $fe->parameters |
|
|
149 | |
|
|
150 | Calls FE_GET_FRONTEND and returns a hash reference that contains the same keys |
|
|
151 | as given to the C<set> method. |
|
|
152 | |
|
|
153 | Example: |
|
|
154 | |
|
|
155 | Data::Dumper::Dumper $fe->get |
|
|
156 | |
|
|
157 | { |
|
|
158 | frequency => 426000000, # 426 Mhz |
|
|
159 | inversion => 0, # INVERSION_OFF |
|
|
160 | symbol_rate => 6900000, # 6.9 MB/s |
|
|
161 | modulation => 3, # QAM_64 |
|
|
162 | } |
|
|
163 | |
|
|
164 | =cut |
|
|
165 | |
| 117 | sub parameters { _get ($_[0]{fd}, $_[0]{type}) } |
166 | sub parameters { _get ($_[0]{fd}, $_[0]{type}) } |
|
|
167 | sub get { _get ($_[0]{fd}, $_[0]{type}) } # unannounced alias |
| 118 | sub event { _event ($_[0]{fd}, $_[0]{type}) } |
168 | sub event { _event ($_[0]{fd}, $_[0]{type}) } |
| 119 | |
169 | |
|
|
170 | =item $ok = $fe->diseqc_reset_overload |
|
|
171 | |
|
|
172 | If the bus has been automatically powered off due to power overload, this |
|
|
173 | call restores the power to the bus. The call requires read/write access |
|
|
174 | to the device. This call has no effect if the device is manually powered |
|
|
175 | off. Not all DVB adapters support this call. |
|
|
176 | |
|
|
177 | =item $ok = $fe->diseqc_voltage (13|18) |
|
|
178 | |
|
|
179 | Set the DiSEqC voltage to either 13 or 18 volts. |
|
|
180 | |
|
|
181 | =item $ok = $fe->diseqc_tone (1|0) |
|
|
182 | |
|
|
183 | Enables (1) or disables (0) the DiSEqC continuous 22khz tone generation. |
|
|
184 | |
|
|
185 | =item $ok = $fe->diseqc_send_burst (0|1) |
|
|
186 | |
|
|
187 | Sends a 22KHz tone burst of type SEC_MINI_A (0) or SEC_MINI_B (1). |
|
|
188 | |
|
|
189 | =item $ok = $fe->diseqc_cmd ($command) |
|
|
190 | |
|
|
191 | Sends a DiSEqC command. |
|
|
192 | |
|
|
193 | =item $reply = $fe->diseqc_reply ($timeout) |
|
|
194 | |
|
|
195 | Receives a reply to a DiSEqC 2.0 command (or undef). |
|
|
196 | |
|
|
197 | =cut |
|
|
198 | |
| 120 | package Linux::DVB::Demux; |
199 | package Linux::DVB::Demux; |
| 121 | |
200 | |
| 122 | @ISA = qw(Linux::DVB); |
201 | @ISA = qw(Linux::DVB); |
|
|
202 | |
|
|
203 | =back |
| 123 | |
204 | |
| 124 | =head1 Linux::DVB::Demux CLASS |
205 | =head1 Linux::DVB::Demux CLASS |
| 125 | |
206 | |
| 126 | =head2 SYNOPSIS |
207 | =head2 SYNOPSIS |
| 127 | |
208 | |
| … | |
… | |
| 136 | $dmx->sct_filter ($pid, "filter", "mask", $timeout=0, $flags=DMX_CHECK_CRC); |
217 | $dmx->sct_filter ($pid, "filter", "mask", $timeout=0, $flags=DMX_CHECK_CRC); |
| 137 | $dmx->pes_filter ($pid, $input, $output, $type, $flags=0); |
218 | $dmx->pes_filter ($pid, $input, $output, $type, $flags=0); |
| 138 | $dmx->start; |
219 | $dmx->start; |
| 139 | $dmx->stop; |
220 | $dmx->stop; |
| 140 | |
221 | |
|
|
222 | =over 4 |
|
|
223 | |
| 141 | =cut |
224 | =cut |
| 142 | |
225 | |
| 143 | sub new { |
226 | sub new { |
| 144 | my ($class, $path) = @_; |
227 | my ($class, $path) = @_; |
| 145 | my $self = $class->SUPER::new ($path, &Fcntl::O_RDWR); |
228 | my $self = $class->SUPER::new ($path, &Fcntl::O_RDWR); |
| … | |
… | |
| 152 | |
235 | |
| 153 | sub sct_filter { _filter ($_[0]{fd}, @_[1, 2, 3, 4, 5]) } |
236 | sub sct_filter { _filter ($_[0]{fd}, @_[1, 2, 3, 4, 5]) } |
| 154 | sub pes_filter { _pes_filter ($_[0]{fd}, @_[1, 2, 3, 4, 5]) } |
237 | sub pes_filter { _pes_filter ($_[0]{fd}, @_[1, 2, 3, 4, 5]) } |
| 155 | sub buffer { _buffer ($_[0]{fd}, $_[1]) } |
238 | sub buffer { _buffer ($_[0]{fd}, $_[1]) } |
| 156 | |
239 | |
| 157 | 1; |
240 | package Linux::DVB::Decode; |
| 158 | |
241 | |
|
|
242 | =back |
|
|
243 | |
|
|
244 | =head1 Linux::DVB::Decode CLASS |
|
|
245 | |
|
|
246 | =head2 SYNOPSIS |
|
|
247 | |
|
|
248 | $si_decoded_hashref = Linux::DVB::Decode::si $section_data; |
|
|
249 | |
|
|
250 | =over 4 |
|
|
251 | |
|
|
252 | =cut |
|
|
253 | |
|
|
254 | =item $hashref = Linux::DVB::Decode::si $section_data |
|
|
255 | |
|
|
256 | Tries to parse the string inside C<$section_data> as an SI table and |
|
|
257 | return it as a hash reference. Only the first SI table will be returned |
|
|
258 | as hash reference, and the C<$section_data> will be modified in-place by |
|
|
259 | removing the table data. |
|
|
260 | |
|
|
261 | The way to use this function is to append new data to your |
|
|
262 | C<$section_data> and then call C<Linux::DVB::Decode::si> in a loop until |
|
|
263 | it returns C<undef>. Please ntoe, however, that the Linux DVB API will |
|
|
264 | return only one table at a time from sysread, so you can safely assume |
|
|
265 | that every sysread will return exactly one (or zero in case of errors) SI |
|
|
266 | table. |
|
|
267 | |
|
|
268 | Here is an example of what to expect: |
|
|
269 | |
|
|
270 | { |
|
|
271 | 'segment_last_section_number' => 112, |
|
|
272 | 'table_id' => 81, |
|
|
273 | 'service_id' => 28129, |
|
|
274 | 'original_network_id' => 1, |
|
|
275 | 'section_syntax_indicator' => 1, |
|
|
276 | 'current_next_indicator' => 1, |
|
|
277 | 'events' => [ |
|
|
278 | { |
|
|
279 | 'running_status' => 0, |
|
|
280 | 'start_time_hms' => 2097152, |
|
|
281 | 'event_id' => 39505, |
|
|
282 | 'free_CA_mode' => 0, |
|
|
283 | 'start_time_mjd' => 53470, |
|
|
284 | 'descriptors' => [ |
|
|
285 | { |
|
|
286 | 'event_name' => 'Nachrichten', |
|
|
287 | 'text' => '', |
|
|
288 | 'ISO_639_language_code' => 'deu', |
|
|
289 | 'type' => 77 |
|
|
290 | }, |
|
|
291 | { |
|
|
292 | 'programme_identification_label' => 337280, |
|
|
293 | 'type' => 105 |
|
|
294 | }, |
|
|
295 | { |
|
|
296 | 'raw_data' => '22:0010.04#00', |
|
|
297 | 'type' => 130 |
|
|
298 | } |
|
|
299 | ], |
|
|
300 | 'duration' => 1280 |
|
|
301 | }, |
|
|
302 | { |
|
|
303 | 'running_status' => 0, |
|
|
304 | 'start_time_hms' => 2098432, |
|
|
305 | 'event_id' => 39506, |
|
|
306 | 'free_CA_mode' => 0, |
|
|
307 | 'start_time_mjd' => 53470, |
|
|
308 | 'descriptors' => [ |
|
|
309 | { |
|
|
310 | 'event_name' => 'SR 1 - Nachtwerk', |
|
|
311 | 'text' => '', |
|
|
312 | 'ISO_639_language_code' => 'deu', |
|
|
313 | 'type' => 77 |
|
|
314 | }, |
|
|
315 | { |
|
|
316 | 'programme_identification_label' => 337285, |
|
|
317 | 'type' => 105 |
|
|
318 | }, |
|
|
319 | { |
|
|
320 | 'raw_data' => '22:0510.04#00', |
|
|
321 | 'type' => 130 |
|
|
322 | } |
|
|
323 | ], |
|
|
324 | 'duration' => 87296 |
|
|
325 | } |
|
|
326 | ], |
|
|
327 | 'last_table_id' => 81, |
|
|
328 | 'section_number' => 112, |
|
|
329 | 'last_section_number' => 176, |
|
|
330 | 'version_number' => 31, |
|
|
331 | 'transport_stream_id' => 1101 |
|
|
332 | } |
|
|
333 | |
|
|
334 | |
|
|
335 | =item $text = Linux::DVB::Decode::text $data |
|
|
336 | |
|
|
337 | Converts text found in DVB si tables into perl text. Only iso-8859-1..-11 |
|
|
338 | and UTF-16 is supported, other encodings (big5 etc. is not. Bug me if you |
|
|
339 | need this). |
|
|
340 | |
|
|
341 | =cut |
|
|
342 | |
|
|
343 | sub text($) { |
|
|
344 | use Encode; |
|
|
345 | |
|
|
346 | for ($_[0]) { |
|
|
347 | s/^([\x01-\x0b])// and $_ = decode sprintf ("iso-8859-%d", 4 + ord $1), $_; |
|
|
348 | # 10 - pardon you??? |
|
|
349 | s/^\x11// and $_ = decode "utf16-be", $_; |
|
|
350 | # 12 ksc5601, DB |
|
|
351 | # 13 db2312, DB |
|
|
352 | # 14 big5(?), DB |
|
|
353 | s/\x8a/\n/g; |
|
|
354 | #s/([\x00-\x09\x0b-\x1f\x80-\x9f])/sprintf "{%02x}", ord $1/ge; |
|
|
355 | s/([\x00-\x09\x0b-\x1f\x80-\x9f])//ge; |
|
|
356 | } |
|
|
357 | } |
|
|
358 | |
|
|
359 | =item %Linux::DVB::Decode::nibble_to_genre |
|
|
360 | |
|
|
361 | A two-level hash mapping genre nibbles to genres, e.g. |
|
|
362 | |
|
|
363 | $Linux::DVB::Decode::nibble_to_genre{7}{6} |
|
|
364 | => 'film/cinema' |
|
|
365 | |
|
|
366 | =cut |
|
|
367 | |
|
|
368 | our %nibble_to_genre = ( |
|
|
369 | 0x1 => { |
|
|
370 | 0x0 => 'Movie/Drama (general)', |
|
|
371 | 0x1 => 'Movie - detective/thriller', |
|
|
372 | 0x2 => 'Movie - adventure/western/war', |
|
|
373 | 0x3 => 'Movie - science fiction/fantasy/horror', |
|
|
374 | 0x4 => 'Movie - comedy', |
|
|
375 | 0x5 => 'Movie - soap/melodrama/folkloric', |
|
|
376 | 0x6 => 'Movie - romance', |
|
|
377 | 0x7 => 'Movie - serious/classical/religious/historical movie/drama', |
|
|
378 | 0x8 => 'Movie - adult movie/drama', |
|
|
379 | }, |
|
|
380 | 0x2 => { |
|
|
381 | 0x0 => 'News/Current Affairs (general)', |
|
|
382 | 0x1 => 'news/weather report', |
|
|
383 | 0x2 => 'news magazine', |
|
|
384 | 0x3 => 'documentary', |
|
|
385 | 0x4 => 'discussion/interview/debate', |
|
|
386 | }, |
|
|
387 | 0x3 => { |
|
|
388 | 0x0 => 'Show/Game Show (general)', |
|
|
389 | 0x1 => 'game show/quiz/contest', |
|
|
390 | 0x2 => 'variety show', |
|
|
391 | 0x3 => 'talk show', |
|
|
392 | }, |
|
|
393 | 0x4 => { |
|
|
394 | 0x0 => 'Sports (general)', |
|
|
395 | 0x1 => 'special events (Olympic Games, World Cup etc.)', |
|
|
396 | 0x2 => 'sports magazines', |
|
|
397 | 0x3 => 'football/soccer', |
|
|
398 | 0x4 => 'tennis/squash', |
|
|
399 | 0x5 => 'team sports (excluding football)', |
|
|
400 | 0x6 => 'athletics', |
|
|
401 | 0x7 => 'motor sport', |
|
|
402 | 0x8 => 'water sport', |
|
|
403 | 0x9 => 'winter sports', |
|
|
404 | 0xA => 'equestrian', |
|
|
405 | 0xB => 'martial sports', |
|
|
406 | }, |
|
|
407 | 0x5 => { |
|
|
408 | 0x0 => 'Childrens/Youth (general)', |
|
|
409 | 0x1 => "pre-school children's programmes", |
|
|
410 | 0x2 => 'entertainment programmes for 6 to 14', |
|
|
411 | 0x3 => 'entertainment programmes for 10 to 16', |
|
|
412 | 0x4 => 'informational/educational/school programmes', |
|
|
413 | 0x5 => 'cartoons/puppets', |
|
|
414 | }, |
|
|
415 | 0x6 => { |
|
|
416 | 0x0 => 'Music/Ballet/Dance (general)', |
|
|
417 | 0x1 => 'rock/pop', |
|
|
418 | 0x2 => 'serious music or classical music', |
|
|
419 | 0x3 => 'folk/traditional music', |
|
|
420 | 0x4 => 'jazz', |
|
|
421 | 0x5 => 'musical/opera', |
|
|
422 | 0x6 => 'ballet', |
|
|
423 | }, |
|
|
424 | 0x7 => { |
|
|
425 | 0x0 => 'Arts/Culture (without music, general)', |
|
|
426 | 0x1 => 'performing arts', |
|
|
427 | 0x2 => 'fine arts', |
|
|
428 | 0x3 => 'religion', |
|
|
429 | 0x4 => 'popular culture/traditional arts', |
|
|
430 | 0x5 => 'literature', |
|
|
431 | 0x6 => 'film/cinema', |
|
|
432 | 0x7 => 'experimental film/video', |
|
|
433 | 0x8 => 'broadcasting/press', |
|
|
434 | 0x9 => 'new media', |
|
|
435 | 0xA => 'arts/culture magazines', |
|
|
436 | 0xB => 'fashion', |
|
|
437 | }, |
|
|
438 | 0x8 => { |
|
|
439 | 0x0 => 'Social/Policical/Economics (general)', |
|
|
440 | 0x1 => 'magazines/reports/documentary', |
|
|
441 | 0x2 => 'economics/social advisory', |
|
|
442 | 0x3 => 'remarkable people', |
|
|
443 | }, |
|
|
444 | 0x9 => { |
|
|
445 | 0x0 => 'Education/Science/Factual (general)', |
|
|
446 | 0x1 => 'nature/animals/environment', |
|
|
447 | 0x2 => 'technology/natural sciences', |
|
|
448 | 0x3 => 'medicine/physiology/psychology', |
|
|
449 | 0x4 => 'foreign countries/expeditions', |
|
|
450 | 0x5 => 'social/spiritual sciences', |
|
|
451 | 0x6 => 'further education', |
|
|
452 | 0x7 => 'languages', |
|
|
453 | }, |
|
|
454 | 0xA => { |
|
|
455 | 0x0 => 'Leisure/Hobbies (general)', |
|
|
456 | 0x1 => 'tourism/travel', |
|
|
457 | 0x2 => 'handicraft', |
|
|
458 | 0x3 => 'motoring', |
|
|
459 | 0x4 => 'fitness & health', |
|
|
460 | 0x5 => 'cooking', |
|
|
461 | 0x6 => 'advertizement/shopping', |
|
|
462 | 0x7 => 'gardening', |
|
|
463 | }, |
|
|
464 | 0xB => { |
|
|
465 | 0x0 => '(original language)', |
|
|
466 | 0x1 => '(black & white)', |
|
|
467 | 0x2 => '(unpublished)', |
|
|
468 | 0x3 => '(live broadcast)', |
|
|
469 | }, |
|
|
470 | ); |
|
|
471 | |
|
|
472 | =item ($sec,$min,$hour) = Linux::DVB::Decode::time $hms |
|
|
473 | |
|
|
474 | =item ($mday,$mon,$year) = Linux::DVB::Decode::date $mjd |
|
|
475 | |
|
|
476 | =item ($sec,$min,$hour,$mday,$mon,$year) = Linux::DVB::Decode::datetime $mjd, $hms |
|
|
477 | |
|
|
478 | =item $sec = Linux::DVB::Decode::time_linear $hms |
|
|
479 | |
|
|
480 | =item $sec = Linux::DVB::Decode::datetime_linear $mjd, $hms |
|
|
481 | |
|
|
482 | Break down a "DVB time" (modified julian date + bcd encoded seconds) into |
|
|
483 | it's components (non-C<_linear>) or into a seconds count (C<_linear> |
|
|
484 | variants) since the epoch (C<datetime_linear>) or the start of the day |
|
|
485 | (C<time_linear>). |
|
|
486 | |
|
|
487 | The format of the returns value of the date and datetime functions is |
|
|
488 | I<not> compatible with C<Time::Local>. Use the C<_linear> functions |
|
|
489 | instead. |
|
|
490 | |
|
|
491 | Example: |
|
|
492 | |
|
|
493 | my $time = Linux::DVB::Decode::datetime_linear $mjd, $hms |
|
|
494 | printf "Starts at %s\n", |
|
|
495 | POSIX::strftime "%Y-%m-%d %H:%M:%S", |
|
|
496 | localtime $time; |
|
|
497 | |
|
|
498 | =cut |
|
|
499 | |
|
|
500 | sub time($) { |
|
|
501 | my ($time) = @_; |
|
|
502 | |
|
|
503 | # Time is in UTC, 24 bit, every nibble one digit in BCD from right to left |
|
|
504 | my $hour = sprintf "%02x", ($time >> 16) & 0xFF; |
|
|
505 | my $minute = sprintf "%02x", ($time >> 8) & 0xFF; |
|
|
506 | my $second = sprintf "%02x", ($time ) & 0xFF; |
|
|
507 | |
|
|
508 | ($second, $minute, $hour) |
|
|
509 | } |
|
|
510 | |
|
|
511 | sub date($) { |
|
|
512 | my ($mjd) = @_; |
|
|
513 | |
|
|
514 | # Date is given in Modified Julian Date |
|
|
515 | # Decoding routines taken from ANNEX C, ETSI EN 300 468 (DVB SI) |
|
|
516 | my $y_ = int (($mjd - 15078.2) / 365.25); |
|
|
517 | my $m_ = int (($mjd - 14956.1 - int ($y_ * 365.25)) / 30.6001); |
|
|
518 | my $day = $mjd - 14956 - int ($y_ * 365.25) - int ($m_ * 30.6001); |
|
|
519 | my $k = $m_ == 14 or $m_ == 15 ? 1 : 0; |
|
|
520 | my $year = $y_ + $k + 1900; |
|
|
521 | my $month = $m_ - 1 - $k * 12; |
|
|
522 | |
|
|
523 | ($day, $month, $year) |
|
|
524 | } |
|
|
525 | |
|
|
526 | sub datetime($$) { |
|
|
527 | (Linux::DVB::Decode::time $_[1], date $_[0]) |
|
|
528 | } |
|
|
529 | |
|
|
530 | sub time_linear($) { |
|
|
531 | my ($s, $m, $h) = Linux::DVB::Decode::time $_[0]; |
|
|
532 | |
|
|
533 | (($h * 60) + $m * 60) + $s |
|
|
534 | } |
|
|
535 | |
|
|
536 | sub datetime_linear($$) { |
|
|
537 | my ($sec, $min, $hour, $mday, $mon, $year) = |
|
|
538 | Linux::DVB::Decode::datetime $_[0], $_[1]; |
|
|
539 | |
|
|
540 | require Time::Local; |
|
|
541 | Time::Local::timegm ($sec, $min, $hour, $mday, $mon - 1, $year) |
|
|
542 | } |
|
|
543 | |
|
|
544 | =back |
|
|
545 | |
| 159 | =head1 AUTHOR |
546 | =head1 AUTHORS |
| 160 | |
547 | |
| 161 | Marc Lehmann <pcg@goof.com> |
548 | Marc Lehmann <schmorp@schmorp.de>, http://home.schmorp.de/ |
| 162 | http://www.goof.com/pcg/marc/ |
549 | Magnus Schmidt, eMail at http://www.27b-6.de/email.php |
| 163 | |
550 | |
| 164 | =cut |
551 | =cut |
| 165 | |
552 | |
|
|
553 | 1 |
