maff
/
WerePaste
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

rather than complicated queries that i'm probably doing wrong, let's just make expired paste purges happen every half a minute. i only put the "expunge every" thing in there to prevent performance degredation anyway

This commit is contained in:
Matthew Connelly 2015-11-14 06:45:29 +00:00
parent b357de7371
commit 34c26e49de
2 changed files with 4 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
config.yml
View File

@ -7,9 +7,6 @@ locale: "en_GB"
logger: "console"
log: "debug"
# Time in seconds between each paste expiry check
expire_every: 600
template: "template_toolkit"
engines:
template:

12
lib/App/WerePaste.pm
View File

@ -9,7 +9,7 @@ use Dancer2::Plugin::DBIC qw/schema/;
use DateTime;
use Data::UUID;
my $lastexpunge = 0;
my $nextexpunge = 0;
sub DeploySchema {
# we override sigwarn to prevent warnings from showing up when the schema has previously been deployed
@ -34,8 +34,8 @@ sub GetUUID {
return lc $uuid;
}
sub CheckExpiry {
return unless time > ($lastexpunge+config->{expire_every});
$lastexpunge = time;
return unless time > $nextexpunge;
$nextexpunge = time+30;
schema->resultset('Paste')->search({expiration => { '<' => DateTimeToQueryable() }})->delete_all;
}
sub ValidateParams {
@ -52,11 +52,7 @@ sub GetPaste {
my $id = shift; $id = lc $id;
return undef unless $id =~ /^[a-f0-9]*$/;
#This got a bit messy, required because otherwise there are scenarios where an expired paste may still be viewed
return schema->resultset('Paste')->single( {
[ -and =>
{ id => $id },
{ expiration => { '>=' => DateTimeToQueryable(), undef} }
] } ) || undef;
my $paste schema->resultset('Paste')->single({ id => $id }) or return undef;
}
sub StorePaste {
my $params = shift;