]> git.sesse.net Git - ccbs/blob - html/do-set-language.pl
Port to pqxx3, where we need the widestring traits available at parse time.
[ccbs] / html / do-set-language.pl
1 #! /usr/bin/perl
2
3 use ccbs;
4 use CGI::Cookie;
5 use strict;
6 use warnings;
7
8 my $cgi = new CGI;
9 my $cookie = new CGI::Cookie(-name=>'language', -value=>($cgi->param('lang')));
10
11 print CGI::header(-status=>'303 See other',
12                 -location=>$ccbs::config::webroot,
13                 -cookie=>$cookie,
14                 -type=>'text/html; charset=utf-8');
15