package Memories;
use strict;
our $VERSION = "1.2";
-use Maypole::Application qw(Upload Authentication::UserSessionCookie -Debug);
+use Maypole::Application qw(Authentication::UserSessionCookie);
use HTML::TagCloud;
use URI;
use Memories::Config;
use URI::Escape;
use Calendar::Simple;
use XML::RSS;
+use Tagtools;
Memories->config->auth->{ user_field } = "name";
Memories->config->model("Maypole::Model::CDBI::Plain");
my ($self, $r) = @_;
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
+ if ($r->session and $r->session->{quarantined} and $self->path !~ /js$/) {
+ $r->table("photo"); $r->action("quarantine");
+ $r->model_class("Memories::Photo");
+ }
return OK;
}
-
-use Cache::SharedMemoryCache;
-my %cache_options = ( 'namespace' => 'MemoriesStuff',
- 'default_expires_in' => 600 );
-my $cache =
- new Cache::SharedMemoryCache( \%cache_options ) or
- croak( "Couldn't instantiate SharedMemoryCache" );
-
-sub zap_cache { $cache->Clear }
-use Storable qw(freeze); use MIME::Base64;
-sub do_cached {
- my ($self, $codeblock,$arg) = @_;
- my $key = 0+$codeblock; if ($arg) { $key .=":".encode_base64(freeze(\$arg)); }
- my $c = $cache->get(0+$codeblock); return @$c if $c;
- my @stuff = $codeblock->($arg);
- $cache->set(0+$codeblock, [ @stuff ]);
- return @stuff;
-}
-
for my $how (qw(random recent interesting popular)) {
no strict;
my $method = "search_$how";
*{$how} = sub { shift->do_cached(\&{"_$how"})};
}
-sub tagcloud { shift->do_cached(\&_tagcloud) }
-
-sub _tagcloud {
- my $cloud = HTML::TagCloud->new();
- my $base = Memories->config->uri_base."tag/view/";
- for my $tagging (Memories::Tagging->search_summary) {
- my $name = $tagging->tag->name;
- $cloud->add($name,
- $base.uri_escape($name),
- $tagging->{count}
- )
- }
- $cloud
-}
-
-sub calendar {
- # shift->do_cached(\&_calendar, shift ) }
-#sub _calendar {
- my $self = shift;
- my $arg = shift;
- my ($y, $m) = split /-/, ($arg || Time::Piece->new->ymd);
- my @m = Calendar::Simple::calendar($m, $y);
- my @month;
- foreach my $week (@m) {
- my @weekdays;
- foreach my $day (@$week) {
- my $d = { day => $day };
- if ($day) {
- my $tag = "date:$y-$m-".sprintf("%02d", $day);
- my ($x) = Memories::SystemTag->search(name => $tag);
- if ($x) { $d->{tag} = "/system_tag/view/$tag" }
- }
- push(@weekdays, $d);
- }
- push(@month, \@weekdays);
- }
- return \@month;
-}
-
-# THIS IS A HACK
-
-use Time::Seconds;
-sub Time::Piece::next_month {
- my $tp = shift;
- my $month = $tp + ONE_MONTH;
- return if $month > Time::Piece->new;
- return $month
-}
-sub Time::Piece::prev_month {
- my $tp = shift;
- my $month = $tp - ONE_MONTH;
- return $month
-}
-
-
sub tag_select {
my ($r, $tags) = @_;
my %counter;