#! /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=>$ccbs::config::webroot,
		-cookie=>$cookie,
		-type=>'text/html; charset=utf-8');

