1 |
#!/usr/bin/perl |
2 |
|
3 |
# dumpepg dumps the epg database given as first argument run "getepg" to |
4 |
# create it. |
5 |
|
6 |
use Storable; |
7 |
use POSIX 'strftime'; |
8 |
|
9 |
my $db_name = $ARGV[0]; |
10 |
$db_name .= ".epg" unless -e $db_name; |
11 |
|
12 |
print "Electronic Program Guide <$db_name>\n\n"; |
13 |
|
14 |
*db = Storable::retrieve($db_name); |
15 |
|
16 |
sub dump_ai { |
17 |
my $ai = shift; |
18 |
printf "EPG STREAM 1 <%d>", $ai->{epg_version}; |
19 |
printf " #ni %d, #oi %d, #mi %d\n", $ai->{no_navigation}, $ai->{no_osd}, $ai->{no_message}; |
20 |
printf "EPG STREAM 2 <%d>", $ai->{epg_version_swo}; |
21 |
printf " #ni %d, #oi %d, #mi %d\n", $ai->{no_navigation_swo}, $ai->{no_osd_swo}, $ai->{no_message_swo}; |
22 |
|
23 |
printf "this network #%d (%s) # updates %d\n", $ai->{this_network_op}, $ai->{service_name}, $ai->{no_updates}; |
24 |
for (@{$ai->{networks}}) { |
25 |
printf " network #%04x (%s), LTO %d, %d days, range<%d-%d/%d>, @%d, +%03x\n", |
26 |
@$_{qw/cni netwop_name LTO nodays prog_start_no prog_stop_no prog_stop_swo default_alphabet network_add_info/}; |
27 |
} |
28 |
print "\n"; |
29 |
} |
30 |
|
31 |
sub string2text { |
32 |
local $_ = shift; |
33 |
y/~{|}[]/ßaöäüÄÜ/; |
34 |
s/(.{40})/$1\n/g; |
35 |
s/([\x00-\x07])/sprintf " [%dm", ord($1)+30/ge; |
36 |
s/([\x00-\x09\x0b-\x1a\x1c-\x1f])/sprintf "·[%02x]",ord $1/ge; |
37 |
s/^ //g; |
38 |
$_."[37m"; |
39 |
} |
40 |
|
41 |
sub date2unix { |
42 |
my($date,$time,$lto)=@_; |
43 |
381283200 |
44 |
+ ($date-45000) * 86400 |
45 |
+ ($time >> 12 ) * 10 * 60 * 60 |
46 |
+ ($time >> 8 & 15) * 60 * 60 |
47 |
+ ($time >> 4 & 15) * 10 * 60 |
48 |
+ ($time & 15) * 60 |
49 |
+ $lto * 15; |
50 |
} |
51 |
|
52 |
sub date2text { |
53 |
sprintf "{%04x}", $_[0]; |
54 |
} |
55 |
|
56 |
sub time2text { |
57 |
sprintf "%02x:%02x", $_[0] >> 8, $_[0] & 0xff; |
58 |
} |
59 |
|
60 |
dump_ai($db{ai}); |
61 |
|
62 |
my @pi = map values %$_, values %{$db{pi}}; |
63 |
|
64 |
printf "Dump of %d program information structures\n\n", 1*@pi; |
65 |
|
66 |
for (sort { $a->{start_date} <=> $b->{start_date} || |
67 |
$a->{start_time} <=> $b->{start_time} || |
68 |
$a->{netwop_no} <=> $b->{netwop_no} } @pi) { |
69 |
my $ti = string2text($_->{title}); |
70 |
|
71 |
my $start = date2unix($_->{start_date}, $_->{start_time}, $db{ai}{networks}[$_->{netwop_no}]{LTO}); |
72 |
my $stop = date2unix($_->{start_date}, $_->{stop_time }, $db{ai}{networks}[$_->{netwop_no}]{LTO}); |
73 |
$stop += 86400 if $stop < $start; |
74 |
|
75 |
printf "PI #%d (%s) %s - %s \"%s\"\n", $_->{block_no}, $db{ai}{networks}[$_->{netwop_no}]{netwop_name}, |
76 |
strftime("%A %Y-%m-%d %H:%M", localtime $start), strftime("%H:%M", localtime $stop), |
77 |
$ti; |
78 |
my $si = string2text($_->{shortinfo}); $si =~ s/^/ /gm; print $si,"\n"; |
79 |
my $si = string2text($_->{longinfo}); $si =~ s/^/ /gm; print " =>",$si,"\n"; |
80 |
print " FLAGS <"; |
81 |
printf " editorial rating %d", $_->{editoral_rating} if $_->{editoral_rating}>0; |
82 |
printf " parental rating %d", $_->{parental_rating} if $_->{parental_rating}>0; |
83 |
print " Mono" if $_->{audio_flags}==0; |
84 |
print " 2 Channel" if $_->{audio_flags}==1; |
85 |
print " Stereo" if $_->{audio_flags}==2; |
86 |
print " Surround" if $_->{audio_flags}==3; |
87 |
print " Widescreen" if $_->{feature_flags}&4; |
88 |
print " PAL+" if $_->{feature_flags}&8; |
89 |
print " Digital" if $_->{feature_flags}&16; |
90 |
print " Encrypted" if $_->{feature_flags}&32; |
91 |
print " Live" if $_->{feature_flags}&64; |
92 |
print " Repeated" if $_->{feature_flags}&128; |
93 |
print " Subtitled" if $_->{feature_flags}&256; |
94 |
print " >\n"; |
95 |
print "\n"; |
96 |
} |