--- 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;
}