Purge affected pages on insert/update/delete

[gruntmaster-data.git] / lib / Gruntmaster / Data / Result / Job.pm

diff --git a/lib/Gruntmaster/Data/Result/Job.pm b/lib/Gruntmaster/Data/Result/Job.pm
index dfb375e7a0a0e40786a65b4213595b3349c1bf96..39d44bd81716ab02d910dceecfed6f6f9941ec84 100644 (file)
--- a/lib/Gruntmaster/Data/Result/Job.pm
+++ b/lib/Gruntmaster/Data/Result/Job.pm
@@ -236,6 +236,8 @@ __PACKAGE__->has_many(
 # Created by DBIx::Class::Schema::Loader v0.07042 @ 2014-12-19 16:54:00
 # DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:hEAVL5heV13+nalSmgr0WA
 
+use Class::Method::Modifiers qw/after/;
+
 sub rawcontest { shift->get_column('contest') }
 sub rawowner { shift->get_column('owner') }
 sub rawproblem { shift->get_column('problem') }
@@ -244,6 +246,15 @@ sub rerun {
        shift->update({daemon => undef, result => -2, result_text => undef});
 }
 
+after qw/insert update delete/ => sub {
+       my ($self) = @_;
+       Gruntmaster::Data::purge '/us/';
+       Gruntmaster::Data::purge '/us/' . $self->rawowner;
+       Gruntmaster::Data::purge '/st/' . $self->rawcontest if $self->rawcontest;
+       Gruntmaster::Data::purge '/log/';
+       Gruntmaster::Data::purge '/log/' . $self->id;
+};
+
 1;
 
 __END__