package PlayListServer;
use strict;
use File::Find;
use vars qw/ $path_to_webroot $mp3path $servername/;

$|=0;

sub handler{
	my $r=shift;
	my $s = $r->server;
	$mp3path='/mp3/';
	$path_to_webroot='/www/dan';
	$servername=$s->server_hostname;
	$r->content_type('audio/x-mpegurl');
	$r->send_http_header();
	find(\&make_list_to_print,$path_to_webroot.$mp3path);		
	return 200;
}

sub make_list_to_print{
	if (($File::Find::name =~ /\.ogg|\.mp3$/io)){
		my $temp = $File::Find::dir.'/'.$_;
		$temp =~ s/$path_to_webroot(.*)/$1/io;
		print 'http://'.$servername.$temp."\n";
	} 
}

1;