X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=rip_movie;fp=rip_movie;h=59dfc3761f1251dbb2f569eb03d71652b63a41a0;hb=46f9fa2f55576c28a3f40cd36e5cc15fb3b4c81a;hp=9256d0a52fdfc02ea17a85c17cff3d77b7b50b2f;hpb=87ccbd0890cfe4a905c86b73fb03942c385a814d;p=bin.git

diff --git a/rip_movie b/rip_movie
index 9256d0a..59dfc37 100755
--- a/rip_movie
+++ b/rip_movie
@@ -114,7 +114,7 @@ die "no title" if not defined $title;
 my $filename = lc($title);
 $filename =~ s/[\s_-]+/_/;
 
-use Data::Dumper;
+use Data::Printer;
 
 my @titles;
 for my $title_bit ($result =~ /\n(\+ title \d+:.+?)(?=\n\+ title\s+|$)/gs) {
@@ -148,6 +148,8 @@ for my $title_bit ($result =~ /\n(\+ title \d+:.+?)(?=\n\+ title\s+|$)/gs) {
     push @titles,\%title;
 }
 
+# p @titles;
+
 #print STDERR Dumper(\@titles);
 
 
@@ -160,14 +162,14 @@ if (not @titles_to_rip) {
 	    $longest_title = $i;
 	}
 	if ($title->{duration} >= $options{min_duration}) {
-	    push @titles_to_rip,$i;
+	    push @titles_to_rip,$i+1;
 	}
     }
     if (not @titles_to_rip) {
-	push @titles_to_rip,$longest_title;
+	push @titles_to_rip,$longest_title+1;
     }
-    print STDERR Dumper({longest_title => $longest_title});
 }
+# p @titles_to_rip;
 my $invalid_titles = 0;
 for my $i (@titles_to_rip) {
     if ($i > @titles or $i < 1) {
@@ -182,9 +184,12 @@ my $multiple_titles = @titles_to_rip > 1;
 #print STDERR Dumper(\@titles_to_rip,[@titles[map {$_} @titles_to_rip]]);
 #exit;
 
+p @titles_to_rip;
+p @titles;
+
 for my $i (@titles_to_rip) {
-    system('HandBrakeCLI','-i',$options{device},'-t',$titles[$i]{num},
-	   '-o',$filename.($multiple_titles ? '_'.$titles[$i]{num} : '').".mkv",
+    system('HandBrakeCLI','-i',$options{device},'-t',$titles[$i-1]{num},
+	   '-o',$filename.($multiple_titles ? '_'.$titles[$i-1]{num} : '').".mkv",
 	   '-e','x264','-2','-q','21',
 	   '-a',join(',',@{$titles[$i-1]{audio_tracks}}),
 	   '-s',join(',',@{$titles[$i-1]{subtitle_tracks}}),