#!/usr/bin/perl -w


use CGI qw/:standard/;

use strict;

my $lang = param("lang"); # Sprache als Parameter übergeben

if (!defined($lang)) {
	
	# Wenn browser-kennung [de] enthaelt, dann de (wird ueberschrieben vom nexten!)

	$lang = 'en';
	$lang = 'de' if ($ENV{'HTTP_USER_AGENT'} =~ /\[de\]/); 
	
	# wenn Sprach-String mit "de" startet, dann deutsch ...
	
	$lang = 'de' if ($ENV{'HTTP_ACCEPT_LANGUAGE'} =~ /^de/);
}


my $file;

# Wenn deutsche Browserkennung, dann deutscher Index
# Ansonsten Englisch


if ($lang eq "de") {
	$file = "index-de.html" 
} else {
	$file = "index-en.html";
}

open (FILE, $file) or die "404 -- File not found"; 

print header();

print <FILE>;

close FILE;