Added a link to a web irc...

[ipfire.org.git] / index.pl

diff --git a/index.pl b/index.pl
index dd630fcae6b574740a080a7359a438e55acb7dbb..22ab6abd8d4c40decf530f26ce0d91171195a9c4 100755 (executable)
--- a/index.pl
+++ b/index.pl
@@ -1,12 +1,20 @@
 #!/usr/bin/perl
 
+my $lang = "en";
+my @error;
+
+# Set language to german, else use english site
+if ($ENV{'HTTP_ACCEPT_LANGUAGE'} =~ /^de(.*)/) {
+       $lang = "de";
+}
+
 print "Status: 302 Moved\n";
 print "Pragma: no-cache\n";
 
 if ($ENV{'SERVER_NAME'} eq "source.ipfire.org") {
-       print "Location: /en/source.shtml\n";
+       print "Location: /$lang/source.shtml\n";
 } else {
-       print "Location: /en/index.shtml\n";
+       print "Location: /$lang/index.shtml\n";
 }
 
 # End http header...