Mercurial Mercurial > hg > once / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
DIR_URI instead of LINK_DIR
authorheiko <hs@schlittermann.de>
Tue, 19 Oct 2010 23:05:04 +0200
changeset 4 16a0b84fe7fb
parent 3 8b499dbf38ca
child 5 978827859b68
DIR_URI instead of LINK_DIR removed non-working autodetection of the DIR_URI
.htaccess file | annotate | diff | comparison | revisions
upload.pl file | annotate | diff | comparison | revisions 
--- 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>
--- 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}),
once