#!/usr/bin/perl

# relocated ins configmenu fuer Schlundkunden
# https redirect eingefuehrt!

$host = $ENV{HTTP_HOST};
$host =~ s/^www\.//;
$host =~ s/:.*//;

$dbe=$ENV{DBENTRY} if defined ($ENV{DBENTRY});
$dbe=$ENV{REDIRECT_DBENTRY} if defined ($ENV{REDIRECT_DBENTRY});

$dbe =~ /#LANG (.) /;
$lang=$1;


%loc = ('3'=>'Location: https://admin.1and1.com/',
        '4'=>'Location: https://config.alturo.de/',
        '0'=>'Location: https://www.configtools.de/',
        '1'=>'Location: https://admin.oneandone.co.uk/',
        '2'=>'Location: https://admin.1and1.fr/');

$lang=0 unless defined $loc{$lang}; # bei neuen 'Sprachen' aufs schlundconfig gehen
print $loc{$lang}."\n\n";