X-Git-Url: https://erislabs.net/gitweb/?a=blobdiff_plain;f=lib%2FID3FS%2FAudioFile%2FOgg.pm;h=cdd9a9a5fe56b3c498b77c11545d645bbb6a748d;hb=f768e5fc4f33962bfac1142c546776cc0e239ec0;hp=a617f9fd894eaf0413aa47dfe2b9c325f77c0928;hpb=deaedd5e5b0e61dfc9f2b8a390680f0a6f9c1cd3;p=id3fs.git diff --git a/lib/ID3FS/AudioFile/Ogg.pm b/lib/ID3FS/AudioFile/Ogg.pm index a617f9f..cdd9a9a 100644 --- a/lib/ID3FS/AudioFile/Ogg.pm +++ b/lib/ID3FS/AudioFile/Ogg.pm @@ -1,3 +1,19 @@ +# id3fs - a FUSE-based filesystem for browsing audio metadata +# Copyright (C) 2010 Ian Beckwith +# +# This program is free software: you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation, either version 3 of the License, or +# (at your option) any later version. +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program. If not, see . + package ID3FS::AudioFile::Ogg; use strict; @@ -19,7 +35,7 @@ sub new sub get { - my ($self, $tag, $complain)=@_; + my ($self, $tag)=@_; for my $commenttype (@{$self->{comments}}) { if($commenttype =~ /$tag/i) @@ -41,17 +57,15 @@ sub get } } } - warn("$self->{path}: no $tag defined in Ogg comments\n") if($complain); return undef; } -sub artist { shift->get("Artist", 1); } -sub album { shift->get("Album", 1); } -sub audiotype { return "ogg"; } -sub haspic { return undef; } # FIXME -sub v1genre { return undef; } # ID3 only -# We don't care if year is not set -sub year { shift->get("Date", 0); } +sub artist { shift->get("Artist"); } +sub album { shift->get("Album"); } +sub audiotype { return "ogg"; } +sub haspic { return undef; } # NEXTVERSION +sub v1genre { return undef; } # ID3 only +sub year { shift->get("Date"); } sub tags {