use File::Find;
use MP3::Info;
use strict;
use warnings;

my $dir = shift() or die "Usage: $0 absoluteDir\n";

my $entries='';

find( \&process, $dir );

sub process
{
	/mp3$/i or return; 

	my $ctime = localtime( (stat $File::Find::name)[10] );

	my $mp3 = get_mp3info ($File::Find::name);
	my $duration = sprintf "%02d:%02d.%03d",
		$mp3->{'SECS'}
			? @{$mp3}{qw( MM SS MS )}
			: (0,0,0);
	my $bitrate = $mp3->{'BITRATE'} * 1024;

	( my $url = $File::Find::name ) =~ s#/#\\#g;

	$entries .= <<EOF;
<Entry> 
<Title > $_ </Title>
<Duration value = "$duration" />
<Param Name = "Name" Value = "$_" />
<Param Name = "MediaType" Value = "audio" />
<Param Name = "MediaAttribute" Value = "0" />
<Param Name = "Bitrate" Value = "$bitrate" />
<Param Name = "DigitallySecure" Value = "0" />
<Param Name = "PlayCount" Value = "1" />
<Param Name = "SourceURL" Value = "$url" />
<Param Name = "CreationDate" Value = "$ctime" />
<Ref href = "$url" />
</Entry>
EOF
}

$entries or die "No files found.\n";
   
print <<EOF;
<Asx Version = "3.0" >
<Param Name = "Name" Value = "title" />
<Param Name = "AllowShuffle" Value = "yes" />
$entries
</Asx>
EOF