finish refactoring AudioFile

[id3fs.git] / lib / ID3FS / AudioFile / Ogg.pm

diff --git a/lib/ID3FS/AudioFile/Ogg.pm b/lib/ID3FS/AudioFile/Ogg.pm
index 3df6950..a617f9f 100644 (file)
--- a/lib/ID3FS/AudioFile/Ogg.pm
+++ b/lib/ID3FS/AudioFile/Ogg.pm
@@ -50,19 +50,8 @@ 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
-{
-    my ($self)=@_;
-    my $date=shift->get("Date", 0);
-    return undef unless($date);
-    if($date =~/(\d\d\d\d)/)
-    {
-       $date=$1;
-    }
-    return $date;
-}
+sub year      { shift->get("Date", 0);   }
 
 sub tags
 {
@@ -75,32 +64,7 @@ sub tags
            push(@comments,$self->{ogg}->comment($commenttype));
        }
     }
-    my $tags={};
-    if(@comments)
-    {
-       # filter for useful comments
-       @comments= grep { defined($_); } @comments;
-       @comments= grep { length($_); }  @comments;
-       @comments= grep { /\S+/; }       @comments;
-       # combine then split on commas
-       # so multiple comma-delimited tags will work
-       @comments=split(/\s*,\s*/, join(', ', @comments));
-       for my $comment (@comments)
-       {
-           if($comment=~/([^\/]+)\/(.*)/)
-           {
-               my $tagname=$1;
-               my $tagval=$2;
-               $tagval=~s/\//-/g;
-               $tags->{$tagname}=$tagval;
-           }
-           else
-           {
-               $tags->{$comment}=undef;
-           }
-       }
-    }
-    return $tags;
+    return(@comments);
 }
 
 1;