# HG changeset patch
# User heiko <hs@schlittermann.de>
# Date 1287522304 -7200
# Node ID 16a0b84fe7fb63def3d3c7337820eb32fd08698d
# Parent  8b499dbf38ca313c5ef793dfad6198370a73cb2e
DIR_URI instead of LINK_DIR
removed non-working autodetection of the DIR_URI

diff -r 8b499dbf38ca -r 16a0b84fe7fb .htaccess
--- a/.htaccess	Fri Sep 18 00:07:27 2009 +0200
+++ b/.htaccess	Tue Oct 19 23:05:04 2010 +0200
@@ -3,5 +3,5 @@
 	AuthName upload
 	Require valid-user
 	# AuthUserFile /etc/apache2/auth/ssl.schlittermann.de/passwd
-	AuthUserFile /dev/null
+	AuthUserFile /home/ud/anon-upload/passwd
 </Files>
diff -r 8b499dbf38ca -r 16a0b84fe7fb upload.pl
--- 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}),