There was an error while loading. Please reload this page.
1 parent 10ed0c2 commit 4d23fcdCopy full SHA for 4d23fcd
1 file changed
mk-download.pl
@@ -2,7 +2,7 @@
2
3
require "./date.pm";
4
5
-my $dir="/download";
+my $dir="download";
6
opendir(DIR, $dir) || die "cannot opendir $dir: $!";
7
my @files = readdir(DIR);
8
closedir DIR;
@@ -98,7 +98,7 @@ sub sortthem {
98
my $file = $file{$date.$ext};
99
100
if($file && -f "$dir/$file" ) {
101
- printf "<td><a href=\"$dir/%s\">%.2fMB</a></td>",
+ printf "<td><a href=\"/$dir/%s\">%.2fMB</a></td>",
102
$file, filesize("$dir/$file")/(1024*1024);
103
}
104
else {
0 commit comments