Indented for readability; fixed typos

4 files changed, 400 insertions, 400 deletions

diff --git a/abs/extra-testing/myt2xvid3/PKGBUILD b/abs/extra-testing/myt2xvid3/PKGBUILD
index 396b5f0..e5b3af9 100755
--- a/abs/extra-testing/myt2xvid3/PKGBUILD
+++ b/abs/extra-testing/myt2xvid3/PKGBUILD
@@ -1,6 +1,6 @@
 pkgname=myt2xvid3
 pkgver=0.1
-pkgrel=4
+pkgrel=5
 arch=("i686")
 pkgdesc="A multimedia framework based on the MPEG-4 Systems standard"
 url="http://www.knoppmythwiki.org/index.php?page=XvidEncoding"
diff --git a/abs/extra-testing/myt2xvid3/myt2xvid3 b/abs/extra-testing/myt2xvid3/myt2xvid3
index cad5278..af65188 100755
--- a/abs/extra-testing/myt2xvid3/myt2xvid3
+++ b/abs/extra-testing/myt2xvid3/myt2xvid3
@@ -6,174 +6,174 @@
 # modified to use nuvexport by starv at juniks dot org

 

 # Includes

-	use DBI;

-	use Getopt::Long;

-	use File::Path;

-	

+use DBI;

+use Getopt::Long;

+use File::Path;

+

 # User variables

-	my $portable = "XviD";

-	my $feedfile = "/myth/video/archive/feed.php";

-	my $feedpath = "/myth/video/archive/";

-	my $wwwloc = "/data/srv/httpd/htdocs";

-	my $feedurl = "http://REPLACEME/archive/";

-	my $nuvoptions ="--mode=XviD --nice=19 --cutlist --nodenoise --nodeinterlace --crop --multipass";

-	

+my $portable = "XviD";

+my $feedfile = "/myth/video/archive/feed.php";

+my $feedpath = "/myth/video/archive/";

+my $wwwloc = "/data/srv/httpd/htdocs";

+my $feedurl = "http://REPLACEME/archive/";

+my $nuvoptions ="--mode=XviD --nice=19 --cutlist --nodenoise --nodeinterlace --crop --multipass";

+

 # 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, $nuvfile, @nuvarray);	

-	my $rebuild = '0';

-	my $encode = '0';

-	my $debug = '0';

-	my $setup = '0';

-	my $cut = '0';

-	my( $rightnow ) = `date`; 

+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, $nuvfile, @nuvarray);	

+my $rebuild = '0';

+my $encode = '0';

+my $debug = '0';

+my $setup = '0';

+my $cut = '0';

+my( $rightnow ) = `date`; 

 

 GetOptions ("rebuild" => \$rebuild,

-			"encode"   => \$encode,

-			"debug"	=>	\$debug,

-			"setup" => \$setup,

-			"cut" => \$cut);

+	    "encode"   => \$encode,

+	    "debug"	=>	\$debug,

+	    "setup" => \$setup,

+	    "cut" => \$cut);

 

 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;

+    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;

+    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";

-		}

+    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: myth2ipod <options> DIRECTORY FILE\n"; 

-		exit; 

-	}

-	

-	# Get the show information

-	$directory = $ARGV[0]; 

-	$file = $ARGV[1]; 

-	@file = split(/_/, $file);

-		$chanid = $file[0];

-		$start = substr $file[1],0,14;

-		if($debug == 1){ print "$chanid\n$start\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)

+    if ($#ARGV != 1) { 

+	print "Encoding requires options.\nusage: myth2ipod <options> DIRECTORY FILE\n"; 

+	exit; 

+    }

+    

+    # Get the show information

+    $directory = $ARGV[0]; 

+    $file = $ARGV[1]; 

+    @file = split(/_/, $file);

+    $chanid = $file[0];

+    $start = substr $file[1],0,14;

+    if($debug == 1){ print "$chanid\n$start\n"};

+    if (! -e $directory."/".$file){

+	print "Oops, 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";

+    $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;

-	$filename =~ s/&/+/g;

-	$filename =~ s/\047//g;

+    $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;

+    $filename =~ s/&/+/g;

+    $filename =~ s/\047//g;

     $filename =~ s/[^+0-9a-zA-Z_-]+/_/g;

     $filename =~ s/_$//g;

-		

-	printf("Starting nuvexport...\n"); 

-		EncodeIt(); 

-	printf("Nuvexport completed, starting xml generation...\n"); 

-		CreateItemXML(); 

-	printf("XML file created for \"$filename\" : Yipeee\n"); 

-	printf("Cleaning up temporary files\n"); 

-		$cmd = "rm -f $feedpath$chanid\_$start.temp.mp4";

-		print $cmd."\n";

-		if(system($cmd)) { print "Removing nuvexport temp file failed\n"; }

-		

-		# remove the cutlist incase we added it.

-		if ($cut == 1){

-		printf("Generating cutlist\n"); 

-		$cmd = "/usr/bin/mythcommflag --chanid $chanid --starttime $start --clearcutlist";

-		print $cmd."\n"; 

-		if(system($cmd)) { print "It looks like I was not able to generate a cutlist.\n"; } 

-		}

-	return 0;

+    

+    printf("Starting nuvexport...\n"); 

+    EncodeIt(); 

+    printf("Nuvexport completed, starting xml generation...\n"); 

+    CreateItemXML(); 

+    printf("XML file created for \"$filename\" : Yipeee\n"); 

+    printf("Cleaning up temporary files\n"); 

+    $cmd = "rm -f $feedpath$chanid\_$start.temp.mp4";

+    print $cmd."\n";

+    if(system($cmd)) { print "Removing nuvexport temp file failed\n"; }

+    

+    # remove the cutlist incase we added it.

+    if ($cut == 1){

+	printf("Generating cutlist\n"); 

+	$cmd = "/usr/bin/mythcommflag --chanid $chanid --starttime $start --clearcutlist";

+	print $cmd."\n"; 

+	if(system($cmd)) { print "It looks like I was not able to generate a cutlist.\n"; } 

+    }

+    return 0;

 }

 

 #

 # Encode for Portable

 #

 sub EncodeIt { 

-	# Create cutlist from commercial flagging if -cut was passed to the script

-	if ($cut == 1){

+    # Create cutlist from commercial flagging if -cut was passed to the script

+    if ($cut == 1){

 	printf("Generating cutlist\n"); 

 	$cmd = "/usr/bin/mythcommflag --chanid $chanid --starttime $start --gencutlist";

 	print $cmd."\n"; 

 	if(system($cmd)) { print "It looks like I was not able to generate a cutlist.\n"; } 

-	}

-	

-	# Use nuvexport to do the work

-	$cmd = "/usr/bin/nuvexport --chanid=$chanid --start=$start $nuvoptions --filename=$chanid\_$start.$portable --path=$feedpath";

-	print $cmd."\n"; 

-	if(system($cmd)) { print "Nuvexport encoding seems to have failed\n"; } 

-	

-	# Now clean up the output so iPods with firmware 1.1 and above can use it

-	#$cmd = "/usr/local/bin/MP4Box -add $feedpath$chanid\_$start.temp.mp4 $feedpath$chanid\_$start.$portable.mp4";

-	#print $cmd."\n"; 

-	#if(system($cmd)) { print "MP4Box cleanup seems to have failed\n"; } 

-	return 0;

+    }

+    

+    # Use nuvexport to do the work

+    $cmd = "/usr/bin/nuvexport --chanid=$chanid --start=$start $nuvoptions --filename=$chanid\_$start.$portable --path=$feedpath";

+    print $cmd."\n"; 

+    if(system($cmd)) { print "Nuvexport encoding seems to have failed\n"; } 

+    

+    # Now clean up the output so iPods with firmware 1.1 and above can use it

+    #$cmd = "/usr/local/bin/MP4Box -add $feedpath$chanid\_$start.temp.mp4 $feedpath$chanid\_$start.$portable.mp4";

+    #print $cmd."\n"; 

+    #if(system($cmd)) { print "MP4Box cleanup seems to have failed\n"; } 

+    return 0;

 }

 

 #

 # Create XML with <ITEM> tag for this video file

 #

 sub CreateItemXML {

-		open(ITEM, ">$feedpath$chanid\_$start.$portable.xml");

-			print ITEM "<item>\n";  

-			print ITEM "<title>".&encodeForXML($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>".&encodeForXML($file)."</comments>\n";  

-			print ITEM "<description>".&encodeForXML($description)."</description>\n";  

-			print ITEM "<pubDate>".$recorddate."</pubDate>\n";  

-			print ITEM "<enclosure url=\"".&encodeForXML("$feedurl$chanid\_$start.$portable.avi")."\" type=\"video/quicktime\" />\n";  

-			print ITEM "<itunes:duration></itunes:duration>\n";  

-			print ITEM "<itunes:keywords>".&encodeForXML($title." - ".$subtitle." - ".$category)."</itunes:keywords>\n";

-			print ITEM "<category>".&encodeForXML($category)."</category>\n";			

-			print ITEM "</item>\n";

-			print "\"$filename\" has been added to the feed.\n";

-		close(ITEM);

-	return 0;

+    open(ITEM, ">$feedpath$chanid\_$start.$portable.xml");

+    print ITEM "<item>\n";  

+    print ITEM "<title>".&encodeForXML($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>".&encodeForXML($file)."</comments>\n";  

+    print ITEM "<description>".&encodeForXML($description)."</description>\n";  

+    print ITEM "<pubDate>".$recorddate."</pubDate>\n";  

+    print ITEM "<enclosure url=\"".&encodeForXML("$feedurl$chanid\_$start.$portable.avi")."\" type=\"video/quicktime\" />\n";  

+    print ITEM "<itunes:duration></itunes:duration>\n";  

+    print ITEM "<itunes:keywords>".&encodeForXML($title." - ".$subtitle." - ".$category)."</itunes:keywords>\n";

+    print ITEM "<category>".&encodeForXML($category)."</category>\n";			

+    print ITEM "</item>\n";

+    print "\"$filename\" has been added to the feed.\n";

+    close(ITEM);

+    return 0;

 }

 

 #

@@ -181,55 +181,55 @@ sub CreateItemXML {
 #

 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 - <? if (\$_GET['title'] == \"\") { \$title = \"*\"; echo \"Recorded Programs\"; }\n";

-		print RSS "else { \$title = \$_GET['title']; echo str_replace(\"_\",\" \",\$_GET['title']); } ?> </title>\n";

-		print RSS "<itunes:author>MythTV - myth2ipod</itunes:author>\n"; 

-		print RSS "<link>".&encodeForXML($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://myth2ipod.com/mythipod_200.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://myth2ipod.com/mythipod_200.jpg\"/>";

-		print RSS "<image>"; 

-		print RSS "<url>http://myth2ipod.com/mythipod_200.jpg</url>\n";

-		print RSS "<title>MythTV 2 iPod</title>\n";

-		print RSS "<link>".&encodeForXML($feedurl)."</link>\n";	

-		print RSS "<width>200</width>\n";		

-		print RSS "<height>200</height>\n";		

-		print RSS "</image>\n";

-		print RSS "<? foreach (glob(\$title\.\"*\.$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"};

+    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 - <? if (\$_GET['title'] == \"\") { \$title = \"*\"; echo \"Recorded Programs\"; }\n";

+    print RSS "else { \$title = \$_GET['title']; echo str_replace(\"_\",\" \",\$_GET['title']); } ?> </title>\n";

+    print RSS "<itunes:author>MythTV - myth2ipod</itunes:author>\n"; 

+    print RSS "<link>".&encodeForXML($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://myth2ipod.com/mythipod_200.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://myth2ipod.com/mythipod_200.jpg\"/>";

+    print RSS "<image>"; 

+    print RSS "<url>http://myth2ipod.com/mythipod_200.jpg</url>\n";

+    print RSS "<title>MythTV 2 iPod</title>\n";

+    print RSS "<link>".&encodeForXML($feedurl)."</link>\n";	

+    print RSS "<width>200</width>\n";		

+    print RSS "<height>200</height>\n";		

+    print RSS "</image>\n";

+    print RSS "<? foreach (glob(\$title\.\"*\.$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;

+    return 0;

 }

 

 # substitute for XML entities

 sub encodeForXML {

-	local $result;

-	$result = $_[0];

-	$result =~ s/&/&amp;/g;

-	$result =~ s/</&lt;/g;

-	$result =~ s/>/&gt;/g;

-	$result;

+    local $result;

+    $result = $_[0];

+    $result =~ s/&/&amp;/g;

+    $result =~ s/</&lt;/g;

+    $result =~ s/>/&gt;/g;

+    $result;

 }

 

 

@@ -250,17 +250,17 @@ sub PrepSQLRead{
                  '/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

+	    # Cleanup

             next if ($line =~ /^\s*#/);

             $line =~ s/^str //;

             chomp($line);

-        # Split off the var=val pairs

+	    # Split off the var=val pairs

             my ($var, $val) = split(/\=/, $line, 2);

             next unless ($var && $var =~ /\w/);

             if ($var eq 'DBHostName') {

@@ -275,7 +275,7 @@ sub PrepSQLRead{
             elsif ($var eq 'DBPassword') {

                 $db_pass = $val;

             }

-        # Hostname override

+	    # Hostname override

             elsif ($var eq 'LocalHostName') {

                 $hostname = $val;

             }

@@ -287,24 +287,24 @@ sub PrepSQLRead{
 }

 

 sub promptUser {

-   local($promptString,$defaultValue) = @_;

-   if ($defaultValue) {

-      print $promptString, "[", $defaultValue, "]: ";

-   } else {

-      print $promptString, ": ";

-   }

+    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 $_;

-   }

+    $| = 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;

+    print "\nNot ready yet. How do you send the cd command from perl?\n";

+    return 0;

 }

diff --git a/abs/extra-testing/myth2ipod/PKGBUILD b/abs/extra-testing/myth2ipod/PKGBUILD
index 8bc7811..9c62b22 100755
--- a/abs/extra-testing/myth2ipod/PKGBUILD
+++ b/abs/extra-testing/myth2ipod/PKGBUILD
@@ -1,6 +1,6 @@
 pkgname=myth2ipod
 pkgver=0.2
-pkgrel=24
+pkgrel=25
 arch=("i686")
 pkgdesc="A multimedia framework based on the MPEG-4 Systems standard"
 url="myth2ipod.com"
diff --git a/abs/extra-testing/myth2ipod/myth2ipod b/abs/extra-testing/myth2ipod/myth2ipod
index 84a3ac0..268a522 100755
--- a/abs/extra-testing/myth2ipod/myth2ipod
+++ b/abs/extra-testing/myth2ipod/myth2ipod
@@ -6,174 +6,174 @@
 # modified to use nuvexport by starv at juniks dot org
 
 # Includes
-	use DBI;
-	use Getopt::Long;
-	use File::Path;
-	
+use DBI;
+use Getopt::Long;
+use File::Path;
+
 # User variables
-	my $portable = "ipod";
-	my $feedfile = "/myth/ipodfeed/feed.php";
-	my $feedpath = "/myth/ipodfeed/";
-	my $wwwloc = "/data/srv/httpd/htdocs";
-	my $feedurl = "http://REPLACEME/ipodfeed/";
-	my $nuvoptions ="--mode=iPod --nice=19 --cutlist --nodenoise --nodeinterlace --nomultipass";
-	
+my $portable = "ipod";
+my $feedfile = "/myth/ipodfeed/feed.php";
+my $feedpath = "/myth/ipodfeed/";
+my $wwwloc = "/data/srv/httpd/htdocs";
+my $feedurl = "http://REPLACEME/ipodfeed/";
+my $nuvoptions ="--mode=iPod --nice=19 --cutlist --nodenoise --nodeinterlace --nomultipass";
+
 # 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, $nuvfile, @nuvarray);	
-	my $rebuild = '0';
-	my $encode = '0';
-	my $debug = '0';
-	my $setup = '0';
-	my $cut = '0';
-	my( $rightnow ) = `date`; 
+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, $nuvfile, @nuvarray);	
+my $rebuild = '0';
+my $encode = '0';
+my $debug = '0';
+my $setup = '0';
+my $cut = '0';
+my( $rightnow ) = `date`; 
 
 GetOptions ("rebuild" => \$rebuild,
-			"encode"   => \$encode,
-			"debug"	=>	\$debug,
-			"setup" => \$setup,
-			"cut" => \$cut);
+	    "encode"   => \$encode,
+	    "debug"	=>	\$debug,
+	    "setup" => \$setup,
+	    "cut" => \$cut);
 
 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;
+    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;
+    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";
-		}
+    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: myth2ipod <options> DIRECTORY FILE\n"; 
-		exit; 
-	}
-	
-	# Get the show information
-	$directory = $ARGV[0]; 
-	$file = $ARGV[1]; 
-	@file = split(/_/, $file);
-		$chanid = $file[0];
-		$start = substr $file[1],0,14;
-		if($debug == 1){ print "$chanid\n$start\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)
+    if ($#ARGV != 1) { 
+	print "Encoding requires options.\nusage: myth2ipod <options> DIRECTORY FILE\n"; 
+	exit; 
+    }
+    
+    # Get the show information
+    $directory = $ARGV[0]; 
+    $file = $ARGV[1]; 
+    @file = split(/_/, $file);
+    $chanid = $file[0];
+    $start = substr $file[1],0,14;
+    if($debug == 1){ print "$chanid\n$start\n"};
+    if (! -e $directory."/".$file){
+	print "Oops, 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";
+    $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;
-	$filename =~ s/&/+/g;
-	$filename =~ s/\047//g;
+    $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;
+    $filename =~ s/&/+/g;
+    $filename =~ s/\047//g;
     $filename =~ s/[^+0-9a-zA-Z_-]+/_/g;
     $filename =~ s/_$//g;
-		
-	printf("Starting nuvexport...\n"); 
-		EncodeIt(); 
-	printf("Nuvexport completed, starting xml generation...\n"); 
-		CreateItemXML(); 
-	printf("XML file created for \"$filename\" : Yipeee\n"); 
-	printf("Cleaning up temporary files\n"); 
-		$cmd = "rm -f $feedpath$chanid\_$start.temp.mp4";
-		print $cmd."\n";
-		if(system($cmd)) { print "Removing nuvexport temp file failed\n"; }
-		
-		# remove the cutlist incase we added it.
-		if ($cut == 1){
-		printf("Generating cutlist\n"); 
-		$cmd = "/usr/bin/mythcommflag --chanid $chanid --starttime $start --clearcutlist";
-		print $cmd."\n"; 
-		if(system($cmd)) { print "It looks like I was not able to generate a cutlist.\n"; } 
-		}
-	return 0;
+    
+    printf("Starting nuvexport...\n"); 
+    EncodeIt(); 
+    printf("Nuvexport completed, starting xml generation...\n"); 
+    CreateItemXML(); 
+    printf("XML file created for \"$filename\" : Yipeee\n"); 
+    printf("Cleaning up temporary files\n"); 
+    $cmd = "rm -f $feedpath$chanid\_$start.temp.mp4";
+    print $cmd."\n";
+    if(system($cmd)) { print "Removing nuvexport temp file failed\n"; }
+    
+    # remove the cutlist incase we added it.
+    if ($cut == 1){
+	printf("Generating cutlist\n"); 
+	$cmd = "/usr/bin/mythcommflag --chanid $chanid --starttime $start --clearcutlist";
+	print $cmd."\n"; 
+	if(system($cmd)) { print "It looks like I was not able to generate a cutlist.\n"; } 
+    }
+    return 0;
 }
 
 #
 # Encode for Portable
 #
 sub EncodeIt { 
-	# Create cutlist from commercial flagging if -cut was passed to the script
-	if ($cut == 1){
+    # Create cutlist from commercial flagging if -cut was passed to the script
+    if ($cut == 1){
 	printf("Generating cutlist\n"); 
 	$cmd = "/usr/bin/mythcommflag --chanid $chanid --starttime $start --gencutlist";
 	print $cmd."\n"; 
 	if(system($cmd)) { print "It looks like I was not able to generate a cutlist.\n"; } 
-	}
-	
-	# Use nuvexport to do the work
-	$cmd = "/usr/bin/nuvexport --chanid=$chanid --start=$start $nuvoptions --filename=$chanid\_$start.temp --path=$feedpath";
-	print $cmd."\n"; 
-	if(system($cmd)) { print "Nuvexport encoding seems to have failed\n"; } 
-	
-	# Now clean up the output so iPods with firmware 1.1 and above can use it
-	$cmd = "/usr/bin/MP4Box -add $feedpath$chanid\_$start.temp.mp4 $feedpath$chanid\_$start.$portable.mp4";
-	print $cmd."\n"; 
-	if(system($cmd)) { print "MP4Box cleanup seems to have failed\n"; } 
-	return 0;
+    }
+    
+    # Use nuvexport to do the work
+    $cmd = "/usr/bin/nuvexport --chanid=$chanid --start=$start $nuvoptions --filename=$chanid\_$start.temp --path=$feedpath";
+    print $cmd."\n"; 
+    if(system($cmd)) { print "Nuvexport encoding seems to have failed\n"; } 
+    
+    # Now clean up the output so iPods with firmware 1.1 and above can use it
+    $cmd = "/usr/bin/MP4Box -add $feedpath$chanid\_$start.temp.mp4 $feedpath$chanid\_$start.$portable.mp4";
+    print $cmd."\n"; 
+    if(system($cmd)) { print "MP4Box cleanup seems to have failed\n"; } 
+    return 0;
 }
 
 #
 # Create XML with <ITEM> tag for this video file
 #
 sub CreateItemXML {
-		open(ITEM, ">$feedpath$chanid\_$start.$portable.xml");
-			print ITEM "<item>\n";  
-			print ITEM "<title>".&encodeForXML($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>".&encodeForXML($file)."</comments>\n";  
-			print ITEM "<description>".&encodeForXML($description)."</description>\n";  
-			print ITEM "<pubDate>".$recorddate."</pubDate>\n";  
-			print ITEM "<enclosure url=\"".&encodeForXML("$feedurl$chanid\_$start.$portable.mp4")."\" type=\"video/quicktime\" />\n";  
-			print ITEM "<itunes:duration></itunes:duration>\n";  
-			print ITEM "<itunes:keywords>".&encodeForXML($title." - ".$subtitle." - ".$category)."</itunes:keywords>\n";
-			print ITEM "<category>".&encodeForXML($category)."</category>\n";			
-			print ITEM "</item>\n";
-			print "\"$filename\" has been added to the feed.\n";
-		close(ITEM);
-	return 0;
+    open(ITEM, ">$feedpath$chanid\_$start.$portable.xml");
+    print ITEM "<item>\n";  
+    print ITEM "<title>".&encodeForXML($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>".&encodeForXML($file)."</comments>\n";  
+    print ITEM "<description>".&encodeForXML($description)."</description>\n";  
+    print ITEM "<pubDate>".$recorddate."</pubDate>\n";  
+    print ITEM "<enclosure url=\"".&encodeForXML("$feedurl$chanid\_$start.$portable.mp4")."\" type=\"video/quicktime\" />\n";  
+    print ITEM "<itunes:duration></itunes:duration>\n";  
+    print ITEM "<itunes:keywords>".&encodeForXML($title." - ".$subtitle." - ".$category)."</itunes:keywords>\n";
+    print ITEM "<category>".&encodeForXML($category)."</category>\n";			
+    print ITEM "</item>\n";
+    print "\"$filename\" has been added to the feed.\n";
+    close(ITEM);
+    return 0;
 }
 
 #
@@ -181,55 +181,55 @@ sub CreateItemXML {
 #
 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 - <? if (\$_GET['title'] == \"\") { \$title = \"*\"; echo \"Recorded Programs\"; }\n";
-		print RSS "else { \$title = \$_GET['title']; echo str_replace(\"_\",\" \",\$_GET['title']); } ?> </title>\n";
-		print RSS "<itunes:author>MythTV - myth2ipod</itunes:author>\n"; 
-		print RSS "<link>".&encodeForXML($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://myth2ipod.com/mythipod_200.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://myth2ipod.com/mythipod_200.jpg\"/>";
-		print RSS "<image>"; 
-		print RSS "<url>http://myth2ipod.com/mythipod_200.jpg</url>\n";
-		print RSS "<title>MythTV 2 iPod</title>\n";
-		print RSS "<link>".&encodeForXML($feedurl)."</link>\n";	
-		print RSS "<width>200</width>\n";		
-		print RSS "<height>200</height>\n";		
-		print RSS "</image>\n";
-		print RSS "<? foreach (glob(\$title\.\"*\.$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"};
+    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 - <? if (\$_GET['title'] == \"\") { \$title = \"*\"; echo \"Recorded Programs\"; }\n";
+    print RSS "else { \$title = \$_GET['title']; echo str_replace(\"_\",\" \",\$_GET['title']); } ?> </title>\n";
+    print RSS "<itunes:author>MythTV - myth2ipod</itunes:author>\n"; 
+    print RSS "<link>".&encodeForXML($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://myth2ipod.com/mythipod_200.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://myth2ipod.com/mythipod_200.jpg\"/>";
+    print RSS "<image>"; 
+    print RSS "<url>http://myth2ipod.com/mythipod_200.jpg</url>\n";
+    print RSS "<title>MythTV 2 iPod</title>\n";
+    print RSS "<link>".&encodeForXML($feedurl)."</link>\n";	
+    print RSS "<width>200</width>\n";		
+    print RSS "<height>200</height>\n";		
+    print RSS "</image>\n";
+    print RSS "<? foreach (glob(\$title\.\"*\.$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;
+    return 0;
 }
 
 # substitute for XML entities
 sub encodeForXML {
-	local $result;
-	$result = $_[0];
-	$result =~ s/&/&amp;/g;
-	$result =~ s/</&lt;/g;
-	$result =~ s/>/&gt;/g;
-	$result;
+    local $result;
+    $result = $_[0];
+    $result =~ s/&/&amp;/g;
+    $result =~ s/</&lt;/g;
+    $result =~ s/>/&gt;/g;
+    $result;
 }
 
 
@@ -250,17 +250,17 @@ sub PrepSQLRead{
                  '/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
+	    # Cleanup
             next if ($line =~ /^\s*#/);
             $line =~ s/^str //;
             chomp($line);
-        # Split off the var=val pairs
+	    # Split off the var=val pairs
             my ($var, $val) = split(/\=/, $line, 2);
             next unless ($var && $var =~ /\w/);
             if ($var eq 'DBHostName') {
@@ -275,7 +275,7 @@ sub PrepSQLRead{
             elsif ($var eq 'DBPassword') {
                 $db_pass = $val;
             }
-        # Hostname override
+	    # Hostname override
             elsif ($var eq 'LocalHostName') {
                 $hostname = $val;
             }
@@ -287,24 +287,24 @@ sub PrepSQLRead{
 }
 
 sub promptUser {
-   local($promptString,$defaultValue) = @_;
-   if ($defaultValue) {
-      print $promptString, "[", $defaultValue, "]: ";
-   } else {
-      print $promptString, ": ";
-   }
+    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 $_;
-   }
+    $| = 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;
+    print "\nNot ready yet. How do you send the cd command from perl?\n";
+    return 0;
 }