--- a/upload.pl	Fri Sep 18 00:07:27 2009 +0200
+++ b/upload.pl	Tue Oct 19 23:05:04 2010 +0200
@@ -16,8 +16,8 @@
 use File::Basename;
 use Digest::SHA1 qw(sha1_hex);
 
-my $DIR      = "upload.d";
-my $LINK_DIR = dirname($ENV{SCRIPT_NAME}) . "$DIR";
+my $DIR      = "../d";
+my $DIR_URI = "/$DIR";
 
 -d $DIR
   or mkdir $DIR => 0750
@@ -57,6 +57,10 @@
     }
     print hr;
 
+	#print "<pre>",
+	#(map { "$_: $ENV{$_}\n" } sort keys %ENV),
+	#"</pre>";
+
     print p <<__;
 	Der gültige Download-Link ist die Link-Adresse, die sich hinter
 	dem Datei-Namen verbirgt. (Firefox: Rechte Maustaste, Link-Location).
@@ -80,7 +84,7 @@
         }
 
         print Tr(
-            td(a { href => "$LINK_DIR/$dir/$file" }, $file),
+            td(a { href => "$DIR_URI/$dir/$file" }, $file),
             td({ align => "right" }, (stat $_)[7]),
             td(scalar localtime +(stat $_)[9]),
             td(scalar localtime ${expires}),