Video::PlaybackMachine::ContentManager - Routines to manage PlaybackMachine content

Video-PlaybackMachine documentation Contained in the Video-PlaybackMachine distribution.

Index

Code Index:

NAME

Top

Video::PlaybackMachine::ContentManager -- Routines to manage PlaybackMachine content

DESCRIPTION

Top

Utility routines for dealing with movie files and the database.

EXPORTED SUBROUTINES

Top

get_missing()

  get_missing($FILENAME)

Returns any avi entries which do not exist on the local file system. Note: will not decode MRLs; assumes straight filenames.

get_title()

  get_title($FILENAME)

Turns a filename into a default title by removing the suffix, deleting type prefixes (such as 'movie', 'music', or 'short'), transforming underscores to spaces, and capitalizing words.

get_length()

  get_length($FILENAME)

If $FILENAME is readable by Xine, returns the file length. If $FILENAME is unreadable or nonexistent, croaks with "Couldn't open '$FILENAME'".

add_movie()

  add_movie($FILENAME, $TITLE, $LENGTH)

Adds a movie to the database as schedulable content, with $FILENAME as the filename, $TITLE as the title, and $LENGTH as the length. $TITLE and $LENGTH are optional; if they're left out, they'll be derived from the file.

add_fill() 

  add_fill($FILENAME, $TITLE, $LENGTH)

Adds a movie to the database as fill content, with $FILENAME as the filename, $TITLE as the title, and $LENGTH as the length. $TITLE and $LENGTH are optional; they'll be derived from the movie file if not specified.

fix_all_lengths()

Runs through all items in the database and rereads and fixes the lengths.

Video-PlaybackMachine documentation Contained in the Video-PlaybackMachine distribution. 
package Video::PlaybackMachine::ContentManager;

use strict;
use warnings;
use diagnostics;

use Video::PlaybackMachine::Config;
use Video::Xine;
use File::Basename;
use POSIX 'ceil';
use Carp;

use DBI;

use base 'Exporter';
our @EXPORT_OK =
  qw(get_title get_length add_movie add_fill get_missing fix_lengths);

####################### Module Constants #########################

our $Database_Name = Video::PlaybackMachine::Config->config()->database();

######################## Subroutines ############################

sub get_missing {
    my ($filename) = @_;

    my $dbh = get_dbh();
    my $sth = $dbh->prepare('SELECT title,file FROM av_file_component');
    $sth->execute()
      or die "Couldn't execute: '$DBI::errstr'; stopped";

    my @missing = ();
    while ( my ( $title, $file ) = $sth->fetchrow_array() ) {
        -f $file and next;
        push( @missing, [ $title, $file ] );
    }

    return @missing;
}

sub get_title {
    my ($filename) = @_;

    my $name = basename( $filename, '.avi', '.mov', '.dv', '.vob', '.mp4' );
    $name =~ s/^(?:movie|music|short|fill)_//;
    my @words = split( /_/, $name );
    my $title = join( ' ', map { ucfirst( lc($_) ) } @words );
}

BEGIN: {

    my $dbh;

    sub get_dbh {
        if ( !defined($dbh) ) {

            $dbh = DBI->connect(
                "dbi:Pg:dbname=$Database_Name",
                '', '',
                {
                    RaiseError => 1,
                    AutoCommit => 1
                }
              )
              or croak( "Couldn't open database '$Database_Name' for reading: ",
                DBI->errstr(), ", stopped" );
        }
        return $dbh;

    }
}

sub get_length {
    my ($filename) = @_;

    my $xine = Video::Xine->new( config_file => '/dev/null' );
    my $null_ao_driver = Video::Xine::Driver::Audio->new( $xine, 'none' )
      or die "Couldn't open audio driver\n";
    my $stream = $xine->stream_new($null_ao_driver);
    $stream->open($filename)
      or croak "Couldn't open '$filename'";
    my ( undef, undef, $length_millis ) = $stream->get_pos_length();

    return ceil( $length_millis / 1000 );
}

sub add_movie {
    my ( $filename, $title, $length ) = @_;

    my $dbh = get_dbh();

    $dbh->begin_work();

    _add_av_file( $dbh, $filename, $title, $length );

    $dbh->do( 'INSERT INTO contents (title) VALUES (?)', {}, $title );

    $dbh->commit();

}

sub fix_lengths {
    my $dbh = get_dbh();
    my $sth = $dbh->prepare('SELECT title, file FROM av_file_component');
    $sth->execute();

    while ( my ( $title, $file ) = $sth->fetchrow_array() ) {
        my $duration = get_length($file)
          or next;
        print STDOUT "Setting '$file' duration to $duration seconds\n";
        $dbh->do( "UPDATE av_file_component SET duration=? WHERE file=?",
            {}, "$duration seconds", $file )
          or die "Couldn't update '$file': $DBI::errstr";
    }

}

sub add_fill {
    my ( $filename, $title, $length ) = @_;

    my $dbh = get_dbh();

    $dbh->begin_work();

    _add_av_file( $dbh, $filename, $title, $length );

    $dbh->do( 'INSERT INTO fill_shorts (title) VALUES (?)', {}, $title );

    $dbh->commit();
}

sub _add_av_file {
    my ( $dbh, $filename, $title, $length ) = @_;

    $dbh->do( 'INSERT INTO av_files(title) VALUES(?)', {}, $title );
    $dbh->do(
        'INSERT INTO av_file_component (title, file, duration) VALUES(?,?,?)',
        {}, $title, $filename, "$length seconds" );

}

1;

__END__