#!/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'));