#!/usr/bin/perl
#!/usr/bin/composite

###########################################################
##  P R O J E C T L A B                                  ##
##                  НН     НННН                й         ##
##  ННННН    НННН   НННН  НН  НН   НННН   ННННН          ##
##  НН  НН  НН  НН  НН    НН      НН  НН  НН  НН         ##
##  НН  НН  НННННН  НН    НН ННН  НННННН  НН  НН         ##
##  НН  НН  НН      НН    НН  НН  НН      НН  НН         ##
##  НН  НН   НННН    НННН  ННННН   НННН   НН  НН V3.x    ##
##                                                       ##
####### й 1999-2001 by projectlab Online Agentur Berlin ###



use CGI::Carp 'fatalsToBrowser';




if ($ENV{'REQUEST_METHOD'} eq "GET"){ 
	$Daten = $ENV{'QUERY_STRING'}; 
}else{ 
	read(STDIN, $Daten, $ENV{'CONTENT_LENGTH'}); 
}
@Formularfelder = split(/&/, $Daten);
foreach $Feld (@Formularfelder)  
 {
  ($name, $value) = split(/=/, $Feld);   
  $value =~ tr/+/ /;
  $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
  $value =~ s/<!--(.|\n)*-->//g;
  
  #bisschen Яberarbeitet fЯr mehrfachauswahlen bei select-listen (admin)
  if(defined $Formular{$name} && $Formular{$name} ne "") {
  	 my $lilcounter=0;
	 while(defined $Formular{$name.'_'.$lilcounter} && $Formular{$name.'_'.$lilcounter} ne "") {
	 	$lilcounter++
	 }
	 $name=$name."_".$lilcounter;
	 $Formular{$name} = $value;
  } else {
	 $Formular{$name} = $value;
  }
}




sub init {
	
	#&check_referer;
	
	#print "Content-type: text/html \n\n";
	
	if($Formular{'template'} eq "kontakt_impressum") { print "Location: http://www.tuningtips.de/impressum.html\n\n"; } else { print "Location: http://www.tuningtips.de\n\n"; }
}


&init;


