]> git.sesse.net Git - wloh/blob - clear-cache.pl
Do not show cheaters.
[wloh] / 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 }