#!/usr/bin/perl
# http://riverdrift.com/ 2004
# Install in any directory with music files
# name whatever.pl and chomod to 755
# Edit variables below as you wish
##########################################
# page title
$title='Audio File Lister';
# background color
$bgc='#336666';
# text color
$txtclr='#99ff66';
##########################################
$root = $ENV{'SERVER_NAME'};
$script = $ENV{'SCRIPT_NAME'};
$dir = `pwd`;
@Files = `ls $dir`;
print "Content-type: text/html\n\n";
print qq~
$title
$title
~;
exit;
sub file_size {
$size = (-s);
if ($size > 1000000) {
$size = sprintf('%.2f', $size / 1000000) . ' meg'; }
elsif ($size > 1000) {
$size = sprintf('%.1f', $size / 1000) . ' kb'; }
else {
$size .= ' bytes'; }
}