#!/usr/bin/perl -w

use CDDB::Parse;

$cddb_dir = $ENV{HOME} . "/.cddb/";
$xmms_file = $ENV{HOME} . "/.xmms/cdinfo";

opendir CDDBDIR, $cddb_dir;
open XMMSFILE, ">$xmms_file";

foreach $i ( sort readdir CDDBDIR ) {
    next if $i =~ /^\./;

    print "CDDB Entry " . $i . "\n";
    %cddb = CDDB::Parse::parse_cddb($cddb_dir . $i);
    
    print XMMSFILE "[" . $i . "]\n";
    print XMMSFILE "Albumname=" . $cddb{'title'} . "\n";
    print XMMSFILE "Artistname=" . $cddb{'artist'} . "\n";

    $i = 0;
    for ( $i = 0; $i < $cddb{'track-count'}; $i++ ) {
	if ( defined $cddb{'tracks'}[$i]->{'title'} ) {
	    print XMMSFILE "track_title" . ($i+1) . "=" . $cddb{'tracks'}[$i]->{'title'} . "\n";
	}
    }

    print XMMSFILE "\n";
}

closedir CDDBDIR;
close XMMSFILE;