#!/CIGNA/perl/bin/nsperl

use strict;
use CGI;
use lib '/CIGNA/00cgi-bin/www06/modules';
use CGILib;

my $cgi = CGI->new;
my $base = $CGILib::secure;

$base = $CGILib::nonsecure if $CGILib::conf->{SubDir} =~ /secure/;

$base = $CGILib::public if $cgi->param('site') =~ 'public';
$base = $CGILib::publicSSL if $cgi->param('site') =~ 'publicSSL';
$base = $CGILib::privateProvider if $cgi->param('site') =~ 'privateProvider';
$base = $CGILib::portalProvider if $cgi->param('site') =~ 'portalProvider';

print CGI->redirect($base . $cgi->param('url'));
