use File::Find;

my $content;
my $search = $S->cgi->param('song');
my $list = $S->cgi->param('list');
my $re = qr/$search/i;

if ($list) {
$S->apache->content_type("audio/m3u");
$S->apache->header_out('Content-Disposition' => "attachment; filename=list.m3u");
}

find( \&getmp3, "/var/mp3/");

sub getmp3 {
if(/$search/)
{
my $name = $File::Find::name;
$name =~ s/\/var\/mp3/\/tunes/;
$content .= "http:\/\/www.codenoevil.com" . $name . "\n";
}
}

return '' unless $content;
return $content;

Post A Comment