[ipfire.org.git] / index.pl

#!/usr/bin/perl

my $lang = "en";

# 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";
Commit	Line	Data
01885878	1	#!/usr/bin/perl
01885878	2
8afb2498	3	my $lang = "en";
	4
	5	# Set language to german, else use english site
	6	if ($ENV{'HTTP_ACCEPT_LANGUAGE'} =~ /^de(.*)/) {
	7	$lang = "de";
	8	}
	9
01885878	10	print "Status: 302 Moved\n";
3ff59c7c	11	print "Pragma: no-cache\n";
	12
	13	if ($ENV{'SERVER_NAME'} eq "source.ipfire.org") {
8afb2498	14	print "Location: /$lang/source.shtml\n";
3ff59c7c	15	} else {
8afb2498	16	print "Location: /$lang/index.shtml\n";
3ff59c7c	17	}
	18
	19	# End http header...
	20	print "\n";