#!/usr/bin/perl -w
# Based on http://rnewson.blogspot.com/2005/10/itunes-artwork-fetcher.html
use MP3::Tag;
 
# Bug that you may need to patch for : https://rt.cpan.org/Ticket/Display.html?id=45647
 
 
foreach my $file (@ARGV) {
    next unless -r $file;
    id3v1_to_id3v2($file);
}
 
sub id3v1_to_id3v2 {
    my $file = shift;
 
    print "$file\n";
    my $mp3 = MP3::Tag->new($file);
    $mp3->get_tags;
    $mp3->config('write_v24',1);
    my $id3v1 = $mp3->{ID3v1};
    my $id3v2 = $mp3->{ID3v2};
    $id3v2 = $mp3->new_tag("ID3v2") unless defined $id3v2;
 
 
    # === TIT2 (Title/songname/content description): Sordid
    # === TPE1 (Lead performer(s)/Soloist(s)): Amon Tobin
    # === TALB (Album/Movie/Show title): Funkungfusion: Ninja Cuts, Vol
    # === TYER (Year): 1998
    # === TRCK (Track number/Position in set): 2
 
    copy($id3v2, 'TPE1', $id3v1->artist);
    copy($id3v2, 'TALB', $id3v1->album);
    copy($id3v2, 'TCON', $id3v1->genre);
    copy($id3v2, 'TRCK', $id3v1->track);
    copy($id3v2, 'TIT2', $id3v1->song);
    copy($id3v2, 'TYER', $id3v1->year);
    copy($id3v2, 'COMM', 'ENG', $id3v1->comment,$id3v1->comment) if $id3v1->comment;
    $id3v2->write_tag;
    $mp3->close;
}
 
sub copy {
   my ($id3v2, $frame, @data) = @_;
    my $value = $data[0];
    return unless defined $value;
    return unless $value !~ /^\s*$/;
 
    my $frameids = $id3v2->get_frame_ids;
    if (exists $$frameids{$frame}) {
        print "  Changing $frame to @data\n";
        $id3v2->change_frame($frame, @data);
    } else {
        print "  Adding $frame = @data\n";
        $id3v2->add_frame($frame, @data);
    }
}

#!/usr/bin/perl -w
# mp3_add_art
# Max Baker <max @warped.org>
# 4/5/09
 
use File::Glob qw(:globally :glob);
use Audio::TagLib;
use Getopt::Long;
GetOptions (\%Args, "h|help", "f|front=s", 'b|back=s');
 
$Cover_Front = $Args{f} || "Folder.jpg";
$Cover_Back  = $Args{b} || "Folder_back.jpg";
 
die &usage if (! scalar @ARGV or $Args{h});
 
foreach my $d (@ARGV) {
    recurse_dir($d);
}
 
exit;
 
sub recurse_dir {
    my $root = shift;
 
    print "Entering $root\n";
 
    # bsd_glob handles spaces in file names/paths
    my @files = bsd_glob("$root/*",GLOB_QUOTE);
    foreach my $f (@files) {
        #print "'$f'\n";
        next if $f eq '.';
        next if $f eq '..';
 
        if (-d $f) {
            recurse_dir($f);
            next;
        }
        if (-r $f and $f =~ /\.mp3$/) {
            add_image($f,"$root/$Cover_Front","FrontCover","Cover (front)") if -r "$root/$Cover_Front";
            add_image($f,"$root/$Cover_Back", "BackCover", "Cover (back)")  if -r "$root/$Cover_Back";
        }
    }
}
sub add_image {
    my ($f,$img,$type,$desc) = @_;
 
    print "add_image($type) $img -> $f\n";
 
    my $mp3 = Audio::TagLib::MPEG::File->new($f) or die;
    my $id3v2 = $mp3->ID3v2Tag(1);
    open(PICFILE, "< $img") or die "Can't open image $img. $!\n";
 
    my $imgdata;
    my $filesize = -s PICFILE;
    binmode(PICFILE);
    read(PICFILE, $imgdata, $filesize);
    close(PICFILE);
 
    my $imgbv = Audio::TagLib::ByteVector->new();
    $imgbv->setData($imgdata,$filesize);
    my $bv = Audio::TagLib::ByteVector->new("APIC");
    my $field = Audio::TagLib::ID3v2::AttachedPictureFrame->new($bv, "UTF8");
    $field->setPicture($imgbv);
    $field->setTextEncoding("UTF8");
    $field->setMimeType(Audio::TagLib::String->new("image/jpeg"));
    $field->setType($type);
    $field->setDescription(Audio::TagLib::String->new($desc));
    $id3v2->addFrame($field);
    $mp3->save();
}
 
sub usage {
    return < < "end_usage";
 
mp3addart <dir>
 
Max Baker </max><max \@warped.org> 4/6/2009
 
This script recursively goes through a directory and imbeds album
art into MP3 Files. It uses taglib and Audio::TagLib.
 
USAGE: $0 <dir> [-f $Cover_Front] [-b $Cover_Back]
 
    -f - The name of the image to look for in each dir to embed front-covers
    -b - The name of the image to look for in each dir to embed back-covers
 
 
end_usage
}
</dir></max>

yum install taglib-devel

BEGIN {
    # a simple work around to perform the neccessary pre-check
    # instead of overloading subs of MakeMaker or other wrapper
    print STDERR "ONLY support TagLib version 1.4.*\n";
    require Carp;
	# FIXME
	# openned for FreeBSD, OS X (darwin) and Cygwin
    Carp::croak("$^O is not supported currently") 
		unless $^O eq 'linux' or $^O eq 'freebsd' or $^O eq 'darwin' or 
		    $^O eq 'cygwin';
	Carp::croak("Please install taglib C++ package first") unless 
		system("taglib-config --version") == 0;
	our $libver = qx(taglib-config --version);
	chomp($libver);
	Carp::croak("Please install taglib ver 1.4.*") unless 
		$libver =~ m/^1\.4/io;
	our $libs = qx(taglib-config --libs);
	our $inc  = ' -I/usr/include -I./include -I. '. qx(taglib-config --cflags);
}

BEGIN {
    # a simple work around to perform the neccessary pre-check
    # instead of overloading subs of MakeMaker or other wrapper
    print STDERR "ONLY support TagLib version 1.4.*\n";
    require Carp;
	# FIXME
	# openned for FreeBSD, OS X (darwin) and Cygwin
    Carp::croak("$^O is not supported currently") 
		unless $^O eq 'linux' or $^O eq 'freebsd' or $^O eq 'darwin' or 
		    $^O eq 'cygwin';
	Carp::croak("Please install taglib C++ package first") unless 
		system("taglib-config --version") == 0;
	our $libver = qx(taglib-config --version);
	chomp($libver);
	Carp::croak("Please install taglib ver >1.4.*") unless 
		$libver =~ m/^1\.[45]/io;
	our $libs = qx(taglib-config --libs);
	our $inc  = ' -I/usr/include -I./include -I. '. qx(taglib-config --cflags);
}