#!/usr/bin/perl ## ## This script will take a show and convert it to a .3gp file for playing ## on a mobile phone. ## ## It requires a new version of mencoder and ffmepg to do this, plus ## it uses the mythname.pl script to get a good name for the resulting ## file. ## ## ## Hack and slash by Jay Summet (jay@summet.com) ## ## 13 Nov 2007 1.0 Hack ## use DBI; use Getopt::Long; use File::Basename; use File::stat qw(:FIELDS);; my $outdir = '/var/lib/mythtv/for_phone/'; #trailing / is important! my $abitrate = "16"; # Audio Bitrate. my $vbitrate = "80"; # Video Bitrate. ############## No User Servicable Parts Below This Line ############ sub usage() { print <