#!/usr/bin/perl
use strict;
use CGI;
my $DEBUG = 0;
my $base_dir;
my $script_dir;
my $cgi_obj = new CGI;
my ($go, $ordner);
$go = "";
if ( defined($cgi_obj->param('go')) ){
$go = $cgi_obj->param('go');
}
$ordner = "";
if ( defined($cgi_obj->param('ordner')) ){
$ordner = $cgi_obj->param('ordner');
}
$script_dir = "";
$base_dir = rindex ($0, "\\") ;
$base_dir = rindex ($0, "/") if ($base_dir < 0) ;
$script_dir = substr( $0, 0, $base_dir) . "/" if ($base_dir >= 0 ) ;
chdir($script_dir) ;
my $BasisPfad = $ENV{'SCRIPT_FILENAME'};
print "Content-type:text/html\n\n" if ( $DEBUG == 1);
print "\$go =$go
\n" if ( $DEBUG == 1);
print "\$ordner =$ordner
\n" if ( $DEBUG == 1);
print "\$base_dir =$base_dir
\n" if ( $DEBUG == 1);
print "\$script_dir =$script_dir
\n" if ( $DEBUG == 1);
print "\$BasisPfad =$BasisPfad
\n" if ( $DEBUG == 1);
my $ziel ="http://www.filmkritik.biz/$ordner/$go";
print "Status: 301 Permanently moved\n";
print "location: $ziel\n\n";