Changeset 17 in flacrip
Legend:
- Unmodified
- Added
- Removed
-
trunk/cd2flac
r1 r17 173 173 # copy to permanent location 174 174 copy($flac_file, $archive_flac); 175 system 'metaflac', '--set-tag', "M BZ_DISCID=$discid", $archive_flac;175 system 'metaflac', '--set-tag', "MUSICBRAINZ_DISCID=$discid", $archive_flac; 176 176 print "Rip saved as $archive_flac\n"; 177 177 system 'eject', $CD_DEVICE; -
trunk/flactrack
r15 r17 48 48 } else { 49 49 50 my $discid = $flac->tags('M BZ_DISCID') or warn "No MBZ_DISCID tag in $FLAC_FILE\n" if $flac;51 #TODO: calculate TOC and DISCID from cuesheet if there is no M BZ_DISCID tag present50 my $discid = $flac->tags('MUSICBRAINZ_DISCID') or warn "No MUSICBRAINZ_DISCID tag in $FLAC_FILE\n" if $flac; 51 #TODO: calculate TOC and DISCID from cuesheet if there is no MUSICBRAINZ_DISCID tag present 52 52 53 53 $info = get_musicbrainz_info($discid); -
trunk/lib/MusicBrainz.pm
r16 r17 68 68 my %info; 69 69 70 #TODO: deprecate the old MBZ tag name71 $info{MBZ_DISCID} = $discid;72 70 $info{MUSICBRAINZ_DISCID} = $discid; 73 71 -
trunk/mbz
r11 r17 21 21 require Audio::FLAC::Header; 22 22 my $flac = Audio::FLAC::Header->new($FLAC_FILE) or die "Can't read FLAC header from $FLAC_FILE\n"; 23 $discid = $flac->tags('M BZ_DISCID') or die "No MBZ_DISCID tag in $FLAC_FILE\n";23 $discid = $flac->tags('MUSICBRAINZ_DISCID') or die "No MUSICBRAINZ_DISCID tag in $FLAC_FILE\n"; 24 24 } else { 25 25 $discid = shift; -
trunk/mbz2id3
r1 r17 200 200 my $flac_file = shift; 201 201 202 my $discid = `metaflac --show-tag M BZ_DISCID $flac_file | cut -d = -f 2`;202 my $discid = `metaflac --show-tag MUSICBRAINZ_DISCID $flac_file | cut -d = -f 2`; 203 203 chomp $discid; 204 204
Note: See TracChangeset
for help on using the changeset viewer.