From: Marius Gavrilescu <marius@ieval.ro>
Date: Sat, 20 Dec 2014 14:41:39 +0000 (+0200)
Subject: Purge affected pages on insert/update/delete
X-Git-Tag: 5999.000_013~3
X-Git-Url: http://git.ieval.ro/?a=commitdiff_plain;h=de7226ca2f77bf5d6fab57c61a6fdeb4fcc52c28;p=gruntmaster-data.git

Purge affected pages on insert/update/delete
---

diff --git a/Makefile.PL b/Makefile.PL
index 6d1dc29..86e6c32 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -18,6 +18,7 @@ WriteMakefile(
 
 		   Authen::Passphrase 0
 		   Authen::Passphrase::BlowfishCrypt 0
+		   Class::Method::Modifiers 0
 		   Date::Parse 0
 		   DBIx::Class 0
 		   File::Slurp 0
diff --git a/lib/Gruntmaster/Data.pm b/lib/Gruntmaster/Data.pm
index 6de2fa2..61a8f4e 100644
--- a/lib/Gruntmaster/Data.pm
+++ b/lib/Gruntmaster/Data.pm
@@ -17,7 +17,7 @@ __PACKAGE__->load_namespaces;
 
 use parent qw/Exporter/;
 our $VERSION = '5999.000_012';
-our @EXPORT = qw/purge/;
+our @EXPORT = qw/purge/; ## no critic (ProhibitAutomaticExportation)
 
 use Lingua::EN::Inflect qw/PL_N/;
 use JSON::MaybeXS qw/decode_json/;
@@ -186,8 +186,9 @@ sub update_status {
 my @PURGE_HOSTS = exists $ENV{PURGE_HOSTS} ? split ' ', $ENV{PURGE_HOSTS} : ();
 my $ht = HTTP::Tiny->new;
 
-sub purge { $ht->request(PURGE => "http://$_$_[0]") for @PURGE_HOSTS }
-
+sub purge {
+	$ht->request(PURGE => "http://$_$_[0]") for @PURGE_HOSTS;
+}
 
 1;
 
diff --git a/lib/Gruntmaster/Data/Result/Contest.pm b/lib/Gruntmaster/Data/Result/Contest.pm
index e7b7225..a82bc0f 100644
--- a/lib/Gruntmaster/Data/Result/Contest.pm
+++ b/lib/Gruntmaster/Data/Result/Contest.pm
@@ -171,8 +171,15 @@ __PACKAGE__->many_to_many("problems", "contest_problems", "problem");
 # Created by DBIx::Class::Schema::Loader v0.07042 @ 2014-12-19 16:54:00
 # DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:IxxZqQwKisBwDabCNUD55Q
 
+use Class::Method::Modifiers qw/after/;
 use List::Util qw/sum/;
 
+after qw/insert update delete/ => sub {
+	my ($self) = @_;
+	Gruntmaster::Data::purge '/ct/';
+	Gruntmaster::Data::purge '/ct/' . $self->id;
+};
+
 sub is_pending {
 	my ($self, $time) = @_;
 	$self->start > ($time // time)
diff --git a/lib/Gruntmaster/Data/Result/ContestProblem.pm b/lib/Gruntmaster/Data/Result/ContestProblem.pm
index 4ae5e4b..fd720ad 100644
--- a/lib/Gruntmaster/Data/Result/ContestProblem.pm
+++ b/lib/Gruntmaster/Data/Result/ContestProblem.pm
@@ -94,9 +94,17 @@ __PACKAGE__->belongs_to(
 # Created by DBIx::Class::Schema::Loader v0.07042 @ 2014-12-19 16:44:22
 # DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:dTFBC3ZKB2T9SCiyQxxe2w
 
+use Class::Method::Modifiers qw/after/;
+
 sub rawcontest { shift->get_column('contest') }
 sub rawproblem { shift->get_column('problem') }
 
+after qw/insert update delete/ => sub {
+	my ($self) = @_;
+	Gruntmaster::Data::purge '/pb/';
+	Gruntmaster::Data::purge '/pb/' . $self->rawproblem;
+};
+
 1;
 
 __END__
diff --git a/lib/Gruntmaster/Data/Result/ContestStatus.pm b/lib/Gruntmaster/Data/Result/ContestStatus.pm
index 0815e98..d4ed8fe 100644
--- a/lib/Gruntmaster/Data/Result/ContestStatus.pm
+++ b/lib/Gruntmaster/Data/Result/ContestStatus.pm
@@ -108,6 +108,14 @@ __PACKAGE__->belongs_to(
 # Created by DBIx::Class::Schema::Loader v0.07042 @ 2014-12-19 16:44:22
 # DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:IkY4FNON0SrxrP8oNOXoHg
 
+use Class::Method::Modifiers qw/after/;
+
 sub rawowner { shift->get_column('owner') }
 
+after qw/insert update delete/ => sub {
+	my ($self) = @_;
+	Gruntmaster::Data::purge '/us/';
+	Gruntmaster::Data::purge '/us/' . $self->rawowner;
+};
+
 1;
diff --git a/lib/Gruntmaster/Data/Result/Job.pm b/lib/Gruntmaster/Data/Result/Job.pm
index dfb375e..39d44bd 100644
--- 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__
diff --git a/lib/Gruntmaster/Data/Result/Open.pm b/lib/Gruntmaster/Data/Result/Open.pm
index 495df19..e5c45e2 100644
--- a/lib/Gruntmaster/Data/Result/Open.pm
+++ b/lib/Gruntmaster/Data/Result/Open.pm
@@ -130,9 +130,17 @@ __PACKAGE__->belongs_to(
 # Created by DBIx::Class::Schema::Loader v0.07042 @ 2014-12-19 16:44:22
 # DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:jAao0vjOW87mO37ZQhm4Cw
 
+use Class::Method::Modifiers qw/after/;
+
+sub rawcontest { shift->get_column('contest') }
 sub rawowner { shift->get_column('owner') }
 sub rawproblem { shift->get_column('problem') }
 
+after qw/insert update delete/ => sub {
+	my ($self) = @_;
+	Gruntmaster::Data::purge '/st/' . $self->rawcontest;
+};
+
 1;
 
 __END__
diff --git a/lib/Gruntmaster/Data/Result/Problem.pm b/lib/Gruntmaster/Data/Result/Problem.pm
index 34c9d87..fe5523d 100644
--- a/lib/Gruntmaster/Data/Result/Problem.pm
+++ b/lib/Gruntmaster/Data/Result/Problem.pm
@@ -314,6 +314,14 @@ __PACKAGE__->many_to_many("contests", "contest_problems", "contest");
 # Created by DBIx::Class::Schema::Loader v0.07042 @ 2014-12-19 16:54:00
 # DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:QZHyWOWaPmTm/EQ5M22CGA
 
+use Class::Method::Modifiers qw/after/;
+
+after qw/insert update delete/ => sub {
+	my ($self) = @_;
+	Gruntmaster::Data::purge '/pb/';
+	Gruntmaster::Data::purge '/pb/' . $self->id;
+};
+
 sub is_private {
 	my ($self, $time) = @_;
 	return 1 if $self->private;
diff --git a/lib/Gruntmaster/Data/Result/ProblemStatus.pm b/lib/Gruntmaster/Data/Result/ProblemStatus.pm
index d46de2b..3b8ca4c 100644
--- a/lib/Gruntmaster/Data/Result/ProblemStatus.pm
+++ b/lib/Gruntmaster/Data/Result/ProblemStatus.pm
@@ -135,6 +135,14 @@ __PACKAGE__->belongs_to(
 # Created by DBIx::Class::Schema::Loader v0.07042 @ 2014-12-19 16:44:22
 # DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:1OCTO6sM27DamVhQi3dWKg
 
+use Class::Method::Modifiers qw/after/;
+
 sub rawowner { shift->get_column('owner') }
 
+after qw/insert update delete/ => sub {
+	my ($self) = @_;
+	Gruntmaster::Data::purge '/us/';
+	Gruntmaster::Data::purge '/us/' . $self->rawowner;
+};
+
 1;
diff --git a/lib/Gruntmaster/Data/Result/User.pm b/lib/Gruntmaster/Data/Result/User.pm
index 0b0ba4b..73fe6ab 100644
--- a/lib/Gruntmaster/Data/Result/User.pm
+++ b/lib/Gruntmaster/Data/Result/User.pm
@@ -215,6 +215,14 @@ __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:LiA2+ZpTTelwZJtFpZRsbw
 
+use Class::Method::Modifiers qw/after/;
+
+after qw/insert update delete/ => sub {
+	my ($self) = @_;
+	Gruntmaster::Data::purge '/us/';
+	Gruntmaster::Data::purge '/us/' . $self->id;
+};
+
 use Authen::Passphrase;
 use Authen::Passphrase::BlowfishCrypt;