Changeset 15 in flacrip for trunk

Timestamp:

09/19/14 22:37:22 (10 years ago)

Author:

peter

Message:

use Text::Unidecode to convert metadata in UTF-8 to ASCII-only for filenames and (if requested via the --ascii-tags option) the ID3 tags of the MP3 files

File:

• trunk/flactrack (modified) (5 diffs)

trunk/flactrack

@@ -15 +15 @@
 use Audio::FLAC::Header;
 use MusicBrainz;
+use Text::Unidecode;
 
 GetOptions(
@@ -22 +23 @@
     'all|a' => \my $ALL,
     'dir|d=s' => \my $DIRECTORY,
+    'ascii-tags' => \my $ASCII_TAGS,
 );
 
@@ -41 +43 @@
         require Config::Properties;
 
-        my $properties = Config::Properties->new(file => $properties_file);
+        # the properties are in UTF-8; mark them as such so unidecode works correctly later
+        my $properties = Config::Properties->new(file => $properties_file, encoding => 'utf8');
         $info = $properties->getProperties;
     } else {
@@ -103 +106 @@
         if ($info) {
             my $track_key = sprintf 'TRACK%02d', $tracknum;
-            $cmd .= sprintf q{ --tt %s --ta %s --tl %s --tn %d},
-                quote($info->{"$track_key.TITLE"}),
-                quote($info->{"$track_key.ARTIST"}),
-                quote($info->{ALBUM}),
+            $cmd .= sprintf q{ --tt %s --ta %s --tl %s --ty %d --tn %d},
+                quote($ASCII_TAGS ? unidecode($info->{"$track_key.TITLE"}) : $info->{"$track_key.TITLE"}),
+                quote($ASCII_TAGS ? unidecode($info->{"$track_key.ARTIST"}) : $info->{"$track_key.ARTIST"}),
+                quote($ASCII_TAGS ? unidecode($info->{ALBUM}) : $info->{ALBUM}),
+                ($info->{ORIGINALDATE} =~ /^(\d\d\d\d)/)[0],
                 $tracknum;
         }
@@ -130 +134 @@
 sub to_filename {
     my @strings = @_;
-    #TODO: deal with non-ascii characters (unidecode) e.g. ü --> ue
     return map {
         s/&/ and /g;
+        unidecode($_);
         s/[^a-z0-9-_ ]+//gi;
         s/ +/_/g;