#!/usr/bin/perl
# ----------------------------------------------------------------------------
#
#  (c) Copyright 2006 TradeExtender
# 
#  This software is proprietary to and embodies the confidential technology 
#  of TradeExtender. Possession, use, duplication or dissemination of the 
#  software and media is authorized only pursuant to a valid written license 
#  from TradeExtender.
#

use strict;
use lib "/var/www/vhosts/kantelpunten.com/httpdocs/pl/lib";
use lib "pl/lib";
BEGIN {
    delete $INC{"Kantelpunten/Helper.pm"};
    delete $INC{"Kantelpunten/MyRobots.pm"};
}
use Kantelpunten::Helper;
use Kantelpunten::MyRobots;
use CGI qw(:standard);

my $remote_ip = init_helper('test');

my $robot = get_robot();
if (defined($robot) && $robot)
{
    write_robot_data($remote_ip, $robot, 0);
}

if (($remote_ip eq "195.240.88.178a"))
{
	print redirect(-location => "http://www.kantelpunten.com/kantelpunten.htm", -status => "301");
}
else
{
	my $q = CGI->new;
	
	if (defined($q->param('auto')))
	{
		write_access_data($remote_ip, 12999);
	}

#    print redirect(-location => "http://www.trade-extender.com/kantelpunten");
    print redirect(-location => "http://www.kantelpunten.com/nbrief/kantelpunt_is_gekomen.htm", -status => "301");
}
exit(0);