}
}
+sub find_all_locales {
+ my $dbh = shift;
+ my $q = $dbh->prepare('SELECT kultur FROM fotballspraak WHERE nyestesesong<>-1');
+ $q->execute;
+
+ my @locales = ();
+ while (my $ref = $q->fetchrow_hashref) {
+ push @locales, $ref->{'kultur'};
+ }
+
+ return @locales;
+}
+
1;
use POSIX;
use lib qw( include );
require 'config.pm';
+require 'common.pm';
# Find last completely done season
sub find_last_season {
close RATINGS;
}
-sub find_all_locales {
- my $dbh = shift;
- my $q = $dbh->prepare('SELECT kultur FROM fotballspraak WHERE nyestesesong<>-1');
- $q->execute;
-
- my @locales = ();
- while (my $ref = $q->fetchrow_hashref) {
- push @locales, $ref->{'kultur'};
- }
-
- return @locales;
-}
-
my $dbh = DBI->connect($config::local_connstr, $config::local_username, $config::local_password)
or die "connect: " . $DBI::errstr;
$dbh->{AutoCommit} = 0;
$dbh->do('SET client_min_messages TO WARNING');
-my @locales = find_all_locales($dbh);
+my @locales = wloh_common::find_all_locales($dbh);
my @ratings = ();
my @covariances = ();
push @players, \%player;
}
-print CGI->header(-type=>'text/html; charset=utf-8', -expires=>'+5m');
+print CGI->header(-type=>'text/html; charset=utf-8', -expires=>'+75m');
wloh_common::process_template('rating', $locale, {
'#navbar' => wloh_common::get_navbar($cgi, $dbh, $locale),
'iterations' => $aux_parms->{'num_iterations'},