Imported the download handler for the source code.

[ipfire.org.git] / index.pl

#!/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: /$lang/source.shtml\n";
} else {
	print "Location: /$lang/index.shtml\n";
}

# End http header...
print "\n";