x3/flac2mp3.pl
1
0
Fork 0
mirror of https://github.com/moex3/flac2mp3.pl synced 2024-11-21 11:35:19 -05:00
Code Issues Releases Wiki Activity

Add '-' as a date separator. Use arrays in arg tags too

Browse Source
This commit is contained in:
moex3 2022-12-12 22:19:39 +01:00
parent edc18b4871
commit 6be59c9036
No known key found for this signature in database
GPG Key ID: ABC92E00CF59BB7A
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
flac2mp3.pl
View File

@ -83,11 +83,11 @@ my %idLookup = (
if (length($date) == 4) { # Only year
return ["TYER", "$date"];
}
if (!($date =~ m/^\d{4}\.\d{2}\.\d{2}$/)) {
if (!($date =~ m/^\d{4}[\.-]\d{2}[\.-]\d{2}$/)) {
print("Date format unknown: $date\n");
exit 1;
}
$date =~ s/\./-/g;
$date =~ s/[\.-]/-/g;
return ["TDRL", "$date"]; # Release date
},
originaldate => 'TDOR', # Also for 2.4 only
@ -276,20 +276,20 @@ sub argsToTags {
my $fname = shift;
$fname =~ s!^.*/!!;
if (defined($opt_genre)) {
$argTags->{genre} = $opt_genre;
$argTags->{genre} = [$opt_genre];
}
if (defined($opt_comment) && $opt_comment ne "") {
$argTags->{comment} = $opt_comment;
$argTags->{comment} = [$opt_comment];
}
if (defined($opt_catid) && $opt_catid ne "") {
$argTags->{catalognumber} = $opt_catid;
$argTags->{catalognumber} = [$opt_catid];
}
if (scalar @opt_tagreplace > 0) {
foreach my $trepl (@opt_tagreplace) {
$trepl =~ m!(.*?)/(.*?)=(.*)!;
my ($freg, $tag, $tagval) = ($1, $2, $3);
if ($fname =~ m!$freg!) {
$argTags->{lc($tag)} = $tagval;
$argTags->{lc($tag)} = ($tagval);
}
}
}