Skip to content

Commit

Permalink
Import more code from nuvexport/mythweb.. not finished with the impor…
Browse files Browse the repository at this point in the history 
…t, but wanted to commit this before I shut down for the night

git-svn-id: http://svn.mythtv.org/svn/trunk@9725 7dbf422c-18fa-0310-86e9-fd20926502f2
  • Loading branch information
@ex-nerd
ex-nerd committed Apr 16, 2006
1 parent ab42e46 commit 39bd620
Show file tree
Hide file tree
Showing 4 changed files with 603 additions and 69 deletions.
28 changes: 28 additions & 0 deletions mythtv/bindings/perl/MythTV.pm
View file
Expand Up @@ -11,7 +11,9 @@
$VERSION = '.20 svn';

# Load sub libraries
use MythTV::Program;
use MythTV::Recording;
use MythTV::Channel;

# Define some constants
use constant {
Expand Down Expand Up @@ -151,6 +153,7 @@ package MythTV;
'master_port' => undef,
'dbh' => undef,

'channels' => {},
'scheduled' => [],
'recorded' => [],

Expand Down Expand Up @@ -193,6 +196,10 @@ package MythTV;
die "Unable to connect to mythbackend, is it running?\n";
}

# Find the directory where the recordings are located
$self->{'video_dir'} = $self->backend_setting('RecordFilePrefix', $self->{'hostname'});
$self->{'video_dir'} =~ s/\/+$//;

# Cache the database handle
$MythTV::last = $self;

Expand Down Expand Up @@ -353,6 +360,27 @@ package MythTV;
return %rows;
}

# Return a channel object
sub channel {
my $self = shift;
my $chanid = shift;
$self->_load_channels() unless ($self->{'channels'}{$chanid});
return $self->{'channels'}{$chanid};
}

# Load all of the known channels for this connection
sub _load_channels {
my $self = shift;
return if (%{$self->{'channels'}});
# Load the channels
my $sh = $self->{'dbh'}->prepare('SELECT * FROM channel');
$sh->execute();
while (my $row = $sh->fetchrow_hashref) {
$self->{'channels'}{$row->{'chanid'}} = new MythTV::Channel($row);
}
$sh->finish;
}

# Return true
1;

56 changes: 56 additions & 0 deletions mythtv/bindings/perl/MythTV/Channel.pm
View file
@@ -0,0 +1,56 @@
#
# MythTV bindings for perl.
#
# Object containing info about a particular MythTV channel.
#
# @url $URL$
# @date $Date$
# @version $Revision$
# @author $Author$
#

# Make sure that the main MythTV package is loaded
use MythTV;

package MythTV::Channel;

# Constructor
sub new {
my $class = shift;
my $self = { };
bless($self, $class);

# The information passed in will be a hashref
my $data = shift;

$self->{'atscsrcid'} = $data->{'atscsrcid'};
$self->{'brightness'} = $data->{'brightness'};
$self->{'callsign'} = $data->{'callsign'};
$self->{'chanid'} = $data->{'chanid'};
$self->{'channum'} = $data->{'channum'};
$self->{'colour'} = $data->{'colour'};
$self->{'commfree'} = $data->{'commfree'};
$self->{'contrast'} = $data->{'contrast'};
$self->{'finetune'} = $data->{'finetune'};
$self->{'freqid'} = $data->{'freqid'};
$self->{'hue'} = $data->{'hue'};
$self->{'icon'} = $data->{'icon'};
$self->{'mplexid'} = $data->{'mplexid'};
$self->{'name'} = $data->{'name'};
$self->{'outputfilters'} = $data->{'outputfilters'};
$self->{'recpriority'} = $data->{'recpriority'};
$self->{'serviceid'} = $data->{'serviceid'};
$self->{'sourceid'} = $data->{'sourceid'};
$self->{'tmoffset'} = $data->{'tmoffset'};
$self->{'tvformat'} = $data->{'tvformat'};
$self->{'useonairguide'} = $data->{'useonairguide'};
$self->{'videofilters'} = $data->{'videofilters'};
$self->{'visible'} = $data->{'visible'};
$self->{'xmltvid'} = $data->{'xmltvid'};

# Return
return $self;
}

# Return true
1;
250 changes: 250 additions & 0 deletions mythtv/bindings/perl/MythTV/Program.pm
View file
@@ -0,0 +1,250 @@
#
# MythTV bindings for perl.
#
# Object containing info about a particular MythTV program.
#
# @url $URL$
# @date $Date$
# @version $Revision$
# @author $Author$
#

# Make sure that the main MythTV package is loaded
use MythTV;

package MythTV::Program;

# Constructor
sub new {
my $class = shift;
my $self = { };
bless($self, $class);
$self->_parse_data(@_);
return $self;
}

# Handle the data passed into new(). Be aware that this routine is also called
# by subclass constructors.
sub _parse_data {
my $self = shift;

# Figure out how the data was passed in
my $rows;
if (ref $_[0]) {
$rows = $_[0];
$self->{'_mythtv'} = $_[0];
}
else {
$rows = \@_;
}
$self->{'_mythtv'} ||= $MythTV::last;

# No connection to the backend?
unless ($self->{'_mythtv'}) {
die "Attempted to create a $class object with no defined"
." MythTV object.\n";
}

# Load the passed-in data
$self->{'title'} = $rows->[0]; # program name/title
$self->{'subtitle'} = $rows->[1]; # episode name
$self->{'description'} = $rows->[2]; # episode description
$self->{'category'} = $rows->[3]; #
$self->{'chanid'} = $rows->[4]; #
$self->{'channum'} = $rows->[5]; #
$self->{'callsign'} = $rows->[6]; #
$self->{'channame'} = $rows->[7]; #
$self->{'filename'} = $rows->[8]; # Recorded hostname/filename
$self->{'fs_high'} = $rows->[9]; # High byte of the filesize
$self->{'fs_low'} = $rows->[10]; # Low byte of the filesize
$self->{'starttime'} = $rows->[11]; # Scheduled starttime (unix timestamp)
$self->{'endtime'} = $rows->[12]; # Scheduled endtime (unix timestamp)
$self->{'hostname'} = $rows->[16]; #
$self->{'sourceid'} = $rows->[17]; #
$self->{'cardid'} = $rows->[18]; #
$self->{'inputid'} = $rows->[19]; #
$self->{'recpriority'} = $rows->[20]; #
$self->{'recstatus'} = $rows->[21]; #
$self->{'recordid'} = $rows->[22]; #
$self->{'rectype'} = $rows->[23]; #
$self->{'dupin'} = $rows->[24]; # Fields to use for duplicate checking
$self->{'dupmethod'} = $rows->[25]; #
$self->{'recstartts'} = $rows->[26]; # ACTUAL start time (unix timestamp)
$self->{'recendts'} = $rows->[27]; # ACTUAL end time (unix timestamp)
$self->{'previouslyshown'} = $rows->[28]; # Rerun
$self->{'progflags'} = $rows->[29]; #
$self->{'recgroup'} = $rows->[30]; #
$self->{'commfree'} = $rows->[31]; #
$self->{'outputfilters'} = $rows->[32]; #
$self->{'seriesid'} = $rows->[33]; #
$self->{'programid'} = $rows->[34]; #
$self->{'lastmodified'} = $rows->[35]; #
$self->{'recpriority'} = $rows->[36]; #
$self->{'airdate'} = $rows->[37]; # Original airdate (unix timestamp)
$self->{'hasairdate'} = $rows->[38]; #
$self->{'timestretch'} = $rows->[39]; #
$self->{'recpriority2'} = $rows->[40]; #

# Load the channel data
if ($self->{'chanid'}) {
$self->{'channel'} = $self->{'_mythtv'}->channel($self->{'chanid'});
}

# Assign the program flags
$self->{'has_commflag'} = ($self->{'progflags'} & 0x01) ? 1 : 0; # FL_COMMFLAG = 0x01
$self->{'has_cutlist'} = ($self->{'progflags'} & 0x02) ? 1 : 0; # FL_CUTLIST = 0x02
$self->{'auto_expire'} = ($self->{'progflags'} & 0x04) ? 1 : 0; # FL_AUTOEXP = 0x04
$self->{'is_editing'} = ($self->{'progflags'} & 0x08) ? 1 : 0; # FL_EDITING = 0x08
$self->{'bookmark'} = ($self->{'progflags'} & 0x10) ? 1 : 0; # FL_BOOKMARK = 0x10
# And some other calculated fields
$self->{'will_record'} = ($self->{'rectype'} && $self->{'rectype'} != rectype_dontrec) ? 1 : 0;

# Defaults
$self->{'title'} = 'Untitled' unless ($self->{'title'} =~ /\S/);
$self->{'subtitle'} = 'Untitled' unless ($self->{'subtitle'} =~ /\S/);
$self->{'description'} = 'No Description' unless ($self->{'description'} =~ /\S/);
}

# Return a formatted filename for this Recording
sub format_name {
my $self = shift;
my $format = shift;
my $separator = (shift or '-');
my $replacement = (shift or '-');
my $allow_dirs = (shift) ? 1 : 0;
# Escape where necessary
my $safe_sep = $separator;
$safe_sep =~ s/([^\w\s])/\\$1/sg;
my $safe_rep = $replacement;
$safe_rep =~ s/([^\w\s])/\\$1/sg;
# Default format
unless ($format) {
if ($self->{'title'} ne 'Untitled' and $self->{'subtitle'} ne 'Untitled') {
$format = '%T %- %S';
}
elsif ($self->{'title'} ne 'Untitled') {
$format = '%T %- %Y-%m-%d, %g-%i %A';
}
elsif ($self->{'subtitle'} ne 'Untitled') {
$format = '%c %- %Y-%m-%d, %g-%i %A %- %S';
}
else {
$format = '%c %- %Y-%m-%d, %g-%i %A %- %S';
}
}
# Start/end times
my ($ssecond, $sminute, $shour, $sday, $smonth, $syear) = localtime($self->{'starttime'});
my ($esecond, $eminute, $ehour, $eday, $emonth, $eyear) = localtime($self->{'endtime'});
# Format some fields we may be parsing below
# Start time
$syear += 1900;
$smonth++;
$smonth = "0$smonth" if ($smonth < 10);
$sday = "0$sday" if ($sday < 10);
my $meridian = ($shour > 12) ? 'PM' : 'AM';
my $hour = ($shour > 12) ? $shour - 12 : $shour;
if ($hour < 10) {
$hour = "0$hour";
}
elsif ($hour < 1) {
$hour = 12;
}
# End time
$eyear += 1900;
$emonth++;
$emonth = "0$emonth" if ($emonth < 10);
$eday = "0$eday" if ($eday < 10);
my $emeridian = ($ehour > 12) ? 'PM' : 'AM';
my $ethour = ($ehour > 12) ? $ehour - 12 : $ehour;
if ($ethour < 10) {
$ethour = "0$ethour";
}
elsif ($ethour < 1) {
$ethour = 12;
}
# Original airdate
my ($oday, $omonth, $oyear) = (localtime($self->{'airdate'}))[3,4,5];
$oyear += 1900;
$omonth++;
$omonth = "0$omonth" if ($omonth < 10);
$oday = "0$oday" if ($oday < 10);
# Build a list of name format options
my %fields;
($fields{'T'} = ($self->{'title'} or '')) =~ s/%/%%/g;
($fields{'S'} = ($self->{'subtitle'} or '')) =~ s/%/%%/g;
($fields{'R'} = ($self->{'description'} or '')) =~ s/%/%%/g;
($fields{'C'} = ($self->{'category'} or '')) =~ s/%/%%/g;
($fields{'U'} = ($self->{'recgroup'} or '')) =~ s/%/%%/g;
# Channel info
$fields{'c'} = $self->{'chanid'};
($fields{'cn'} = ($self->{'channel'}{'channum'} or '')) =~ s/%/%%/g;
($fields{'cc'} = ($self->{'channel'}{'callsign'} or '')) =~ s/%/%%/g;
($fields{'cN'} = ($self->{'channel'}{'name'} or '')) =~ s/%/%%/g;
# Start time
$fields{'y'} = substr($syear, 2); # year, 2 digits
$fields{'Y'} = $syear; # year, 4 digits
$fields{'n'} = int($smonth); # month
$fields{'m'} = $smonth; # month, leading zero
$fields{'j'} = int($sday); # day of month
$fields{'d'} = $sday; # day of month, leading zero
$fields{'g'} = int($hour); # 12-hour hour
$fields{'G'} = int($shour); # 24-hour hour
$fields{'h'} = $hour; # 12-hour hour, with leading zero
$fields{'H'} = $shour; # 24-hour hour, with leading zero
$fields{'i'} = $sminute; # minutes
$fields{'s'} = $ssecond; # seconds
$fields{'a'} = lc($meridian); # am/pm
$fields{'A'} = $meridian; # AM/PM
# End time
$fields{'ey'} = substr($eyear, 2); # year, 2 digits
$fields{'eY'} = $eyear; # year, 4 digits
$fields{'en'} = int($emonth); # month
$fields{'em'} = $emonth; # month, leading zero
$fields{'ej'} = int($eday); # day of month
$fields{'ed'} = $eday; # day of month, leading zero
$fields{'eg'} = int($ethour); # 12-hour hour
$fields{'eG'} = int($ehour); # 24-hour hour
$fields{'eh'} = $ethour; # 12-hour hour, with leading zero
$fields{'eH'} = $ehour; # 24-hour hour, with leading zero
$fields{'ei'} = $eminute; # minutes
$fields{'es'} = $esecond; # seconds
$fields{'ea'} = lc($emeridian); # am/pm
$fields{'eA'} = $emeridian; # AM/PM
# Original Airdate
$fields{'oy'} = substr($oyear, 2); # year, 2 digits
$fields{'oY'} = $oyear; # year, 4 digits
$fields{'on'} = int($omonth); # month
$fields{'om'} = $omonth; # month, leading zero
$fields{'oj'} = int($oday); # day of month
$fields{'od'} = $oday; # day of month, leading zero
# Literals
$fields{'%'} = '%';
($fields{'-'} = $separator) =~ s/%/%%/g;
# Make the substitution
my $keys = join('|', reverse sort keys %fields);
my $name = $format;
$name =~ s#/#$allow_dirs ? "\0" : $separator#ge;
$name =~ s/(?<!%)(?:%($keys))/$fields{$1}/g;
$name =~ s/%%/%/g;
# Some basic cleanup for illegal (windows) filename characters, etc.
$name =~ tr/\ \t\r\n/ /s;
$name =~ tr/"/'/s;
$name =~ s/(?:[\/\\:*?<>|]+\s*)+(?=[^\d\s])/$replacement /sg;
$name =~ s/[\/\\:*?<>|]/$replacement/sg;
$name =~ s/(?:(?:$safe_sep)+\s*)+(?=[^\d\s])/$separator /sg;
$name =~ s/^($safe_sep|$safe_rep|\ )+//s;
$name =~ s/($safe_sep|$safe_rep|\ )+$//s;
$name =~ s/\0($safe_sep|$safe_rep|\ )+/\0/s;
$name =~ s/($safe_sep|$safe_rep|\ )+\0/\0/s;
# Underscores?
if ($underscores) {
$name =~ tr/ /_/s;
}
# Folders
$name =~ s#\0#/#sg;
# Return
return $name;
}

# Return true
1;

0 comments on commit 39bd620

Please sign in to comment.