#!/usr/bin/perl -w
# require "Info-121.pm";
# require "Info-120svn-fix.pm";
require "/resource/slim2/lib/MP3/Info.pm";

# $file="02-WhatElseIsThere-APE.mp3";
# $file="02-WhatElseIsThereF.mp3";
# $file="02-WhatElseIsThereFb.mp3";
$file="example_mp3/Yo-YoMa,BobbyMcFerrin-FlightOfTheBumblebeeB.mp3";

if (!-f $file) { die "No such file $file\n"; }

print "Reading MP3 information:\n";
$info = MP3::Info::get_mp3info($file);
for $i (sort keys %$info)
{
  print "$i : $${info{$i}}\n";
}

print "Reading MP3 tags:\n";
$tag = MP3::Info::get_mp3tag($file,undef,0) or die "Can't read tag: $@\n";

for $i (sort keys %$tag)
{
  $tagvalue = $$tag{$i};
  if ($i eq "APIC")
  {
    print "APIC present (not shown)\n\n";
  }
  elsif (ref $tagvalue eq "ARRAY")
  {
    $n=1;
    for $t (@$tagvalue)
    {
      print "$i($n) : $t\n";
      $n++;
    }
    print "\n";
  }
  elsif (ref $tagvalue eq "HASH")
  {
    for $t (keys %$tagvalue)
    {
      $value = $$tagvalue{$t};
      print "$i('$t') : $value\n";
    }
    print "\n";
  }
  else
  {
    print "$i : $tagvalue\n\n";
  }
}