git.sesse.net Git - ccbs/blob - 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=>'http://ccbs.sesse.net/',
  13                 -cookie=>$cookie,
  14                 -type=>'text/html; charset=utf-8');
  15