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

Fixed removal of tags, case independently

Browse Source
This commit is contained in:
Anna Rose 2009-03-27 17:57:41 -04:00 committed by Patrick Wiggins
parent d629c49b49
commit f0a348c0ae
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
tagfromfilename
View File

@ -60,9 +60,11 @@ foreach (@ARGV)
# Remove old flac comments that match # Remove old flac comments that match
if ($isflac) if ($isflac)
{ {
system("metaflac --remove-tag=TRACKNUMBER $_");
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 $_");
system("metaflac --remove-tag=title --remove-tag=artist --remove-tag=album $_"); system("metaflac --remove-tag=title --remove-tag=artist --remove-tag=album $_");
} }
} }
@ -71,8 +73,8 @@ foreach (@ARGV)
{ {
foreach (`vorbiscomment -l $_`) foreach (`vorbiscomment -l $_`)
{ {
if ($tracknumonly) { print COMMENTFILE $_ unless (/^tracknumber/); } if ($tracknumonly) { print COMMENTFILE $_ unless (/^tracknumber/i); }
else { print COMMENTFILE $_ unless (/^(title)|(artist)|(tracknumber)|(album)/); } else { print COMMENTFILE $_ unless (/^(title)|(artist)|(tracknumber)|(album)/i); }
} }
} }