# HG changeset patch # User heiko # 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 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 "
",
+	#(map { "$_: $ENV{$_}\n" } sort keys %ENV),
+	#"
"; + 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}),