package Memories;
use strict;
our $VERSION = "1.2";
-use Maypole::Application qw(Upload Authentication::UserSessionCookie);
+use Maypole::Application qw(Authentication::UserSessionCookie);
use HTML::TagCloud;
use URI;
+use Tagtools;
use Memories::Config;
use Memories::DBI;
use Memories::Photo;
use Memories::User;
use Memories::Album;
use URI::Escape;
-use Calendar::Simple;
use XML::RSS;
-use Tagtools;
Memories->config->auth->{ user_field } = "name";
Memories->config->model("Maypole::Model::CDBI::Plain");
Memories->setup([qw/ Memories::Photo Memories::User Memories::Tag
Memories::Album Memories::SystemTag/]);
+Memories->setup_tagging("photo");
+Memories->setup_tagging("photo", "system_tag");
sub message {
my ($self, $message) = @_;
}
$r->{template_args}{now} = Time::Piece->new;
if ($r->session) {
- (tied %{$r->session})->{lock_manager}->clean('/var/lib/memories/sessionlock', 3600) #remove files older than 1 hour
+ (tied %{$r->session})->{lock_manager}->clean(Memories->config->{auth}{session_args}{LockDirectory}, 3600) #remove files older than 1 hour
}
return $r->do_rss if ($r->params->{format} =~ /rss/)
}