#!/usr/local/bin/perl
# this is only a minor part of the mp3idx system. Read the commend in that
# script before messing with this.
use CGI qw/escape unescape/;
open (ALLFILES, "cd /mp3 ; find . -xtype f -print | sed -e 's/^\\.\\///' | sort |");
open (HTML, "> /mp3/allfiles.html");
print (HTML "Kevin Korb's mp3 files\n");
while () {
$FILENAME=$_;
chomp $FILENAME;
if ($FILENAME ne ".passwd") {
if ($FILENAME ne ".htaccess") {
$ENCFILENAME = escape($FILENAME);
$ENCFILENAME =~ s/%2F/\//g;
$URL="$ENCFILENAME";
print (HTML qq[- $FILENAME
\n]);
}
}
}
print (HTML "
\n");
close (ALLFILES, HTML);