X-Git-Url: https://git.sesse.net/?p=pr0n;a=blobdiff_plain;f=perl%2FSesse%2Fpr0n%2FUploadForm.pm;h=0c3a9068b6361c48437f682cd0f4636b395d0d6b;hp=8eb73a7de7b27af49c794ecc86f88361a0e026ac;hb=388116cb107c3cae1f53a264caa324a367f01a5c;hpb=400a1bbb95bf6837807e2819825cddd00c219cf1

diff --git a/perl/Sesse/pr0n/UploadForm.pm b/perl/Sesse/pr0n/UploadForm.pm
index 8eb73a7..0c3a906 100644
--- a/perl/Sesse/pr0n/UploadForm.pm
+++ b/perl/Sesse/pr0n/UploadForm.pm
@@ -20,6 +20,9 @@ sub handler {
 		or return error($r, "Could not extract event");
 	my $event = $1;
 
+	my ($user,$takenby) = Sesse::pr0n::Common::check_access($r);
+	return Sesse::pr0n::Common::generate_401($r) if (!defined($user));
+
 	my $res = Plack::Response->new(200);
 	$res->content_type("text/html; charset=utf-8");
 	my $io = IO::String->new;