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