X-Git-Url: https://git.sesse.net/?a=blobdiff_plain;f=common.pm;h=a5c730b806f3d0bda20e511bda9e77be7e8d2cf8;hb=854c8eb6e0a3f9836043faaf2f43c05c190619fb;hp=37c59a377e74f4e6cfbff38fb0e14bdb68d1c7cc;hpb=beccc37c94398d34d002a6d9a8a2dde24e8b17f6;p=wloh

diff --git a/common.pm b/common.pm
index 37c59a3..a5c730b 100644
--- a/common.pm
+++ b/common.pm
@@ -4,6 +4,13 @@ use POSIX;
 
 package wloh_common;
 
+sub get_max_season {
+	my ($dbh, $locale) = @_;
+	my $ref = $dbh->selectrow_hashref('SELECT MAX(sesong) AS max_sesong FROM fotballserier se JOIN fotballspraak sp ON se.spraak=sp.id WHERE kultur=?',
+		undef, $locale);
+	return $ref->{'max_sesong'};
+}
+
 sub output_last_sync {
 	my $dbh = shift;
 	my $ref = $dbh->selectrow_hashref('SELECT EXTRACT(EPOCH FROM last_sync) AS last_sync FROM last_sync');
@@ -15,4 +22,24 @@ sub output_last_sync {
 	}
 }
 
+sub get_locale {
+	my $cgi = shift;
+	my $url = $cgi->url(-absolute => 1);
+	$url =~ m#^/([a-z][a-z]-[A-Z][A-Z])/# or die "Invalid locale!";
+	return $1;
+}
+
+sub get_auxillary_parameters {
+	my ($dbh, $locale) = @_;
+
+	my $q = $dbh->prepare('SELECT * FROM aux_params WHERE kultur=?');
+	$q->execute($locale);
+
+	my $aux_parms = {};
+	while (my $ref = $q->fetchrow_hashref) {
+		$aux_parms->{$ref->{'id'}} = $ref->{'value'};
+	}
+	return $aux_parms;
+}
+
 1;