#!/usr/bin/perl

# genm3u - generate playlist for current directory
# James Powell / July 2003 / www.webscalability.com
# 
# USAGE: run in current dir of mp3s to generate m3u file
# NOTE: files should be named in order you wish playlist to
# be generated in

use strict;
use Cwd;

# get the last dirname and create m3u filename

# thanks to http://groups.google.co.uk/groups?hl=en&lr=&ie=UTF-8&oe=UTF-8&selm=ukspmf2xcb.fsf%40linda.teleport.com
my $m3ufile = (split (/\//, cwd))[-1] || 'default';
$m3ufile =~ s/ /_/g; # remove spaces
$m3ufile .= '.m3u';

# print $m3ufile;

opendir(MP3DIR, '.');
my @mp3s = grep /\.mp3$/i, readdir(MP3DIR);
closedir(MP3DIR);

die "No mp3s!" unless (scalar(@mp3s) > 0);

@mp3s = sort(@mp3s);

open (M3U, ">$m3ufile") or die $!;
print M3U (join "\n", @mp3s);
close(M3U);

exit;