#!/usr/bin/perl
use strict;
###############################
# show
###############################
$| = 1;
my %lang_map = ( f => 'fr', d => 'de', 'e' => 'en', i => 'it' );
print "Content-type: text/html\n\n";
my $lang = 'de';
my $lang_code = '';
if ($ENV{REDIRECT_URL} =~ /.*abholauftrag_(.+)\.php$/) {
$lang_code = $1;
}
$lang = $lang_map{$lang_code} || 'de';
# XXX print "XXX $lang\n";
print qq~
Bitte warten~;
# foreach (sort keys %ENV) { print "$_ = $ENV{$_}
\n"; }
__END__
REDIRECT_URL = /abholung/abholauftrag_f.php