annabunches/simple-audiotools
Archived
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Use year tag instead of releasedate

Browse Source
This commit is contained in:
Anna Rose 2010-03-25 14:58:39 -04:00 committed by Patrick Wiggins
parent 88a95d6bd7
commit e2f76a22f6
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
tagfromfilename
View File

@ -52,7 +52,7 @@ $album = formatName($album, 'album=', $captagnames);
# Get the release date, just use the first track # Get the release date, just use the first track
my $releasedate = 'releasedate='; my $year;
# Parse the file list, set vorbiscomments # Parse the file list, set vorbiscomments
@ -73,8 +73,8 @@ foreach (@ARGV)
system("metaflac --remove-tag=tracknumber $_"); system("metaflac --remove-tag=tracknumber $_");
if (!$tracknumonly) if (!$tracknumonly)
{ {
system("metaflac --remove-tag=TITLE --remove-tag=ARTIST --remove-tag=ALBUM --remove-tag=RELEASEDATE $_"); system("metaflac --remove-tag=TITLE --remove-tag=ARTIST --remove-tag=ALBUM --remove-tag=YEAR $_");
system("metaflac --remove-tag=title --remove-tag=artist --remove-tag=album --remove-tag=releasedate $_"); system("metaflac --remove-tag=title --remove-tag=artist --remove-tag=album --remove-tag=year $_");
} }
} }
# Preserve existing comments, except the ones we'll replace # Preserve existing comments, except the ones we'll replace
@ -83,7 +83,7 @@ foreach (@ARGV)
foreach (`vorbiscomment -l $_`) foreach (`vorbiscomment -l $_`)
{ {
if ($tracknumonly) { print COMMENTFILE $_ unless (/^tracknumber/i); } if ($tracknumonly) { print COMMENTFILE $_ unless (/^tracknumber/i); }
else { print COMMENTFILE $_ unless (/^(title)|(artist)|(tracknumber)|(album)|(releasedate)/i); } else { print COMMENTFILE $_ unless (/^(title)|(artist)|(tracknumber)|(album)|(year)/i); }
} }
} }
@ -121,7 +121,7 @@ foreach (@ARGV)
# Finally, try to find the release date, if we haven't yet # Finally, try to find the release date, if we haven't yet
if ($releasedate =~ /^releasedate=\s*$/) if (!$year)
{ {
my $mbinfo = Music::Tag->new($_); my $mbinfo = Music::Tag->new($_);
@ -130,12 +130,12 @@ foreach (@ARGV)
$mbinfo->add_plugin("MusicBrainz"); $mbinfo->add_plugin("MusicBrainz");
$mbinfo->get_tag(); $mbinfo->get_tag();
$releasedate = formatName($mbinfo->releasedate, 'releasedate=', $captagnames); $year = formatName($mbinfo->year, 'year=', $captagnames);
} }
} }
if ($tracknumonly || $releasedate =~ /^releasedate=\s*$/) { exit; } if ($tracknumonly || $year =~ /^year=\s*$/) { exit; }
# Loop back through the files again, adding the release date # Loop back through the files again, adding the release date
@ -150,11 +150,11 @@ foreach(@ARGV)
{ {
foreach (`vorbiscomment -l $_`) foreach (`vorbiscomment -l $_`)
{ {
print COMMENTFILE $_ unless (/^releasedate/i); print COMMENTFILE $_ unless (/^year/i);
} }
} }
print COMMENTFILE $releasedate; print COMMENTFILE $year;
close COMMENTFILE; close COMMENTFILE;
if ($isflac) { system("metaflac --import-tags-from=$COMMENTFILENAME $_"); } if ($isflac) { system("metaflac --import-tags-from=$COMMENTFILENAME $_"); }