Add support for the user selecting languages.

[ccbs] / html / do-set-language.pl

diff --git a/html/do-set-language.pl b/html/do-set-language.pl
new file mode 100755 (executable)
index 0000000..3750cb8
--- /dev/null
+++ b/html/do-set-language.pl
@@ -0,0 +1,15 @@
+#! /usr/bin/perl
+
+use ccbs;
+use CGI::Cookie;
+use strict;
+use warnings;
+
+my $cgi = new CGI;
+my $cookie = new CGI::Cookie(-name=>'language', -value=>($cgi->param('lang')));
+
+print CGI::header(-status=>'303 See other',
+               -location=>'http://ccbs.sesse.net/',
+               -cookie=>$cookie,
+               -type=>'text/html; charset=utf-8');
+