From 933440f50f4ac2267adfca3442a4d8e9aebd6d8b Mon Sep 17 00:00:00 2001
From: "Steinar H. Gunderson" <sgunderson@bigfoot.com>
Date: Wed, 30 May 2012 20:24:20 +0200
Subject: [PATCH] Add a function to fish out the locale from the URL.

---
 www/index.pl | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/www/index.pl b/www/index.pl
index 54c0b71..6a869a9 100755
--- a/www/index.pl
+++ b/www/index.pl
@@ -340,6 +340,13 @@ sub print_header {
 EOF
 }
 
+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 print_footer {
 	print <<"EOF";
   </body>
-- 
2.39.2