my ($self, $r) = @_;
return DECLINED if $self->path =~/static|store/; # XXX
$r->get_user;
my ($self, $r) = @_;
return DECLINED if $self->path =~/static|store/; # XXX
$r->get_user;
+ if (!$r->user and $self->path =~ /upload/) { $r->template("login"); }
my ($self, $r) = @_;
my %upload = $r->upload("photo");
my ($self, $r) = @_;
my %upload = $r->upload("photo");
- # XXX Stop anonymous uploads!
my $photo = $self->create({
uploader => $r->user,
uploaded => Time::Piece->new(),
my $photo = $self->create({
uploader => $r->user,
uploaded => Time::Piece->new(),