Stop anonymous uploads

[memories.git] / Memories.pm

diff --git a/Memories.pm b/Memories.pm
index 0aebf11fab5cf447bbdadd0b047c800ffbf725b3..8536d1793c5d524800df05b49ab60344c6dbd86d 100644 (file)
--- a/Memories.pm
+++ b/Memories.pm
@@ -91,6 +91,7 @@ sub authenticate {
    my ($self, $r) = @_;
    return DECLINED if $self->path =~/static|store/; # XXX
    $r->get_user;
+   if (!$r->user and $self->path =~ /upload/) { $r->template("login"); }
    return OK; 
 }