-cropleft 10 -cropright 10 -cropbottom 8 -croptop 8

$PUBLISH="/mnt/store/ipod";
$MYTHWEB_URL="http://www.yourwebsitehere.com/mythweb";

mpg2ipod --rebuild

http://www.yourhostnamehere.com/ipodfeed/feed.php

#!/usr/bin/perl -w
# VERSION: Beta .6 - mpg2ipod
# BIG CHANGES since .4 seperate xml item files for each video
# No more need to rebuild feed file from datebase each time
# Default feed file is now .rss
# Author: Chris aka Wififun - email: wififun-at-gmail.com
#
# Requirements: recompile ffmpeg with --enable-xvid --enable-gpl --enable-faac
# mythweb should be accessable to your iTunes machine you can edit your hosts
# file to have mythtv point the right IP
# create a feedpath like /myth/ipod and make sure to chown mythtv:mythtv
# then create a symlink that feedpath "ln -s /myth/ipod /var/www/ipodfeed"
# put this script in /usr/local/bin and make sure mythtv can run it
# it may need chown root:mythtv
# open mythtv-setup and under General set up one of your User Jobs to run it:
# /usr/local/bin/mpg2ipod "%DIR%" "%FILE%"
# Give the job a name like "Copy for iPod feed" and exit setup
# Then edit your recording schedules for each show you want in the feed.
# under Post Processing, add the newly created job to the list.
# you can also select it after a recording is finished, from the Job Options
# item when you get info for a previously recorded program.
# In iTunes, select "Subscribe to Podcast" from the Advanced menu
# enter the url http://www.yourhostnamehere.com/ipodfeed/feed.php
# have fun

# Includes
   use DBI;
   use Getopt::Long;
   use File::Path;
   
# User variables
   my $portable = "ipod";
   my $feedfile = "/myth/ipod/feed.php";
   my $feedpath = "/myth/ipod/";
   my $wwwloc = "/var/www/";
   my $feedurl = "http://www.yourhostnamehere.com/ipodfeed/";
   
   # Ecoder settings, may be modified to support other devices
   # 5G iPod with Video compatable settings. MPEG4/XVID AAC audio
   my $encodeopt = "-y -cropleft 10 -cropright 10 -croptop 8 -cropbottom 8 -deinterlace -vcodec xvid -s 320x240 -r 29.97 -b 384 -qmin 2 -qmax 5 -bufsize 4096 -acodec aac -ab 96 -g 300";

# Some variables
   our ($dest, $format, $usage);
   our ($db_host, $db_user, $db_name, $db_pass, $video_dir);
   our ($hostname, $db_handle, $sql, $statement, $row_ref);
#    our ($chanid, $start, $end, $nuvfile, @nuvarray);   
   my $rebuild = '0';
   my $encode = '0';
   my $debug = '0';
   my $setup = '0';
   my( $rightnow ) = `date`;

GetOptions ("rebuild" => \$rebuild,
         "encode"   => \$encode,
         "debug"   =>   \$debug,
         "setup" => \$setup);

if ($setup == 1){
      system("clear");
      print "Setup will do everything needed to run this script.\n";
      print "This has only been tested on KnoppMyth R5A22.\n";
      print "make sure you have edited the variables for your conguration.\n";
      my $cksetup = &promptUser("\nAre you sure you want to procceed?","n");
         if ($cksetup =~ "y") {
            DoSetup();
            exit;
         }
         print "Setup exited. Nothing done.\n";
      exit;
}
elsif ($rebuild == 1){
      GenerateRSSFeed();
      print "Rebuilding of RSS feed is complete.\n";
      exit;
}
else {
      Encode4Portable();
      print "$title is ready for your $portable\n";
      
      # Check to see if the feed file exists; if not, create it.
      if (! -e $feedfile) {
      print "No feed file found. I will make one for you.\n";
      GenerateRSSFeed();
      print "All done.\n";
      }
}

sub Encode4Portable{
   if ($#ARGV != 1) {
      print "Encoding requires options.\nusage: mpg2ipod <options> DIRECTORY FILE\n";
      exit;
   }
   
   # Get the show information
   $directory = $ARGV[0];
   $file = $ARGV[1];
   @file = split(/_/, $file);
      $chanid = $file[0];
      $start = $file[1];
      $end = substr $file[2],0,14;
      if($debug == 1){ print "$chanid\n$start\n$end\n"};
   if (! -e $directory.$file){
      print "Opps, the file ".$directory.$file." does not exist.\n";
      exit;
   }
   
   # Connect to the database
   PrepSQLRead();
   $db_handle = DBI->connect("dbi:mysql:database=$db_name:host=$db_host", $db_user, $db_pass)
   or die "Cannot connect to database: $!\n\n";
      $sql = "SELECT title, subtitle, description, category, starttime FROM recorded WHERE chanid = $chanid AND DATE_FORMAT(starttime,'%Y%m%d%H%i%s') = $start";

      $statement = $db_handle->prepare($sql)
         or die "Couldn't prepare query '$sql': $DBI::errstr\n";
      
      $statement->execute()
      or die "Couldn't execute query '$sql': $DBI::errstr\n";
      $row_ref = $statement->fetchrow_hashref();
      if($debug == 1){ print "$row_ref->{starttime}\n"};
   $title = $row_ref->{title};
   $subtitle = $row_ref->{subtitle};
   $recorddate = $row_ref->{starttime};
   $description = $row_ref->{description};
   $category = $row_ref->{category};
   $filename = $title."-".$subtitle."-".substr $start, 0, 8;
   $filename =~ s/ /_/g;

   printf("Starting pass 1 of 2...\n");
      DoPassOne();
   printf("Pass 1 competed, starting pass 2 of 2...\n");
      DoPassTwo();
   printf("Pass 2 competed, building video XML file\n");
      CreateItemXML();
   printf("XML file created for \"$filename\" : Cleaning up temporary files\n");
      $cmd = "mv -f $feedpath'$filename'.pass2 $feedpath'$filename'.$portable.mov";
      print $cmd."\n";
      if(system($cmd)) { print "Moving pass2 to final .mov failed\n"; }
      
      $cmd = "rm -f /tmp/mpg2ipod_log*";
      print $cmd."\n";
      if(system($cmd)) { print "Removing pass 1 file failed\n"; }
      
      $cmd = "rm -f $feedpath'$filename'.pass1";
      print $cmd."\n";
      if(system($cmd)) { print "Removing pass 1 file failed\n"; }
   
   return 0;
}

#
# Encode for Portable Pass 1
#
sub DoPassOne {
   $cmd = "/usr/local/bin/ffmpeg -i $directory/$file -comment '$file' -title '$title' -author 'MythTV - mpg2ipod' -timestamp '$rightnow' $encodeopt -pass 1 -passlogfile /tmp/mpg2ipod_log -f mov $feedpath'$filename'.pass1";
   print $cmd."\n";
   if(system($cmd)) { print "Pass one failed\n"; }
   return 0;
}

#
# Encode for Portable Pass 2
#
sub DoPassTwo {
   $cmd = "/usr/local/bin/ffmpeg -i $directory/$file -comment '$file' -title '$title' -author 'MythTV - mpg2ipod' -timestamp '$rightnow' $encodeopt -pass 2 -passlogfile /tmp/mpg2ipod_log -f mov $feedpath'$filename'.pass2";
   print $cmd."\n";
   if(system($cmd)) { print "Pass two failed\n"; }
   return 0;
}

#
# Create XML with <ITEM> tag for this video file
#
sub CreateItemXML {
      open(ITEM, ">$feedpath$filename.$portable.xml");
         print ITEM "<item>\n"; 
         print ITEM "<title>".$title." - ".$subtitle."</title>\n";
         print ITEM "<itunes:author>MythTV</itunes:author>\n"; 
         print ITEM "<author>MythTV</author>\n"; 
         print ITEM "<itunes:category text=\"TV Shows\"></itunes:category>\n";
         print ITEM "<comments>".$file."</comments>\n"; 
         print ITEM "<description>".$description."</description>\n"; 
         print ITEM "<pubDate>".$recorddate."</pubDate>\n"; 
         print ITEM "<enclosure url=\"".$feedurl.$filename."\.".$portable."\.mov\" type=\"video/quicktime\" />\n"; 
         print ITEM "<itunes:duration></itunes:duration>\n"; 
         print ITEM "<itunes:keywords>".$title." - ".$subtitle." - ".$category."</itunes:keywords>\n";
         print ITEM "<category>".$category."</category>\n";         
         print ITEM "</item>\n";
         print "\"$filename\" has been added to the feed.\n";
      close(ITEM);
   return 0;
}

#
# Generate the RSS feed by combining the ITEM XML Files
#
sub GenerateRSSFeed{

   open(RSS, ">$feedfile");
      print RSS "<?php\n";
      print RSS "header(\"Content-Type: text/xml\");\n";
      print RSS "echo \"<?xml version=\\\"1.0\\\" encoding=\\\"UTF-8\\\"?>\"; ?>\n";
      print RSS "<rss xmlns:itunes=\"http://www.itunes.com/DTDs/Podcast-1.0.dtd\" version=\"2.0\">\n";
      print RSS "<channel>\n";
      print RSS "<title>MythTV Recorded Programs</title>\n";
      print RSS "<itunes:author>MythTV - mpg2ipod</itunes:author>\n";
      print RSS "<link>$feedurl</link>\n";
      print RSS "<itunes:subtitle>Transcoded recording for your iPod Video.</itunes:subtitle>\n";
      print RSS "<itunes:summary>Myth TV Recorded Programs for the iPod v.1</itunes:summary>\n";
      print RSS "<description>Myth TV Recorded Programs for the iPod v.1</description>\n";
      print RSS "<itunes:owner>\n";
      print RSS "<itunes:name>MythTV</itunes:name>\n";
      print RSS "<itunes:email>mythtv\@localhost</itunes:email>\n";
      print RSS "</itunes:owner>\n";
      print RSS "<itunes:explicit>No</itunes:explicit>\n";
      print RSS "<language>en-us</language>\n";
      print RSS "<copyright>Copyright 2005.</copyright>\n";
      print RSS "<webMaster>mythtv\@localhost</webMaster>\n";
      print RSS "<itunes:image href=\"http://mythtv.org/themes/Myth_bb2/images/mythtv-logo.jpg\" />\n";
      print RSS "<itunes:category text=\"TV Shows\"></itunes:category>\n";
      print RSS "<category>TV Shows</category>\n";
      print RSS "<itunes:image href=\"http://img468.imageshack.us/img468/6038/mythipod3lu.jpg\"/>";
      print RSS "<image>";
      print RSS "<url>http://img468.imageshack.us/img468/6038/mythipod3lu.jpg</url>\n";
      print RSS "<title>MythTV 2 iPod</title>\n";
      print RSS "<link>$feedurl</link>\n";   
      print RSS "<width>300</width>\n";      
      print RSS "<height>300</height>\n";      
      print RSS "</image><?foreach (glob(\"*\.$portable\.xml\") as \$file) {include \$file;}?>\n";
      print RSS "</channel>\n";
      print RSS "</rss>\n";
    close(RSS);
   if($debug == 1){ print "I created a feed file, was I supposed to?\n"};

   return 0;
}


#
# This code taken from one of the mythlink.sh scripts to get MySQL information
#
sub PrepSQLRead{
# Get the hostname of this machine
    $hostname = `hostname`;
    chomp($hostname);
   
# Read the mysql.txt file in use by MythTV.
# could be in a couple places, so try the usual suspects
    my $found = 0;
    my @mysql = ('/usr/local/share/mythtv/mysql.txt',
                 '/usr/share/mythtv/mysql.txt',
                 '/etc/mythtv/mysql.txt',
                 '/usr/local/etc/mythtv/mysql.txt',
                 "$ENV{HOME}/.mythtv/mysql.txt",
                 'mysql.txt'
                );
    foreach my $file (@mysql) {
        next unless (-e $file);
        $found = 1;
        open(CONF, $file) or die "Unable to open $file:  $!\n\n";
        while (my $line = <CONF>) {
        # Cleanup
            next if ($line =~ /^\s*#/);
            $line =~ s/^str //;
            chomp($line);
        # Split off the var=val pairs
            my ($var, $val) = split(/\=/, $line, 2);
            next unless ($var && $var =~ /\w/);
            if ($var eq 'DBHostName') {
                $db_host = $val;
            }
            elsif ($var eq 'DBUserName') {
                $db_user = $val;
            }
            elsif ($var eq 'DBName') {
                $db_name = $val;
            }
            elsif ($var eq 'DBPassword') {
                $db_pass = $val;
            }
        # Hostname override
            elsif ($var eq 'LocalHostName') {
                $hostname = $val;
            }
        }
        close CONF;
    }
    die "Unable to locate mysql.txt:  $!\n\n" unless ($found && $db_host);
    return 0;
}

sub promptUser {
   local($promptString,$defaultValue) = @_;
   if ($defaultValue) {
      print $promptString, "[", $defaultValue, "]: ";
   } else {
      print $promptString, ": ";
   }

   $| = 1;               # force a flush after our print
   $_ = <STDIN>;         # get the input from STDIN (presumably the keyboard)
   chomp;
   if ("$defaultValue") {
      return $_ ? $_ : $defaultValue;    # return $_ if it has a value
   } else {
      return $_;
   }
}

sub DoSetup {
   print "\nNot ready yet. How do you send the cd command from perl?\n";
   return 0;
}

perl -MCPAN -e 'install Date::Format'

sub GenerateRSSFragment {
   PrepSQLRead();

   $db_handle = DBI->connect("dbi:mysql:database=$db_name:host=$db_host", $db_user, $db_pass)
        or die "Cannot connect to database: $!\n\n";

   open(XML, ">${feedpath}${filename}.${portable}.mov.xml") || die "couldn't open XML fragment file";

   @nuvarray = split(/_/, $file);
   $chanid = $nuvarray[0];
   $start = $nuvarray[1];
   $end = substr $nuvarray[2],0,14;
   if($debug == 1){ print "$chanid\n$start\n$end\n"};
   $sql = "SELECT title, subtitle, description, category, starttime FROM recorded WHERE chanid = $chanid AND DATE_FORMAT(starttime,'%Y%m%d%H%i%s') = $start";
   $statement = $db_handle->prepare($sql)
      or die "Couldn't prepare query '$sql': $DBI::errstr\n";
   $statement->execute()
      or die "Couldn't execute query '$sql': $DBI::errstr\n";
   $row_ref = $statement->fetchrow_hashref();
   if($debug == 1){ print "$row_ref->{starttime}\n"};

   print XML "<item>\n";
   print XML "<title>".$row_ref->{title}." - ".$row_ref->{subtitle}."</title>\n";
   print XML "<itunes:author>MythTV</itunes:author>\n";
   print XML "<author>MythTV</author>\n";
   print XML "<itunes:category text="TV Shows"></itunes:category>\n";
   print XML "<description>".$row_ref->{description}."</description>\n";
   print XML "<pubDate>".$row_ref->{starttime}."</pubDate>\n";
   print XML "<enclosure url="${feedurl}${filename}.${portable}.mov" type="video/quicktime" />\n";
   print XML "<itunes:duration></itunes:duration>\n";
   print XML "<itunes:keywords>".$row_ref->{category}."</itunes:keywords>\n";
   print XML "</item>\n";

   close(XML);
   $statement->finish();
   $db_handle->disconnect if ($db_handle);
   return 0;

}

<?php
$feedurl="http://www.yourhostnamehere.com/mythweb/ipodfeed/";
header("Content-Type: text/xml");
?>
<? echo "<?xml version="1.0" encoding="UTF-8"?>"; ?>

<rss xmlns:itunes="http://www.itunes.com/DTDs/Podcast-1.0.dtd" version="2.0">
<channel>
<title>MythTV Recorded Programs</title>
<itunes:author>MythTV - mpg2ipod</itunes:author>
<link>$feedurl</link>
<itunes:subtitle>Transcoded recording for your iPod Video.</itunes:subtitle>
<itunes:summary>Myth TV Recorded Programs for the iPod v.1</itunes:summary>
<description>Myth TV Recorded Programs for the iPod v.1</description>
<itunes:owner>
<itunes:name>MythTV</itunes:name>
<itunes:email>mythtv\@localhost</itunes:email>
</itunes:owner>
<itunes:explicit>No</itunes:explicit>
<language>en-us</language>
<copyright>Copyright 2005.</copyright>
<webMaster>mythtv\@localhost</webMaster>
<itunes:image href="http://mythtv.org/themes/Myth_bb2/images/mythtv-logo.jpg" />
<itunes:category text="TV Shows"></itunes:category>
<category>TV Shows</category>
<image>
<url>http://mythtv.org/themes/Myth_bb2/images/mythtv-logo.jpg</url>
</image>

<?
foreach (glob("*.xml") as $file) {
  include $file;
}
?>

</channel>
</rss>

 vlc --sout-transcode-deinterlace /myth/tv/1061_20051029233000_20051030000000.nuv --sout #transcode{vcodec=mp4v,acodec=mp4a,vb=500,scale=.5,ab=128,channels=2}:standard{access=file,mux=mp4,url=/myth/downloads/ipodvideo/test.m4v}