Stop hardcoding web roots -- make it a config variable instead.

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

diff --git a/html/do-set-language.pl b/html/do-set-language.pl
index 3750cb8cf6025938071819b5959695a11ee54120..c2c119cac8591975abb1bc7c197a58ecc2079d56 100755 (executable)
--- a/html/do-set-language.pl
+++ b/html/do-set-language.pl
@@ -9,7 +9,7 @@ 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/',
+               -location=>$ccbs::config::webroot,
                -cookie=>$cookie,
                -type=>'text/html; charset=utf-8');