# HG changeset patch
# User Matthias Förste <foerste@schlittermann.de>
# Date 1412671450 -7200
# Node ID e3f90a124398fa88937b553d60912170cb511fd1
# Parent  aebcf858b3b03f47e1880748dfc6190e417c20cc
dont return and/or delete files on HEAD requests

diff -r aebcf858b3b0 -r e3f90a124398 upload.pl
--- a/upload.pl	Mon Oct 06 15:17:51 2014 +0200
+++ b/upload.pl	Tue Oct 07 10:44:10 2014 +0200
@@ -64,12 +64,14 @@
 
 		open F, '<', $absolute or die "Can't open '<', '$absolute': $!";
 		print header(-type => mimetype($absolute));
-		my ($buf, $res);
-		print $buf while $res = read F, $buf, 32*2**10;
-		defined $res or die "Can't read: $!";
+                if (request_method() ~~ [qw(GET POST)]) {
+                    my ($buf, $res);
+                    print $buf while $res = read F, $buf, 32*2**10;
+                    defined $res or die "Can't read: $!";
 
-		(my $dir = $relative) =~ s|/[^/]+$||;
-		deletedir $dir if $dir =~ /-d$/;
+                    (my $dir = $relative) =~ s|/[^/]+$||;
+                    deletedir $dir if $dir =~ /-d$/;
+                }
 		exit 0;
 
 	}