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}),