#!/usr/bin/perl -w

# m3u.pl - by dual
#
# Generates an extended M3U
# for a directory of MP3s
###########################

use strict;


# Check for mp3info
my $whereis = `whereis mp3info`;
my (undef, $check) = split(/: /, $whereis);

unless ($check) {
	print "Sorry, m3u.pl needs mp3info... ";
	print "http://www.ibiblio.org/mp3info/\n";
	exit;
}


# Create M3U
chomp(my $pwd = `pwd`);
my @dirs = split(/\//, $pwd);

open M3U, ">$dirs[-1].m3u" or die "Can't create M3U file: $!";

print M3U "#EXTM3U\n";

my @files = <*>;

for my $file (@files) {
	if ($file =~ /mp3$/i) {
		my $time = `mp3info -p %S "$file"`;
		my $song = $file;
		$song =~ s/\.mp3$//i;
		print M3U "#EXTINF:$time,$song\n";
		print M3U "$file\n";
	}
}

close M3U;
