fix rip_movie

diff --git a/rip_movie b/rip_movie
index 9256d0a52fdfc02ea17a85c17cff3d77b7b50b2f..59dfc3761f1251dbb2f569eb03d71652b63a41a0 100755 (executable)
--- 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}}),