#!/usr/bin/perl
use warnings;
use strict;
use MP3::Info;
use Getopt::Long;
use Pod::Usage;
##########
##########
##########
sub convert_mp3 {
my ($filename, $bitrate, %META_DATA) = @_;
my $metadata = "";
my $tmp_meta_ref = get_mp3tag($filename);
### override the mp3 tags if desired
foreach my $key (%META_DATA) {
next unless ($key && $META_DATA{$key});
$tmp_meta_ref->{$key} = $META_DATA{$key};
}
foreach my $key (%$tmp_meta_ref) {
next unless ($key && $tmp_meta_ref->{$key});
next if ( lc($key) eq "tagversion" );
if (lc($key) eq 'tracknum') {
$tmp_meta_ref->{'track'} = $tmp_meta_ref->{$ke
+y};
$key = 'track';
}
$tmp_meta_ref->{$key} =~ s/\"/\\\"/g; ### Escape out "
+s
$metadata .= sprintf " --%s \"%s\"", lc($key), $tmp_me
+ta_ref->{$key};
}
my $outputfilename = $filename;
$outputfilename =~ s/\.mp3$/\.m4b/;
system "mpg123 -w - \"$filename\" | faac -w -b$bitrate $metada
+ta -o \"$outputfilename\" -";
}
##########
##########
##########
sub convert_realaudio {
my ($filename, $bitrate, %META_DATA) = @_;
require POSIX;
my $metadata = "";
my $outputfilename = $filename;
my $my_fifo = "/tmp/make_m4b.$$";
$outputfilename =~ s/\.(?:rm|ram|ra)$/\.m4b/i;
POSIX::mkfifo($my_fifo, 0666)
or die "ERROR: can't create named pipe $my_fifo\n";
foreach my $key (%META_DATA) {
next unless ($key && $META_DATA{$key});
$META_DATA{$key} =~ s/\"/\\\"/g; ### Escape out "s
$metadata .= sprintf " --%s \"%s\"", $key, $META_DATA{
+$key};
}
system("faac -w -b$bitrate $metadata -o \"$outputfilename\" $m
+y_fifo &") == 0
or die "ERROR: unable to start faac: $?\n";
`mplayer -nortc -vc null -vo null -ao pcm:file=$my_fifo $filen
+ame > /dev/null`;
unlink $my_fifo;
}
##########
##########
##########
##########
##########
##########
##########
my $man = 0;
my $help = 0;
my ($bitrate, $artist, $title, $album, $genre, $comment, $year, $track
+, $writer, $cover_art);
GetOptions('help|?' => \$help, man => \$man, 'bitrate=s' => \$bitrate,
+ 'artist=s' => \$artist, 'writer=s' => \$writer, 'title=s' => \$title
+, 'album=s' => \$album, 'genre=s' => \$genre, 'comment=s' => \$commen
+t, 'year=s' => \$year, 'track=s' => \$track, 'cover_art=s' => \$cover
+_art)
or pod2usage(2);
pod2usage(1) if $help;
pod2usage(-exitstatus => 0, -verbose => 2) if $man;
$bitrate = 64 unless $bitrate;
foreach my $filename (@ARGV) {
$filename =~ m/\.(\w+)$/;
my $suffix = $1;
if ($suffix =~ /mp3/i) {
convert_mp3($filename, $bitrate, ('artist' => $artist,
+ 'writer' => $writer, 'album' => $album, 'title' => $title, 'genre' =
+> $genre, 'comment' => $comment, 'year' => $year, 'track' => $track,
+'cover-art' => $cover_art) );
} elsif ($suffix =~ /(?:ra|rm|rv)/i) {
convert_realaudio ($filename, $bitrate, ('artist' => $
+artist, 'writer' => $writer, 'album' => $album, 'title' => $title, 'g
+enre' => $genre, 'comment' => $comment, 'year' => $year, 'track' => $
+track, 'cover-art' => $cover_art) );
}
}
__END__
=head1 NAME
make_m4b - Converts mp3 and realaudio files to bookmarkable mpeg4 fil
+es
=head1 DESCRIPTION
B<make_m4b> will convert mp3 or realaudio files to bookmarkable m4b fi
+les (ipod). If MP4 info is not supplied, we will attempt to pull the
+ info from the file (mp3 only).
=head1 SYNOPSIS
make_m4b [options] [file ...]
=head1 OPTIONS
=over 8
=item B<--help>
Print a brief help message and exits.
=item B<--man>
Prints the manual page and exits.
=item B<--bitrate>
Set the bps for the m4b file (default = 64)
=item B<--artist>
Set artist to X
=item B<--writer>
Set writer to X
=item B<--title>
Set title to X
=item B<--album>
Set album to X
=item B<--genre>
Set genre to X
=item B<--comment>
Set comment to X
=item B<--year>
Set year to X
=item B<--track>
Set track to X
=item B<--cover-art>
Read cover art from file X. Supported image formats are gif, jpg, an
+d png.
=back
=head1 AUTHOR
Jason L. Froebe (jason<at>froebeD0Tnet)
=cut
|