| line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
|
1
|
|
|
|
|
|
|
package TV::Humax::Foxsat; |
|
2
|
|
|
|
|
|
|
|
|
3
|
1
|
|
|
1
|
|
23304
|
use 5.10.0; |
|
|
1
|
|
|
|
|
4
|
|
|
|
1
|
|
|
|
|
47
|
|
|
4
|
1
|
|
|
1
|
|
8
|
use strict; |
|
|
1
|
|
|
|
|
2
|
|
|
|
1
|
|
|
|
|
33
|
|
|
5
|
1
|
|
|
1
|
|
5
|
use warnings; |
|
|
1
|
|
|
|
|
7
|
|
|
|
1
|
|
|
|
|
75
|
|
|
6
|
|
|
|
|
|
|
|
|
7
|
|
|
|
|
|
|
=head1 NAME |
|
8
|
|
|
|
|
|
|
|
|
9
|
|
|
|
|
|
|
TV::Humax::Foxsat - Parse metadata files from your Humax satellite TV receiver. |
|
10
|
|
|
|
|
|
|
|
|
11
|
|
|
|
|
|
|
=head1 VERSION |
|
12
|
|
|
|
|
|
|
|
|
13
|
|
|
|
|
|
|
version 0.06 |
|
14
|
|
|
|
|
|
|
|
|
15
|
|
|
|
|
|
|
=cut |
|
16
|
|
|
|
|
|
|
|
|
17
|
|
|
|
|
|
|
our $VERSION = '0.06'; # VERSION |
|
18
|
|
|
|
|
|
|
|
|
19
|
|
|
|
|
|
|
=head1 SYNOPSIS |
|
20
|
|
|
|
|
|
|
|
|
21
|
|
|
|
|
|
|
use TV::Humax::Foxsat::hmt_data; |
|
22
|
|
|
|
|
|
|
|
|
23
|
|
|
|
|
|
|
my $hmt_data = new TV::Humax::Foxsat::hmt_data(); |
|
24
|
|
|
|
|
|
|
$hmt_data->raw_from_file('/path/to/TV Show_20121007_2159.hmt'); |
|
25
|
|
|
|
|
|
|
|
|
26
|
|
|
|
|
|
|
printf "Recording %s ran from %s till %s on %s (channel %d).\n", |
|
27
|
|
|
|
|
|
|
$hmt_data->progName, |
|
28
|
|
|
|
|
|
|
$hmt_data->startTime, |
|
29
|
|
|
|
|
|
|
$hmt_data->endTime, |
|
30
|
|
|
|
|
|
|
$hmt_data->ChanNameEPG, |
|
31
|
|
|
|
|
|
|
$hmt_data->ChanNum; |
|
32
|
|
|
|
|
|
|
|
|
33
|
|
|
|
|
|
|
my @epg_records = @{ $hmt_data->EPG_blocks() }; |
|
34
|
|
|
|
|
|
|
my $epg_block = pop @epg_records; |
|
35
|
|
|
|
|
|
|
|
|
36
|
|
|
|
|
|
|
printf "The last show in the recording was of %s starting at %s for %d minutes.\n", |
|
37
|
|
|
|
|
|
|
$epg_block->progName, |
|
38
|
|
|
|
|
|
|
$epg_block->startTime, |
|
39
|
|
|
|
|
|
|
( $epg_block1->duration / 60 ); |
|
40
|
|
|
|
|
|
|
|
|
41
|
|
|
|
|
|
|
printf "The show description is %s\n", $epg_block->guideInfo; |
|
42
|
|
|
|
|
|
|
|
|
43
|
|
|
|
|
|
|
Hmt files are meta data files used by Humax |
|
44
|
|
|
|
|
|
|
|
|
45
|
|
|
|
|
|
|
NB: There is no support for modifying and saving hmt data files. |
|
46
|
|
|
|
|
|
|
You should treat the fields as read only. |
|
47
|
|
|
|
|
|
|
|
|
48
|
|
|
|
|
|
|
=head1 FIELDS |
|
49
|
|
|
|
|
|
|
|
|
50
|
|
|
|
|
|
|
The following fields are available in hmt_data |
|
51
|
|
|
|
|
|
|
|
|
52
|
|
|
|
|
|
|
Numbers/strings: lastPlay ChanNum progName ChanNameEPG AudioType VideoPID |
|
53
|
|
|
|
|
|
|
AudioPID TeletextPID VideoType EPG_Block_count fileName |
|
54
|
|
|
|
|
|
|
|
|
55
|
|
|
|
|
|
|
Datetime: startTime endTime |
|
56
|
|
|
|
|
|
|
|
|
57
|
|
|
|
|
|
|
Boolean: Freesat Viewed Locked HiDef Encrypted CopyProtect Locked Subtitles |
|
58
|
|
|
|
|
|
|
|
|
59
|
|
|
|
|
|
|
The field EPG_blocks contains the list of electronic program guide data |
|
60
|
|
|
|
|
|
|
blocks that are instances of TV::Humax::Foxsat::epg_data |
|
61
|
|
|
|
|
|
|
|
|
62
|
|
|
|
|
|
|
The following fields are avalable in epg_data |
|
63
|
|
|
|
|
|
|
|
|
64
|
|
|
|
|
|
|
startTime duration progName guideInfo guideFlag guideBlockLen |
|
65
|
|
|
|
|
|
|
|
|
66
|
|
|
|
|
|
|
guideInfo is the Long program guide text. Up to 255 bytes |
|
67
|
|
|
|
|
|
|
|
|
68
|
|
|
|
|
|
|
=head1 SUPPORTED DEVICES |
|
69
|
|
|
|
|
|
|
|
|
70
|
|
|
|
|
|
|
This module designed to work with metadata files from Humax's Foxsat receiver, |
|
71
|
|
|
|
|
|
|
it is known not to work with files from the HDR-FOX T2 receiver. Other devices |
|
72
|
|
|
|
|
|
|
are untested, and may or may not work. Please report any success or otherwise |
|
73
|
|
|
|
|
|
|
with other devices. |
|
74
|
|
|
|
|
|
|
|
|
75
|
|
|
|
|
|
|
=head1 AUTHOR |
|
76
|
|
|
|
|
|
|
|
|
77
|
|
|
|
|
|
|
"spudsoup", C<< <"spudsoup at cpan.org"> >> |
|
78
|
|
|
|
|
|
|
|
|
79
|
|
|
|
|
|
|
=head1 BUGS |
|
80
|
|
|
|
|
|
|
|
|
81
|
|
|
|
|
|
|
Please report any bugs or feature requests to C<bug-tv-humax-foxsat at rt.cpan.org>, |
|
82
|
|
|
|
|
|
|
or through the web interface at L<http://rt.cpan.org/NoAuth/ReportBug.html?Queue=TV-Humax-Foxsat>. |
|
83
|
|
|
|
|
|
|
I will be notified, and then you'll automatically be notified of progress on |
|
84
|
|
|
|
|
|
|
your bug as I make changes. |
|
85
|
|
|
|
|
|
|
|
|
86
|
|
|
|
|
|
|
I would also be interested in any suggestions for improvement you might have. |
|
87
|
|
|
|
|
|
|
|
|
88
|
|
|
|
|
|
|
=head1 SUPPORT |
|
89
|
|
|
|
|
|
|
|
|
90
|
|
|
|
|
|
|
You can find documentation for this module with the perldoc command. |
|
91
|
|
|
|
|
|
|
|
|
92
|
|
|
|
|
|
|
perldoc TV::Humax::Foxsat |
|
93
|
|
|
|
|
|
|
|
|
94
|
|
|
|
|
|
|
You can also look for information at: |
|
95
|
|
|
|
|
|
|
|
|
96
|
|
|
|
|
|
|
=over 4 |
|
97
|
|
|
|
|
|
|
|
|
98
|
|
|
|
|
|
|
=item * RT: CPAN's request tracker (report bugs here) |
|
99
|
|
|
|
|
|
|
|
|
100
|
|
|
|
|
|
|
L<http://rt.cpan.org/NoAuth/Bugs.html?Dist=TV-Humax-Foxsat> |
|
101
|
|
|
|
|
|
|
|
|
102
|
|
|
|
|
|
|
=item * AnnoCPAN: Annotated CPAN documentation |
|
103
|
|
|
|
|
|
|
|
|
104
|
|
|
|
|
|
|
L<http://annocpan.org/dist/TV-Humax-Foxsat> |
|
105
|
|
|
|
|
|
|
|
|
106
|
|
|
|
|
|
|
=item * CPAN Ratings |
|
107
|
|
|
|
|
|
|
|
|
108
|
|
|
|
|
|
|
L<http://cpanratings.perl.org/d/TV-Humax-Foxsat> |
|
109
|
|
|
|
|
|
|
|
|
110
|
|
|
|
|
|
|
=item * Search CPAN |
|
111
|
|
|
|
|
|
|
|
|
112
|
|
|
|
|
|
|
L<http://search.cpan.org/dist/TV-Humax-Foxsat/> |
|
113
|
|
|
|
|
|
|
|
|
114
|
|
|
|
|
|
|
=back |
|
115
|
|
|
|
|
|
|
|
|
116
|
|
|
|
|
|
|
=head1 LICENSE AND COPYRIGHT |
|
117
|
|
|
|
|
|
|
|
|
118
|
|
|
|
|
|
|
Copyright 2013 "spudsoup". |
|
119
|
|
|
|
|
|
|
|
|
120
|
|
|
|
|
|
|
This program is released under the following license: gpl --verbose |
|
121
|
|
|
|
|
|
|
|
|
122
|
|
|
|
|
|
|
=cut |
|
123
|
|
|
|
|
|
|
|
|
124
|
|
|
|
|
|
|
1; # End of TV::Humax::Foxsat |