#!/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/09/26 15:19:22 $

=head1 REVISION

$Revision: 1.2 $

=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|cgi-bin/register.cgi|cgi-bin/protected/register.cgi|;

print $query->redirect($self);