#!/usr/bin/perl
#############################################################################
use CGI;
$CGI::POST_MAX=1024*1024; # Maximale Zeichenkette via method=POST = ca. 1 MB
$req = new CGI;
@daten=$req->param;
for(@daten) {
	my $value = $req->param($_);
	$value =~ s/\\'/'/gi;
	$value =~ s/\'/\\'/gi;
	$in{$_} = $value;
}

if($in{'klick'} ne "") {
	$member_id = $in{'klick'};
	print "Location: http://www.realbossgirls.com/redtl/hitin.php?mid=$member_id\n\n";
	exit;
}else{
	print "Content-type: text/plain\n\n";
	print "Invalid action";
	exit;
}
###########################################################################################