webwml/cgi-bin/languageswitch.cgi
2010-07-09 01:55:22 +00:00

8 lines
293 B
Perl

#!/usr/bin/env perl
# This CGI tries to do as little as possible. A URL is passed from the languages
# dropdown form generated in /include/foot.wmi and the client is redirected to that page
use CGI qw(:standard);
my $lang = param('Language');
print "Status: 302 Moved\nLocation: /$lang\n\n";