git.sesse.net Git - wloh/blob - clear-cache.pl

   1 #! /usr/bin/perl
   2 use DBI;
   3 use strict;
   4 use warnings;
   5 no warnings qw(once);
   6 use LWP::UserAgent;
   7 use lib qw( include );
   8 require 'config.pm';
   9 require 'common.pm';
  10
  11 my $dbh = DBI->connect($config::local_connstr, $config::local_username, $config::local_password)
  12         or die "connect: " . $DBI::errstr;
  13 my $ua = LWP::UserAgent->new;
  14
  15 my @locales = wloh_common::find_all_locales($dbh);
  16
  17 for my $locale (@locales) {
  18         my $url = $config::base_url . $locale . '/rating';
  19         $ua->get($url, -x_refresh => 'yes');
  20 }