1 | 1 |
new file mode 100644 |
... | ... |
@@ -0,0 +1,7 @@ |
1 |
+#!/usr/bin/env perl |
|
2 |
+ |
|
3 |
+# This CGI tries to do as little as possible. A URL is passed from the languages |
|
4 |
+# dropdown form generated in /include/foot.wmi and the client is redirected to that page |
|
5 |
+use CGI qw(:standard); |
|
6 |
+my $lang = param('Language'); |
|
7 |
+print "Status: 302 Moved\nLocation: /$lang\n\n"; |