Difference between revisions of "Android RSS Video Feed"

FAIL: When using languages that have native MySQL modules, don't ignore all that hard work and use the command line `mysql` client instead.

Todo: Script needs to be updated to use Perl bindings for database credentials.

android_rss.pl

#!/usr/bin/perl
#
# Create Date: 2010-02-25
# Last Updated: 2010-02-25
# Author: Joshua Marsh
#
# Copyright (c) 2010, Joshua Marsh <joshua@themarshians.com>
# All rights reserved.
#
# Redistribution and use in source and binary forms, with or without
# modification, are permitted provided that the following conditions
# are met:
#
#    * Redistributions of source code must retain the above copyright
#      notice, this list of conditions and the following disclaimer.
#    * Redistributions in binary form must reproduce the above
#      copyright notice, this list of conditions and the following
#      disclaimer in the documentation and/or other materials
#      provided with the distribution.
#    * Neither the name of Joshua Marsh nor the names of its
#      contributors may be used to endorse or promote products
#      derived from this software without specific prior written
#      permission.
#
# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
# "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
# LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS
# FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE
# COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,
# INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING,
# BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
# LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
# CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
# LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN
# ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
# POSSIBILITY OF SUCH DAMAGE.

use strict;
use feature qw(say);

####### Global Variables #######
my $mythdir = '/data/mythtv';
my $feedsdir = "$mythdir/feeds";
my $outdir = "$feedsdir/recordings/";

my $mysql = 'mysql';
my $user = 'myth';
my $pass = 'myth';
my $db = 'mythconverg';
my $opts = '-Ns';
my $mysqlcmd = "$mysql $opts -u$user -p$pass -D$db -e ";

my $url = "http://www.mydomain.com";

# Get a list of the recorded programs.
my @programs = get_program_list ();

# Get a list of the files in the output directory.
my @encoded = get_files_in_output_dir ();

# Delete files in the video directory that are no longer in the
# recorded programs list.
clear_old_encodings (\@programs, \@encoded);

# Print out the header information for the RSS Feeds.
print_header ();

# Loop through each of the recorded programs.
print_dir_to_xml (\@programs, 'recordings', 'mp4');

# TODO Add video, mp3s, etc here.

# Print out the footer information for the RSS Feeds.
print_footer ();

####### Helper Functions #######
sub get_program_list
{
    my $query = 'SELECT CONCAT_WS(\'_\', chanid, DATE_FORMAT(starttime, \'%Y%m%d%H%i%s\')) FROM recorded WHERE recgroup <> \'LiveTV\';';
    my @list = `$mysqlcmd "$query"`;

    chomp (@list);

    return @list;
}

sub get_files_in_output_dir
{
    my @list = `ls $outdir | grep -v "xml" | sed -e 's/\.mp4//g'`;

    chomp (@list);

    return @list;
}

sub clear_old_encodings
{
    my $programs = shift;
    my $encoded = shift;

    for (@$encoded) 
    {
	my $found = 0;
	my $encodee = $_;
	for (@$programs) {
	    if ($_ eq $encodee) {
		$found = 1;
		last;
	    }
	}
	
	if (!$found) {
	    print STDERR "WARN: '$encodee' is no longer in the database. " .
		"Deleting it.\n";
	    `rm -f $outdir/$encodee.mp4`;
	}
    }
}

sub print_header
{
    say '<?xml version="1.0" encoding="UTF-8"?>';
    say '<rss version="2.0">';
    say '<channel>';
    say '<title>My MythTV Smartphone Recordings</title>';
    say '<description>My RSS feed of available video feeds.</description>';
    say '<link>'. $url  .'</link>';
    say '<language>en-us</language>';
}

sub print_footer
{
    say '</channel>';
    say '</rss>';
}

sub get_program_info
{
    my $progID = shift;

    my $query = "SELECT title, subtitle, description, TIMESTAMPDIFF(MINUTE, starttime, endtime) AS duration, category, starttime FROM recorded WHERE CONCAT_WS('_', chanid, DATE_FORMAT(starttime, '%Y%m%d%H%i%s')) = '$progID';";

    my $data = `$mysqlcmd "$query"`;

    chomp $data;
    my @vals = split /\t/, $data;

    my %info = (
	'title'       => $vals[0],
	'subtitle'    => $vals[1],
	'description' => $vals[2],
	'duration'    => $vals[3],
	'category'    => $vals[4],
	'date'   => $vals[5],
	'uid'         => $progID
    );
    
    return \%info;    
}

sub print_program_info
{
    my $pi = shift;
    my $subdir = shift;
    my $extension = shift;

    say "<item>";
    say "<title>$pi->{'title'} - $pi->{'subtitle'}</title>";
    say "<link>$url/$subdir/$pi->{'uid'}.$extension</link>";
    say "<guid>\"$url/$subdir/$pi->{'uid'}.$extension\"</guid>";
    say "<description>$pi->{description}</description>";
    say "<enclosure url=\"$url/$subdir/$pi->{'uid'}.$extension\" length=\"$pi->{duration} min\" type=\"video/mp4\"/>";
    say "<category>$pi->{'category'}</category>";
    say "<pubDate>$pi->{'date'}</pubDate>";
    say "</item>";
}

sub print_dir_to_xml
{
    my $files = shift;
    my $subdir = shift;
    my $extension = shift;

    foreach (@$files)
    {
	chomp;
	
	# Verify the file exists
	if (!-e "$feedsdir/$subdir/$_.$extension")
	{
	    print STDERR "ERROR: '$feedsdir/$subdir/$_.$extension' does not exits. Skipping.\n";
	    next;
	}
	
	# Get the information about the file from the DB for the RSS Feeds.
	my $program_info = get_program_info ($_);
	
	# Print out the information in XML format.
	print_program_info ($program_info, $subdir, $extension);
    }
}

recordings.xml

<?xml version="1.0" encoding="UTF-8"?>
<rss version="2.0">
<channel>
<title>My MythTV Smartphone Recordings</title>
<description>My RSS feed of available video feeds.</description>
<link>https://www.mydomain.com/</link>
<language>en-us</language>
<item>
<title>Oprah Winfrey - </title>
<link>http://www.mydomain.com/recordings/1021_20100226165300.mp4</link>
<guid>"http://www.mydomain.com/recordings/1021_20100226165300.mp4"</guid>

<description>Oprah discusses topics with guests, before a studio audience.</description>
<enclosure url="http://www.mydomain.com/recordings/1021_20100226165300.mp4" length="7 min" type="video/mp4"/>
<category>Talk</category>
<pubDate>2010-02-26 16:53:00</pubDate>
</item>
</channel>
</rss>

mp4.sh

#!/bin/bash

if [ ! $# == 1 ]; then
  echo "Usage: $0 FileID"
  exit
fi

# The Unique FileID from the database (chan_id + '_' + startdate)
FID="$1";

MYTHDIR="/data/mythtv"
OUTDIR="$MYTHDIR/feeds/recordings"

INFILE="${1}.mpg"
OUTFILE="${1}.mp4"

INPATH=`find $MYTHDIR -name "$INFILE" 2>/dev/null | head -n1`;

# Figure out what dimensions we should encode it in via the aspect.
VINFO=`mplayer -vo null -ao null -frames 10 -identify "${INDIR}/${INFILE}" 2>/dev/null`
ASPECT=`echo $VINFO | egrep -oe "Movie-Aspect is [0-9:.]+" | egrep -o "[0-9:.]+"`
if [ "$ASPECT" == "1.78:1" ]
then
  WIDTH=432
  HEIGHT=240
else
  WIDTH=480
  HEIGHT=360
fi

VBITRATE=248k
SIZE="${WIDTH}x${HEIGHT}"
ABITRATE=128k
ACODEC="-acodec libfaac"

# Create the MP4
ffmpeg -i "${INPATH}" -s ${SIZE} -b ${VBITRATE} -f mp4 "${OUTDIR}/${OUTFILE}" 
MP4Box -tmp "${MYTHDIR}/tmp/" -hint "${OUTDIR}/${OUTFILE}"