X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=lib%2FGruntmaster%2FData.pm;h=e514970820e95cf2037c49806b0f7b23b13dd33e;hb=edfc5928b7d9ee441f2f0eaf9b3cadec58bbf947;hp=9d01418c062f08f94f9a39ef41bcf10fd872142c;hpb=197d1959d49946b32ed6356bc74848f95c0adcbd;p=gruntmaster-data.git

diff --git a/lib/Gruntmaster/Data.pm b/lib/Gruntmaster/Data.pm
index 9d01418..e514970 100644
--- a/lib/Gruntmaster/Data.pm
+++ b/lib/Gruntmaster/Data.pm
@@ -15,10 +15,13 @@ __PACKAGE__->load_namespaces;
 # Created by DBIx::Class::Schema::Loader v0.07039 @ 2014-03-05 13:11:39
 # DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:dAEmtAexvUaNXLgYz2rNEg
 
+use parent qw/Exporter/;
 our $VERSION = '5999.000_012';
+our @EXPORT = qw/purge/;
 
 use Lingua::EN::Inflect qw/PL_N/;
 use JSON::MaybeXS qw/decode_json/;
+use HTTP::Tiny;
 use PerlX::Maybe qw/maybe/;
 use Sub::Name qw/subname/;
 
@@ -180,6 +183,12 @@ sub update_status {
 	$self->txn_do($txn);
 }
 
+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 }
+
+
 1;
 
 __END__