forked from dshumko/OpenEPG
-
Notifications
You must be signed in to change notification settings - Fork 0
/
Epg.pm
1552 lines (1189 loc) · 49.4 KB
/
Epg.pm
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
1000
package DVB::Epg;
=head1 NAME
DVB::Epg - Generate MPEG-2 transport stream chunk containing DVB Event Information table.
=head1 SYNOPSIS
This module allows generating of DVB EPG service by building EIT p/f and schedule tables.
First some event information must be added to the system. A sqlite database for storage is used.
Based on this event information the library builds the standardized EIT, which can then be
export as a MPEG-2 Transport Stream/chunk for playout. The result of the whole process is an EIT
inside a MTS.
use DVB::Epg;
my $myEpg = DVB::Epg->new( 'eitfile');
# create empty database
$myEpg->initdb();
# add program to EIT for which to generate EPG
$myEpg->addEit( 18, 9019, 1024, 15, 8, 1);
# add dummy event data to database
my $event = {};
$event->{start} = time;
$event->{stop} = time+100;
$event->{uid} = 15;
$myEpg->addEvent( $event);
# generate EPG tables to database
$myEpg->updateEit( 18);
# export EIT as MTS from database
my $mts = $myEpg->getEit( 18);
The Library can handle multiple services and multiple tables.
=head1 CLASS C<Epg>
=head2 METHODS
=cut
package DVB::EventInformationTable;
package DVB::Epg;
use 5.010;
use strict;
use warnings;
use utf8;
use DBI qw(:sql_types);
use Storable qw(freeze thaw);
use Carp;
use Exporter;
use POSIX qw(ceil);
use Encode;
use vars qw($VERSION @ISA @EXPORT);
our $VERSION = "0.51";
our @ISA = qw(Exporter);
our @EXPORT = qw();
=head3 new( $dbfile )
Class initialization with sqlite3 database filename.
Open existing or create new sqlite database.
if file name is "memory" dtatabase create in memory, without create on hdd
=cut
sub new {
my $this = shift;
my $class = ref($this) || $this;
my $self = {};
$self->{filename} = shift;
if ($self->{filename} ne "memory") {
$self->{dbh} = DBI->connect( "dbi:SQLite:" . $self->{filename} ) or return;
$self->{dbh}->{sqlite_unicode} = 1;
$self->{dbh}->do( "PRAGMA synchronous = OFF; PRAGMA temp_store = MEMORY; PRAGMA auto_vacuum = NONE; PRAGMA journal_mode = OFF; PRAGMA cache_size = 4000000;" );
}
else {
$self->{dbh} = DBI->connect( "dbi:SQLite:dbname=:memory:") or return;
$self->{dbh}->do( "PRAGMA synchronous = OFF; PRAGMA temp_store = MEMORY; PRAGMA auto_vacuum = NONE; PRAGMA journal_mode = OFF;" );
}
bless( $self, $class );
return $self;
}
=head3 dbh( )
Return database handle for direct control.
=cut
sub dbh {
return $_[0]->{dbh};
}
=head3 initdb( )
Initialize database with some basic table structure;
=cut
sub initdb {
my $self = shift;
my $dbh = $self->{dbh};
$dbh->do("BEGIN TRANSACTION");
$dbh->do( "DROP TABLE IF EXISTS event");
$dbh->do( "DROP TABLE IF EXISTS eit");
$dbh->do( "DROP TABLE IF EXISTS eit_version");
$dbh->do( "DROP TABLE IF EXISTS section");
$dbh->do( "CREATE TABLE event ( event_id INTEGER,
uid INTEGER,
start DATE,
stop DATE,
info BLOB,
timestamp DATE,
PRIMARY KEY( uid, event_id))");
$dbh->do( "CREATE TABLE eit ( pid INTEGER,
service_id INTEGER,
original_network_id INTEGER,
transport_stream_id INTEGER,
uid INTEGER,
maxsegments INTEGER,
actual INTEGER,
comment TEXT,
PRIMARY KEY( pid, original_network_id, transport_stream_id, service_id))");
$dbh->do( "CREATE TABLE eit_version ( pid INTEGER,
service_id INTEGER,
table_id INTEGER,
version_number INTEGER,
timestamp DATE,
PRIMARY KEY( pid, service_id, table_id))");
$dbh->do( "CREATE TABLE section ( pid INTEGER,
table_id INTEGER,
service_id INTEGER,
section_number INTEGER,
dump BLOB,
PRIMARY KEY( pid, service_id, table_id, section_number))");
# define triggers that set timestamps on each event when updated
$dbh->do( "CREATE TRIGGER event_timestamp_insert
AFTER INSERT ON event
BEGIN
UPDATE event
SET timestamp = DATETIME('NOW')
WHERE event_id = new.event_id
AND uid = new.uid;
END;");
$dbh->do( "CREATE TRIGGER event_timestamp_update
AFTER UPDATE ON event
BEGIN
UPDATE event
SET timestamp = DATETIME('NOW')
WHERE event_id = new.event_id
AND uid = new.uid;
END;");
$dbh->do( "CREATE TRIGGER eit_delete
AFTER DELETE ON eit FOR EACH ROW
BEGIN
DELETE FROM eit_version
WHERE eit_version.pid = old.pid
AND eit_version.service_id = old.service_id;
DELETE FROM section
WHERE section.pid = old.pid
AND section.service_id = old.service_id;
END;");
return $dbh->do("COMMIT");
}
=head3 addEvent( $event)
Add an $event to event table.
$event must be reference to hash containing at least
fields: $event->{start}, $event->{stop}, $event->{uid}
start, stop MUST be in EPOCH
Optional fields are:
$event->{id}, $event->{running_status}, $event->{free_CA_mode}
and $event->{descriptors}
Return event_key of inserted row.
=cut
sub addEvent {
my $self = shift;
my ($event) = @_;
my $dbh = $self->{dbh};
if ( !exists $event->{uid}
or !exists $event->{stop}
or !exists $event->{start}
or $event->{stop} <= $event->{start}) {
return;
}
$event->{duration} = $event->{stop} - $event->{start};
$event->{running_status} = exists $event->{running_status} ? $event->{running_status} & 1 : 0;
$event->{free_CA_mode} = exists $event->{free_CA_mode} ? $event->{free_CA_mode} & 1 : 0;
# in case when no event_id is defined
if ( !defined $event->{id}) {
# find highest event_id currently used
my @row = $dbh->selectrow_array( "SELECT event_id FROM event WHERE "
. "uid = '$event->{uid}' "
. "ORDER BY event_id DESC LIMIT 1" );
my $last_event_id;
# check if query returned result
if ( $#row == 0 ) {
$last_event_id = $row[0];
if ( $last_event_id >= 0xffff ) {
# check step by step if index from 0 on are in use
my $num = $dbh->prepare(
"SELECT event_id FROM event WHERE "
. "uid = '$event->{uid}' "
. "ORDER BY event_id" );
$num->execute();
my $lastused = -1;
my $result;
while ( $result = $num->fetch() ) {
if ( ${$result}[0] - $lastused > 1 ) {
$last_event_id = $lastused + 1;
last;
}
$lastused = ${$result}[0];
}
}
else {
# and increment by 1
++$last_event_id;
}
}
else {
# there is no result, no events exist
$last_event_id = 0;
}
$event->{id} = $last_event_id;
}
# limit to 16 bit (integer)
$event->{id} &= 0xffff;
# prepare the insertation
my $insert = $dbh->prepare(
"INSERT or REPLACE INTO event VALUES ( $event->{id}, $event->{uid},
datetime( $event->{start},'unixepoch'), datetime( $event->{stop},'unixepoch'), ?, NULL)"
);
return if !$insert;
# bind blob and insert event
$insert->bind_param( 1, freeze($event), SQL_BLOB );
if ( $insert->execute() ) {
return $event->{id};
}
else {
return;
}
}
=head3 listEvent( $uid, $event_id, $start, $stop, $touch)
List events with $uid in cronological order.
$event_id, $start, $stop, $touch are optional parameters.
$event_id is used as selection filter.
$start, $stop are used as interval specification.
If $touch is defined only elements with timestamp newer than
$touch are returned.
Return array of events.
=cut
sub listEvent {
my $self = shift;
my ( $uid, $event_id, $start, $stop, $touch ) = @_;
my $dbh = $self->{dbh};
if ( ! defined $uid) {
return;
}
my $sel = $dbh->prepare( "SELECT event_id, uid, strftime('%s',start) AS start, "
. " strftime('%s',stop) AS time, info, strftime('%s',timestamp) AS timestamp FROM event "
. " WHERE uid=$uid "
. ( defined $event_id ? " AND event_id = $event_id" : "" )
. ( defined $start ? " AND start >= datetime( $start,'unixepoch')" : "")
. ( defined $stop ? " AND stop <= datetime( $stop,'unixepoch')" : "" )
. ( defined $touch ? " AND timestamp > datetime( $touch,'unixepoch')" : "")
. " ORDER BY start" );
$sel->execute();
my ( $_event_id, $_uid, $_start, $_stop, $_info, $_timestamp );
$sel->bind_columns( \( $_event_id, $_uid, $_start, $_stop, $_info, $_timestamp ) );
my @list;
while ( $sel->fetch ) {
my $data = thaw($_info);
$data->{event_id} = $_event_id;
$data->{uid} = $_uid;
$data->{start} = $_start;
$data->{stop} = $_stop;
$data->{timestamp} = $_timestamp;
push( @list, $data );
}
return @list;
}
=head3 deleteEvent( $uid, $event_id, $start_min, $start_max, $stop_min, $stop_max)
Delete events with $uid.
$event_id, $stop_min, $stop_max, $start_min and $start_max are optional parameters.
$uid and $event_id are used as selection filter.
Delete events that have start in between $start_min, $start_max and stop in between
$stop_min, $stop_max. Use only defined markers.
Return number of deleted events.
=cut
sub deleteEvent {
my $self = shift;
my ( $uid, $event_id, $start_min, $start_max, $stop_min, $stop_max) = @_;
my $dbh = $self->{dbh};
return $dbh->do( "DELETE FROM event WHERE 1"
. ( defined $uid ? " AND uid=$uid" : "" )
. ( defined $event_id ? " AND event_id=$event_id" : "" )
. ( defined $start_min ? " AND start >= datetime( $start_min,'unixepoch')" : "")
. ( defined $start_max ? " AND start < datetime( $start_max,'unixepoch')" : "")
. ( defined $stop_min ? " AND stop > datetime( $stop_min,'unixepoch')" : "")
. ( defined $stop_max ? " AND stop <= datetime( $stop_max,'unixepoch')" : "")
);
}
=head3 addEit( $pid, $service_id, $original_network_id, $transport_stream_id, $uid, $maxsegments, $actual, $comment)
Add eit generator rule.
Maxsegments defines how far in the future the tables should be generated - each segment defines 3 hour period.
All parameters must be defined.
Return 1 on success.
=cut
sub addEit {
my $self = shift;
my ( $pid, $service_id, $original_network_id, $transport_stream_id, $uid, $maxsegments, $actual, $comment) = @_;
my $dbh = $self->{dbh};
if ( !defined $pid
or !defined $service_id
or !defined $original_network_id
or !defined $transport_stream_id
or !defined $uid
or !defined $maxsegments
or !defined $actual) {
return;
};
$comment = "" if ! defined $comment;
return $dbh->do( "INSERT or REPLACE INTO eit VALUES ( $pid, $service_id, $original_network_id, $transport_stream_id, $uid, $maxsegments, $actual, '$comment')");
# $maxsegments, $actual,"."\"\"".")");
}
=head3 listEit( )
List eit generator rules.
Return reference to an array of arrays of rules.
=cut
sub listEit {
my $self = shift;
my $dbh = $self->{dbh};
return $dbh->selectall_arrayref( "SELECT * FROM eit ORDER BY pid, uid");
}
=head3 listPid( )
List all destination pid defined in eit generator rules.
Return array of pids.
=cut
sub listPid {
my $self = shift;
my $dbh = $self->{dbh};
my $ref = $dbh->selectcol_arrayref( "SELECT DISTINCT pid FROM eit ORDER BY pid");
return ( defined ($ref) ? @{$ref} : () );
}
=head3 deleteEit( $pid, $service_id, $original_network_id, $transport_stream_id)
Delete eit generator rule.
Parameters are optional.
Return number of deleted rules.
=cut
sub deleteEit {
my $self = shift;
my ( $pid, $service_id, $original_network_id, $transport_stream_id) = @_;
my $dbh = $self->{dbh};
return $dbh->do( "DELETE FROM eit WHERE 1"
. ( defined $pid ? " AND pid=$pid" : "" )
. ( defined $service_id ? " AND service_id=$service_id" : "" )
. ( defined $original_network_id ? " AND original_network_id=$original_network_id" : "" )
. ( defined $transport_stream_id ? " AND transport_stream_id=$transport_stream_id" : "" ) );
}
=head3 updateEit( $pid, $forAllPFonly )
Use eit rules for updateing Eit sections of given $pid in database.
$forAllPFonly say that skip create shedule for other TS
Return 1 on success.
Return 0 if sections are already uptodate.
Return undef on error;
=cut
sub updateEit {
my $self = shift;
my $pid = shift;
my $forAllPFonly = shift;
my $dbh = $self->{dbh};
my $updated = 0;
if ( !defined $pid) {
return;
}
my $sel = $dbh->prepare("SELECT * FROM eit WHERE pid=$pid");
$sel->execute();
my $ret;
my $rule;
while ( $rule = $sel->fetchrow_hashref ) {
# first calculate present/following
$ret = $self->updateEitPresent($rule);
if( ! defined $ret) {
return;
};
$updated |= $ret;
# and then calculate schedule
if ( $rule->{maxsegments} > 0 ) {
$ret = $self->updateEitSchedule( $rule, $forAllPFonly );
if( ! defined $ret) {
return;
};
$updated |= $ret;
}
}
return $updated;
}
=head3 updateEitPresent( $rule, $forced)
Update eit sections for given $rule.
$rule is reference to hash containing keys:
pid, service_id, original_network_id, transport_stream_id, service_id, maxsegments, actual
Update sections only if there are changes in event table of schedule since last update or
the $forced flag is set to 1.
Return undef if failed.
Return 0 if sections are already uptodate.
Return 1 after updating sections.
=cut
sub updateEitPresent {
my $self = shift;
my $rule = shift;
my $forced = shift // 0;
my $dbh = $self->{dbh};
# extend the $rule information
$rule->{table_id} = $rule->{actual} == 1 ? 0x4e : 0x4f;
my $present_following = new DVB::EventInformationTable($rule);
# lookup version_number used at last generation of eit and timestamp
my $select = $dbh->prepare( "SELECT version_number, strftime('%s',timestamp) FROM eit_version "
." WHERE pid=$rule->{pid} AND table_id=$rule->{table_id} AND service_id=$rule->{service_id}" );
$select->execute();
my ( $last_version_number, $last_update_timestamp ) = $select->fetchrow_array();
if( $forced) {
$last_update_timestamp = 0;
}
# if lookup wasn't succesfull we need to update the eit anyway
if ( !defined $last_version_number ) {
$last_update_timestamp = 0;
$last_version_number = 0;
}
# always use this time in queries
my $current_time = time();
# find last started event
$select = $dbh->prepare( "SELECT event_id, strftime('%s',start) AS start, strftime('%s',stop) AS stop, "
. " info, strftime('%s',timestamp) AS timestamp FROM event "
. " WHERE uid=$rule->{uid} AND start <= datetime( $current_time,'unixepoch') ORDER BY start DESC LIMIT 1" );
$select->execute();
my $last_started_event = $select->fetchrow_hashref;
# find following event
$select = $dbh->prepare( "SELECT event_id, strftime('%s',start) AS start, strftime('%s',stop) AS stop, "
. " info, strftime('%s',timestamp) AS timestamp FROM event "
. " WHERE uid=$rule->{uid} AND start > datetime( $current_time,'unixepoch') ORDER BY start LIMIT 1" );
$select->execute();
my $following_event = $select->fetchrow_hashref;
my $buildEit = 0;
# check if we need an update
# is the last started event still lasting
if ( defined $last_started_event && $last_started_event->{stop} > $current_time ) {
# was the start already published or is there a change in the event data
if (
$last_started_event->{start} > $last_update_timestamp
|| # present event started after last update of eit
$last_started_event->{timestamp} > $last_update_timestamp
|| # present event was modified since last update of eit
defined $following_event
&& $following_event->{timestamp} > $last_update_timestamp
) # following event was modified since last update of eit
{
$buildEit = 1;
}
}
else {
# last event is over - there is a gap now
# was the end of the last event published or is there a change in event data of following event
if ( defined $last_started_event && $last_started_event->{stop} > $last_update_timestamp
|| # end of last started event was not pulished
defined $following_event && $following_event->{timestamp} > $last_update_timestamp
) # followig event was modified
{
$buildEit = 1;
}
}
return 0 if !$buildEit;
my $pevent;
# if there is a current event add it to table
# or add an empty section
if ( defined $last_started_event && $last_started_event->{stop} > $current_time ) {
$pevent = _unfreezeEvent( $last_started_event );
$pevent->{running_status} = 4;
}
$present_following->add2Section( 0, $pevent );
# if there is a following event add it to table
my $fevent;
if ( defined $following_event ) {
$fevent = _unfreezeEvent( $following_event );
$fevent->{running_status} = ( $following_event->{start} - $current_time ) < 20 ? 2 : 1;
}
$present_following->add2Section( 1, $fevent );
#
# Add this to playout and update version
++$last_version_number;
# Remove all section of this table
return
if !$dbh->do( "DELETE FROM section WHERE pid=$rule->{pid} AND service_id=$rule->{service_id} AND table_id=$rule->{table_id}" );
my $insert = $dbh->prepare( "INSERT INTO section VALUES ( $rule->{pid}, $rule->{table_id}, $rule->{service_id}, ?, ?)");
return if !$insert;
my $sections = $present_following->getSections($last_version_number);
foreach my $section_number ( keys %$sections ) {
$insert->bind_param( 1, $section_number );
$insert->bind_param( 2, $sections->{$section_number}, SQL_BLOB );
$insert->execute();
}
return $dbh->do( "INSERT OR REPLACE INTO eit_version VALUES ($rule->{pid}, $rule->{service_id}, "
. "$rule->{table_id}, $last_version_number, datetime( $current_time,'unixepoch'))"
);
}
=head3 updateEitSchedule( $rule, $forAllPFonly )
Update eit playout packet for given $rule.
$rule is reference to hash containing keys:
pid, service_id, original_network_id, transport_stream_id, service_id, maxsegments, actual
$forAllPFonly say that skip create shedule for other TS
=cut
sub updateEitSchedule {
my $self = shift;
my $rule = shift;
my $forAllPFonly = shift;
my $dbh = $self->{dbh};
my $num_subtable = int( ( $rule->{maxsegments} - 1 ) / 32 );
# always use this time in queries
my $current_time = time();
my $last_midnight = int( $current_time / ( 24 * 60 * 60 ) ) * 24 * 60 * 60;
# it's magic :) 7200 it's one hour ago in seconds (1*60*60) for shedule show completed program
my $current_time_shift = $current_time - 3600;
if ($last_midnight == int( $current_time_shift / ( 24 * 60 * 60 ) ) * 24 * 60 * 60) {
$current_time = $current_time_shift;
}
# iterate over all subtables
my $subtable_count = 0;
my $skipCount = 0;
while ( $subtable_count <= $num_subtable ) {
if ($forAllPFonly == 1) {
if ($rule->{actual} != 1) {
++$skipCount;
next;
}
}
# extend the $rule information
$rule->{table_id} =
( $rule->{actual} == 1 ? 0x50 : 0x60 ) + ($subtable_count - $skipCount);
my $schedule = new DVB::EventInformationTable($rule);
# lookup version_number used at last generation of eit and timestamp
my $select = $dbh->prepare(
"SELECT version_number, strftime('%s',timestamp) FROM eit_version
WHERE pid=$rule->{pid} AND table_id=$rule->{table_id} AND service_id=$rule->{service_id}"
);
$select->execute();
my ( $last_version_number, $last_update_timestamp ) =
$select->fetchrow_array();
# if lookup wasn't succesfull we need to update the eit anyway
if ( !defined $last_version_number ) {
$last_update_timestamp = 0;
$last_version_number = 0;
}
# first segment number in this subtable
my $first_segment = ($subtable_count - $skipCount) * 32;
# start of subtable interval
my $subtable_start = $last_midnight + $first_segment * 3 * 60 * 60;
# last segment in this subtable (actually it is the next of the last)
my $last_segment =
$rule->{maxsegments} >= $first_segment + 32
? $first_segment + 32
: $rule->{maxsegments};
# end of subtable interval and maxsegments
my $subtable_stop = $last_midnight + $last_segment * 3 * 60 * 60;
# find last modification time of events in this subtable
$select = $dbh->prepare( "SELECT strftime('%s',timestamp) AS timestamp FROM event "
. "WHERE uid=$rule->{uid} "
. "AND start >= datetime( $subtable_start,'unixepoch') "
. "AND start < datetime( $subtable_stop,'unixepoch') "
. "ORDER BY timestamp DESC LIMIT 1" );
$select->execute();
my ($last_event_modification) = $select->fetchrow_array() || 0;
# has there any event stopped since last update
# if yes this event can be removed from schedule
my ($n) = $dbh->selectrow_array( "SELECT count(*) FROM event "
. "WHERE uid=$rule->{uid} "
. "AND stop > datetime( $last_update_timestamp,'unixepoch') "
. "AND stop < datetime( $current_time,'unixepoch')" );
# skip this subtable if there is no need for updating
next if $last_update_timestamp >= $last_midnight
and $last_event_modification <= $last_update_timestamp
and $n == 0;
# iterate over each segment
my $segment_count = $first_segment;
while ( $segment_count < $last_segment ) {
# segment start is in future
if ( $last_midnight + $segment_count * 3 * 60 * 60 >= $current_time ) {
$select = $dbh->prepare( "SELECT event_id, strftime('%s',start) AS start, "
. "strftime('%s',stop) AS stop, info, "
. "strftime('%s',timestamp) AS timestamp FROM event "
. "WHERE uid=$rule->{uid} "
. "AND start >= datetime( " . ( $last_midnight + $segment_count * 3 * 60 * 60 ) . ",'unixepoch') "
. "AND start < datetime( " . ( $last_midnight + ( $segment_count + 1 ) * 3 * 60 * 60 ) . ",'unixepoch') "
. "ORDER BY start" );
$select->execute();
my $event;
while ( $event = $select->fetchrow_hashref ) {
my $ue = _unfreezeEvent($event);
$ue->{running_status} = 1;
$schedule->add2Segment( $segment_count, $ue );
# TODO what if all sections are in use
}
}
# segment stop is in past
elsif ( $last_midnight + ( $segment_count + 1 ) * 3 * 60 * 60 - 1 < $current_time ) {
# add empty segment
$schedule->add2Section( ( $segment_count % 32 ) * 8 );
}
# segment start is in past but segment end is in future
else {
$select = $dbh->prepare( "SELECT event_id, strftime('%s',start) AS start, strftime('%s',stop) AS stop, "
. "info, strftime('%s',timestamp) AS timestamp FROM event "
. "WHERE uid=$rule->{uid} "
. "AND stop >= datetime( $current_time,'unixepoch') "
. "AND start < datetime( " . ( $last_midnight + ( $segment_count + 1 ) * 3 * 60 * 60 ) . ",'unixepoch') "
. "ORDER BY start");
$select->execute();
my $event;
while ( $event = $select->fetchrow_hashref ) {
my $ue = _unfreezeEvent($event);
$ue->{running_status} = $event->{start} < $current_time ? 4 : 1;
$schedule->add2Segment( $segment_count, $ue );
# TODO what if all sections are in use
}
}
++$segment_count;
}
# Add subtable to playout and update version
++$last_version_number;
# Remove all section of this table
return if !$dbh->do( "DELETE FROM section "
. "WHERE pid=$rule->{pid} "
. "AND service_id=$rule->{service_id} "
. "AND table_id=$rule->{table_id}" );
my $insert = $dbh->prepare( "INSERT INTO section VALUES ( $rule->{pid}, $rule->{table_id}, $rule->{service_id}, ?, ?)" );
return if !$insert;
my $sections = $schedule->getSections($last_version_number);
foreach my $section_number ( keys %$sections ) {
$insert->bind_param( 1, $section_number );
$insert->bind_param( 2, $sections->{$section_number}, SQL_BLOB );
$insert->execute();
}
return if !$dbh->do( "INSERT OR REPLACE INTO eit_version VALUES ( $rule->{pid}, $rule->{service_id}, $rule->{table_id}, $last_version_number, datetime( $current_time,'unixepoch'))");
}
continue {
++$subtable_count;
}
return 0;
}
=head3 getEit( $pid, $timeFrame )
Build final EIT from all sections in table for given $pid and $timeFrame.
Return the complete TS chunk to be played within the timeframe.
Default timeframe should be 60s.
Return undef on error.
=cut
sub getEit {
my $self = shift;
my $pid = shift;
my $timeFrame = shift; # this is the time frame for which we are building the fragment of the TS
my $dbh = $self->{dbh};
if ( !defined $pid) {
return;
}
if( !defined $timeFrame or $timeFrame < 10) {
return;
}
# fetch all sections from database
my $sel = $dbh->prepare( "SELECT table_id, service_id, section_number, dump FROM section WHERE pid=$pid" );
$sel->execute();
my ( $_table_id, $_service_id, $_section_number, $_dump );
$sel->bind_columns( \( $_table_id, $_service_id, $_section_number, $_dump ) );
my %pfSections = ( present => { packetCount => 0, mts => ''},
following => { packetCount => 0, mts => ''});
my $pfFrequency = ceil($timeFrame / 1.7); # DON'T CHANGE THIS, IT IS THE BASIC CYCLE
# the repetition period must be at least 2s by
my @otherSections;
my $allPacketCount = 0;
# convert section into MPEG transport stream package and store in hash with
# some basic information for building up the final MTS
# the sections are grouped by present, following and other
while ( $sel->fetch ) {
my $section;
my $mts = _packetize( $pid, $_dump );
$section->{mts} = $mts;
$section->{size} = length($mts) / 188;
$section->{frequency} = $self->getSectionFrequency( $_table_id, $_section_number, $timeFrame );
$section->{table_id} = $_table_id;
$section->{service_id} = $_service_id;
$section->{section_number} = $_section_number;
# p/f table have a higher repetition rate (every 2s) and therefore are grouped separate
if( $_table_id == 0x4e) {
$section->{frequency} = $pfFrequency;
if( $_section_number == 0) {
$pfSections{present}{packetCount} += $section->{size};
$pfSections{present}{mts} .= $section->{mts};
}
else {
$pfSections{following}{packetCount} += $section->{size};
$pfSections{following}{mts} .= $section->{mts};
}
}
else {
push( @otherSections, $section);
}
$allPacketCount += $section->{frequency} * $section->{size};
}
# calculate available space for other sections than present following
my $nettoSpace = $allPacketCount - $pfFrequency * ( $pfSections{present}{packetCount} + $pfSections{following}{packetCount});
# we are going to put the sections as following
# PRESENT other FOLLOWING other PRESENT other FOLLOWING other ....
# therefore we have 2 x $pfFrequency gaps to fill up with other sections
my $interPfGap = $nettoSpace / (2*$pfFrequency);
# it is intentionally decimal number, if there are a small number of sections
# based on nettoSpace we can calculate the
# specifical spacing between each repetition of a section
foreach my $section ( @otherSections) {
$section->{spacing} = int( $nettoSpace / $section->{frequency} + .5 ) - $section->{size} - 1;
# this will be used to call down, when the next repetition should occur
$section->{nextApply} = 0;
# has the section already been played
$section->{played} = 0;
}
# printf( " all: %4i netto: %4i gap: %4i rest: %4i\n", $allPacketCount, $nettoSpace, $interPfGap, $nettoSpace-$pfFrequency*$interPfGap);
# let's build the stream
my $pfCount = 2*$pfFrequency;
my $finalMts = '';
my $gapSpace = 0;
while ( $pfCount > 0 ) {
# put alternating present and following mts in the stream
if( $pfCount % 2 == 0) {
$finalMts .= $pfSections{present}{mts};
$allPacketCount -= $pfSections{present}{packetCount};
}
else {
$finalMts .= $pfSections{following}{mts};
$allPacketCount -= $pfSections{following}{packetCount};
}
$pfCount -= 1;
# now fill up the gap with other section
$gapSpace += $interPfGap;
# at last iteration we need to put all remaining packets in the stream
$gapSpace = $allPacketCount if $pfCount == 0;
my $sectionCount = 0;
while( $gapSpace > 0 && $allPacketCount > 0) {
# sort sections by number when it has to apply, frequency and size
@otherSections = sort {
$a->{nextApply} <=> $b->{nextApply}
|| $b->{frequency} <=> $a->{frequency}
# || int(rand(3))-1
} @otherSections;
my $j = 0;
$sectionCount += 1;
my $numInsertedPackets = $otherSections[$j]->{size};
$gapSpace -= $numInsertedPackets;
# add sections to output
$finalMts .= $otherSections[$j]->{mts};
$otherSections[$j]->{frequency} -= 1;
$otherSections[$j]->{nextApply} = $otherSections[$j]->{spacing};
$otherSections[$j]->{played} = 1;
$allPacketCount -= $numInsertedPackets;
# printf( " j: %3i size: %2i gapspace: %3i pfcount: %2i all: %3i\n", $j, $otherSections[$j]->{size}, $gapSpace, $pfCount, $allPacketCount);
# if all repetitions have been done, remove section from pool
if ( $otherSections[0]->{frequency} == 0 ) {
splice( @otherSections, 0, 1); # remove finished sections
}
$j = 0;
# correct counters for all sections that have been already played
while ( $j <= $#otherSections ) {
$otherSections[$j]->{nextApply} -= $numInsertedPackets if $otherSections[$j]->{played};
$j += 1;
}
}
}
# correct continuity counter
my $continuity_counter = 0;
for ( my $j = 3 ; $j < length($finalMts) ; $j += 188 ) {
substr( $finalMts, $j, 1, chr( 0b00010000 | ( $continuity_counter & 0x0f ) ) );
$continuity_counter += 1;
}
return $finalMts;
}
=head3 getSectionFrequency( $table_id, $section_number, $timeFrame)
Make lookup by $table_id and $section_number and return how often this section
has to be repeated in the given interval. Default interval ($timeFrame) is 60 seconds.
=cut
sub getSectionFrequency {
my $self = shift;
my $table_id = shift;
my $section_number = shift;
my $timeFrame = shift;
$timeFrame = 60 if !defined $timeFrame;
# according to some scandinavian and australian specification we use following
# repetition rate:
# EITp/f actual - every <2s
# EITp/f other - every <10s
# EITsched actual 1 day - every 10s
# EITsched actual other days - every 30s
# EITsched other 1 day - every 30s