sub write_tag {
my $self = shift;
my %args = @_;
my $mp3 = MP3::Mplib->new($args{mp3}) || return "Unable to update
+$args{mp3}: $!";
print STDERR Dumper($mp3->header);
print STDERR Dumper($mp3->get_v1tag);
my @mp3ary = split('/', $args{mp3});
print STDERR "Setting tag\n";
print STDERR Dumper($mp3);
$mp3->set_v1tag({
YEAR => $args{YEAR} ,
ARTIST => $args{ARTIST},
ALBUM => $args{ALBUM} ,
GENRE => $args{GENRE} ,
TITLE => pop @mp3ary ,
}, &ISO_8859_1);
print STDERR "-------------------------------------------------\n";
print STDERR Dumper($mp3);
print STDERR Dumper($mp3->error);
print STDERR $args{album}."\n";
print STDERR Dumper(%args);
print STDERR "\nFinished setting tag\n";
my $v1tag = $mp3->get_v1tag;
#return Dumper( $mp3->error() );
return $v1tag;
}
===================================================
$VAR1 = bless( {
'_mp_id3v1' => {},
'_mp_header' => {
'bitrate' => '192',
'mode_ext' => 2,
'mode' => 'Joint-Stereo',
'protbit' => 1,
'version' => 'MPEG 1',
'copyright' => 1,
'privbit' => 0,
'emphasis' => 0,
'originalhome' => 1,
'syncword' => 61695,
'layer' => 'Layer III',
'samplingfreq' => '44100 Hz',
'padbit' => 0
},
'_mp_v2header' => undef,
'_mp_id3v2' => undef,
'_mp_file' => '/depot/mp3/Offspring - Discography 7CD
+s [16 Bonus Tracks]/2003 - Splinter/05 - Race Against Myself -bwp.mp
+3'
}, 'MP3::Mplib' );
[Sun Apr 25 18:27:51 2004] mp3_server.pl: Argument "ARTIST" isn't nume
+ric in subroutine entry at /usr/lib/perl5/site_perl/5.8.0/i386-linux-
+thread-multi/MP3/Mplib.pm line 78.
-------------------------------------------------
$VAR1 = bless( {
'_mp_id3v1' => undef,
'_mp_header' => {
'bitrate' => '192',
'mode_ext' => 2,
'mode' => 'Joint-Stereo',
'protbit' => 1,
'version' => 'MPEG 1',
'copyright' => 1,
'privbit' => 0,
'emphasis' => 0,
'originalhome' => 1,
'syncword' => 61695,
'layer' => 'Layer III',
'samplingfreq' => '44100 Hz',
'padbit' => 0
},
'_mp_v2header' => undef,
'_mp_id3v2' => undef,
'_mp_file' => '/depot/mp3/Offspring - Discography 7CD
+s [16 Bonus Tracks]/2003 - Splinter/05 - Race Against Myself -bwp.mp
+3'
}, 'MP3::Mplib' );
$VAR1 = {};
[Sun Apr 25 18:27:51 2004] mp3_server.pl: Use of uninitialized value i
+n concatenation (.) or string at ../../lib//Infomgr/MP3.pm line 381.
$VAR1 = 'mp3';
$VAR2 = '/depot/mp3/Offspring - Discography 7CDs [16 Bonus Tracks]/20
+03 - Splinter/05 - Race Against Myself -bwp.mp3';
$VAR3 = 'ALBUM';
$VAR4 = 'Splinter';
$VAR5 = 'GENRE';
$VAR6 = 'Punk';
$VAR7 = 'YEAR';
$VAR8 = '2003';
$VAR9 = 'ARTIST';
$VAR10 = 'The Offspring';
Finished setting tag