X-Git-Url: https://git.sesse.net/?p=ccbs;a=blobdiff_plain;f=html%2Fdo-set-language.pl;fp=html%2Fdo-set-language.pl;h=3750cb8cf6025938071819b5959695a11ee54120;hp=0000000000000000000000000000000000000000;hb=52c1d6c706b501f252e49ce576354435b2b25b59;hpb=34271723bcc84fea7cd3504054a63ecc3ca0d0e2

diff --git a/html/do-set-language.pl b/html/do-set-language.pl
new file mode 100755
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');
+