#!/usr/bin/perl

=pod

=head1 NAME 

register-redirect.cgi - a redirect scrript

=head1 SYNOPSIS

register.cgi?[I<options>]

=head1 DESCRIPTION

The script redirects to a directory protected below

=head1 AUTHOR

Boris Veytsman

=head1 DATE

$Date: 2003/07/16 02:08:28 $

=head1 REVISION

$Revision: 1.1 $

=cut


###################################################
# Starting up
###################################################

    use strict;
use vars qw(%ENV);
use CGI qw(:standard);
use DBI;
use POSIX qw(locale_h);
my $query= new CGI;
my $self=$query->self_url;
$self =~ s/register/protected\/register/;

print $query->redirect($self);