#!/usr/local/bin/perl
require "/home/todd/toddweb.env";
require "$PAGEHOMEDIR/weblib.lib";
($dirname=$ENV{PATH_INFO})=~s/^\///;
&htmlopen("File Transfer","$dirname");
opendir(DIR,"$PAGEHOMEDIR/download$ENV{PATH_INFO}");
@dir=grep(/.hqx$/,readdir(DIR));
print "<ul>\n";
foreach $file (sort @dir){
$size=-s "$PAGEHOMEDIR/download$ENV{PATH_INFO}/$file";
print "<li><a href=/$CGIPATH/macbin.pl/download$ENV{PATH_INFO}/$file>$file ($size bytes)</a>\n";
}
print "</ul>";
&htmlclose;