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
if ($isflac)
{
system("metaflac --remove-tag=TRACKNUMBER $_");
system("metaflac --remove-tag=tracknumber $_");
if (!$tracknumonly)
{
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 $_`)
{
if ($tracknumonly) { print COMMENTFILE $_ unless (/^tracknumber/); }
else { print COMMENTFILE $_ unless (/^(title)|(artist)|(tracknumber)|(album)/); }
if ($tracknumonly) { print COMMENTFILE $_ unless (/^tracknumber/i); }
else { print COMMENTFILE $_ unless (/^(title)|(artist)|(tracknumber)|(album)/i); }
}
}