my $value;
my $artist;
my $album;
- my $date;
my @tags;
verbose("Opening tags file $fn\n");
} elsif (/^ALBUM=/) {
$album = $value;
verbose("ALBUM $album from $fn\n");
- } elsif (/^DATE=/) {
- $date = $value;
- verbose("DATE $date from $fn\n");
}
}
close(TAGS) or die("close($fn): $!");
- return ($artist, $album, $date, @tags);
+ return ($artist, $album, @tags);
}
# Process the fa-rip output in the directory DIR.
my $dir = shift;
my $artist;
my $album;
- my $date;
my @tags;
my $status;
rename("$dir/tags", "$dir/using-tags")
or die("rename($dir/tags, $dir/using-tags): $!");
- ($artist, $album, $date, @tags) = get_tags("$dir/using-tags");
+ ($artist, $album, @tags) = get_tags("$dir/using-tags");
verbose("mkdir($artist)\n");
-d $artist or mkdir($artist) or die("mkdir($artist): $!");