# HG changeset patch
# User root@pu.schlittermann.de
# Date 1253224672 -7200
# Node ID 2f299c7ef0c9d1bfcbf2a0859b8c12ed13843442
# Parent  6d8dea55365acbe7c0c2d1c77771cceedf15c27a
added .htaccess to avoid abuse

diff -r 6d8dea55365a -r 2f299c7ef0c9 .htaccess
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/.htaccess	Thu Sep 17 23:57:52 2009 +0200
@@ -0,0 +1,7 @@
+<Files upload.pl>
+	AuthType Basic
+	AuthName upload
+	Require valid-user
+	# AuthUserFile /etc/apache2/auth/ssl.schlittermann.de/passwd
+	AuthUserFile /dev/null
+</Files>
diff -r 6d8dea55365a -r 2f299c7ef0c9 upload.pl
--- a/upload.pl	Thu Sep 17 23:33:03 2009 +0200
+++ b/upload.pl	Thu Sep 17 23:57:52 2009 +0200
@@ -17,7 +17,7 @@
 use Digest::SHA1 qw(sha1_hex);
 
 my $DIR = "upload.d";
-my $LINK_DIR = url(-base => 1) . dirname($ENV{SCRIPT_NAME}) . "/$DIR";
+my $LINK_DIR = dirname($ENV{SCRIPT_NAME}) . "$DIR";
 
 -d $DIR
   or mkdir $DIR => 0750
@@ -58,13 +58,21 @@
     }
     print hr;
 
+    print p <<__;
+	Der gültige Download-Link ist die Link-Adresse, die sich hinter
+	dem Datei-Namen verbirgt. (Firefox: Rechte Maustaste, Link-Location).
+__
+
     print start_table, Tr(th { align => "left" }, [qw/name size date expires/]);
 
     foreach (map { /(.*)/ } sort { -M $a <=> -M $b } glob "$DIR/*-*/*") {
         my ($file, $dir) = fileparse($_);
         $dir = basename $dir;
-        $dir =~ /(?<hash>\S+)-(?<expires>\d+)$/ or next;
-        if ($+{expires} <= time) {
+        # $dir =~ /(?<hash>\S+)-(?<expires>\d+)$/ or next;
+        $dir =~ /(\S+)-(\d+)$/ or next;
+	my $hash = $1;
+	my $expires = $2;
+        if (${expires} <= time) {
             /(.*)/;
             unlink $_  or die "Can't unlik $_: $!\n";
             rmdir $dir or die "Can't rmdir $dir: $!\n";
@@ -75,7 +83,7 @@
             td(a { href => "$LINK_DIR/$dir/$file" }, $file),
             td({ align => "right" }, (stat $_)[7]),
             td(scalar localtime +(stat $_)[9]),
-            td(scalar localtime $+{expires}),
+            td(scalar localtime ${expires}),
             td(a({ href => "?delete=$dir" }, "remove"))
         );
     }