#!/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 "lib";
BEGIN {
    delete $INC{"Kantelpunten/Helper.pm"};
}
use Kantelpunten::Helper;

redirect_page();
exit(0);

sub redirect_page()
{
	my $q = CGI->new;
	my $page = $q->param('page');

	my $remote_ip = init_helper();

	if (!defined($page))
	{
    	print_error_doc("Geen redirect pagina gekozen.");
    	exit(0);
	}

	my $script = make_home_script($page, "always");
    
	print_header();
	print_pre_doc();
	print_head("Redirect Page", undef, undef, undef, $script);
	print_body("kantel");
    print <<EndOfText;
<br><br>
<font style="font-weight: bold; font-style: italic; color: rgb(0, 0, 153);" color="black" face="Verdana" size="5">
 U wordt doorverwezen naar de gekozen pagina.
</font>
<br><br>
EndOfText
	print_body("end");
	print_post_doc();
}

