Skip to content

Commit 4d23fcd

Browse files
committed
fixup the dir fix
1 parent 10ed0c2 commit 4d23fcd

1 file changed

Lines changed: 2 additions & 2 deletions

File tree

mk-download.pl

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -2,7 +2,7 @@
22

33
require "./date.pm";
44

5-
my $dir="/download";
5+
my $dir="download";
66
opendir(DIR, $dir) || die "cannot opendir $dir: $!";
77
my @files = readdir(DIR);
88
closedir DIR;
@@ -98,7 +98,7 @@ sub sortthem {
9898
my $file = $file{$date.$ext};
9999

100100
if($file && -f "$dir/$file" ) {
101-
printf "<td><a href=\"$dir/%s\">%.2fMB</a></td>",
101+
printf "<td><a href=\"/$dir/%s\">%.2fMB</a></td>",
102102
$file, filesize("$dir/$file")/(1024*1024);
103103
}
104104
else {

0 commit comments

Comments
 (0)