Dave Cross: Still Munging Data With Perl: Online event - Mar 17 Learn more

DAVIDRW / GBPVR-CDBI-0.02 / lib / GBPVR / CDBI / RecordingSchedule.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

              
package GBPVR::CDBI::RecordingSchedule;
use warnings;
use strict;
our $VERSION = '0.02';
use base 'GBPVR::CDBI';
use GBPVR::CDBI::PlaybackPosition;
use GBPVR::CDBI::VideoArchive::ArchiveTable;
__PACKAGE__->table('recording_schedule');
__PACKAGE__->columns(Primary => qw/oid/ );
__PACKAGE__->columns(All => qw/
        oid
        programme_oid
        capture_source_oid
        filename
        status 
        recording_type
        recording_group
        manual_start_time
        manual_end_time
        manual_channel_oid
        quality_level
        pre_pad_minutes
        post_pad_minutes
/, 
);
sub parse_manual_time {
  my $self = shift;
  my $time = shift;
  return unless $time =~ /^(\d+)-(\d+)-(\d+) (\d+):(\d+):(\d+)$/;
  return ($1, $2, $3, $4, $5, $6);  # (Y,M,D, H,M,S)
}
sub start_time {
  my $self = shift;
  my $time = $self->manual_start_time or return;
  return sprintf( "%02d:%02d", ($self->parse_manual_time($time))[3,4] );
}
sub end_time {
  my $self = shift;
  my $time = $self->manual_end_time or return;
  return sprintf( "%02d:%02d", ($self->parse_manual_time($time))[3,4] );
}
sub start_date {
  my $self = shift;
  my $time = $self->manual_start_time or return;
  return sprintf( "%04d-%02d-%02d", ($self->parse_manual_time($time))[0,1,2] );
}
sub end_date {
  my $self = shift;
  my $time = $self->manual_end_time or return;
  return sprintf( "%04d-%02d-%02d", ($self->parse_manual_time($time))[0,1,2] );
}
__PACKAGE__->has_a( programme_oid => 'GBPVR::CDBI::Programme');
__PACKAGE__->has_a( capture_source_oid => 'GBPVR::CDBI::CaptureSource');
__PACKAGE__->has_a( manual_channel_oid => 'GBPVR::CDBI::Channel');
__PACKAGE__->columns(Stringify => qw/ programme_oid / );
sub last_position {
  my $obj = shift;
  my ($pp) = GBPVR::CDBI::PlaybackPosition->find_or_create( { filename => $obj->filename } );
  if( @_ ){
    $pp->last_position( shift );
    $pp->update;
  }
  return $pp->last_position;
}
sub archivetable {
  my $obj = shift;
  my ($at) = GBPVR::CDBI::VideoArchive::ArchiveTable->search( UniqueID => $obj->programme_oid->unique_identifier );
  return $at;
}
sub status_string {
  my $obj = shift;
  my %mapping = (
        0       => 'Pending',
        2       => 'Compeleted',
  );
  return $mapping{ $obj->status };
}
1;
__END__
=head1 NAME
GBPVR::CDBI::RecordingSchedule - GBPVR.recording_schedule table
=head1 VERSION
Version 0.02
=head1 SYNOPSIS
=head1 ATTRIBUTES
oid, programme_oid, capture_source_oid, filename, status, recording_type, recording_group, manual_start_time, manual_end_time, manual_channel_oid, quality_level, pre_pad_minutes, post_pad_minutes
manual_start_time and manual_end_time are 'YYYY-MM-DD HH:MM:SS' strings.
=head2 start_time
Read-only.  Returns manual_start_time as a 'HH:MM' string.
=head2 end_time
Read-only.  Returns manual_end_time as a 'HH:MM' string.
=head2 start_date
Read-only.  Returns manual_start_time as a 'YYYY-MM-DD' string.
=head2 end_date
Read-only.  Returns manual_end_time as a 'YYYY-MM-DD' string.
=head1 FOREIGN KEYS
        programme_oid => L<GBPVR::CDBI::Programme>
        capture_source_oid => L<GBPVR::CDBI::CaptureSource>
        manual_channel_oid => L<GBPVR::CDBI::Channel>
=head1 METHODS
=head2 last_position
Alias accessor/mutator for the corresponding (created if none exists) GBPVR::CDBI::PlaybackPosition->last_position attribute.
=head2 archivetable
Attempts to return the corresponding (via unique_identifier) GBPVR::CDBI::VA::ArchiveTable object.
=head2 status_string
Maps $obj->status to a human-readable string.
=head2 parse_manual_time
Takes a 'YYYY-MM-DD HH:MM:SS' string and returns a (YYYY,MM,DD,HH,MM,SS) array.
=head1 AUTHOR
David Westbrook, C<< <dwestbrook at gmail.com> >>
=head1 COPYRIGHT & LICENSE
Copyright 2006 David Westbrook, all rights reserved.
This program is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.
=cut