#!/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);
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>