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
[download]