From 9f8af5932f8ad747d0a1032bbdaca8add34fee04 Mon Sep 17 00:00:00 2001
From: KrumpetPirate <travis.neeley@gmail.com>
Date: Fri, 18 Dec 2015 13:04:23 -0600
Subject: [PATCH] Removed chapters functionality and fixed automatic titles

---
 .gitignore  |  1 +
 AAXtoMP3.pl | 51 ++++++++-------------------------------------------
 2 files changed, 9 insertions(+), 43 deletions(-)
 create mode 100644 .gitignore

diff --git a/.gitignore b/.gitignore
new file mode 100644
index 0000000..3179bcb
--- /dev/null
+++ b/.gitignore
@@ -0,0 +1 @@
+AudibleActivation.txt
diff --git a/AAXtoMP3.pl b/AAXtoMP3.pl
index b048dfb..1aecd78 100755
--- a/AAXtoMP3.pl
+++ b/AAXtoMP3.pl
@@ -13,14 +13,12 @@ say "Starting $0...";
 my $VERBOSE;
 my $AUTHCODE;
 my $INPUT_FILE;
-my $CHAPTER;
 GetOptions(
     'auth|a=s' => \$AUTHCODE,
     'input|i=s' => \$INPUT_FILE,
     'verbose|v' => \$VERBOSE,
-    'chapter|c' => \$CHAPTER,
-) or die "Usage: $0 -verbose -chapter -auth <AUDIBLE AUTH CODE> -input <INPUT FILE PATH>";
-die "Usage: $0 -verbose -chapter -auth <AUDIBLE AUTH CODE> -input <INPUT AAX PATH>"
+) or die "Usage: $0 -verbose -auth <AUDIBLE AUTH CODE> -input <INPUT FILE PATH>";
+die "Usage: $0 -verbose -auth <AUDIBLE AUTH CODE> -input <INPUT AAX PATH>"
     unless ($INPUT_FILE && $AUTHCODE);
 die "$INPUT_FILE is not a valid path" unless (-f $INPUT_FILE);
 
@@ -31,7 +29,6 @@ my @fflines = split /\n/, $ret;
 my $file_type = pull_from_ffprobe("major_brand", @fflines);
 my $file_title = pull_from_ffprobe("title", @fflines);
 my $file_author = pull_from_ffprobe("artist", @fflines);
-my @chapters = grep { m/^\s+Chapter/ } @fflines;
 die "Input file ffprobe does not appear to match an AAX file type metadata"
     unless $file_type =~ /aax/;
 
@@ -42,24 +39,9 @@ if ($file_title && $file_author) {
     $output = $filename;
 }
 my $output_sh_safe = quotemeta $output;
-
-if (@chapters && $CHAPTER) {
-    say "Attempting to convert AAX to MP3 by chapter. This will increase the processing time...";
-    system_execute("mkdir -p $dir$output_sh_safe");
-    my $chapter_index = 1;
-    foreach my $chapter (@chapters) {
-        my ($start, $duration) = extract_ts($chapter);
-        my $output_fn = quotemeta "$dir$output/$output (Chapter $chapter_index).mp3";
-        say "Converting Chapter $chapter_index START: $start DURATION: $duration...";
-        $ret = system_execute("ffmpeg -activation_bytes $AUTHCODE -i $INPUT_FILE -vn -c:a libmp3lame -ab 128k -ss $start -t $duration $output_fn");
-        $chapter_index++;
-        say $ret if $VERBOSE;
-    }
-} else {
-    say "Using Audible auth code to copy AAX audio directly to MP3 format...";
-    $ret = system_execute("ffmpeg -activation_bytes $AUTHCODE -i $INPUT_FILE -vn -c:a libmp3lame -ab 128k $dir$output_sh_safe.mp3");
-    say $ret if $VERBOSE;
-}
+say "Using Audible auth code to copy AAX audio directly to MP3 format...";
+$ret = system_execute("ffmpeg -activation_bytes $AUTHCODE -i $INPUT_FILE -vn -c:a libmp3lame -ab 128k $dir$output_sh_safe.mp3");
+say $ret if $VERBOSE;
 
 say "End of $0...";
 
@@ -75,32 +57,15 @@ sub system_execute {
     }
 }
 
-sub extract_ts {
-    my $line = shift;
-    $line =~ s/.*://; 
-    $line =~ s/^\s*(.*?)\s*$/$1/;
-    my @parts = split /\,/, $line;
-    my $start = $parts[0];
-    my $end = $parts[1];
-    $start =~ s/.* //;
-    $end =~ s/.* //;
-    my $duration = $end - $start;
-    return (convert_seconds($start), convert_seconds($duration));
-}
-
-sub convert_seconds {
-    my $sec = shift;
-    my $time = sprintf "%02d:%02d:%02d.%03d",
-        (gmtime($sec))[2,1,0, 0 % 1000];
-}
-
 sub pull_from_ffprobe {
     my $desired = shift;
     my @fflines = @_;
     return unless ($desired && @fflines);
     my ($line) = grep { m/^\s+$desired/ } @fflines;
     $line =~ s/^\s*(.*?)\s*$/$1/;
-    $line =~ s/.*://;
+    my @parts = split /\:/, $line;
+    shift @parts; 
+    $line = join ':', @parts;
     $line =~ s/^\s*(.*?)\s*$/$1/;
     return $line;
 }