Use flac_archive.tags.Tags, greatly simplifying things. Put PART tag

[flac-archive] / flacsplit

diff --git a/flacsplit b/flacsplit
index 05c2568cf8a3db00940906d040d41ebc63dfb8af..26d3bec0304ddf58f3f9defc4dfa22c6a7a89865 100755 (executable)
--- a/flacsplit
+++ b/flacsplit
@@ -149,9 +149,12 @@ sub flacsplit {
     my %tracks_to_tags;
     my @disc_artist;
     my @tmp;
+    my $hack = 1;
     for my $tag (@tags) {
         if ($tag =~ /^([^[]+)\[(\d+)]=(.*)/) {
             push(@{$tracks_to_tags{$2}->{$1}}, $3);
+        } elsif ($tag =~ /^TITLE=(.*)/) {
+            push(@{$tracks_to_tags{$hack++}->{'TITLE'}}, $1);
         } elsif ($tag =~ /^ARTIST=/) {
             push(@disc_artist, $tag);
         } else {