Quarantine non-tagged photos. Closes #14.

[memories.git] / Memories.pm

diff --git a/Memories.pm b/Memories.pm
index 8536d1793c5d524800df05b49ab60344c6dbd86d..a789fabf524497765120d66a42bf8ee85a5bb29a 100644 (file)
--- a/Memories.pm
+++ b/Memories.pm
@@ -1,7 +1,7 @@
 package Memories;
 use strict;
 our $VERSION = "1.2";
-use Maypole::Application qw(Upload Authentication::UserSessionCookie -Debug);
+use Maypole::Application qw(Upload Authentication::UserSessionCookie);
 use HTML::TagCloud;
 use URI;
 use Memories::Config;
@@ -92,6 +92,12 @@ sub authenticate {
    return DECLINED if $self->path =~/static|store/; # XXX
    $r->get_user;
    if (!$r->user and $self->path =~ /upload/) { $r->template("login"); }
+   # Don't let 'em go until they've fixed it
+   warn "Quarantine is : ".$r->session->{quarantined};
+   if ($r->session->{quarantined} and $self->path !~ /js$/) { 
+       $r->table("photo"); $r->action("quarantine");
+       $r->model_class("Memories::Photo");
+   }
    return OK; 
 }