fabian/AAXtoMP3
1
0
Fork 0
mirror of https://github.com/KrumpetPirate/AAXtoMP3.git synced 2024-11-18 03:08:57 +01:00
Code Issues Packages Projects Releases Wiki Activity

Removed chapters functionality and fixed automatic titles

Browse Source
This commit is contained in:
KrumpetPirate 2015-12-18 13:04:23 -06:00
parent 6687a49104
commit 9f8af5932f
2 changed files with 9 additions and 43 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitignore vendored Normal file
View File

@ -0,0 +1 @@
AudibleActivation.txt

51
AAXtoMP3.pl
View File

@ -13,14 +13,12 @@ say "Starting $0...";
my $VERBOSE; my $VERBOSE;
my $AUTHCODE; my $AUTHCODE;
my $INPUT_FILE; my $INPUT_FILE;
my $CHAPTER;
GetOptions( GetOptions(
'auth|a=s' => \$AUTHCODE, 'auth|a=s' => \$AUTHCODE,
'input|i=s' => \$INPUT_FILE, 'input|i=s' => \$INPUT_FILE,
'verbose|v' => \$VERBOSE, 'verbose|v' => \$VERBOSE,
'chapter|c' => \$CHAPTER, ) or die "Usage: $0 -verbose -auth <AUDIBLE AUTH CODE> -input <INPUT FILE PATH>";
) or die "Usage: $0 -verbose -chapter -auth <AUDIBLE AUTH CODE> -input <INPUT FILE PATH>"; die "Usage: $0 -verbose -auth <AUDIBLE AUTH CODE> -input <INPUT AAX PATH>"
die "Usage: $0 -verbose -chapter -auth <AUDIBLE AUTH CODE> -input <INPUT AAX PATH>"
unless ($INPUT_FILE && $AUTHCODE); unless ($INPUT_FILE && $AUTHCODE);
die "$INPUT_FILE is not a valid path" unless (-f $INPUT_FILE); 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_type = pull_from_ffprobe("major_brand", @fflines);
my $file_title = pull_from_ffprobe("title", @fflines); my $file_title = pull_from_ffprobe("title", @fflines);
my $file_author = pull_from_ffprobe("artist", @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" die "Input file ffprobe does not appear to match an AAX file type metadata"
unless $file_type =~ /aax/; unless $file_type =~ /aax/;
@ -42,24 +39,9 @@ if ($file_title && $file_author) {
$output = $filename; $output = $filename;
} }
my $output_sh_safe = quotemeta $output; my $output_sh_safe = quotemeta $output;
say "Using Audible auth code to copy AAX audio directly to MP3 format...";
if (@chapters && $CHAPTER) { $ret = system_execute("ffmpeg -activation_bytes $AUTHCODE -i $INPUT_FILE -vn -c:a libmp3lame -ab 128k $dir$output_sh_safe.mp3");
say "Attempting to convert AAX to MP3 by chapter. This will increase the processing time..."; say $ret if $VERBOSE;
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 "End of $0..."; 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 { sub pull_from_ffprobe {
my $desired = shift; my $desired = shift;
my @fflines = @_; my @fflines = @_;
return unless ($desired && @fflines); return unless ($desired && @fflines);
my ($line) = grep { m/^\s+$desired/ } @fflines; my ($line) = grep { m/^\s+$desired/ } @fflines;
$line =~ s/^\s*(.*?)\s*$/$1/; $line =~ s/^\s*(.*?)\s*$/$1/;
$line =~ s/.*://; my @parts = split /\:/, $line;
shift @parts;
$line = join ':', @parts;
$line =~ s/^\s*(.*?)\s*$/$1/; $line =~ s/^\s*(.*?)\s*$/$1/;
return $line; return $line;
} }